抽獎(jiǎng)模板1.0.zip (22 Bytes) 抽獎(jiǎng)模板1.0.zip (22 Bytes)【資料名稱(chēng)】：vba抽獎(jiǎng)代碼
【資料作者】：我
【資料日期】：110918
【資料語(yǔ)言】：中文
【資料格式】：DOC
【資料目錄和簡(jiǎn)介】：
vba抽獎(jiǎng)代碼
執(zhí)行前，工具-加載宏-勾選分析工具庫(kù)
工具-宏-安全性-中；重啟excel
Sub Start()
Worksheets("sheet2").Cells(1, 1) = ""
Do While Worksheets("sheet2").Cells(1, 1) <> "Finished"
Worksheets("Sheet1").Cells(1, 1) = Int(Rnd(9999) * 6)
DoEvents
DoEvents
DoEvents
Loop
End Sub
Sub Terminate()
Worksheets("sheet2").Cells(1, 1) = "Finished"
MsgBox "大獎(jiǎng)得主系" & Range("h2"), vbOKOnly + 48, "通信工程1班dota大賽"
End Sub
Sub Startname()
Range("d2") = "=randbetween(1,counta(G1:G9999)-1)"
Worksheets("sheet2").Cells(1, 1) = ""
Do While Worksheets("sheet2").Cells(1, 1) <> "Finished"
Range("h2").Value = Range("g" & Range("d2").Value + 1).Value
DoEvents
DoEvents
DoEvents
Loop
End Sub
掃碼關(guān)注5G通信官方公眾號(hào),免費(fèi)領(lǐng)取以下5G精品資料
1、回復(fù)“YD5GAI”免費(fèi)領(lǐng)取《中國(guó)移動(dòng)：5G網(wǎng)絡(luò)AI應(yīng)用典型場(chǎng)景技術(shù)解決方案白皮書(shū)》
2、回復(fù)“5G6G”免費(fèi)領(lǐng)取《5G_6G毫米波測(cè)試技術(shù)白皮書(shū)-2022_03-21》
3、回復(fù)“YD6G”免費(fèi)領(lǐng)取《中國(guó)移動(dòng)：6G至簡(jiǎn)無(wú)線(xiàn)接入網(wǎng)白皮書(shū)》
4、回復(fù)“LTBPS”免費(fèi)領(lǐng)取《《中國(guó)聯(lián)通5G終端白皮書(shū)》》
5、回復(fù)“ZGDX”免費(fèi)領(lǐng)取《中國(guó)電信5G NTN技術(shù)白皮書(shū)》
6、回復(fù)“TXSB”免費(fèi)領(lǐng)取《通信設(shè)備安裝工程施工工藝圖解》
7、回復(fù)“YDSL”免費(fèi)領(lǐng)取《中國(guó)移動(dòng)算力并網(wǎng)白皮書(shū)》
8、回復(fù)“5GX3”免費(fèi)領(lǐng)取《 R16 23501-g60 5G的系統(tǒng)架構(gòu)1》
關(guān)注樓主