VBA naudojimas darbo lapo žemėlapiui sukurti

Ar kada nors bandėte suprasti nepažįstamą (ir sudėtingą) „Excel“ darbaknygę? Būtų naudinga pamatyti žemėlapį, kuriame būtų pateikta apžvalga, kuriuose langeliuose yra konstantos, o kuriuose – reikšmės.

Galite sukurti VBA priemonę, kuri generuoja aktyvaus darbalapio žemėlapį. Žemėlapis sugeneruojamas naujame darbalapyje ir susideda iš spalvomis koduotų langelių, leidžiančių greitai nustatyti reikšmes, tekstą ir formules.

Žemiau matote tokio žemėlapio pavyzdį. Langeliai, kuriuose yra teksto, yra žali, tie, kuriuose yra skaitinė reikšmė, yra geltoni, o langeliai, kuriuose yra formulių, yra raudoni. Toks žemėlapis gali padėti pastebėti galimas klaidas. Pavyzdžiui, jei viena formulių bloko formulė buvo perrašyta reikšme, tas langelis išsiskirs žemėlapio rodinyje (kaip pavyzdyje Q11 langelyje).

VBA naudojimas darbo lapo žemėlapiui sukurti

QuickMap VBA kodas

Toliau pateikiama VBA procedūra, kuri sukuria darbalapio žemėlapį. Jei norite naudoti šią priemonę, tiesiog nukopijuokite kodą ir įklijuokite jį į VBA modulį. Tada suaktyvinkite darbalapį ir paleiskite „QuickMap“ paprogramę.

Sub QuickMap()
  Dim FormulaCells kaip variantas
  Pritemdyti teksto langelius kaip variantą
  Pritemdykite skaičių langelius kaip variantą
  Pritemdyta sritis kaip diapazonas
  Jei TypeName(ActiveSheet) <> "Worksheet" Tada išeikite iš sub
Sukurkite objektų kintamuosius langelių pogrupiams
  Įvykus klaidai, tęskite toliau
  Nustatyti FormulaCells = diapazonas („A1“). Specialieji langeliai _
   (xlFormulės, xlSkaičiai + xlTextValues ​​+ xlLogical)
  Nustatyti teksto langelius = diapazonas („A1“). Specialieji langeliai (xlConstants, xlTextValues)
  Nustatyti numerio langelius = diapazonas („A1“). Specialieji langeliai (xlConstants, xlSkaičiai)
  Dėl klaidos GoTo 0
' Pridėkite naują lapą ir suformatuokite jį
  Lakštai.Pridėti
  Su ląstelėmis
    .Stulpelio plotis = 2
    .Šrifto dydis = 8
    .HorizontalAlignment = xlCenter
  Baigti su
  Application.ScreenUpdating = Netiesa
Padarykite formulės langelius
  Jei Ne IsEmpty (FormulaCells) Tada
    Kiekvienai sričiai FormulaCells.Areas
      Su ActiveSheet.Range(Sritis.Adresas)
        .Value = "F"
        .Interjeras.ColorIndex = 3
      Baigti su
    Kita sritis
  Pabaiga, jei
' Atlikite teksto langelius
  Jei Ne IsEmpty (TextCells) Tada
    Kiekvienai sričiai TextCells.Areas
      Su ActiveSheet.Range(Sritis.Adresas)
        .Value = "T"
        .Interjeras.ColorIndex = 4
      Baigti su
    Kita sritis
  Pabaiga, jei
' Atlikite skaitines ląsteles
  Jei Ne IsEmpty (NumberCells) Tada
    Kiekvienai sričiai skaičių langeliuose.Sritys
      Su ActiveSheet.Range(Sritis.Adresas)
        .Value = "N"
        .Interjeras.ColorIndex = 6
      Baigti su
    Kita sritis
  Pabaiga, jei
Pabaigos sub

Kaip tai veikia

Procedūros metu pirmiausia patikrinama, ar aktyvus lapas yra darbalapis. Jei ne, galite greitai išeiti be jokių veiksmų. Kai aktyvus lapas yra darbalapis, procedūra sukuria tris objekto kintamuosius naudojant SpecialCells metodą, skirtą įvairiems langelių tipams nustatyti. SpecialCells metodas yra labai naudingas. Jei nesate su juo susipažinę, patikrinkite tai „Excel“ internetiniame pagalbos faile. Atkreipkite dėmesį į „On Error Resume Next“ naudojimą. Taip išvengiama klaidos, kuri įvyksta, jei nėra tinkamų langelių, pavyzdžiui, jei darbalapyje nėra formulių.

