当前位置:编程学习 > 汇编语言 >>

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++里面就不行了 求好人

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,