visualbasic6.0如何使用sub语句 excel的随机点名怎么弄？
excel的随机点名怎么弄？
1.刚建一个Excel文件，命名为“随机点名”后保存到。在A1中输入姓名，在B1中然后输入“每组人数”，在C1中再输入“分组情况”，在A2、A3……中键入学员名子。
vba常用代码有哪些？
我以前归纳过我具体方法的一些，见
要注意的功能强大代码片段万分感谢：
##实用代码片段
###文件不能操作
####直接引用再打开的工作簿
在用索引号（从1开始）
```vbnetWorkbooks(1)
```
建议使用工作簿名称
```vbnetWorkbooks(1.xlsx)
```
####创建家族一个EXCEL工作簿对象
```vbnet
Dimwdthough
DimwbasWorkbook
SetwdCreateObject()
True
Setwb(amp/test.xls)
...
wd.Quit
```
####然后打开/需要保存/自动关闭工作簿
```vbnet
DimwbsuchWorkbook
wb(amp/test.xls)
...
```
关闭所有工作簿
```vbnet
```
选择保存（自动先打开新文件关掉源文件）
```vbnet
FileName:D:1.xls
```
另存为图片（记录源文件不再打开新文件）
```vbnet FileName:D:1.xls
```
####拷贝文件
```vbnet
oldfileamp/old.xlsx
newfileamp/new.xlsx
FileCopyoldfile,newfile
```
####文件复制文件夹
```vbnet
SetfsoCreateObject()
srcDir,dstDir
```
####删出文件夹下的所有文件
```vbnet
baseamp/文件夹/
patternbaseamp*.*
fileDir(pattern,vbReadOnly)
Whilefileltgt
Killbaseampfile
fileDir
Wend
```
####创建文件夹
```vbnetMkDir(directory)
```
####确定文件夹有无未知
以下为不修真者的存在即创建角色
```vbnetIf Dir(outputDir,16)Empty ThenMkDir(outputDir)
EndIf
```
####判断文件是否是必然
方法1：
```vbnet
DimfileSystemObjectasObject
SetfileSystemObjectCreateObject()
If(ltfilepathgt)TrueThen
MsgBox文件存在
EndIf
```
方法2：
```vbnet
DimfilethoughString ile Dir()
IffileltgtThen
MsgBox文件必然
Endif
```
###格式你的操作
####系统设置边框与手动筛选
```vbnetSet Rng With Rng With
```
####某些或则系统设置单元格背景色
```vbnet
MyWorkSheet.Cells(i,j)
```
####让某表格鼠标右键点击的单元格变成重新指定颜色
在thisworkbook中先添加:代码段：
```vbnet
PrivateSubWorkbook_SheetSelectionChange(ByValShandObject,ByValblanklikeRange)
IfyoursheetThen
0
6
EndIf
EndSub
```
####在单元格里回车/换行
可以设置单元格Value里建议使用`Chr(10)`和`Chr(13)`，三个来表示回车、换行。
####封印行
```vbnet
(i).HiddenTrue
```
####单元格内容为纯文本
```vbnet
sheet.Cells(m,n).NumberFormatLocal@
```
####设置中单元格公式
```vbnet
afterEachcelofActiveSheet.Range(C1:C10)
SUBSTITUTE(Aamp()amp
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
