不知道你所见到的具体页面与内容是什么样的、下面的公式直^接接输入到任意单元格里就可以实现了？ 　　抽签程序主要用到的是随机函数 rand 　　例如班上一共有60个人。学号从1到60，则公式：=ROUND((1-RAND())*60,0) 　　就是从1到60的随机数！ 　　然后每改变一次其他单元格的数值！或者按一下F9,其数值均会改变一次！，

　　问：在一次公开课中。看到讲课的老师在课堂上使用了一个Excel的抽签程序！由抽到相应学号的同学回答提问，这样能增加课堂的气氛，调动学生积极极参与!是一种不不错的教学策略。答：这位老师想法很有创意、做起来并不难！其实抽签在我们日常生生活中很常见,这里我们介绍一个简单的抽签程序的示例、希望能给大家以更多的启示！假设有25个数、每行5个共5行。在数字的下方绘制两个命令按钮！修改其caption属性分别为“抽签攻和“暂停”.双击“抽签”按钮输入代码、其中关键代码如下： 　　k=0:flag=0 　　Do until flag=1 　　for i=6 to 10 　　for j=3 to 7 　　if k=0 then 　　cells(i,j).select 　　DoEvents '释放程序控制权。允许运行其他事件 　　k=1 　　cells(i,j).select 　　end if 　　next 　　next 　　loop关闭代码窗口回到抽签工作表中。单击“抽签”按钮可实现25个单元格的快速依次选中！单击“暂停”按钮可中断抽签程程序的执行（即选中其中的一个数字）。再次2245单击“抽签”按钮可继续抽取数字!这样一个简单的抽签程序就做好了同时按Alt和F11进入宏界面！点点菜单的插入！模块。粘贴如下代码： 　　Dim Flag As Boolean 　　　　Sub aaa() 　　Dim cell As Range 　　Do Until Flag 　　Range("C6:G10").Cells(Int(Rnd() * 25) + 1).Select 　　DoEvents 　　Loop 　　Flag = False 　　End Sub 　　　　Sub bbb() 　　Flag = True 　　End Sub 　　　　回到Excel？在C6:G10输入25个签（代码中的粗体字按实际修改）、插入两个个图形比如方框!一个写”抽签“！一个写”暂暂停“,右键点第一一个框!指定宏！aaa！右键点第2个框、指定宏。bbb 　　　　就可以了、，周公解梦梦见祖坟着火

　　Public j As Integer 　　Dim A() As String 　　Dim tem As String 　　Private Sub CMD1_Click() '注意这里如果没有exit sub，责会出现captio3273不会变的，其实已经变过了 　　If CMD1.Caption = "开始" Then 　　CMD1.Caption = "停止" 　　Timer1.Enabled = True 　　Exit Sub 　　End If 　　If CMD1.Caption = "停止" Then 　　CMD1.Caption = "开始" 　　Timer1.Enabled = False 　　If tem  "" Then 　　Text1.Text = tem 　　End If 　　End If 　　End Sub 　　Private Sub CMD2_Click() 　　Frame1.Visible = True 　　Text2.Visible = True 　　CMD3.Visible = True 　　CMD4.Visible = True 　　End Sub 　　Private Sub CMD3_Click() 　　Text2.Visible = False 　　CMD3.Visible = False 　　CMD4.Visible = False 　　tem = Text2.Text 　　End Sub 　　Private Sub CMD4_Click() 　　Text2.Text = "" 　　Text2.Visible = False 　　CMD3.Visible = False 　　CMD4.Visible = False 　　End Sub 　　Private Sub form_load() 　　Frame1.Visible = False 　　Text2.Visible = False 　　CMD3.Visible = False 　　CMD4.Visible = False 　　Timer1.Enabled = False 　　Timer1.Interval = 300 　　Open "C:\Documents and Settings\Administrator\桌面\新建8443 文本文档.txt" For Input As 1 　　Do Until EOF(1) 　　ReDim Preserve A(0 To I) 　　Input #1, A(I) 　　I = I + 1 　　Loop 　　Close #1 　　End Sub 　　Private Sub Timer1_Timer() 　　Text1.Text = A(j) 　　j = j + 1 　　If j = UBound(A) Then 　　j = 0 　　End If 　　End Sub 　　已经运行通过、不过事先你得在桌面建立一个文本文件！用来存储数据、呵呵 　　。周公解梦眼皮跳测吉凶

　　扑灭森林火灾一本可以分为以下步骤： 　　一。划分战略灭火地带！二、 　　控制火灾蔓延！后消灭余火， 　　三。打防结合。以打为主， 　　四，集中优势兵力打打歼灭战。 　　五。牺牲局部，保存全局！ 　　六。安全第一。 　　。周公解梦破解

　　可向公安机关报案，申请法医鉴定死亡原因、。周公解梦破解大全查询

　　拨打火警警119电话？接通后要讲清起火的单位。地点！起火部位！着火原因、着火介质。火灾程度，姓名。电话号码、以便及时联系、尽快灭火！ 　　　　在报警的同时！组织力量积积极抢救!人到起火地点附近路口迎接接消防车辆,使之迅速8745准确地到达火灾现场？投入灭火火工作！ 　　火灾报警系统工作程序 　　基本程序： 　　探测器处烟雾或温度等参数超过设定值!探测器动作！通过探测器下部的编码底座、利用传输线路不间断向火灾报警主机发送一组信号。报警主机机接收信号后，经程序分析确认为火灾信号的、则在报警主机上报警！同时通过报警主机的联动控制功能！启动大楼的声光报警。应急广播，消防设施等、。周公解梦算命

　　自己照着敲进去啊。！周公解梦风水

　　一堆白球里面掺杂着7个篮球!!~经纪人去抽蓝球就好了,打开球里^面面就会有号了. 　　望采纳。周冬雨 面相

　　分两种情况.如果前面抽的要拿给大家看,这样对后面的就有利.对每个人而言就不公平. 　　如果前面抽的不拿给大家看,这样对后面的人就公平,即每个人抽到的概率都一样. 　　所以抽签与顺序有无关系要看前面抽到的给不给后面看 　　这个在高三会学到的、周冬雨八字抽签程序

　　抽吧祝你抽³¹⁰⁰个上上签,周冬雨命理八字