如何用excel的vba做乙個抽籤命令,要能夠控制它最後停在哪,即抽籤結果

2025-01-26 12:10:05 字數 2494 閱讀 1081

1樓:樂秉赫連歌韻

下面的例子是隨機抽取數字1至3,並根據抽取到的數字選擇對應的單元格a1至a3,你可以根據實際需要更改抽取數的範圍和更改選取的單元格。public

subrndnum1_3()dimn

aslong

randomize

nint(3rnd

抽取隨機數1⑶

range(a

根據抽取結果,選訂單元格a1至a3中的1個endsub

如何利用excel的vba按鈕進行分班抽籤

2樓:人生苦短就用

簡單一些的思路,列出所有1至5班的學生資訊,給每個人編個號,使用隨機函式來抽取得獎人員,已被抽到獎的人員在某列作個記號,下乙個中獎人員檢測到有該記號時就再次隨機。

3樓:太極健

你這是要做乙個**系統,你把檔案發。

4樓:匿名使用者

需要編處簡單的程式,具體看vb教程。

請教,在excel vba中,如何針對窗體中的文字控制項,做成乙個兩位數字的滾動效果,如同抽籤似的?謝謝。

5樓:冰爽哈啤酒

是不是要上圖的效果?剛發現要有序的,在後面補上了有序的**無序的**:

private sub commandbutton1_click()if = "開始" then

停止" format(int(rnd * 99 + 1), "00")else

開始"end if

end sub

private sub textbox1_change()docall delay( '在這裡調節隨機的速度,現在是秒變化一次,根據自己意願調整。

if = "開始" then exit sub= format(int(rnd * 99 + 1), "00")loop

end sub

private sub delay(t as single)dim t1 as single

t1 = timer

dodoevents

loop while timer - t1 < tend sub

有序的**:

private sub commandbutton1_click()if = "開始" then

停止" format(1, "00")

else "開始"

end if

end sub

private sub textbox1_change()docall delay(

if = "開始" then exit subif = 99 then

format(1, "00")

else format( +1, "00")

end if

loopend sub

private sub delay(t as single)dim t1 as single

t1 = timer

dodoevents

loop while timer - t1 < tend sub

6樓:網友

可以 現在已完成1錶轉變聯絡?

7樓:網友

別用excel做,用什麼都比這個好做。

8樓:太極健

有序滾動?還是無序滾動。

9樓:

沒法想想是什麼樣的效果。

10樓:水煮魚頭

簡單,用do迴圈就可以。

使用excel vba,對窗體中的乙個文字框控制項,如何可以不斷滾動兩位數字,就像抽籤似的?謝謝!

11樓:tat蘿蔔

flag = true '初始化中斷變數。當中斷變數為真時開始迴圈do while flag

doevents '釋放程式控制權,允許執行其它事件。

textbox1 = 10 + int(rnd * 90) '文字框動態顯示10到99

loopps:如要中斷迴圈,可通過其他程式改變flag為false

excel 如何用vba語句實現點選另乙個按鈕

12樓:網友

直接來執行另乙個。

自按鈕的程式名稱:

private sub commandbutton1_click()msgbox "我是按鈕1"

end sub

private sub commandbutton2_click()commandbutton1_click

end sub

excelvba如何定位到已使用的最後1個單元格

13樓:網友

range().end(xlup/xlleft).row/column

其功能等同於end鍵+上方向鍵/左方向鍵。

如何用ps做復古,如何用ps做一個復古

復古色系很多,1 可以開啟 曲線 選擇藍色 在右上節點處點一下,用方向鍵右和下一點 復古,只是一個形容詞,並不是一個標準。復古的內容包括 1 人物的衣著 髮型 服飾的復古。2 畫面陳舊的復古。3 文字內容的復古。所以,使用ps製作復古和影象,要根據具體要求來製作。請問在ps裡怎樣把 做成復古色?下面...

如何用硬紙板做乙個盒子?

用硬紙板diy乙個小工具盒子,功能還很多,效果不錯!紙箱摺疊方法 先將方形紙的左右兩邊對摺,然後,使紙的中心有摺痕,再將兩邊與中間的摺痕對齊,感覺對摺的部分向外對摺,與邊線重合。 然後把紙翻到後面,把左右兩邊折向中心線,然後,這時,紙上會有摺痕。 然後將紙張的角部與第三個摺痕對齊,並在另一側執行相同...

如何用C做密碼輸入的限制,如何用C 做一個密碼輸入的限制

using system.diagnostics public partial class form1 formprivate void button1 click object sender,eventargs e else if ispwdvalid name password else pri...