vba概率抽取問(wèn)題

代碼如下：

Subaa()
Application.ScreenUpdating=False
DimiRnd%,str$
DimarrAsString
Randomize
Fori=1To100
iRnd=Rnd*100
IfiRnd<3Then
str="甲"
ElseIfiRnd<10Then
str="乙"
ElseIfiRnd<27Then
str="丙"
ElseIfiRnd<40Then
str="丁"
ElseIfiRnd<57Then
str="戊"
ElseIfiRnd<77Then
str="己"
Else
str="庚"
EndIf
arr=arr&""&str
Next
Cells(1,1).Resize(100,1)=Application.Transpose(Split(Right(arr,Len(arr)-1),""))
Application.ScreenUpdating=True
EndSub

上面代碼是直接生成100個(gè)數(shù)據(jù)，經(jīng)測(cè)試，勉強(qiáng)符合所要求。但還是有一定偏差。當(dāng)然，生成的數(shù)據(jù)越多，越符合你的要求。

原理：

根據(jù)隨機(jī)數(shù)的概率，判斷所生成的數(shù)。

VB和VBA之間的數(shù)據(jù)類型處理問(wèn)題

你應(yīng)該將 OutputUnit=mV 的語(yǔ)句修改成 OutputUnit="mV" 因?yàn)樽兞縊utputUnit你定義的類型為String，而mV既不是String類型的變量，也不是字符串常量。所以系統(tǒng)不知道m(xù)V為何物也，自然會(huì)提示你類型不匹配的錯(cuò)誤。 另外，假如你已將上面的語(yǔ)句修改成 OutputUnit="mV" 了，但是接下來(lái)的語(yǔ)句 Outputstring = OutputValue + OutputUnit 也有可能會(huì)引發(fā)錯(cuò)誤。這是因?yàn)楫?dāng)String類型的變量OutputUnit和Long類型的變量OutputValue執(zhí)行相加操作時(shí)，VB會(huì)先將OutputUnit的String類型

找excel高手關(guān)于VB，VBA查數(shù)據(jù)問(wèn)題？

獲取文本框中的數(shù)據(jù)，然后遍歷每個(gè)表格比對(duì)，符合條件的，讀取sheet名，讀取對(duì)應(yīng)位置時(shí)間，及后續(xù)10位數(shù)，循環(huán)賦值給label。

計(jì)算機(jī)excel應(yīng)用快捷鍵：
Ctrl+S 保存
Ctrl+W 關(guān)閉程序
Ctrl+N 新建
Ctrl+O 打開(kāi)
Ctrl+Z 撤銷
Ctrl+F 查找
Ctrl+P 打印文檔
Ctrl+X 剪切
Ctrl+C 復(fù)制
Ctrl+V 粘貼
Ctrl+A全選
Ctrl+B 粗體
Ctrl+I 斜體
Ctrl+U 下劃線
Ctrl+Shift輸入法切換
Ctrl+ 空格 中英文切換
Ctrl+Home 光標(biāo)快速移到文件頭
Ctrl+End 光標(biāo)快速移到文件尾
Ctrl+Esc 顯示開(kāi)始菜單
Ctrl+Shift+< 快速縮小文字
Ctrl+Shift+> 快速放大文字
Ctrl+F5 在IE中強(qiáng)行刷新
Ctrl+拖動(dòng)文件 復(fù)制文件
Ctrl+Backspace 啟動(dòng)\關(guān)閉輸入法
Ctrl+Alt+A 截屏(QQ的截屏）
shift + Alt + Print Screen(選中要截屏的地方，然后按這三個(gè)鍵，然后打開(kāi)圖畫或者word，粘貼即可)
拖動(dòng)文件時(shí)按住Ctrl+Shift 創(chuàng)建快捷方式
Ctrl+Tab+shift在打開(kāi)的應(yīng)用程序中以反方向切換
擴(kuò)展資料：
快捷鍵的有效范圍不一定相同，比如：系統(tǒng)級(jí)快捷鍵可以全局響應(yīng)，不論當(dāng)前焦點(diǎn)在哪里、運(yùn)行什么程序，按下時(shí)都能起作用；而應(yīng)用程序級(jí)熱鍵只能在當(dāng)前活動(dòng)的程序中起作用，當(dāng)應(yīng)用程序熱鍵的定義程序不活動(dòng)或在后臺(tái)運(yùn)行時(shí)，熱鍵就無(wú)效了；控件級(jí)的熱鍵則僅在當(dāng)前控件中起作用。
有專門用于設(shè)置熱鍵的工具軟件，此類工具需要在后臺(tái)一直運(yùn)行，否則通過(guò)這各種程序定義的快捷鍵會(huì)失效。通過(guò)修改鍵盤按鍵映射的軟件則不屬于此類。
通常Windows平臺(tái)下應(yīng)用程序級(jí)的快捷鍵有幾個(gè)是通用的，如Ctrl+Z常用于撤銷操作。這種快捷鍵在菜單項(xiàng)的右側(cè)或是控件的提示框中往往會(huì)注明。

VB和VBA詳細(xì)的區(qū)別？都用在什么地方？

首先VBS不應(yīng)該和VB、VBA放在一起比較，它是微軟按照自己定義的ActiveX Scripting規(guī)范完全從頭開(kāi)始寫成的腳本語(yǔ)言，雖然它的語(yǔ)法結(jié)構(gòu)和VB非常相似，但VBS僅僅依靠自動(dòng)化對(duì)象來(lái)擴(kuò)充其功能（只有后期綁定），它不能用implements來(lái)實(shí)現(xiàn)接口，不可能在VBS里直接使用API，沒(méi)有VarPtr這樣能得到指針的函數(shù)，而VBS缺少的這些功能正是VB和VBA所特有的。當(dāng)然，這不是說(shuō)VBS不如VB或VBA，Windows已經(jīng)為VBS提供了足夠強(qiáng)大的功能，我們可以用VBS來(lái)做腳本COM組件，而且借自動(dòng)化對(duì)象的能力VBS可以說(shuō)能力無(wú)限，所以有病毒用VBS來(lái)寫，對(duì)程序員來(lái)說(shuō)VBS最重要的功能莫

哪位大哥給個(gè)隨機(jī)抽數(shù)的vb代碼啊?要求:在0~9中隨機(jī)抽取一個(gè)數(shù)。

為了生成某個(gè)范圍內(nèi)的隨機(jī)整數(shù)，可使用以下公式： Int((上限 - 下限 + 1) * Rnd + 下限) 針對(duì)您的問(wèn)題，可采用以下語(yǔ)句： Dim MyRnd Randomize '初始化隨機(jī)數(shù) MyRnd = Int((9 - 0 + 1) * Rnd + 0) '也可簡(jiǎn)化表示成：Int(10 * Rnd) '隨機(jī)數(shù)此時(shí)已抽取至 MyRnd 變量，下面就可輸入其它語(yǔ)句了。