Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Excel 2007 . Pozrite sa na " Developer " kartu na páse kariet v hornej časti obrazovky . Ak nemáte " Developer " kartu aktivovať , kliknite na modré tlačidlo guľaté " Microsoft Office " v ľavom hornom rohu . Kliknite na " Možnosti programu Excel " a následne " populárne " . Zaškrtnite políčko pre " Zobraziť kartu Vývojár na páse kariet , " a potom kliknite na tlačidlo " OK " .
2
Kliknite na kartu " Vývojár " , a potom kliknite na tlačidlo " Zobraziť kód " pod " Developer " menu . Tým sa otvorí aplikácie Microsoft Visual Basic
3
Skopírujte a vložte nasledujúci kód do prázdneho okna : .
[ VBA ] Private Sub Workbook_BeforePrint ( Cancel As Boolean )
Ak Sheet1.Range . ! ( " A1 : B2 " ) Value = " " Tak
MsgBox " Nemožno tlačiť , kým sa nedokončia potrebné bunky "
Zrušiť = TRUE
End If
End Sub [ /VBA ]
4
Nahraďte " Hárok1 " a " A1 : B2 " hodnoty v kóde s rozsahom hodnôt by ste Páči sa vyžadujú v tabuľke . Napríklad , ak chcete , aby prvých 10 buniek v stĺpci A listu 2 kalkulačné tabuľky , mali by ste zmeniť druhý riadok kódu :
Ak Sheet2.Range ( " A1 : A10 " ) . Value = " " Tak
5
Close Microsoft Visual Basic . Uložte súbor programu Excel , aby kódex trvalou súčasťou spisu .
Making bunky požadovaný pre ukladanie tabuľku
Praha 6
Otvorte Excel 2007 a skontrolujte , či " Vývojár karta " je k dispozícii na páse kariet v hornej časti obrazovky . Ak nevidíte kartu " Vývojár " , kliknite na modré tlačidlo guľaté " Microsoft Office " v ľavom hornom rohu . Kliknite na " Možnosti programu Excel " a následne " populárne " . Zaškrtnite políčko pre " Zobraziť kartu Vývojár na páse kariet , " a potom kliknite na tlačidlo " OK " .
7
Kliknite na kartu " Vývojár " , a potom kliknite na tlačidlo " Zobraziť kód " pod " Developer " Ponuka na spustenie Microsoft Visual Basic . Visual Basic umožňuje prezerať a organizovať ľubovoľný kód , ktorý ste pridali do tabuľky , rovnako ako zápis alebo pridať nový kód .
8
Skopírujte a vložte nasledujúci kód do prázdneho okna aplikácie Microsoft Visual základné :
[ VBA ] Private Sub Workbook_BeforeSave ( Cancel As Boolean )
Ak Sheet1.Range . ( " A1 : B2 " ) Value = " " Tak
MsgBox " nemožno uložiť , kým sa nedokončia potrebné bunky ! "
Zrušiť = True
End If
End Sub [ /VBA ]
9
Vlastné kód nahradením " Hárok1 " a " A1 : B2 " hodnôt s rozsahom hodnôt by ste chceli požadovať v tabuľke . Napríklad , ak chcete , aby prvých 10 buniek v stĺpci A listu 2 kalkulačné tabuľky , mali by ste zmeniť druhý riadok kódu :
Ak Sheet2.Range ( " A1 : A10 " ) . Value = " " Tak
10
pokúsi uložiť hárok programu Excel bez vyplnenia všetkých požadovaných buniek . Je-li okno so správou sa objaví čítanie " Nemožno uložiť , kým sa nedokončia potrebné bunky ! " , Váš kód funguje správne .
Copyright © počítačové znalosti Všetky práva vyhradené