Šajā rakstā mēs izveidosim makro, lai dotos datus formatētu vēlamajā pielāgotajā ciparu formātā, izmantojot VBA.
Neapstrādāti dati šajā piemērā sastāv no pārdošanas komandas datiem. Neapstrādāti dati satur nosaukumu, produkta ID, produkta cenu, pārdoto daudzumu un kopējo pārdošanas apjomu.
Pirms makro palaišanas P slejā ir jānorāda pielāgotais skaitļa formāts un kolonnas numurs, kurā vēlaties lietot pielāgoto skaitļu formātu kolonnā Q.
Noklikšķiniet uz pogas “Formatēt”, lai palaistu makro “Formatēšana”.
Makro mainīs doto datu formatējumu atbilstoši norādītajam pielāgotajam skaitļa formātam.
Loģisks skaidrojums
Šis makro izvēlas skaitļu formatējumu no kolonnas P un piešķir skaitļu formatējumu kolonnām, kuras kolonnā Q norāda kolonnas numuri.
Šajā makro mēs izmantojam divas cilpas DO LĪDZ cilpām. Vispirms DO UNTILoop tiek izmantota cilpa, līdz kolonnās tiek lietoti visi skaitļu formāti. Otrā cilne DO UNTIL tiek izmantota, lai atrastu visus dažādos kolonnu numurus, kas norādīti un atdalīti ar komatiem (,).
Koda skaidrojums
strCol = pa kreisi (txt, InStr (txt, ",") - 1)
Iepriekš minētais kods tiek izmantots, lai atdalītu kolonnas numuru no virknes, kurā ir visi kolonnu numuri, atdalīti ar komatiem (,).
Kolonnas (CInt (strCol)). NumberFormat = wks.Cells (intRow, 16). Vērtība
Iepriekš minētais kods tiek izmantots, lai norādītajā kolonnā lietotu pielāgoto skaitļu formātu.
txt = Pa labi (txt, Len (txt) - InStr (txt, ","))
Iepriekš minētais kods tiek izmantots, lai atdalītu atstāto virkni pēc kolonnas numura noņemšanas no noteiktās virknes.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub Formatting () 'Mainīgo deklarēšana Dim wks kā darblapa Dim intRow Tik ilgi Dim strCol Kā String Dim txt Kā String' Mainīgo inicializēšana Set wks = Worksheets ("Format") intRow = 4 'Cilpa 16. kolonnā, līdz tukša vērtība ir atrasts Do Before IsEmpty (wks.Cells (intRow, 16)) 'Pielāgota skaitļa formāta vērtības piešķiršana txt = wks.Cells (intRow, 17)' Visu cilņu skaitīšana un atrašana ar komatu (,) Do Before InStr ( txt, ",") = 0 'Kolonnas numura iegūšana strCol = Pa kreisi (txt, InStr (txt, ",") - 1)' Ciparu formāta piešķiršana Kolonnas (CInt (strCol)). NumberFormat = wks.Cells (intRow , 16). Vērtība 'Virknes saīsināšana nākamā kolonnas numura atrašanai pēc komata (,) txt = Pa labi (txt, Len (txt) - InStr (txt, ",")) cilpa' Ciparu formāta piešķiršana Kolonnas (CInt (txt)). NumberFormat = wks.Cells (intRow, 16). Vērtība intRow = intRow + 1 Loop End Sub
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē