[已解决]一个小程序没有办法指定sheet3z表，请老师帮一下急。急，急

jake7008

Private Sub CommandButton1_Click()
Dim mrow As Long
mrow = Range("a65536").End(xlUp).Row + 1
Range("A" & mrow) = TextBox1.Value
Range("B" & mrow) = ComboBox1.Value
Range("M" & mrow) = ComboBox2.Value
Range("D" & mrow) = ComboBox3.Value
Range("C" & mrow) = ComboBox4.Value
Range("E" & mrow) = TextBox2.Value
Range("F" & mrow) = TextBox3.Value
Range("G" & mrow) = TextBox4.Value
Range("H" & mrow) = TextBox5.Value
Range("I" & mrow) = TextBox6.Value
Range("N" & mrow) = TextBox7.Value
Range("O" & mrow) = TextBox8.Value
Range("" & mrow) = TextBox9.Value
Range("Q" & mrow) = TextBox10.Value
Range("R" & mrow) = TextBox11.Value
Range("S" & mrow) = TextBox12.Value
Range("T" & mrow) = TextBox13.Value
Range("J" & mrow) = TextBox14.Value
Range("K" & mrow) = TextBox15.Value
Range("U" & mrow) = TextBox16.Value
Range("V" & mrow) = TextBox17.Value
Range("w" & mrow) = TextBox18.Value
Range("x" & mrow) = TextBox19.Value
Range("y" & mrow) = TextBox20.Value
Range("z" & mrow) = TextBox21.Value
End Sub

最佳答案

月排行榜 / 总排行榜

E-H-P

2013-7-4 10:22

1. Private Sub CommandButton1_Click()
   
2. Dim mrow As Long
   
3. with sheets("3z")
   
4. mrow = .Range("a65536").End(xlUp).Row + 1
   
5. .Range("A" & mrow) = TextBox1.Value
   
6. .Range("B" & mrow) = ComboBox1.Value
   
7. .Range("M" & mrow) = ComboBox2.Value
   
8. .Range("D" & mrow) = ComboBox3.Value
   
9. .Range("C" & mrow) = ComboBox4.Value
   
10. .Range("E" & mrow) = TextBox2.Value
    
11. .Range("F" & mrow) = TextBox3.Value
    
12. .Range("G" & mrow) = TextBox4.Value
    
13. .Range("H" & mrow) = TextBox5.Value
    
14. .Range("I" & mrow) = TextBox6.Value
    
15. .Range("N" & mrow) = TextBox7.Value
    
16. .Range("O" & mrow) = TextBox8.Value
    
17. <font color="#ff0000">.Range("" & mrow) = TextBox9.Value</font>
    
18. .Range("Q" & mrow) = TextBox10.Value
    
19. .Range("R" & mrow) = TextBox11.Value
    
20. .Range("S" & mrow) = TextBox12.Value
    
21. .Range("T" & mrow) = TextBox13.Value
    
22. .Range("J" & mrow) = TextBox14.Value
    
23. .Range("K" & mrow) = TextBox15.Value
    
24. .Range("U" & mrow) = TextBox16.Value
    
25. .Range("V" & mrow) = TextBox17.Value
    
26. .Range("w" & mrow) = TextBox18.Value
    
27. .Range("x" & mrow) = TextBox19.Value
    
28. .Range("y" & mrow) = TextBox20.Value
    
29. .Range("z" & mrow) = TextBox21.Value
    
30. end with
    
31. End Sub
    

复制代码

跳转到最佳答案楼层

1032446692

sheets("sheet3z").select

E-H-P

1. Private Sub CommandButton1_Click()
   
2. Dim mrow As Long
   
3. with sheets("3z")
   
4. mrow = .Range("a65536").End(xlUp).Row + 1
   
5. .Range("A" & mrow) = TextBox1.Value
   
6. .Range("B" & mrow) = ComboBox1.Value
   
7. .Range("M" & mrow) = ComboBox2.Value
   
8. .Range("D" & mrow) = ComboBox3.Value
   
9. .Range("C" & mrow) = ComboBox4.Value
   
10. .Range("E" & mrow) = TextBox2.Value
    
11. .Range("F" & mrow) = TextBox3.Value
    
12. .Range("G" & mrow) = TextBox4.Value
    
13. .Range("H" & mrow) = TextBox5.Value
    
14. .Range("I" & mrow) = TextBox6.Value
    
15. .Range("N" & mrow) = TextBox7.Value
    
16. .Range("O" & mrow) = TextBox8.Value
    
