一、 準(zhǔn)備工作
　　⒈啟動(dòng)Excel2003(其他單元格也可以)，執(zhí)行“工具→自定義”命令，打開“自定義”對(duì)話框。在“命令”標(biāo)簽中，選中“類別”下面的“工具”選項(xiàng)，然后在“命令”下面找到“照相機(jī)”選項(xiàng)，并將它拖到工具欄合適位置上。

　　⒉在Sheet1工作表中(最好將文檔取名保存一下)，仿照?qǐng)D1的樣式，在B列相應(yīng)的單元格中輸入需要打印桌簽的名稱，并在A1中輸入一個(gè)名稱。

圖1

　�、吃贑1單元格(也可以是其他單元格)中輸入公式:=COUNTA(B:B)，用于統(tǒng)計(jì)所要打印的桌簽數(shù)目。

　�、催x中A1單元格，設(shè)置字符居中對(duì)齊，并設(shè)置一種適合用作桌簽的字體(如魏碑體)。

　　二、 制作桌簽

　�、边x中A1單元格，單擊一下工具欄上的“照相機(jī)”按鈕，再切換到“Sheet2”工作表中，單擊一下鼠標(biāo)，即可得到一張A1單元格的照片(圖2)。

圖2

　　小貼士:這種照片不同于普通圖片，它與A1單元格中的數(shù)據(jù)建立了鏈接，隨A1單元格中的字符改變而改變。

　�、策x中“照片”，執(zhí)行“格式→圖片”命令，打開“設(shè)置圖片格式”對(duì)話框，在“顏色與線條”標(biāo)簽中，將“線條”設(shè)置為“無線條顏色”，點(diǎn)擊“確定”返回。

　�、掣鶕�(jù)桌簽底座的尺寸，將“照片”調(diào)整至合適大小，并將它定位到頁面合適位置上。

　　⒋將上述“照片”復(fù)制一份，在“設(shè)置圖片格式”對(duì)話框的“大小”標(biāo)簽中，將它“旋轉(zhuǎn)→180°”，并將它定位到頁面合適位置上(效果參見圖2)。

　　三、 編制宏程序

　�、卑聪隆癆lt+F11”組合鍵，打開“Visual Basic編輯器”(圖3)，在右側(cè)的“工程資源管理器”區(qū)域中，選中“VBAProject(桌簽.xls)”選項(xiàng)，執(zhí)行“插入→模塊”命令，插入一個(gè)模塊(模塊1)。

圖4

　�、搽p擊“模塊1”，展開右側(cè)的代碼編輯區(qū)，將下述代碼輸入其中:

　　Sub 桌簽() '建立一個(gè)名稱為“桌簽”的宏。

　　For i = 1 To Sheet1.Cells(1, 3) '設(shè)立一個(gè)循環(huán):開始值為1，結(jié)束值為Sheet1工作表C3單元格內(nèi)的值(即桌簽數(shù)目)。

　　Sheet1.Select '選中Sheet1工作表。

　　Cells(1, 1).Value = Cells(i, 2).Value '依次將B列的桌簽字符調(diào)入A1單元格中。

　　Columns("A:A").Select '選中A列。

　　Selection.Columns.AutoFit '將A列設(shè)置為“最合適的列寬”，這樣讓字符不同的桌簽自動(dòng)適應(yīng)“照片”的大小。

　　Sheet2.Select '選中Sheet2工作表。

　　ActiveWindow.SelectedSheets.PrintOut'執(zhí)行一下打印操作，打印出一張桌簽。

　　Next '進(jìn)入下一個(gè)循環(huán)。

　　Sheet1.Select '桌簽全部打印完成后，選中Sheet1工作表。

　　Range("B1").Select '選中B1單元格，等待下一次修改字符。

　　ActiveWorkbook.Save '保存當(dāng)前工作簿文檔。

　　Application.Quit '退出Excel。

　　End Sub '宏的結(jié)束符號(hào)。

　　小貼士:①上述代碼中英文單引號(hào)及其后面的字符是對(duì)代碼的注釋，可以不輸入。②宏的結(jié)束符號(hào)上面的4行代碼不輸入不影響桌簽的打印。

　　⒊輸入完成后，關(guān)閉“Visual Basic編輯器”窗口。

　　四、添加按鈕

　　⒈切換到Sheet1工作表中，執(zhí)行“視圖→工具欄→窗體”命令，展開“窗體”工具欄，單擊工具欄上的“按鈕”按鈕，在工作表中拖拉出一個(gè)按鈕，此時(shí)系統(tǒng)彈出“指定宏”對(duì)話框(圖4)，選中剛才編制的“桌簽”宏，確定返回。

圖5

　　2.將按鈕上的文字修改為“打印桌簽”，再調(diào)整好大小，并定位在工作表合適位置上(參見圖1)。

　　以后需要打印桌簽時(shí)，只要將相應(yīng)的字符輸入到B列下面的單元格中，然后按下“打印桌簽”按鈕，就一切OK了。

(責(zé)任編輯：admin)

• ·[摘錄]Excel亂碼修復(fù)的幾點(diǎn)方法與經(jīng)驗(yàn)
• ·創(chuàng)建一個(gè)溫度計(jì)式的Excel圖表
• ·為選擇的區(qū)域添加邊框
• ·如何在Excel中使用文件對(duì)話框
• ·用快捷鍵實(shí)現(xiàn)相對(duì)引用和絕對(duì)引用快速來
• ·【技巧】Excel控制特定單元格輸入文本
• ·Excel技巧集錦
• ·Excel技巧大匯總
• ·在word中輸出數(shù)學(xué)符號(hào)
• ·Excel表格中的序號(hào)操作技巧
• ·關(guān)于用SUMPRODUCT取代SUM數(shù)組公式的想
• ·EXCEL減肥一得
• ·查找+格式刷的妙用
• ·輕松調(diào)整Excel奇數(shù)行行高
• ·開學(xué)后，在按年級(jí)整理各班以電子形式上
• ·讓Excel中人名顯示更美觀的技巧