VBA Excel: program sampel. Macros di Excel

y = x1 + x1 ^ 2 + 3 * x1 ^ 3 - cos (x1)

Sél (i, 1) .Value = x1 (nilai x1 ditulis dina mémori jeung koordinat (i, 1))

Sél (i, 2) .Value = y (y nilai anu ditulis dina sél kalayan koordinat (i, 2))

i = abdi + 1 (count valid);

x1 = x1 + shag (argumen dirobah ka ukuran hambalan);

loop

Tungtung Sub.

Salaku hasil tina makro ngajalankeun ieu "Excel" ménta dua kolom, anu mimiti nu dirékam nilai keur x, sarta kadua - ka y.

Lajeng ngajadwalkeun bisa ngawangun on aranjeunna, baku pikeun "Excel".

conto 3

Pikeun nerapkeun siklus di VBA Excel 2010, kitu ogé dina versi sejenna marengan geus ngurangan Do Sedengkeun desain dipaké Kanggo.

Mertimbangkeun program anu nyiptakeun kolom. Dina unggal sél éta bakal dirékam kuadrat pakait angka garis. Pikeun pamakéan desain bakal ngidinan pikeun ngarekam eta pisan sakeudeung, tanpa ngagunakeun counter a.

Mimiti perlu nyieun makro hiji, sakumaha ditétélakeun di luhur. Salajengna, nyerat kodeu sorangan. Simkuring yakin yén kami kabetot dina nilai keur 10 sél. Kode ieu kieu.

Keur i = 1 nepi ka 10 salajengna

paréntah anu dibikeun ka basa "manusa", sakumaha "terus-terusan ti 1 nepi ka 10 di increments tina hiji".

Lamun tugas pikeun nampa kolom kalawan kuadrat, contona, kabéh wilangan buleud ganjil antara 1 jeung 11 urang nulis:

Keur i = 1 nepi ka 10 hambalan 1 Salajengna.

Di dieu, lengkah - hambalan. Dina hal ieu, éta sarua jeung dua. Sacara standar, henteuna kecap dina loop anu ngandung harti yén hiji hambalan tunggal.

Hasilna perlu disimpen dina jumlah sél (i, 1). Lajeng unggal kali Anjeun ngamimitian daur kalawan paningkatan dina nilai nu sahiji abdi lengkah otomatis bakal tumuwuh sarta jumlahna garis. Ku kituna, bakal aya kode optimasi.

Sacara umum, kode nu bakal kasampak kawas:

Sub program ()

Keur i = 1 Pikeun 10 Lengkah 1 (bisa ditulis ukur keur i = 1 Pikeun 10)

Sél (i, 1) .Value = i ^ 2 (i.e. kwadrat ieu ditulis kana sél (i, 1) i)

Hareup (dina rasa muterkeun peran sarana counter sarta siklus mimiti sejen)

Tungtung Sub.

Mun dipigawe neuleu, kaasup rekaman jeung jalan macros (tingali. Parentah di luhur), mangka disebutna unggal waktu ukuran tinangtu bakal dicandak kolom (dina hal ieu diwangun ku 10 sél).

conto 4

Dina kahirupan sapopoe, sering pisan perlu nyandak kaputusan ieu atanapi nu gumantung kana sababaraha kaayaan. moal bisa ngalakukeun tanpa aranjeunna dina VBA Excel. Conto program mana kursus salajengna tina algoritma nu dipilih tinimbang mimitina predetermined, paling design ilahar dipaké di Mun ... Lajeng (pikeun kasus hese) Mun ... Lajeng ... TAMAT Mun.

Mertimbangkeun hal nu tangtu. Anggap rék nyieun hiji makro pikeun "Excel" pikeun sél kalayan koordinat (1,1) geus dirékam:

1 lamun argumen anu positif;

0 lamun argumen nyaeta nol;

1, upami argumen anu négatip.

Kreasi a makro misalna pikeun "Excel" dimimitian dina cara baku, ngaliwatan pamakéan "panas" kenop Alt na F11. Salajengna ditulis kodeu handap:

Sub program ()

x = Sél (1, 1) .Value (Ieu parentah nangtukeun nilai koordinat x tina eusi sél (1, 1))

Lamun x> 0 Lajeng Sél (1, 1) .Value = 1

Lamun x = 0 Lajeng Sél (1, 1) .Value = 0

Lamun x <0 Lajeng Sél (1, 1) .Value = -1

Tungtung Sub.

Eta tetep ka ngajalankeun makro sarta meunang dina "Excel" nilai nu dipikahoyong pikeun argumen.

fungsi VBA

Anjeun bisa geus noticed, dina program aplikasi spreadsheet Microsoft kawentar teu teuing hésé. Utamana lamun diajar kumaha ngagunakeun fungsi VBA. Dina total, basa programming ieu dijieun husus pikeun nulis aplikasi dina "Excel" jeung Firman, ngeunaan 160 fungsi. Éta bisa dibagi kana sababaraha golongan badag. Aranjeunna:

