如何在里實(shí)現(xiàn)多班級(jí)點(diǎn)名

1、在PPT里實(shí)現(xiàn)多班級(jí)隨機(jī)點(diǎn)名以PPT2010為例隨機(jī)點(diǎn)名是利用微軟office系統(tǒng)內(nèi)在的VBA語言編程實(shí)現(xiàn)的。因此，wps能打開該文件，但不能實(shí)現(xiàn)隨機(jī)點(diǎn)名。該程序在ppt2003及以上版本都能實(shí)現(xiàn)。文件必須以“啟用宏的演示文稿”保存，即后綴為.pptm而不是.ppt或.pptx。第一次打開該文件時(shí)，ppt2007及以上版本要選擇“啟用內(nèi)容”，ppt2003應(yīng)該在安全里設(shè)置“啟用宏”。這樣菜單欄就有開發(fā)工具這個(gè)選項(xiàng)了。先在第一張幻燈片時(shí)，點(diǎn)“視圖”，進(jìn)入“幻燈片母版”最后雙擊這個(gè)框進(jìn)入VBA編程界面Public cfxm() As StringPublic js As IntegerPublic

2、 bj As String完成后，雙擊窗口等等吧，把這個(gè)找出來，寫下以下內(nèi)容。Private Sub ComboBox1_Change()bj = ComboBox1.TextEnd SubPrivate Sub ComboBox1_GotFocus()ComboBox1.ClearComboBox1.AddItem (1班)ComboBox1.AddItem (2班)ComboBox1.AddItem (3班)ComboBox1.AddItem (4班)ComboBox1.AddItem (5班)ComboBox1.AddItem (6班)ComboBox1.AddItem (7班)Comb

3、oBox1.AddItem (8班)ComboBox1.AddItem (9班)ComboBox1.AddItem (10班)ComboBox1.AddItem (11班)ComboBox1.AddItem (12班)ComboBox1.AddItem (13班)ComboBox1.AddItem (14班)ComboBox1.AddItem (15班)ComboBox1.AddItem (16班)ComboBox1.AddItem (17班)ComboBox1.AddItem (18班)ComboBox1.AddItem (19班)ComboBox1.AddItem (20班)ComboBo

4、x1.AddItem (21班)ComboBox1.AddItem (22班)ComboBox1.AddItem (23班)ComboBox1.AddItem (24班)ComboBox1.AddItem (25班)ComboBox1.AddItem (26班)ComboBox1.AddItem (27班)ComboBox1.AddItem (28班)ComboBox1.AddItem (29班)ComboBox1.AddItem (30班)End Sub復(fù)制吧，不用輸入了。我這里定義的是30個(gè)班，我想一般也夠了。Private Sub UserForm_Activate()Dim xm()

5、As String 姓名變量Dim sfcf As Integer 姓名重復(fù)Dim jss As Integer 計(jì)數(shù)Dim startm As Single 時(shí)鐘Dim bjrs As Integer 班級(jí)人數(shù)Select Case bj Case 1班 bjrs = 57 確定班級(jí)人數(shù) ReDim xm(bjrs) jss = js + 1 ReDim Preserve cfxm(jss) xm(1) = 柏瑞欣 xm(2) = 柴芮 xm(3) = 陳諾 xm(4) = 陳雅萱 xm(5) = 陳一蕊 xm(6) = 程妍雪 xm(7) = 崔可歆 xm(8) = 黨逸塵 xm(9) =

6、 鄧昌曼 xm(10) = 丁思雨 xm(11) = 丁雨辰 xm(12) = 董昕沂 xm(13) = 高子昊 xm(14) = 郭睿 xm(15) = 金雅婷 xm(16) = 李寵顯 xm(17) = 李婧媛 xm(18) = 李靜 xm(19) = 李雨瀟 xm(20) = 劉夢(mèng)潔 xm(21) = 劉雨歆 xm(22) = 毛自如 xm(23) = 倪銘 xm(24) = 彭雨航 xm(25) = 羌睿欣 xm(26) = 強(qiáng)薇 xm(27) = 榮紫妍 xm(28) = 阮心悅 xm(29) = 芮絮飛 xm(30) = 沈晨 xm(31) = 沈欣 xm(32) = 沈嫣然 xm

7、(33) = 孫旸 xm(34) = 邰茜辰 xm(35) = 唐雪瑩 xm(36) = 汪欣 xm(37) = 汪軼誠(chéng) xm(38) = 王倩倩 xm(39) = 王紹仟 xm(40) = 王新媛 xm(41) = 王尊妮 xm(42) = 吳希冉 xm(43) = 吳宇菲 xm(44) = 閻士蓉 xm(45) = 楊程程 xm(46) = 楊瑩 xm(47) = 楊云千 xm(48) = 張朝陽 xm(49) = 張瑞 xm(50) = 張睿嘉 xm(51) = 張羽陽 xm(52) = 章家一院 xm(53) = 章言 xm(54) = 周靜嫻 xm(55) = 周可穎 xm(56)

