Šiame straipsnyje mes sukursime makrokomandą, kad suformatuotume nurodytus duomenis norimu pasirinktiniu skaičių formatu, naudodami VBA.
Neapdorotus šio pavyzdžio duomenis sudaro pardavimo komandos duomenys. Neapdorotus duomenis sudaro pavadinimas, produkto ID, produkto kaina, parduotas kiekis ir bendras pardavimas.
Prieš paleidžiant makrokomandą, P stulpelyje reikia nurodyti pasirinktinio skaičiaus formatą ir stulpelio numerį, kuriame norima pritaikyti pasirinkto skaičiaus formatą stulpelyje Q.
Spustelėkite mygtuką „Formatuoti“, kad paleistumėte makrokomandą „Formatavimas“.
Makrokomanda pakeis nurodytų duomenų formatą pagal nurodytą pasirinktinio skaičiaus formatą.
Loginis paaiškinimas
Ši makrokomanda parenka skaičių formatavimą iš stulpelio P ir priskiria numerio formatavimą stulpeliams, nurodytiems stulpelio numeriais stulpelyje Q.
Šioje makrokomandoje mes naudojame dvi ciklo „DO UNTIL“ ciklus. Pirmiausia DO UNTIL ciklas naudojamas ciklui, kol stulpeliuose bus pritaikyti visi skaičių formatai. Antroji DO UNTIL ciklas naudojamas surasti visus skirtingus stulpelių numerius, nurodytus ir atskirtus kableliais (,).
Kodo paaiškinimas
strCol = Kairė (txt, InStr (txt, ",") - 1)
Viršuje esantis kodas naudojamas stulpelio numeriui atskirti nuo eilutės, kurioje yra visi stulpelių numeriai, atskirti kableliais (,).
Stulpeliai (CInt (strCol)). NumberFormat = wks.Cells (intRow, 16). Value
Aukščiau pateiktas kodas naudojamas pasirinktinio skaičiaus formatui taikyti nurodytame stulpelyje.
txt = Dešinė (txt, Len (txt) - InStr (txt, ","))
Viršuje esantis kodas naudojamas atskirti paliktą eilutę, pašalinus stulpelio numerį nuo apibrėžtos eilutės.
Sekite toliau pateiktą kodą
Parinktis „Explicit Sub Formatting“ () „Kintamųjų deklaravimas Dim wks kaip darbalapis Dim intRow Kaip ilgai Dim strCol Kaip String Dim txt kaip String“ Kintamųjų inicijavimas Nustatykite wks = darbalapius („Format“) intRow = 4 'Looping 16 stulpelio kol tuščia reikšmė rasta Do Iki IsEmpty (wks.Cells (intRow, 16)) 'Pasirinktinio skaičiaus formato reikšmės priskyrimas txt = wks. Ląstelės (intRow, 17)' Viso stulpelio numerio atskyrimas ir suradimas kableliais (,) Do Before InStr ( txt, ",") = 0 'Stulpelio numerio gavimas strCol = Kairė (txt, InStr (txt, ",") - 1)' Skaičių formato stulpelių priskyrimas (CInt (strCol)). NumberFormat = wks.Cells (intRow , 16). Value 'Sutrumpinti eilutę, norint rasti kitą stulpelio numerį po kablelio (,) txt = Dešinė (txt, Len (txt) - InStr (txt, ",")) kilpa "Skaičių formato stulpelių priskyrimas (CInt (txt)). NumberFormat = wks.Cells (intRow, 16). Value intRow = intRow + 1 Loop End Sub
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el
