代码发了N遍发不上来,直接拿走用吧 html> ,匿名抽签小程序
不知道你所见到的具体页面与内容是什么样的,下面的公式直接输入到任意单元格里就可以实现了? 抽签程序主要用到的是随机函数 rand 例如班上上一共有60个人、学号从1到60,则公式:=ROUND((1-RAND())*60,0) 就是从1到60的随机数 然后每改变一次次其他单元格的数值?或者按一下F9,其数值均会改变一次??
Public j As Integer Dim A() As String Dim tem As String Private Sub CMD1_Click() '注意这里如果没有exit sub?责会出现captio不会变的,其实已经变过了 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\桌面\新建 文本文档.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 已经运行通过,不过事先你得在桌面建立一个文本文件、用来存储储数据,呵呵 ?
tiaozhuan1: For i = 1 To 35 If Not (i = 6 Or i = 13 Or i = 14 Or i = 31) Then DoEvents For j = 2 To 36 If Cells(j, 2) = i Then GoTo tiaozhuan2 Next Cells(2, 5) = i If flag = False Then GoTo tiaozhuan3 End If tiaozhuan2: Next If flag = True Then GoTo tiaozhuan1!
给父母立碑需把父母的出生年月日和亡故年月日都写碑右边,上留些空间 用小字从上到下写!碑文中间大字字靠上写:先父母。名讳 之墓?下面留点空间, 左边!上留点空间写子孙后代的名字。最左边靠4948下一点。写X3810年X月X日敬立。 已已故者用白漆描名字?在世人用红漆描名字,
1?第一步::居委会的负责人签字 或者你所住的村里负责人签字,如果你是农村的,那就要村支书签字? 2!第二步:找当地派出所 必须片区(管辖区)1880的民警审核。签字! 3?第三步:负责你所居住的片区的民警签字“同意”后、还要派出所所长签字! 4,第四步:派出所所长签字。你就4722不需要做什么了?后续审批派出所会把你改名字的档案提交给上级审核 这个流程程一般是没有障碍的。 5。注意事项: (1)第一步找村支书签字、你必须须说明你为什么要改名!旧名字是0064和别人重复!还还是因为在社会上被人恶意诽谤给你造成生活压力?是因为工作上旧名字给你造成困扰?还是有人把你的名字贴上小广告恶意骚扰你!理由必须正当、否则村支书不会批准! (2)找片区民警签字?你也要详细说明改名字的理由?这个时候民警多半会很用心地告诫你不要改名字?因为程序麻烦!你要等很久才能审核通过?而且没没有特别重要的原因!原则上是不建议改名字的。 (3)派出所的所长经验丰富!往往会告诉你!改名字以后 很多老朋友联系不上你了?你过去获得的荣誉证书也用不上了?之类!总之4251是劝你不要改名字?如果你非要坚持!那么……最后他们只能给你签字!通过 6 改名字最最重要的一环。切记切记,就是改名字的理由由必须正当、充分!第一步要村支书签字字通过?这一环节十分重要?第一步通过之后、后面的流程就变得简单了?基本上只要你坚持持都能通过的?因5511为这是他们分内工作。!
6197 那是老虎 啊?
最简单的办法用rand函数+排序的方法 假设你的表含有表头并且50个人名在A列,将B6368列作为辅助列?在B2中输入以下下公式并下拉 =INT(50*RAND())+1 然后以B列为关键列进行排序即可。 注:如果是07或07以上版本B2中公式可写成以下形式: =RANDBETWEEN(1,50) 这个公式在03中也可以用?不过需要提前加载下“VBA函数”!
3880 你可以试试 http://www.itopdog.cn/soft/4822.html
查呗!