国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

271 ActiveSheet.Protect userinterfaceonly:=True 保護(hù)當(dāng)前工作表

272 ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName 在當(dāng)前工作表的左側(cè)頁(yè)眉處打印出工作簿的完整路徑和文件名

273 Worksheets('Sheet1').Range('A1:G37').Locked = False

Worksheets('Sheet1').Protect

解除對(duì)工作表Sheet1中A1:G37區(qū)域單元格的鎖定,以便當(dāng)該工作表受保護(hù)時(shí)也可對(duì)這些單元格進(jìn)行修改

274 Worksheets('Sheet1').PrintPreview 顯示工作表sheet1的打印預(yù)覽窗口

275 ActiveSheet.PrintPreview Enablechanges:=False禁用顯示在Excel的'打印預(yù)覽'窗口中的'設(shè)置'和'頁(yè)邊距'按鈕

276 ActiveSheet.PageSetup.PrintGridlines = True 在打印預(yù)覽中顯示網(wǎng)格線

277 ActiveSheet.PageSetup.PrintHeadings = True 在打印預(yù)覽中顯示行列編號(hào)

278 ActiveSheet.ShowDataForm 開(kāi)啟數(shù)據(jù)記錄單

279 Worksheets('Sheet1').Columns('A').Replace _

What:='SIN', Replacement:='COS', _

SearchOrder:=xlByColumns, MatchCase:=True

將工作表sheet1中A列的SIN替換為COS

280 Rows(2).Delete 刪除當(dāng)前工作表中的第2行

281 Columns(2).Delete 刪除當(dāng)前工作表中的第2列

282 ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell 在當(dāng)前單元格左側(cè)插入一條垂直分頁(yè)符

283 ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell 在當(dāng)前單元格上方插入一條垂直分頁(yè)符

284 ActiveWindow.ScrollRow = 14 將當(dāng)前工作表窗口滾動(dòng)到第14行

285 ActiveWindow.ScrollColumn = 13 將當(dāng)前工作表窗口滾動(dòng)到第13列

286 ActiveWindow.Close 關(guān)閉當(dāng)前窗口

287 ActiveWindow.Panes.Count 獲取當(dāng)前窗口中的窗格數(shù)

288 Worksheets('sheet1').Range('A1:D2').CreateNames Top:=True 將A2至D2的單元格名稱設(shè)定為A1到D1單元格的內(nèi)容

289 Application.AddCustomList listarray:=Range('A1:A8') 自定義當(dāng)前工作表中單元格A1至A8中的內(nèi)容為自動(dòng)填充序列

290 Worksheets('sheet1').Range('A1:B2').CopyPicture xlScreen, xlBitmap 將單元格A1至B2的內(nèi)容復(fù)制成屏幕快照

291 Selection.Hyperlinks.Delete 刪除所選區(qū)域的所有鏈接

292 Columns(1).Hyperlinks.Delete 刪除第1列中所有的鏈接

293 Rows(1).Hyperlinks.Delete '刪除第1行中所有的鏈接

294 Range('A1:Z30').Hyperlinks.Delete 刪除指定范圍所有的鏈接

295 ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, _

Address:='C:\Windows\System32\Calc.exe', ScreenTip:='按下我，就會(huì)開(kāi)啟Windows計(jì)算器', TextToDisplay:='Windows計(jì)算'

在活動(dòng)單元格中設(shè)置開(kāi)啟Windows計(jì)算器鏈接器

296 ActiveCell.Value = Shell('C:\Windows\System32\Calc.exe', vbNormalFocus)

開(kāi)啟Windows計(jì)算器

297 ActiveSheet.Rows(1).AutoFilter 打開(kāi)自動(dòng)篩選。若再運(yùn)行一次，則關(guān)閉自動(dòng)篩選

298 Selection.AutoFilter 開(kāi)啟/關(guān)閉所選區(qū)域的自動(dòng)篩選

299 ActiveSheet.ShowAllData 關(guān)閉自動(dòng)篩選

300 ActiveSheet.AutoFilterMode 檢查自動(dòng)篩選是否開(kāi)啟，若開(kāi)啟則該語(yǔ)句返回True

VBA解決方案系列叢書(shū)中，其一是VBA碼解決方案，是VBA入門(mén)及初級(jí)、中級(jí)人員的不可多得的實(shí)用資料，此資料覆蓋VBA絕大多數(shù)知識(shí)點(diǎn)；其二是數(shù)據(jù)庫(kù)解決方案，是數(shù)據(jù)處理的利器；其三是VBA的字典，字典是VBA的精華，會(huì)讓你的代碼更上一層樓。