8、= 朱夢(mèng)婷 xm(57) = 左笑雨 sfcf = 1 Do While sfcf = 1 Randomize v = Int(bjrs * Rnd) + 1) For j = 0 To js If xm(v) = cfxm(j) Then sfcf = 1 Exit For Else sfcf = 0 End If Next Loop cfxm(js) = xm(v) js = js + 1 UserForm1.Label1.Caption = xm(v) startm = Timer Do While Timer startm + 3 DoEvents Loop UserForm1.Hid

9、e Case 2班 bjrs = 56 ReDim xm(bjrs) jss = js + 1 ReDim Preserve cfxm(jss) xm(1) = 柏瑞 xm(2) = 柴芮ff xm(3) = 陳諾 xm(4) = 陳gg雅萱 xm(5) = 陳一蕊 xm(6) = 程hh妍雪 xm(7) = 崔可歆 xm(8) = 黨gg逸塵 xm(9) = 鄧昌mm曼 xm(10) = 丁思bb雨 xm(11) = 丁雨辰 xm(12) = 董昕沂 xm(13) = 高子昊 xm(14) = 郭睿 xm(15) = 金雅婷 xm(16) = 李寵bb顯 xm(17) = 李婧媛 xm(18

10、) = 李靜 xm(19) = 李雨bb瀟 xm(20) = 劉夢(mèng)潔 xm(21) = 劉雨歆 xm(22) = 毛自如 xm(23) = 倪銘 xm(24) = 彭雨航 xm(25) = 羌睿bb欣 xm(26) = 強(qiáng)薇 xm(27) = 榮紫妍 xm(28) = 阮心bb悅 xm(29) = 芮絮飛 xm(30) = 沈晨 xm(31) = 沈欣 xm(32) = 沈bb嫣然 xm(33) = 孫旸 xm(34) = 邰茜辰 xm(35) = 唐bb雪瑩 xm(36) = 汪欣 xm(37) = 汪軼誠(chéng) xm(38) = 王倩倩 xm(39) = 王紹仟 xm(40) = 王新媛 xm(

11、41) = 王bb尊妮 xm(42) = 吳希冉 xm(43) = 吳宇菲 xm(44) = 閻士蓉 xm(45) = 楊程程 xm(46) = 楊瑩 xm(47) = 楊云千 xm(48) = 張朝陽 xm(49) = 張瑞 xm(50) = 張睿嘉 xm(51) = 張羽陽 xm(52) = 章家一院 xm(53) = 章言 xm(54) = 周靜嫻 xm(55) = 周可穎 xm(56) = 朱夢(mèng)婷 sfcf = 1 Do While sfcf = 1 Randomize v = Int(bjrs * Rnd) + 1) For j = 0 To js If xm(v) = cfxm(j

12、) Then sfcf = 1 Exit For Else sfcf = 0 End If Next Loop cfxm(js) = xm(v) js = js + 1 UserForm1.Label1.Caption = xm(v) startm = Timer Do While Timer startm + 3 DoEvents Loop UserForm1.Hide Case 3班 Case 4班 Case 5班 Case 6班 Case 3班 Case 4班 Case 5班 Case 6班 Case 7班 Case 8班 Case 9班 Case 10班 Case 11班 Case 1

13、2班 Case 13班 Case 14班 Case 15班 Case 16班 Case 17班 Case 18班 Case 19班 Case 20班 Case 21班 Case 22班 Case 23班 Case 24班 Case 25班 Case 26班 Case 27班 Case 28班 Case 29班 Case 30班 Case Else UserForm1.Label1.Caption = 先選班級(jí) startm = Timer Do While Timer startm + 3 DoEvents Loop UserForm1.HideEnd SelectEnd Sub這個(gè)地方的字你看不見，但沒關(guān)系，復(fù)制一下吧。下面搞一個(gè)大的解釋一下：編好后，關(guān)閉編程窗口，關(guān)閉幻燈片母板?，F(xiàn)在進(jìn)入第二張幻燈片，再進(jìn)入視圖幻燈片母版注意：第4步那個(gè)框是將光標(biāo)放在3那個(gè)按鈕右鍵出來的。搞好4后，雙擊點(diǎn)名按鈕，進(jìn)入下一步。關(guān)閉窗口