17. <font color="#ff0000">.Range("" & mrow) = TextBox9.Value</font>
    
18. .Range("Q" & mrow) = TextBox10.Value
    
19. .Range("R" & mrow) = TextBox11.Value
    
20. .Range("S" & mrow) = TextBox12.Value
    
21. .Range("T" & mrow) = TextBox13.Value
    
22. .Range("J" & mrow) = TextBox14.Value
    
23. .Range("K" & mrow) = TextBox15.Value
    
24. .Range("U" & mrow) = TextBox16.Value
    
25. .Range("V" & mrow) = TextBox17.Value
    
26. .Range("w" & mrow) = TextBox18.Value
    
27. .Range("x" & mrow) = TextBox19.Value
    
28. .Range("y" & mrow) = TextBox20.Value
    
29. .Range("z" & mrow) = TextBox21.Value
    
30. end with
    
31. End Sub
    

复制代码

jake7008

Private Sub CommandButton3_Click()
Dim mrow1 As Long
Sheets("数据").Select
mrow1 = Range("A:A").Find(姓名.Value).Row
村别.Value = Range("B" & mrow1)
发证时间.Value = Range("c" & mrow1)
房项.Value = Range("d" & mrow1)
预付款额.Value = Range("e" & mrow1)
建管票号.Value = Range("f" & mrow1)
'建管费.Value = Range("g" & mrow1)
耕地税号.Value = Range("h" & mrow1)
'耕地费.Value = Range("i" & mrow1)
经办人.Value = Range("j" & mrow1)
领证人.Value = Range("k" & mrow1)
现住地址.Value = Range("m" & mrow1)
东西.Value = Range("o" & mrow1)
南北.Value = Range("p" & mrow1)
东至.Value = Range("q" & mrow1)
西至.Value = Range("r" & mrow1)
南至.Value = Range("s" & mrow1)
北至.Value = Range("t" & mrow1)
查勘人.Value = Range("u" & mrow1)
身份证号.Value = Range("v" & mrow1)
淮建证号.Value = Range("w" & mrow1)
土地证号.Value = Range("x" & mrow1)
房产证号.Value = Range("y" & mrow1)
电话号码.Value = Range("z" & mrow1)
备注.Value = Range("AA" & mrow1)
End Sub



查询时能不能不回到sheet3(''数据“）表面上，还有能不能在查询上修改保存，非常非常感谢您的帮助。。。。。。

E-H-P

jake7008 发表于 2013-7-18 11:25
Private Sub CommandButton3_Click()
Dim mrow1 As Long
Sheets("数据").Select

多学习with 的写法

1. Private Sub CommandButton3_Click()
   
2. Dim mrow1 As Long
   
3. With Sheets("数据")
   
4. mrow1 = .Range("A:A").Find(姓名.Value).Row
   
5. 村别.Value = .Range("B" & mrow1)
   
6. 发证时间.Value = .Range("c" & mrow1)
   
7. 房项.Value = .Range("d" & mrow1)
   
8. 预付款额.Value = .Range("e" & mrow1)
   
9. 建管票号.Value = .Range("f" & mrow1)
   
10. '建管费.Value = .range("g" & mrow1)
    
11. 耕地税号.Value = .Range("h" & mrow1)
    
12. '耕地费.Value = .range("i" & mrow1)
    
13. 经办人.Value = .Range("j" & mrow1)
    
14. 领证人.Value = .Range("k" & mrow1)
    
15. 现住地址.Value = .Range("m" & mrow1)
    
16. 东西.Value = .Range("o" & mrow1)
    
17. 南北.Value = .Range("p" & mrow1)
    
18. 东至.Value = .Range("q" & mrow1)
    
19. 西至.Value = .Range("r" & mrow1)
    
20. 南至.Value = .Range("s" & mrow1)
    
21. 北至.Value = .Range("t" & mrow1)
    
22. 查勘人.Value = .Range("u" & mrow1)
    
23. 身份证号.Value = .Range("v" & mrow1)
    
24. 淮建证号.Value = .Range("w" & mrow1)
    
25. 土地证号.Value = .Range("x" & mrow1)
    
26. 房产证号.Value = .Range("y" & mrow1)
    
27. 电话号码.Value = .Range("z" & mrow1)
    
28. 备注.Value = .range("AA" & mrow1)
    
29. End With
    
30. End Sub

复制代码

jake7008

E-H-P 发表于 2013-7-19 11:59
多学习with 的写法

多谢！多谢！我是刚学，你的帮助给了我和很在的信心。{:171:}{:171:}{:171:}