Tada procedūra prideda naują darbalapį, sumažina langelio plotį ir nustato horizontalų lygiavimą į centrą. Šis žingsnis yra kosmetinis. Tada antrinis įrenginys išjungia ekrano atnaujinimą, kad šiek tiek paspartintų.

Kiti trys kodo blokai apdoroja ląsteles. Jei nėra tinkamų langelių, objekto kintamasis yra tuščias, todėl antrinė dalis tai tikrina. Tada rutina pereina per kiekvieną diapazono objekto sritį ir suformatuoja langelį. Galite lengvai pritaikyti šią paprogramės dalį, kad pritaikytumėte skirtingą formatavimą.

Peržiūrėkite „ Power Utility Pak“ priedą , kad gautumėte daug sudėtingesnę šios programos versiją.

Leave a Comment

Specialiųjų simbolių įterpimas į Word 2010

Specialiųjų simbolių įterpimas į Word 2010

Kartais gali prireikti įterpti neįprastą simbolį į Word 2010 dokumentą. Perskaitykite, kaip lengvai tai padaryti su mūsų patarimais ir simbolių sąrašu.

Kaip naudoti logines funkcijas „Excel 2010“ formulėse

Kaip naudoti logines funkcijas „Excel 2010“ formulėse

„Excel 2010“ naudoja septynias logines funkcijas – IR, FALSE, IF, IFERROR, NOT, OR ir TRUE. Sužinokite, kaip naudoti šias funkcijas efektyviai.

Kaip paslėpti ir rodyti eilutes ir stulpelius programoje „Excel 2016“.

Kaip paslėpti ir rodyti eilutes ir stulpelius programoje „Excel 2016“.

Sužinokite, kaip paslėpti ir atskleisti stulpelius bei eilutes programoje „Excel 2016“. Šis patarimas padės sutaupyti laiko ir organizuoti savo darbalapius.

Kaip apskaičiuoti slenkančius vidurkius programoje „Excel“.

Kaip apskaičiuoti slenkančius vidurkius programoje „Excel“.

Išsamus vadovas, kaip apskaičiuoti slankiuosius vidurkius „Excel“ programoje, skirtas duomenų analizei ir orų prognozėms.

Kaip nukopijuoti formules naudojant automatinį pildymą programoje „Excel 2016“.

Kaip nukopijuoti formules naudojant automatinį pildymą programoje „Excel 2016“.

Sužinokite, kaip efektyviai nukopijuoti formules Excel 2016 programoje naudojant automatinio pildymo funkciją, kad pagreitintumėte darbo eigą.

Kaip „Excel 2010“ langeliams taikyti užpildymo spalvas, raštus ir gradientus

Kaip „Excel 2010“ langeliams taikyti užpildymo spalvas, raštus ir gradientus

Galite pabrėžti pasirinktus langelius „Excel 2010“ darbalapyje pakeisdami užpildymo spalvą arba pritaikydami ląstelėms šabloną ar gradiento efektą.

Kaip paryškinti savaitgalio datas programoje „Excel“.

Kaip paryškinti savaitgalio datas programoje „Excel“.

Dirbdami su laiko kortelėmis ir planuodami programą „Excel“, dažnai pravartu lengvai nustatyti bet kokias datas, kurios patenka į savaitgalius. Šiame straipsnyje pateikiami žingsniai, kaip naudoti sąlyginį formatavimą.

Kaip sukurti diagramas „Office 365“.

Kaip sukurti diagramas „Office 365“.

Sužinokite, kaip sukurti diagramas „Word“, „Excel“ ir „PowerPoint“ programose „Office 365“. Daugiau informacijos rasite LuckyTemplates.com.

Kaip sukurti pasirinktinius „Excel“ suvestinės lentelės skaičiavimus

Kaip sukurti pasirinktinius „Excel“ suvestinės lentelės skaičiavimus

„Excel“ suvestinės lentelės leidžia kurti <strong>pasirinktinius skaičiavimus</strong>, įtraukiant daug pusiau standartinių skaičiavimų. Šiame straipsnyje pateiksiu detalius nurodymus, kaip efektyviai naudoti šią funkciją.

Kaip pakeisti rašybos tikrinimo ir gramatikos nustatymus programoje „Word 2016“.

Kaip pakeisti rašybos tikrinimo ir gramatikos nustatymus programoje „Word 2016“.

Nesvarbu, ar dievinate, ar nekenčiate Word gebėjimo išjuokti jūsų kalbos gebėjimus, jūs turite galutinį sprendimą. Yra daug nustatymų ir parinkčių, leidžiančių valdyti „Word“ rašybos ir gramatikos tikrinimo įrankius.