怎么利用EXCEL为每个学生产生一个密码?

来源：百度知道 编辑：UC知道 时间：2024/06/17 22:47:05
例如:
学生 学号 密码
张三 g20080101 65k48p
李四 g20080102 ………
王五 g20080103 ………
一千多个学生,我可不想自己输入,最好是电脑随机产生为好.

按下ALT+F11,插入－模块，复制下面代码到代码框中．退出
在要生成密码的单元格内输入=PASSWORD()
然后向下填充公式就可以了．

Public Function password() As String
Dim b As Integer
password = ""
For x = 1 To 6
b = Int(Rnd() * 123)
Do Until (b >= 48 And b <= 57) Or (b >= 97 And b <= 122)
b = Int(Rnd() * 123)
Loop
a = Chr(b)
password = password & a
Next
End Function

在密码末尾没规律情况下选中相邻两个单元格向下拉

你可以让每个学生自己创建一个密码呀。这样你的工作不就省了吗？

做个批处理，自动