vba編程中的常用代碼-閱讀頁
2025-08-10 10:44本頁面
【正文】 刻: amp。 CStr(kk) amp。強(qiáng)制對模塊內(nèi)所有變量進(jìn)行聲明 Option Private Module 39。字符串不區(qū)分大小寫 Option Base 1 39。忽略錯誤繼續(xù)執(zhí)行 VBA代碼,避免出現(xiàn)錯誤消息 On Error GoTo ErrorHandler 39?；謴?fù)正常的錯誤提示 =False 39。關(guān)閉屏幕刷新 =True 39。禁用 Ctrl+Break 中止宏運(yùn)行的功能 39。創(chuàng)建一個新的工作簿 Workbooks().Activate 39。保存工作簿 39。獲取活動工作薄中工作表數(shù) 39。返回當(dāng)前工作簿名稱 39。禁止調(diào)整活動工作簿的大小 xlArrangeStyleTiled 39。將當(dāng)前工作簿最大化 (Last Save Time) 或 (Last Save Time) 39。返回上次打印或預(yù)覽工作簿的日期和時間 39。返回當(dāng)前工作簿中的第一條鏈接 39。返回當(dāng)前工作簿文件格式代碼 39。返回當(dāng)前工作簿的讀/寫值(為 False) 39。隱藏工作簿 = True 39。當(dāng)前工作表中已使用的行數(shù) 39。將 Sheet1命名為 Sum Before:=Worksheets39。將當(dāng)前工作表移至工作表的最后 Worksheets(Array(sheet1,sheet2)).Select 39。刪除工作表 1 (i).Name 39。切換工作表中的網(wǎng)格線顯示,這種方法也可以用在其它方面進(jìn)行相互切換,即相當(dāng)于開關(guān)按鈕 =Not 39。刪除當(dāng)前工作表中所有的條件格式 39。將頁面設(shè)置更改為橫向 = 39。將用戶名放置在活動工作表的頁腳 (B).Insert 39。以上兩句將 E 列數(shù)據(jù)移至 B 列,原 B 列及以后的數(shù)據(jù)相應(yīng)后移 (B).Cut (E).Insert 39。計算當(dāng)前工作表 (sheet1).Visible=xlSheetHidden 39。隱藏工作表,不能通過在 Excel 菜單中選擇格式——工作表——取消隱藏來重新顯示工作表 (sheet1).Visible=xlSheetVisible 39。檢查工作表是否受到保護(hù) Count:=2, Before:=(2) 或 (2), , 2 39。復(fù)制一個工作表到新的工作簿 (3).Copy 39。改變工作表的列寬為 20 = 39。改變工作表列 1的寬度為 20 = 10 39。將工作表的行高恢復(fù)為標(biāo)準(zhǔn)值 (1).RowHeight = 10 39。當(dāng)前工作簿中的第一個工作表被激活 (Sheet1).Rows(1). = True 39。將工作表Sheet1中的行1隱藏 = True 39。 (A:A). 39。選中當(dāng)前工作表中常量和文本單元格 (xlCellTypeConstants,xlErrors+xlTextValues) 39。選擇當(dāng)前活動單元格所包含的范圍,上下左右無空行 39。清除活動工作表上單元格 A1中的內(nèi)容 39。徹底清除 A1至 D4 單元格區(qū)域的內(nèi)容,包括格式 39?；顒訂卧裣乱埔恍?同理,可下移一列 Range(A1).Offset(ColumnOffset:=1)或 Range(A1).Offset39。向上偏移一行 Range(A1).Copy Range(B1) 39。將單元格區(qū)域復(fù)制到單元格 F1開始的區(qū)域中 Range(A1:D8).Cut Range(F1) 39。復(fù)制包含 A1 的單元格區(qū)域到工作表 2中以 A1起始的單元格區(qū)域中 注：CurrentRegion屬性等價于定位命令,由一個矩形單元格塊組成,周圍是一個或多個空行或列=XX 39?；顒哟翱谥羞x擇的單元格數(shù) 39。返回單元格中超級鏈接的地址并賦值 TextColor=Range(A1). 39。獲取單元格 A1背景色 39。激活當(dāng)前活動單元格下方 3行,向右 4列的單元格 (5,C) 39。引單元格 C5 Range(A1).Offset(RowOffset:=4,ColumnOffset:=5) 或 Range(A1).Offset39。創(chuàng)建 B3：D13 區(qū)域 Range(Data).Resize39。將 Data1 和 Data2 區(qū)域連接 Intersect(Range(Data1),Range(Data2)) 39。單元格區(qū)域Data 中的單元格數(shù) Range(Data). 39。單元格區(qū)域 Data 中的行數(shù) 39。當(dāng)前選中的單元格區(qū)域中的行數(shù) 39。獲取單元格區(qū)域中使用的第一行的行號 39。在活動工作表中返回所有符合條件格式設(shè)置的區(qū)域 Range(A1).AutoFilter Field:=3,VisibleDropDown:=False 39
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1