excel的隨機(jī)點(diǎn)名怎么弄？1.剛建一個(gè)Excel文件，命名為“隨機(jī)點(diǎn)名”后保存到。在A1中輸入姓名，在B1中然后輸入“每組人數(shù)”，在C1中再輸入“分組情況”，在A2、A3……中鍵入學(xué)員名子。vba常

excel的隨機(jī)點(diǎn)名怎么弄？

1.剛建一個(gè)Excel文件，命名為“隨機(jī)點(diǎn)名”后保存到。在A1中輸入姓名，在B1中然后輸入“每組人數(shù)”，在C1中再輸入“分組情況”，在A2、A3……中鍵入學(xué)員名子。

vba常用代碼有哪些？

我以前歸納過我具體方法的一些，見

要注意的功能強(qiáng)大代碼片段萬分感謝：

##實(shí)用代碼片段

###文件不能操作

####直接引用再打開的工作簿

在用索引號(hào)（從1開始）

```vbnetWorkbooks(1)

```

建議使用工作簿名稱

```vbnetWorkbooks(1.xlsx)

```

####創(chuàng)建家族一個(gè)EXCEL工作簿對象

```vbnet

Dimwdthough

DimwbasWorkbook

SetwdCreateObject()

True

Setwb(amp/test.xls)

...

wd.Quit

```

####然后打開/需要保存/自動(dòng)關(guān)閉工作簿

```vbnet

DimwbsuchWorkbook

wb(amp/test.xls)

...

```

關(guān)閉所有工作簿

```vbnet

```

選擇保存（自動(dòng)先打開新文件關(guān)掉源文件）

```vbnet

FileName:D:1.xls

```

另存為圖片（記錄源文件不再打開新文件）

```vbnet FileName:D:1.xls

```

####拷貝文件

```vbnet

oldfileamp/old.xlsx

newfileamp/new.xlsx

FileCopyoldfile,newfile

```

####文件復(fù)制文件夾

```vbnet

SetfsoCreateObject()

srcDir,dstDir

```

####刪出文件夾下的所有文件

```vbnet

baseamp/文件夾/

patternbaseamp*.*

fileDir(pattern,vbReadOnly)

Whilefileltgt

Killbaseampfile

fileDir

Wend

```

####創(chuàng)建文件夾

```vbnetMkDir(directory)

```

####確定文件夾有無未知

以下為不修真者的存在即創(chuàng)建角色

```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

```

###格式你的操作

####系統(tǒng)設(shè)置邊框與手動(dòng)篩選

```vbnetSet Rng With Rng With

```

####某些或則系統(tǒng)設(shè)置單元格背景色

```vbnet

MyWorkSheet.Cells(i,j)

```

####讓某表格鼠標(biāo)右鍵點(diǎn)擊的單元格變成重新指定顏色

在thisworkbook中先添加:代碼段：

```vbnet

PrivateSubWorkbook_SheetSelectionChange(ByValShandObject,ByValblanklikeRange)

IfyoursheetThen

0

6

EndIf

EndSub

```

####在單元格里回車/換行

可以設(shè)置單元格Value里建議使用`Chr(10)`和`Chr(13)`，三個(gè)來表示回車、換行。

####封印行

```vbnet

(i).HiddenTrue

```

####單元格內(nèi)容為純文本

```vbnet

sheet.Cells(m,n).NumberFormatLocal@

```

####設(shè)置中單元格公式

```vbnet

afterEachcelofActiveSheet.Range(C1:C10)

SUBSTITUTE(Aamp()amp