Izplatiet datus no dienas lapu saraksta, izmantojot VBA

Anonim

Šajā rakstā mēs izveidosim makro, lai katru dienu sakārtotu datus vairākās lapās.

Šī raksta neapstrādātos datus veido komandas ikdienas pārdošanas dati, kas ietver datumu, aģenta vārdu un pārdoto preču skaitu.

Mēs vēlamies katru dienu izplatīt datus vairākās lapās. Noklikšķinot uz pogas “Izplatīt datus katru dienu”, tiks darīts tas pats.

Koda skaidrojums

Darīt, līdz IsEmpty (darblapas (1). Šūnas (intRowS, 1))

Cilpa

Iepriekš minētajā kodā cilne “Do Do” (cilne “Do”) darbosies, līdz tiks atklāta tukša šūna.

strTab = Formāts (Šūnas (intRowS, 1). Vērtība, "ddmmyy")

Iepriekš minēto kodu izmanto, lai izvilktu lapas nosaukumu no datuma.

intRowT = darblapas (strTab). Šūnas (Rows.Count, 1). End (xlUp). Rinda + 1

Iepriekš minēto kodu izmanto, lai iegūtu pēdējās šūnas rindas numuru.

Lūdzu, sekojiet tālāk norādītajam kodam

Sub Divide () 'Mainīgo deklarēšana Dim intRowS kā vesels skaitlis, intRowT kā vesels skaitlis Dim strTab kā virkne' Inicializēšana ar sākuma rindas numuru intRowS = 10 'Pārbaude, vai pirmajā kolonnā esošā šūna ir tukša Do Before IsEmpty (Darblapas (1). Šūnas (intRowS, 1)) 'Lapas nosaukuma iegūšana, pamatojoties uz datuma vērtību pirmajā kolonnā strTab = Format (Šūnas (intRowS, 1) .Value, "ddmmyy")' Pēdējās šūnas rindas numura iegūšana intRowT = Darblapas (strTab). Šūnas. 

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ē