smartwatch怎么插卡:请问如何使用Excel来制作一个5X5的表格,并让1-25这25个数字随机分布在25个单元格里。

来源:百度文库 编辑:中科新闻网 时间:2024/04/29 07:13:00

这个用 VBA 解决较好, 示例参考(右击"Sheet1"工作表标签>>查看代码>>键入下列代码>>按 F5 执行即可):

Sub RND5X5()
Cells.Delete ' 删除原有数据

' 预置初始的 1-25
Range("G10:G34").Formula = "=row()-9"
Range("G10:G34").Value = Range("G10:G34").Value

Dim I%, J%, iRND%, iNum%

Randomize ' 对随机数生成器做初始化的动作。

For I = 1 To 5
For J = 1 To 5

iNum = Application.WorksheetFunction.CountA(Range("G10:G34"))
iRND = Int(iNum * Rnd) ' 生成 0 到 iNum-1 之间的随机数值。

Cells(I, J) = Range("G10").Offset(iRND, 0)
Range("G10").Offset(iRND, 0).EntireRow.Delete

Next
Next

' 设置区域边框及颜色
Range("A1:E5").Borders.LineStyle = xlDouble
Range("A1:E5").Interior.ColorIndex = 6

' 设置行高列宽
Cells.ColumnWidth = 3.57
Cells.RowHeight = 22.5

Range("A1").Select

End Sub

当然可以
只要执行工具栏上的数据,然后选择有效性命令,打开“数据有效性”对话框。在“设置”标签中,单击“允许”右侧的下拉按钮,选中“序列”选项,在下面的“来源”方框中,输入“男”,“女”等等序列(各元素之间用英文逗号隔开),确定退出就OK啦。
而且无论你想设置成什么只要在“来源”方框中输入,中间用英文逗号隔开,确定退出后你再点击你刚刚设置过的单元格就可以选择了。