基本代碼大全 vba常用代碼有哪些?
vba常用代碼有哪些?我之前總結(jié)過一些我常用的。看吧。主要的實(shí)用代碼片段如下:# #實(shí)用代碼片段# # #文件操作# # # #引用打開的工作簿使用索引號(從1開始)` ` vbnet練習(xí)冊(1)``
vba常用代碼有哪些?
我之前總結(jié)過一些我常用的。看吧。
主要的實(shí)用代碼片段如下:
# #實(shí)用代碼片段
# # #文件操作
# # # #引用打開的工作簿
使用索引號(從1開始)
` ` vbnet
練習(xí)冊(1)
```
使用工作簿名稱
` ` vbnet
工作簿(1.xlsx)
```
# # # #創(chuàng)建EXCEL工作簿對象
` ` vbnet
變寬組件
將wb標(biāo)注為工作簿
設(shè)置wd CreateObject()
真實(shí)的
設(shè)置wb ( amp /t: d: 1 . xls
```
另存為(保留源文件,不打開新文件)
` ` vbn: d: 1 . xls
```
# # # #復(fù)制文件
` ` vbnet
oldfile amp /old.xlsx
newfile amp /new.xlsx
文件復(fù)制舊文件,新文件
```
# # # #復(fù)制文件夾
` ` vbnet
設(shè)置fso CreateObject()
dstDir
```
# # # #刪除文件夾下的所有文件。
` ` vbnet
基本放大器/文件夾/
模式基礎(chǔ)放大器*。*
文件目錄(模式,vbReadOnly)
當(dāng)文件ltgt
取消基本放大器文件
文件目錄
行
```
# # # #創(chuàng)建文件夾
` ` vbnet
目錄
```
# # # #確定文件夾是否存在。
如果不存在,則創(chuàng)建以下內(nèi)容。
` ` vbnet
如果Dir(outputDir,16)為空,則
輸出目錄
如果…就會結(jié)束
```
# # # #判斷文件是否存在。
方法1:
` ` vbnet
暗淡的fileSystemObject作為對象
設(shè)置fileSystemObject CreateObject()
如果(ltfilepathgt)為真,則
MsgBox文件存在。
如果…就會結(jié)束
```
方法二:
` ` vbnet
將文件標(biāo)注為字符串
文件目錄()
如果文件ltgt,則
MsgBox文件存在。
Endif
```
# # #格式操作
# # # #設(shè)置邊框和自動過濾
` ` vbnet
設(shè)置Rng
使用Rng
XL連續(xù)
. Borders.Weight xlThin
。自動篩選
以…結(jié)尾
```
# # # #獲取或設(shè)置單元格背景色。
` ` vbnet
我的工作表。單元格(I,j)
```
# # # #讓表格中選定的單元格變成指定的顏色。
將以下代碼段添加到此工作簿中:
` ` vbnet
私有子工作簿_SheetSelectionChange(ByVal Sh作為對象,ByVal Target作為范圍)
如果你的床單
0
六
如果…就會結(jié)束
末端接頭
```
# # # #在單元格中回車/換行
使用“Chr(10)”和“Chr(13)”設(shè)置單元格值,分別表示回車和換行。
# # # #隱藏行
` ` vbnet
(一)。隱藏的真實(shí)
```
# # # #單元格內(nèi)容是純文本。
` ` vbnet
床單。細(xì)胞(m,n)。數(shù)字格式本地@
```
# # # #設(shè)置單元格公式
` ` vbnet
對于ActiveSheet中的每個(gè)單元格。范圍(C1:C10)
替代(安培)
CSGO的一些控制臺常用代碼是什么?
例子如下:
1.增加黑暗中的亮度。說明:mat_ monitorgamma 1.6
在CS:GO中,當(dāng)場景黑暗而你可以 看不清楚,輸入這個(gè)命令將有效地提高顯示器的亮度。下面的值是根據(jù)自己的需要來確定的,這是一個(gè)非常實(shí)用的命令。
2.從遠(yuǎn)處拿起槍
說明:cl_use_opens_buy_menu 0。起初等等,如果你不開槍,隊(duì)友繳獲的槍仍然在你面前。;I don'我不想用它,但是當(dāng)距離太遠(yuǎn)而你又為力的時(shí)候。;不要通過按壓來拿起它E ",這個(gè)命令是完美的。進(jìn)去后可以直接拿起來,絕對是搶槍的好命令。
清除墻上的血跡
說明:盲目轉(zhuǎn)移