VBA Excel: program sampel. Macro ing Excel

y = X1 + X1 ^ 2 + 3 * X1 ^ 3 - Cos (X1)

Sel (i, 1) .Nilai = X1 (Nilai X1 ditulis ing memori kanthi koordinat (i, 1))

Sel (i, 2) .Nilai = y (y Nilai ditulis ing sel karo koordinat (i, 2))

i = i + 1 (count bener);

X1 = X1 + shag (pitakonan wis diganti ukuran langkah);

Loop

Akhir Sub.

Minangka asil gedhe roto iki "Excel" diwenehi loro kolom, pisanan kang direkam angka kanggo x, lan liya - kanggo y.

Banjur gawe jadwal bisa mbangun ing wong, standar kanggo "Excel".

CONTO 3

Kanggo ngleksanakake siklus ing VBA Excel 2010, uga ing versi liyane, bebarengan karo wis suda Do Nalika desain digunakake Kanggo.

Coba program sing nggawe kolom. Ing saben sel iku bakal direkam squares cocog nomer baris. Kanggo nggunakake rancangan bakal ngidini kanggo ngrekam iku banget sedhela, tanpa nggunakake counter a.

First iku perlu kanggo nggawe gedhe sing, kaya ing ndhuwur. Sabanjure, nulis kode dhewe. Kita pitados bilih kita kasengsem ing angka kanggo 10 sel. Wóng kang minangka nderek.

Kanggo i = 1 kanggo 10 Sabanjure

Printah ditransfer menyang basa "manungsa", minangka "bola saka 1 kanggo 10 tambahan saka siji."

Yen tugas kanggo nampa kolom karo squares, contone, kabeh wilangan bulat aneh antarane 1 lan 11, kita nulis:

Kanggo i = 1 kanggo 10 langkah 1 Next.

Kene, langkah - langkah. Ing kasus iki, iku ingatase kanggo loro. Kanthi gawan, anané tembung ing daur ulang ing tegese langkah siji.

Asil kudu disimpen ing nomer sel (i, 1). Banjur saben-saben sampeyan miwiti siklus karo Tambah ing Nilai saka i langkah otomatis bakal tuwuh lan nomer baris. Mangkono, bakal ana kode Optimization.

Umumé, kode bakal katon kaya:

Sub program ()

Kanggo i = 1 10 Langkah 1 (bisa ditulis mung kanggo aku = 1 10)

Sel (i, 1) .Nilai = i ^ 2 (i.e. Nilai kothak ditulis menyang sel (i, 1) i)

Next (ing raos peran saka liya counter lan siklus wiwitan liyane)

Akhir Sub.

Rampung bener, kalebu rekaman lan mlaku macro (ndeleng. Pandhuan ing ndhuwur), banjur diarani saben wektu ukuran diwenehi bakal dijupuk kolom (ing ngono dumadi saka 10 sel).

CONTO 4

Ing saben dinten gesang, asring banget iku perlu kanggo njupuk kaputusan iki utawa sing gumantung ing sawetara kahanan. ora bisa apa tanpa wong ing VBA Excel. Conto program endi mesthi luwih saka algoritma dipilih tinimbang wiwitanipun predetermined, paling rancangan umum digunakake saka Yen ... Banjur (kanggo kasus angel) Yen ... Banjur ... END Yen.

Coba kasus tartamtu. Upaminipun pengin nggawe macro kanggo "Excel" kanggo sèl karo koordinat (1,1) wis direkam:

1 yen pitakonan iku positif

0 yen pitakonan iku nul;

1, yen pitakonan negatif.

Nitahaken saka gedhe kuwi kanggo "Excel" wiwit ing cara standar, liwat nggunakake "panas" tombol Alt lan F11. Luwih ditulis kode ing ngisor iki:

Sub program ()

x = Sel (1, 1) .Nilai (printah iki nugasi ing Nilai saka koordinat x isi sel (1, 1))

Yen x> 0 Banjur Sel (1, 1) .Nilai = 1

Yen x = 0 Banjur Sel (1, 1) .Nilai = 0

Yen x <0 Banjur Sel (1, 1) .Nilai = -1

Akhir Sub.

Iku tetep kanggo mbukak gedhe lan njaluk ing "Excel" nilai sing dipengini kanggo pitakonan.

fungsi VBA

Sing uga wis ngeweruhi, ing program aplikasi spreadsheet Microsoft paling misuwur iku ora banget angel. Utamané yen sinau carane nggunakake fungsi VBA. In total, basa program iki digawe khusus kanggo nulis aplikasi ing "Excel" lan Sabda, bab 160 fungsi. Padha bisa dipérang dadi sawetara klompok gedhe. Padha:

