九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

在下面的代碼中你會(huì)看到工作表區(qū)域的命名，工作表的增加，工作薄的隱藏等豐富的內(nèi)容，雖然只是七則語(yǔ)句，但內(nèi)容還是挺多的。希望朋友要仔細(xì)地理解掌握，對(duì)于自己的工作會(huì)幫助很大，這些語(yǔ)句是我從大量的VBA代碼中篩選出來(lái)，可以做為特定的通用語(yǔ)句來(lái)掌握，當(dāng)然，更豐富的內(nèi)容以后還會(huì)陸續(xù)的推出。

1 Range('A1：C3').Name='pengyou'

語(yǔ)句說(shuō)明：命名A1：C3區(qū)域?yàn)閜engyou

Range('D1：E6').Name='Sheet1!book123'

語(yǔ)句說(shuō)明：命名局部變量，即Sheet1上區(qū)域D1：E6為book123

Names('pengyou').Name='diren'

語(yǔ)句說(shuō)明：將區(qū)域computer重命名為diren

備注：上述的語(yǔ)句講解了如何在VBA中實(shí)現(xiàn)區(qū)域命名的辦法，相信很多朋友對(duì)于EXCEL中的區(qū)域命名很熟悉了，在VBA中實(shí)現(xiàn)此目的的方法也要掌握。

2 Application.ScreenUpdating= True/False

語(yǔ)句說(shuō)明：顯示/關(guān)閉屏幕刷新

備注：屏幕刷新有刷新率的概念，是指圖像在屏幕上更新的速度，也即屏幕上的圖像每秒鐘出現(xiàn)的次數(shù)，刷新頻率越高，屏幕上圖像閃爍感就越小，穩(wěn)定性也就越高，換言之對(duì)視力的保護(hù)也越好。但如果過(guò)高會(huì)影響到其他程序的運(yùn)行，當(dāng)關(guān)閉屏幕刷新時(shí)，無(wú)疑會(huì)增加其他程序的運(yùn)行效率。

注意：上述語(yǔ)句要成對(duì)的出現(xiàn)，當(dāng)關(guān)閉時(shí)務(wù)必在程序運(yùn)行完了后恢復(fù)。

3 Set ExcelSheet = CreateObject('Excel.Sheet')

語(yǔ)句說(shuō)明：創(chuàng)建一個(gè)Excel工作表對(duì)象

ExcelSheet.Application.Visible = True

語(yǔ)句說(shuō)明：設(shè)置 Application 對(duì)象使 Excel 可見(jiàn)

ExcelSheet.Application.Cells(1, 1).Value = 'Data'

語(yǔ)句說(shuō)明：在表格的第一個(gè)單元中輸入文本

ExcelSheet.SaveAs 'C:\TEST.XLS'

語(yǔ)句說(shuō)明：將該表格保存到C:\test.xls 目錄

ExcelSheet.Application.Quit

語(yǔ)句說(shuō)明：關(guān)閉 Excel

Set ExcelSheet = Nothing

語(yǔ)句說(shuō)明：'釋放該對(duì)象變量

備注：上述的幾則語(yǔ)句說(shuō)明了文件的創(chuàng)建，顯示，修改，保存的基本操作。

注意：很多的屬性是相同的，如.Visible是指對(duì)象的可見(jiàn)性，對(duì)于其他的控件也是一樣的

如上面的例子，我們建立了一個(gè)FORM1的窗體，并建立了一個(gè)標(biāo)簽，將他的VISIBLE屬性設(shè)置為T(mén)URE:運(yùn)行截圖如下：

將他的VISIBLE屬性設(shè)置為FALSE時(shí):運(yùn)行截圖如下：

4 Workbooks.Close 關(guān)閉操作

語(yǔ)句說(shuō)明：關(guān)閉所有打開(kāi)的工作簿。

備注：完全關(guān)閉，會(huì)提示是否保存。

5 Application.Visible = False

語(yǔ)句說(shuō)明：隱藏工作簿

Application.Visible = True

語(yǔ)句說(shuō)明：顯示工作簿

備注：可與用戶(hù)窗體配合使用，即在打開(kāi)工作簿時(shí)將工作簿隱藏，只顯示用戶(hù)窗體?？稍O(shè)置控制按鈕控制工作簿可見(jiàn)，這個(gè)例子可以參考上面第三則的屬性講解。

6 ActiveSheet.Columns('B').Insert 列的操作

語(yǔ)句說(shuō)明：在A列右側(cè)插入列，即插入B列

ActiveSheet.Columns('E').Cut

ActiveSheet.Columns('B').Insert

語(yǔ)句說(shuō)明：將E列數(shù)據(jù)移至B列，原B列及以后的數(shù)據(jù)相應(yīng)后移

ActiveSheet.Columns('B').Cut

ActiveSheet.Columns('E').Insert

語(yǔ)句說(shuō)明：以上兩句將B列數(shù)據(jù)移至D列，原C列和D列數(shù)據(jù)相應(yīng)左移一列

備注：這是列的操作。

7 ThisWorkbook.Worksheets.Add Count:=2,Before:=ThisWorkbook.Worksheets(2)

或 ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2

語(yǔ)句說(shuō)明：在第二個(gè)工作表之前添加兩個(gè)新的工作表。

備注：這是工作表的添加的操作。

今日內(nèi)容回向：

1 今日講解的例子中，是用VBA代碼對(duì)EXCEL的操作，是否理解了？

2 Visible 屬性的意義是什么？