vba編程中的常用代碼(參考版)
2025-07-29 10:44本頁面
【正文】 關(guān)閉由于執(zhí)行自動(dòng)篩選命令產(chǎn)生的第 3個(gè)字段的下拉列表 。獲取單元格區(qū)域 Rng 左上角單元格所在列編號(hào) (xlCellTypeAllFormatConditions) 39。選中的單元格區(qū)域所包含的區(qū)域數(shù) 39。當(dāng)前選中的單元格區(qū)域中的列數(shù) 39。單元格區(qū)域 Data 中的列數(shù) Range(Data). 39。返回 Data1 和 Data2 區(qū)域的交叉區(qū)域 Range(Data).Count 39。將 Data 區(qū)域擴(kuò)充 2列 Union(Range(Data1),Range(Data2)) 39。指定單元格 F5 Range(B3).Resize(RowSize:=11,ColumnSize:=3) Rnage(B3).Resize(11,3) 39。引單元格 C5 39。返回當(dāng)前工作表的單元格數(shù) (E4).Select 39。檢查單元格 A1的文本顏色并返回顏色索引 Range(A1). 39。當(dāng)前選中區(qū)域的單元格數(shù) GetAddress=Replace((1).Address,mailto:,) 39。將值 XX 輸入到所選單元格區(qū)域中 39。剪切單元格區(qū)域 A1至 D8,復(fù)制到單元格 F1開始的區(qū)域中 Range(A1). Sheets(Sheet2).Range(A1) 39。復(fù)制單元格 A1,粘貼到單元格 B1中 Range(A1:D8).Copy Range(F1) 39。偏移一列 Range(A1).Offset(Rowoffset:=1)或 Range(A1).Offset39。清除工作表中所有單元格的內(nèi)容 (1,0).Select 39。清除選定區(qū)域內(nèi)容 Range(A1:D4).Clear 39。選定當(dāng)前工作表的所有單元格 Range(A1).ClearContents 39。選中當(dāng)前工作表中常量和文本及錯(cuò)誤值單元格********************** * 單元格/單元格區(qū)域 * ********************** 或 Range((xlUp),(xlDown)).Select 39。自動(dòng)調(diào)整當(dāng)前工作表 A 列列寬 (xlCellTypeConstants,xlTextValues) 39。將當(dāng)前工作表中活動(dòng)單元格所在的行隱藏 注：同樣可用于列。設(shè)置工作表Sheet1中的行1數(shù)據(jù)為粗體 (Sheet1).Rows(1).Hidden = True 39。改變工作表的行 1的高度值設(shè)置為 10 (1).Activate 39。改變工作表的行高為 10 = 39。將工作表的列寬恢復(fù)為標(biāo)準(zhǔn)值 (1).ColumnWidth = 20 39。復(fù)制第三個(gè)工作表到第二個(gè)工作表之前 = 20 39。在第二個(gè)工作表之前添加兩個(gè)新的工作表 (3).Copy 39。顯示被隱藏的工作表 (1).ProtectContents 39。正常隱藏工作表,同在 Excel 菜單中選擇格式——工作表——隱藏操作一樣 (sheet1).Visible=xlSheetVeryHidden 39。以上兩句將 B列數(shù)據(jù)移至 D列,原 C列和 D列數(shù)據(jù)相應(yīng)左移一列 39。在A 列右側(cè)插入列,即插入 B 列 (E).Cut (B).Insert 39。在頁面設(shè)置的表尾中輸入文件路徑 = 39。取消當(dāng)前工作表所有超鏈接 =xlLandscape 或 =2 39。切換工作表中的行列邊框顯示 39。獲取工作表 i的名稱 =Not 39。同時(shí)選擇工作表 1和工作表 2 Sheets(sheet1).Delete或 Sheets(1).Delete 39。添加一個(gè)新工作表在第一工作表前 After:=ActiveWorkbook. _ Sheets() 39。獲取工作表的行數(shù)(注：考慮向前兼容性) Sheets(Sheet1).Name= Sum 39。顯示工作簿 注:可與用戶窗體配合使用,即在打開工作簿時(shí)將工作簿隱藏, ********** * 工作表 * ********** 39。返回工作簿的存儲(chǔ)值(若已保存則為 False) = False 39。返回當(dāng)前工作簿的路徑(注:若工作簿未保存,則為空) 39。返回工作簿代碼的名稱 39。關(guān)閉所有打開的工作簿 (xlExcelLinks)39。返回上次保存工作簿的日期和時(shí)間 (Last Print Date) 或 (Last Print Date) 39。將工作簿以平鋪方式排列 =xlMaximized 39。返回當(dāng)前工作簿路徑和名稱 =False 39。返回活動(dòng)工作薄的名稱 39。關(guān)閉當(dāng)前工作簿 39。激活名為 book1的工作簿 39。清除程序運(yùn)行過程中所有的錯(cuò)誤 ********** * 工作簿 *
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1