• fungsi matematik. Nerapkeun aranjeunna kana argumen di nilai kosinus ieu dicandak, logaritma alam, sarta jadi sakabeh bagéan.
• fungsi finansial. Alatan kasadiaan sarta pamakéan maranéhna programming dina Excel, anjeun bisa meunangkeun parabot mujarab pikeun akuntansi jeung padumukan finansial.
• fungsi processing Asép Sunandar Sunarya. Ieu kaasup Array, IsArray; LBound; UBound.
• VBA Excel fungsina pikeun jalur. Ieu grup anu cukup badag. Ieu ngawengku, contona, fungsi Spasi nyieun string kalawan sababaraha sela sarua jeung argumen integer atawa naék Mindahkeun simbol keur kode ANSI. Kabéh aya ti antarana anu lega dipaké tur ngidinan Anjeun pikeun digawekeun ku senar dina "Excel" pikeun nyieun aplikasi loba gampang pikeun digawe sareng tabel ieu.
• fungsi artos tipe data. Contona, CVar mulih argumen Babasan, ngarobah ka Variant tipe data.
• fungsi Tanggal. Aranjeunna greatly dilegakeun fitur baku tina "Excel". Ku kituna, fungsi WeekdayName mulih nami (pinuh atawa parsial) tina dinten dina saminggu ku jumlah na. Malah leuwih mangpaat nya otomatis éta. Anjeunna mere Jumlah detik anu tos dilakonan ti tengah wengi ka momen hususna dina sapoe.
• Fungsina pikeun ngarobah argumen numerik dina sistem angka béda. Contona, Oct outputs mun ngagambarkeun octal tina jumlahna.
• fungsi pormat. Paling penting ieu téh Format nu. Ieu mulih Variant hiji kalawan éksprési formatna luyu jeung parentah dirumuskeun dina pedaran format nu.
• jeung saterusna.

Ulikan ngeunaan sipat fungsi ieu sarta aplikasi maranéhanana nyata bakal dilegakeun ruang lingkup "Excel".

conto 5

Hayu urang cobaan pikeun ngajawab masalah leuwih kompleks. Contona:

dokumen tulisan Dan tingkat sabenerna waragad laporan perusahaan. merlukeun:

• ngamekarkeun bagian pola na ku spreadsheet "Excel";
• nyieun program VBA anu bakal menta data atah ngeusian éta, pikeun ngalakonan itungan perlu jeung eusian nu template sél alkana.

Mertimbangkeun salah sahiji solusi handap.

Nyieun template a

Sadaya lampah anu dipigawé dina lambaran baku dina Excel. Sél bébas ditangtayungan pikeun ngasupkeun data dina bulan, sataun, pausahaan judul-konsumen, jumlah waragad, tingkat maranéhanana elehan. Salaku jumlah pausahaan (pausahaan), di hormat tina nu laporan teu dirékam, sél sangkan dina dasar nilai na ngaran profésional henteu ditangtayungan sateuacanna. LKS ditugaskeun ka ngaran anyar. Contona, "Օ Laporan".

variabel

Nulis program otomatis eusian citakan, pilih notasi nu. Aranjeunna bakal dipaké pikeun variabel:

• NN- Jumlah baris kiwari tabél;
• TP na TF - rencanana na elehan sabenerna;
• SF jeung SP - aktual sarta rencanana total waragad;
• IP na IF - rencanana sarta tingkat waragad sabenerna.

Urang denote ku hurup anu sarua, tapi ku "awalan» Itog akumulasi total keur kolom éta. Contona, ItogTP - Sareng hal mun kolom judulna, salaku "elehan rencanana".

Solusi tina masalah migunakeun programming VBA

Ngagunakeun notasi ieu, kami ménta rumus keur varian. Lamun hayang ngalakonan itungan dina% urang kudu (F - P) / P * 100, sarta dina jumlah - (F - P).

Hasil itungan ieu bisa jadi pangalusna ngan nyieun "Excel" spreadsheet dina sél luyu.

Pikeun hasil na ramalan kanyataanna diala ku rumus ItogP = ItogP + P jeung ItogF = ItogF + F.

Pikeun simpangan make = (ItogF - ItogP) / ItogP * 100 lamun itungan dilumangsungkeun salaku persentase, sarta lamun nilai total - (ItogF - ItogP).

Hasilna sakali deui kacatet dina sél luyu, jadi aya teu kudu napelkeun aranjeunna keur variabel.

Sateuacan ngawitan nyiptakeun program a rék ngahemat workbook, contona, di handapeun ngaran "Otchet1.xls".

Pencét "Jieun tabel ngalaporkeun," anjeun kudu mencet ngan 1 waktu sanggeus nuliskeun informasi lulugu. Anjeun kudu nyaho jeung aturan lianna. Dina sababaraha hal, tombol "Tambahkeun garis" kudu dipencet unggal waktu sanggeus ngasupkeun kana tabel di nilai pikeun tiap kagiatan. Sanggeus ngasupkeun sakabéh data diperlukeun keur mencet tombol "rengse", lajeng pindah ka "Excel" dina jandela.

Ayeuna nu nyaho kumaha carana ngajawab masalah pikeun Excel kalawan macros. Kamampuh ngagunakeun vba Excel (tingali program sampel. Di luhur) jeung anjeun bisa kudu dianggo dina lingkungan nu pang populerna di momen, téks redaktur "Firman". Dina sababaraha hal, ku ngarekam, ditémbongkeun saperti dina awal artikel ieu, atawa ku tulisan kode nyieun tombol menu ngaliwatan nu loba tina operasi dina téks nu bisa dilakukeun ku mencét kenop dina tugas atawa ngaliwatan "Témbongkeun" ikon sarta tab "macros".