• fungsi matématika. Nglamar menyang pitakonan saka cahya cosine iki dijupuk, ing logarithm alam, lan supaya kabèh bagéyan.
• fungsi Financial. Amarga kasedhiyan lan nggunakake program ing Excel, sampeyan bisa njaluk pribadi efektif kanggo accounting lan pamukiman financial.
• fungsi Processing Array. Iki kalebu Array, IsArray; LBound; UBound.
• VBA Excel fungsi kanggo baris. Iki minangka grup kasuwur. Iku kalebu, contone, fungsi Space nggawe senar karo sawetara kesenjangan witjaksono kanggo pitakonan ongko utawa ASC pindhah simbol kanggo kode ANSI. Kabeh mau wis digunaaké lan ngidini sampeyan bisa nganggo strings ing "Excel" kanggo nggawe aplikasi akeh luwih gampang digarap tabel.
• fungsi konversi jinis data. Contone, CVar ngasilake pitakonan Expression, nindakake iku kanggo Varian jinis data.
• fungsi Tanggal. Padha nemen nggedhekake fitur standar "Excel". Dadi, fungsi WeekdayName ngasilake jeneng (full utawa sebagean) saka dina minggu dening sawijining nomer. Malah luwih migunani iku Timer ing. Dheweke menehi nomer detik sing wis dilakoni wiwit tengah wengi kanggo wayahe tartamtu sedina-dinane.
• Dienggo ngowahi pitakonan numerik ing sistem nomer beda. Contone, Oct hasil kanggo perwakilan octal saka nomer.
• fungsi format. Sing paling penting iku Format ing. Ngasilake Varian karo expression format miturut pandhuan kaparingaken ing gambaran saka format ing.
• lan sanesipun.

Nyinaoni sifat fungsi iki lan aplikasi sing Ngartekno nggedhekake orane katrangan saka "Excel".

CONTO 5

Ayo dadi nyoba kanggo ngatasi masalah liyane Komplek. Contone:

document kertas Dan tingkat nyata biaya saka laporan perusahaan. mbutuhake:

• berkembang bagean pola dening spreadsheet "Excel";
• nggawe program VBA sing bakal nyuwun data mentah isi, kanggo nindakake etung-etungan perlu lan isi ing cithakan saka sel sing cocog.

Coba salah siji saka solusi ing ngisor iki.

Nggawe cithakan

Kabeh tumindak sing dileksanakake ing sheet standar ing Excel. sel Free dilindhungi undhang-undhang kanggo ngetik data ing sasi, taun, perusahaan judhul-konsumen, jumlah biaya, sing tingkat turnover. Minangka sawetara perusahaan (perusahaan), ing bab kang laporan ora kacathet sajarah, sel kanggo nggawe ing basis saka angka lan jeneng profesional ora dilindhungi undhang-undhang ing advance. Lembaran diutus kanggo jeneng anyar. Contone, "Օ Report".

variabel

Kanggo nulis program isi kanthi otomatis cithakan, pilih seratan ing. Padha bakal digunakake kanggo variabel:

• NN- sawetara ing baris saiki meja;
• TP lan TF - ngrancang lan turnover nyata;
• SF lan SP - nyata lan ngrancang total biaya;
• IP lan yen - ngrancang lan tingkat biaya nyata.

We ndudohke dening huruf padha, nanging karo "ater» Itog klempakan total kanggo kolom sing. Contone, ItogTP - Kanthi gati kanggo kolom ing irah-irahan, minangka "turnover ngrancang."

Solusi saka masalah nggunakake program VBA

Nggunakake seratan iki, kita diwenehi rumus kanggo bedo. Yen sampeyan pengin nindakake pitungan ing% kita duwe (F - P) / P * 100, lan ing jumlah - (F - P).

Asil petungan iki bisa dadi paling mung kanggo nggawe "Excel" spreadsheet ing sel cocok.

Kanggo kasil lan ramalan ing kasunyatan dijupuk dening rumus ItogP = ItogP + P lan ItogF = ItogF + F.

Kanggo standar nggunakake = (ItogF - ItogP) / ItogP * 100 yen pitungan wis digawa metu minangka persentasi, lan yen nilai total - (ItogF - ItogP).

Asil sepisan maneh direkam ing sel cocok, supaya ana ora perlu kanggo nemtokake menyang variabel.

Sadurunge miwiti kanggo nggawe program sing pengin disimpen notes, contone, ing jeneng "Otchet1.xls".

Pencet "Nggawe Tabel Reporting," sampeyan kudu pencet mung 1 wektu sawise ngetik informasi header. Sampeyan kudu ngerti lan aturan liyane. Ing tartamtu, tombol "Add a line" kudu dipencet saben wektu sawise ngetik menyang meja nilai kanggo saben kegiatan. Sawise ngetik kabeh data sing pencet tombol "Rampung", lan banjur ngalih menyang "Excel" ing jendhela.

Saiki sing ngerti carane ngatasi masalah kanggo Excel karo macro. Kemampuan kanggo nggunakake VBA Excel (ndeleng program sampel. Ndhuwur) lan sampeyan bisa uga kudu bisa ing lingkungan sing paling populer ing wayahe, teks editor "Sabda." Ing tartamtu, ngrekam, minangka ditampilake ing awal artikel iki, utawa dening nulis kode kanggo nggawe tombol menu liwat kang akeh saka operasi ing teks bisa rampung kanthi mencet tombol ing tugas utawa liwat "View" lambang lan tab "Macro".