vba想要獲取工作表的最大列對(duì)應(yīng)的字母，可以借助Chr函數(shù)將最大列的列號(hào)數(shù)字轉(zhuǎn)換成字母。比如想要提取當(dāng)前工作表最大列對(duì)應(yīng)的字母，可以使用以下代碼：
Sub 獲取當(dāng)前工作表最大列對(duì)應(yīng)的字母()maxcol = ActiveSheet.UsedRange.Columns.Count '當(dāng)前活動(dòng)工作表的列長(zhǎng)maxcol_letter = Chr(maxcol + 64) '數(shù)字轉(zhuǎn)換成大寫(xiě)字母MsgBox maxcol_letterEnd Sub
如果想要提取指定工作表最大列對(duì)應(yīng)的字母，可以使用以下代碼：
Sub 獲取指定工作表最大列對(duì)應(yīng)的字母()sheetname = "Sheet1" '指定工作表的名稱(chēng)maxcol = Sheets(sheetname).UsedRange.Columns.Count '指定工作表的列長(zhǎng)maxcol_letter = Chr(maxcol + 64) '數(shù)字轉(zhuǎn)換成大寫(xiě)字母MsgBox maxcol_letterEnd Sub
如果不想輸入工作表名或者因其它代碼操作工作表名會(huì)不確定，還可以借助InputBox方法用對(duì)話(huà)輸入框選取指定工作表來(lái)獲取最大列對(duì)應(yīng)的字母，代碼如下：
Sub 對(duì)話(huà)框選取指定工作表獲取最大列對(duì)應(yīng)的字母()prompt = "請(qǐng)使用鼠標(biāo)選取要獲取最大列對(duì)應(yīng)字母的工作表（選取要獲取工作表的任意單元格區(qū)域即可）" '對(duì)話(huà)框內(nèi)容Title = "工作表選擇對(duì)話(huà)框" '對(duì)話(huà)框標(biāo)題欄defaults = "" '文本框中的默認(rèn)輸入值On Error GoTo -1 '配合"On Error GoTo XX"解決其單獨(dú)使用只能處理一次報(bào)錯(cuò)的問(wèn)題On Error GoTo 取消選擇 '錯(cuò)誤處理語(yǔ)句。用戶(hù)單擊“取消”按鈕，將顯示一錯(cuò)誤信息，需使用On Error GoTo語(yǔ)句來(lái)繞過(guò)錯(cuò)誤。Set Rng = Application.InputBox(prompt, Title, defaults, , , , , 8) '使用Set語(yǔ)句將用戶(hù)選擇的單元格區(qū)域賦給變量rng。當(dāng)Type參數(shù)設(shè)置為8時(shí)，將返回一個(gè)Range對(duì)象On Error GoTo 0 '配合"On Error GoTo XX"中斷錯(cuò)誤處理語(yǔ)句，防止后續(xù)代碼的報(bào)錯(cuò)無(wú)法提示sheetname = Rng.Parent.Name '獲取單元格區(qū)域所在工作表的名稱(chēng)If Rng Is Nothing Then取消選擇: MsgBox "您選擇了退出程序" EndEnd Ifmaxcol = Sheets(sheetname).UsedRange.Columns.Count '指定工作表的列長(zhǎng)maxcol_letter = Chr(maxcol + 64) '數(shù)字轉(zhuǎn)換成大寫(xiě)字母MsgBox "您選擇的工作表最大列字母為：" & maxcol_letterEnd Sub
以上內(nèi)容對(duì)您有幫助可以分享或轉(zhuǎn)藏，避免以后找不到。想要了解更多VBA相關(guān)知識(shí)，歡迎到
http://moqingyan.360doc.com我的個(gè)人圖書(shū)館查看。
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶(hù)發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
