Tabloya naverokê
Bi xwezayî, dibe ku em hewce bike ku pelê ji pelek dêûbav Excel vekin ku VBA di pelrêçek cûda de bikar tîne. Lê di heman demê de, me cûrbecûr pîvan hene di heman demê de ka em çawa dixwazin pirtûka xebatê vekin. Heke hûn meraq dikin ku hûn zanibin ka hûn çawa dikarin pirtûkek xebatê bi navê guhêrbar vekin, wê hingê dibe ku ev gotar ji we re kêrhatî be. Di vê gotarê de, em nîqaş dikin ka hûn çawa dikarin pirtûkek xebatê ya bi navê guhêrbar bi karanîna VBA-ya li Excel bi ravekirinên berfireh vekin.
Pirtûka Xebatê ya Pratîkê dakêşin
Vê pirtûka xebatê ya pratîkê li jêr dakêşin.
Pirtûka Xebatê Bi Navê Guherbar Ve Bikaranîna VBA.xlsm
Sample.xlsx
4 Hêsan Rêbazên Vekirina Pirtûka Xebatê ya Bi Navê Guherbar Bi Bikaranîna VBA-yê li Excel
Em ê daneheva jêrîn ji bo xwenîşandanê bikar bînin. Agahdariya hilberê ya gelek hilberan bi nasnameya wan heye. ev pelek nimûne ye ku em ê bi koda VBA vekin.
1. Bikaranîna Pirtûka Xebatê. Taybetmendiya Vekirî
Bikaranîna Pirtûka Xebatê Taybetmendiya .Open , em dikarin dosyayan bi behskirina pelrêçê vekin, an jî cih nebêjin. Her weha em dikarin pelê vekirî bi tenê bixwînin.
1.1 Vekirina Rêya Pelê Nîşankirina Pirtûka Xebatê
Di rêbaza din de, em ê Pirtûka Xebatê bikar bînin. Taybetmendiya Vekirî ji bo vekirina pelê rasterast ji pelrêça cîhê pelê ya navborî vekin. Ne girîng e ku pel li ku derê ye, em dikarin pelê vekinku Sub Open_File_with_Add_Property()
⮚ Dû re em guherbara File_Path wekî String cure diyar dikin.
4768
⮚ Û guherbara File_Path li cîhê pelê saz bike.
8124
⮚ Em wb wek guherbar di Pirtûka Xebatê cure de diyar dikin.
4462
⮚ Dûv re pirtûka xebatê ji pelrêça ku li cîhê Pel_Rêya hatî hilanîn, bi karanîna taybetiya Pirtûka Xebatê tê zêdekirin.
8229
⮚ Di dawiyê de, em bi dawî dibin. bin-pêvajoya vê kodê.
Zêdetir Bixwîne: [Çakir!] Rêbaz Vekirina Pirtûkên Xebatê yên Objekt têkçû (4 Çareserî)
Encam
Ji bo kurtkirina wê, pirsgirêka ku em çawa dikarin pirtûkên xebatê yên bi navên guhêrbar bi karanîna VBA vekin, li vir bi 4 mînakên cûda têne bersivandin. Rêbaza VBA Macro pêdivî bi zanîna berê ya VBA-girêdayî heye ku ji sifirê were fêm kirin.
Ji bo vê pirsgirêkê, pirtûkek xebatê ya makro-çalakkirî heye ku dakêşîne ku hûn dikarin li wir pratîkê bikin. van rêbazan.
Bi rêya beşê şîroveyan tu pirs û nêrînan bixwazî. Her pêşniyarek ji bo baştirkirina civaka Exceldemy dê pir binirx be
bi hêsanî.Gavên
- Di peldanka belgeyan de dosyayek me heye ku divê em vekin.
- Em ê pelê bikar bînin wekî guhêrbar binav bike û dûv re pelê bi karanîna makroyek VBA ya piçûk veke.
- Pelrêça pelê ya rastîn a pelê li jêr di pencereya taybetmendiyê de tê xuyang kirin.
- Pêşî, herin tabloya Developer û li ser Visual Basic bikirtînin. Ger we tune be, divê hûn taba Pêşvebir çalak bikin . An jî hûn dikarin ' Alt+F11' ji bo vekirina Edîtorê Visual Basic pêl bikin.
- Paşê dê qutiyeke diyalogê ya nû hebe, di wê qutiya diyalogê de, li ser Têxe > Module bikirtînin.
- Piştre, di pencereya edîtorê Modûl de, koda jêrîn binivîse:
8141
- Piştre Modula paceyê.
- Piştî wê, herin tabloya Dîtin > Makro .
- Piştre li ser Dîtin Makro .
- Piştî tikandina Makroyan Binêre, Makroyên ku te niha afirandine hilbijêre. Navê li vir Open_with_File_Path e. Dûv re Run bikirtînin.
- Piştî wê pelê Nimûne vebe.
prosedûra ku Open_with_File_Path e.
5870
⮚ Dûv re, em cîhê pelê dixin nav File_Path guherbar
8300
⮚Dûv re, em guherbara xwe wrkbk , ku cureya wê pirtûka xebatê ye, eşkere dikin.
9494
⮚ Paşê, em pelê ku navê wê di guherbara pelrêça File_Path de vedikin û pelê saz dikin. wekî wrkbk guhêrbar.
4967
⮚ Di dawiyê de, em jêr-pêvajoya vê kodê biqedînin.
Zêdetir Bixwîne: Çawa Pirtûka Xebatê Ji Rêyê Bi Bikaranîna Excel VBA (4 Nimûne) veke
1.2 Pirtûka Xebatê Bêyî Binavkirina Rêya Pelê veke
Di rêbaza din de, em ê pelê ji peldanka dêûbav vekin, li wir pelê sereke tê tomarkirin. Pelê bêyî ku di kodê de cîhek were gotin dikare were vekirin. Pêdivî ye ku ev pel tenê di peldanka dêûbav de di heman peldankê de be.
Gavek
- Di heman pelrêça ku lê dêûbav tê de ye pelek me ya cûda heye. Pela Excel niha hatiye tomarkirin.
- Navê pelê 1 e.
- Pêşî, herin Pêşvebir tabloyê bikin û li ser Visual Basic bikirtînin. Ger we tune be, divê hûn taba Pêşvebir çalak bikin . An jî hûn dikarin ' Alt+F11 ' bişkînin ji bo vekirina Edîtorê Visual Basic .
- Paşê dê qutiyeke diyalogê ya nû hebe, di wê qutiya diyalogê de, li ser Têxe > Module bikirtînin.
- Piştre, di pencereya edîtorê Modûl de, koda jêrîn binivîse:
5075
- Piştre Modula paceyê.
- Piştî wê, herin tabloya Dîtin > Makro .
- Piştre li ser DîtinMakro .
- Piştî tikandina Dîtina Macroyan, makroyên ku we niha afirandine hilbijêrin. Navê vir Open_without_File_Path e. Dûv re Run bikirtînin.
- Piştî pêl Run , hûn ê bibînin ku pela bi navê 1 niha vekirî ye.
- Û bi vî awayî em pirtûka xebatê ya bi navê guhêrbar bi karanîna VBA di Excel de vedikin.
🔎 Dabeşkirina Kod
4668
⮚ Pêşî, em navek ji bo jêr-pêvajoya ku ev e Sub Open_without_File_Path()
5068
⮚ Em diyar dikin wrkbk wekî guhêrbar di celebê Pirtûka Xebatê de
6394
⮚ Em pelê ji pelrêça dêûbavê bi navê 1.xlsx vedikin.
4342
⮚ Di dawiyê de, em prosedûra jêrîn bi dawî dikin. ya vê kodê.
1.3 Pirtûka Xebatê veke wekî Tenê Xwendin
Rêbaz bi awayê yekem dişibihe, lê li vir em ê pelê di moda tenê xwendinê de vekin, yanî em ê nedin dikare di pelê Excel de her dane an nirxek biguhezîne.
Gavên
- Pelê ku em dixwazin vekin di peldanka belgeyê de tê tomarkirin.
- Û ev pela ku em dixwazin wekî tenê-xwendewarî vekin ev e.
- Pêşî, herin Pêşdebir tab û li ser Visual Basic<7 bikirtînin>. Ger we tune be, divê hûn taba Pêşvebir çalak bikin . An jî hûn dikarin pêl ' Alt+F11 ' bikin ji bo vekirina Edîtorê Visual Basic.
- Piştre dê nûvekek nû derkeve. qutiya diyalogê, di wê qutiya diyalogê de, li ser bikirtîninTêxe > Modûl .
- Piştre, di pencereya edîtorê Modûl de, binivîsîne koda jêrîn:
8425
- Piştre paceya Modulê bigire.
- Piştî wê, herin tabloya Dîtin > Makro .
- Piştre li ser Makroyan Binêre bikirtînin.
- Piştî tikandina Dîtinê Makro, makroyên ku we niha afirandin hilbijêrin. Navê vir Open_with_File_Read_Only e. Dûv re Run bikirtînin.
- Piştî tikandina Rûn , em ê bibînin ku pel niha vekirî ye. wek tenê-xwendin, wek ku di barê sernavê de tê nîşandan.
9359
⮚ Pêşî, em navek ji bo jêr-pêvajoyê peyda dikin ku ev e Open_with_File_Read_Only()
8305
⮚ Em wrkbk wekî guhêrbar di celebê Pirtûka Xebatê de diyar dikin
8641
⮚ Dê pel ji pelrêça destnîşankirî vebe, û pel dê bi argumana dawîn tenê-xwendin were danîn.
9496
⮚ Di dawiyê de, em dawî li jêr-pêvajoya vê kodê.
Zêdetir Bixwîne: Meriv Çawa Pirtûka Xebatê wekî Vekirina-Tenê Bi Excel VBA veke
2. Bikaranîna Qutiya Peyamê
Hema hema dişibihe rêbaza berê, em dikarin pelan bi koda VBA-yê li vir li Excel vekin, lê di vê rewşê de, em ê qutiyek peyamek piçûk li vir vekin.
Gavên
- Pêşî, herin tabloya Developer û li ser Visual Basic bikirtînin. Ger we tune be, divê hûn çalak bikinTabloya pêşdebiran . An jî hûn dikarin ' Alt+F11' bikin ji bo vekirina Edîtorê Visual Basic .
- Paşê dê qutiyeke diyalogê ya nû hebe, di wê qutiya diyalogê de, li ser Têxe > Module bikirtînin.
- Piştre, di pencereya edîtorê Modûl de, koda jêrîn binivîse:
2632
- Piştre Modula paceyê.
- Piştî wê, herin tabloya Dîtin > Makro .
- Piştre li ser Dîtin Makro .
- Piştî tikandina Makroyan Binêre, Makroyên ku te niha afirandine hilbijêre. Navê vir Open_File_with_Messege_Box e. Dûv re Run bikirtînin.
- Piştre me qutiya hişyariyê girt, ku nîşan dide ku Pel bi serketî vebû .
- Piştre bitikîne OK .
- Û paşê em ê bibînin ku pel niha ye veke.
- Û paşê em hewl didin ku kodê piçekî biguherînin.
- Em navê pelê diguherînin Sample10 , û bi rastî tu pelek bi navê Sample10 di peldanka belgeyan de tune.
- Piştre em Kodê dîsa bixe , û qutiyeke peyamê heye ku dibêje Vekirina Pelê têk çû .
- Piştî vê OK bitikîne.
Open_with_File_Read_Only()
3121
⮚ Em wrkbk wekî guhêrbar di Pirtûka Xebatê de binav bike type
6180
9237
⮚ Ev rêz dê kontrol bike ka pela bi navê Sample di pelrêçayê de heye an na, Ger pel li wir be, wê hingê ew ê pelê veke û di heman demê de dê peyamê nîşan bide.
5719
⮚ Heke di pelrêça bi navê Nimûne de tu dosyayek tune be, wê demê ev peyam dê were şandin.
5909
⮚ Di dawiyê de, em jêr-pêvajoya vê kodê bi dawî dikin.
4460
⮚ Di dawiyê de, em proseya jêrîn a vê kodê bi dawî dikin.
Bixwîne: Meriv Çawa Pirtûka Xebatê Veke û Bi Bikaranîna VBA (4 Nimûne) Makroyê Bixebitîne
3. Ji bo Vekirina Pelê Qutiya Dialogê bikar bîne
Derxistina pelrêça cîhê pelê û her carê anîna wan di koda VBA de pir giran e. Ji bo çareserkirina pirsgirêkê, em ê nîşan bidin ka hûn çawa dikarin qutiyek diyalogê bikar bînin da ku pel ji pelrêçek hilbijêrin.
Gavên
- Niha em ê pelê vekin bi kar tînin qutiya diyalogê ya gerokê pelê.
- Pêşî, herin tabloya Developer û li ser Visual Basic bikirtînin. Ger we tune be, divê hûn taba Pêşvebir çalak bikin . An jî hûn dikarin ' Alt+F11' ji bo vekirina Edîtorê Visual Basic pêl bikin.
- Paşê dê qutiyeke diyalogê ya nû hebe, di wê qutiya diyalogê de, li ser Têxe > Module bikirtînin.
- Piştre, di pencereya edîtorê Modûl de, koda jêrîn binivîse:
1238
- Piştre Modûlê bigire. pencere.
- Piştî wê, herin tabloya Dîtin > Makro .
- Piştre bitikînin Makroyan Binêre .
- Piştî tikandina Makroyan Binêre, Makroyên ku te niha afirandine hilbijêre. Navê vir Open_File_with_Dialog_Box e. Dûv re Run bikirtînin.
- Û paşê pencereyek nû vedibe. Di qutiya diyalogê ya pelan de û Nimûne hilbijêrin û OK bikirtînin.
- Piştre pelê bi navê Nimûne vebû.
- Û bi vî awayî em pirtûka xebatê ya bi navê guhêrbar bi karanîna VBA-yê di Excel de vedikin.
4263
⮚ Em Dbox wekî guhêrbar di FileDialog cure
9031
⮚ de em Rêya_Pelê wekî guhêrbar di <6 de diyar dikin>Rêya_Pelê
Wekî Rêza type
3937
⮚ Di rêza yekem de qutiyeke diyalogê heye. Rêza paşîn navê qutiya diyalogê û cureya pelê destnîşan dike.
⮚ Dbox.Sernav dê sernavê qutiya diyalogê destnîşan bike. û FileType
cureyê pelê saz bikin.
3486
⮚ Dbox.Filters.Clear dê fîltera berê ya ku di qutiya diaogê de hatî bikar anîn paqij bike
3409
⮚ Dbox.Show dê qutiya diyalogê li ser pelê xuya bike.
⮚ Ev rêz dê diyar bike ka bikarhêner ji yekê zêdetir pel hilbijartiye yan na. Ger bikarhêner ji bêtir hilbijêrinyek pel, dê prosedur tev raweste.
1241
⮚ Di dawiyê de, em jêr-pêvajoya vê kodê biqedînin.
Zêdetir Bixwîne: Çawa Vekin Peldanka û Pelê Hilbijêre Bi Bikaranîna Excel VBA (4 Nimûne)
4. Bikaranîna Pirtûka Xebatê. Taybetmendiyê lê zêde bike
Berevajî rêbazên berê, em ê di pelrêçekek pêşwext de pelek Excel-ê ya nû biafirînin. û paşê em ê bi karanîna Pirtûka Xebatê vekin. Taybetmendiya lê zêde bike.
Gavên
- Pêşî, herin tabloya Pêşdebir û li ser Visual Basic
. Ger we tune be, divê hûn taba Pêşvebir çalak bikin . An jî hûn dikarin ' Alt+F11' ji bo vekirina Edîtorê Visual Basic pêl bikin.
- Paşê dê qutiyeke diyalogê ya nû hebe, di wê qutiya diyalogê de, li ser Têxe > Module bikirtînin.
Piştre, di pencereya edîtorê Module de, koda jêrîn binivîsin:
2269
- Piştre paceya Modulê bigire.
- Piştî ew, herin tabloya Nêrîn > Makro .
- Piştre bitikînin Makroyan Binêre .
- Piştî tikandina Makroyan Binêre, Makroyên ku we niha afirandine hilbijêrin. Navê vir Open_File_with_Add_Property e. Dûv re Run bikirtînin.
- Piştî tikandina Run, hûn ê bibînin ku pelek nû niha ye. afirandin û vekirin.
🔎 Dabeşkirina Kodê
⮚ Pêşî, em pêşkêş dikin navek ji bo jêr-pêvajoyê