| 查看: 686 | 回复: 2 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
VB 代码求更正！ 已有1人参与
|
||
|
请教各位一下，我写了一段代码，是要生成随机数，并将相关信息逐行写入EXCEL中，但是运行时总是写入excel第一行（每次都是将第一行内容覆盖掉），代码如下，请帮忙修改一下，实现逐行写入（就是每一次运行不覆盖以前的内容，而是从空白的一行写入）。谢谢！ Private Sub Command1_Click() If Trim(Text1) = "" Or Trim(Text2) = "" Or Trim(Text3) = "" Or Trim(Text4) = "" _ Or Trim(Combo1) = "" Or Trim(Combo2) = "" Then MsgBox "请输入完整信息", vbCritical, "提示" Text1.SetFocus Exit Sub End If b = Text2 c = Text3 If b <= c Then MsgBox "采样数应小于/等于总车数", vbCritical, "提示" Text2.SetFocus Exit Sub End If Max = b Min = 1 Amount = c - 1 ReDim a(Amount) Randomize For i = 0 To Amount a(i) = Int((Max - Min + 1) * Rnd + Min) For j = 0 To i If i <> j And a(i) = a(j) Then i = i - 1 Next Next Text5 = Text1 & "；" & vbCrLf & Combo1.Text & "," & "共" & b & "个数字" & "," & _ c & "个随机数" & "；" & vbCrLf & "随机数为：" & Join(a, ","  & "；" & _vbCrLf & Combo2.Text & "," & "操作人员：" & Text4 & "。" Static n As Integer FileName = "D:\随机抽号\历史记录.xls" On Error Resume Next Set xlApp = GetObject(, "Excel.Application" If Err.Number <> 0 Then Set xlApp = CreateObject("Excel.Application" xlApp.Visible = False End If If Dir(FileName) = "" Then MsgBox FileName & "未找到！", vbCritical, "提示" Exit Sub End If Set xlBook = xlApp.Workbooks.Open(FileName) Set xlsheet = xlApp.Worksheets(1) xlsheet.Activate With ActiveSheet.UsedRange n = .Cells(.Rows.Count, .Columns.Count).Row End With xlsheet.Cells(n + 1, 1) = Now() xlsheet.Cells(n + 1, 2) = Text1 xlsheet.Cells(n + 1, 3) = Combo1.Text xlsheet.Cells(n + 1, 4) = Text2 xlsheet.Cells(n + 1, 5) = Text3 xlsheet.Cells(n + 1, 6) = Join(a, "," xlsheet.Cells(n + 1, 7) = Combo2.Text xlsheet.Cells(n + 1, 8) = Text4 End Sub |
回复此楼» 猜你喜欢
275求调剂
已经有14人回复
-
调剂310
已经有6人回复
-
283求调剂
已经有3人回复
-
085602 化工专硕 338分 求调剂
已经有12人回复
-
312，生物学求调剂
已经有3人回复
-
化学0703 调剂 306分 一志愿211
已经有4人回复
-
311（085601）求调剂
已经有3人回复
-
复试调剂
已经有3人回复
-
本科双非材料，跨考一志愿华电085801电气，283求调剂，任何专业都可以
已经有6人回复
-
材料与化工272求调剂
已经有9人回复
3楼2018-10-31 19:54:02
2楼2018-10-30 21:38:32
