vba中我哪错了
Private Sub btn1_Click()
If row = 1 Then
Worksheets("sheet1").Cells(row, i) = "学号"
Worksheets("sheet1").Cells(row, i) = "姓名"
Worksheets("sheet1").Cells(row, i) = "语文"
Worksheets("sheet1").Cells(row, i) = "数学"
Worksheets("sheet1").Cells(row, i) = "英语r"
Worksheets("sheet1").Cells(row + 1, 1) = txtnumber.Text
Worksheets("sheet1").Cells(row + 1, 2) = txtname.Text
Worksheets("sheet1").Cells(row + 1, 3) = txtchinese.Text
Worksheets("sheet1").Cells(row + 1, 4) = txtmath.Text
Worksheets("sheet1").Cells(row + 1, 5) = txtenglish.Text
row = row + 2
Else
Worksheets("sheet1").Cells(row, 1) = txtnumber.Text
Worksheets("sheet1").Cells(row, 2) = txtname.Text
Worksheets("sheet1").Cells(row, 3) = txtchinese.Text
Worksheets("sheet1").Cells(row, 4) = txtmath.Text
Worksheets("sheet1").Cells(row, 5) = txtenglish.Text
row = row + 1
End If
End Sub
我就是不知道哪错了
补充:i刚开始就定义了为1
答案:Worksheets("sheet1").Cells(row, i) = "学号"
Worksheets("sheet1").Cells(row, i) = "姓名"
Worksheets("sheet1").Cells(row, i) = "语文"
Worksheets("sheet1").Cells(row, i) = "数学"
Worksheets("sheet1").Cells(row, i) = "英语r"
i 没有定义 结果是0
会出错的。
其他:你的 i 的值始终是0,由于没有0列,所以会出错的
上一个:帮我看看我这易语言编程那错了 Q聊1097758887
下一个:在notepad++里面汇编语言用什么注释 VS2010里面 用 “//” notepad++里面就不行了 求好人