[已解决]最后行输入

26827557

老师你好！我想在最后行写入：
如果三个复选框都勾选了，应当是在:
F2写入"已选择学生信息"
F3写入"已选择教师信息"
F4写入"已选择资助信息"
可怎么只写入了一条呢

   rr = Worksheets("数据表").Range("a65536").End(xlUp).Row + 1
   If Me.CheckBox1 Then '
      Worksheets("数据表").Cells(rr, "F") = "已选择学生信息"
   End If

   If Me.CheckBox2 Then '打印 "1.工程样件入库单"
      Worksheets("数据表").Cells(rr, "F") = "已选择教师信息"
   End If

   If Me.CheckBox3 Then '打印 "2.工程样件评估接收单"
     Worksheets("数据表").Cells(rr, "F") = "已选择资助信息"
   End If

最佳答案

月排行榜 / 总排行榜

02761752696

2016-6-8 12:31

效果

跳转到最佳答案楼层

七彩屋

rr = Worksheets("数据表").Range("F65536").End(xlUp).Row + 1

02761752696

1. Private Sub CommandButton1_Click()
   
2. 
   
3.    If Me.CheckBox1 Then '
   
4.    rr = Worksheets("数据表").Range("F65536").End(xlUp).Row + 1
   
5.       Worksheets("数据表").Cells(rr, "F") = "已选择学生信息"
   
6.    End If
   
7.    
   
8.    If Me.CheckBox2 Then '打印 "1.工程样件入库单"
   
9.    rr = Worksheets("数据表").Range("F65536").End(xlUp).Row + 1
   
10.       Worksheets("数据表").Cells(rr, "F") = "已选择教师信息"
    
11.    End If
    
12.    
    
13.    If Me.CheckBox3 Then '打印 "2.工程样件评估接收单"
    
14.    rr = Worksheets("数据表").Range("F65536").End(xlUp).Row + 1
    
15.      Worksheets("数据表").Cells(rr, "F") = "已选择资助信息"
    
16.    End If
    
17. End Sub

复制代码

02761752696

效果

26827557

七彩屋 发表于 2016-6-8 12:20
rr = Worksheets("数据表").Range("F65536").End(xlUp).Row + 1

老师f改为大写有什么区别吗？

26827557

02761752696 发表于 2016-6-8 12:31
效果

谢谢老师！是这样的效果！