vba中我哪错了

来源：百度知道 编辑：UC知道 时间：2024/07/15 23:00:43
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(

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列，所以会出错的