窗体录入

760636412

求助大神指点下，弄了个窗体录入，但只能在客户信息工作表上，调出窗体录入数据会保存到客户信息表上，在其它工作表调出窗体录入数据不会保存到客户信息表上，只保存到当前活动工作表中，我想要的效果是在任何一个工作表上调出该窗体录入数据都能保存在客户信息表上，而不限于只能在客户信息表调出录入，才能保存到客户信息表中……详细如附件 信息录入.zip (165.55 KB, 下载次数: 16)

2024-1-1 11:34 上传

点击文件名下载附件

文件中有代码，求助大神，稍作指点修改下，谢谢！

Private Sub CommandButton1_Click()

If TextBox1.Text = "" Then MsgBox "客户信息": Exit Sub
If TextBox2.Text = "" Then MsgBox "新编号": Exit Sub

Dim Rng As Range
Dim i As Integer

Set Rng = Sheets("客户信息").Columns(5).Find(TextBox2.Value, lookat:=xlWhole)
If Not Rng Is Nothing Then '号已存在
   MsgBox "该编号已存在！！": Exit Sub
End If
   ' Sheet2.Unprotect ("a2023")
    With Sheets("客户信息")
    i = Sheets("客户信息").Range("A1048576").End(xlUp).Row + 1
    If i = 2 Then
    Cells(i, 1) = 1
    Cells(i, 3) = TextBox1.Value
    Cells(i, 5) = TextBox2.Value

   Else
    Cells(i, 3) = Cells(i - 1, 1) + 1
    Cells(i, 3) = TextBox1.Value
    Cells(i, 5) = TextBox2.Value
    End If

   ' Call客户排序
    TextBox1.Value = ""
    TextBox2.Value = ""
'Sheet2.Protect ("a2023")
End With
End Sub

760636412

有没有大神来指点下，谢谢！指示下本人代码哪里没写对

蓝桥玄霜

1. Private Sub CommandButton1_Click()
   
2. 
   
3. If TextBox1.Text = "" Then MsgBox "客户信息": Exit Sub
   
4. If TextBox2.Text = "" Then MsgBox "新编号": Exit Sub
   
5. 
   
6. Dim Rng As Range
   
7. Dim i As Integer
   
8. Sheet2.Unprotect ("a2023")
   
9. 
   
10. Set Rng = Sheets("客户信息").Columns(5).Find(TextBox2.Value, lookat:=xlWhole)
    
11. If Not Rng Is Nothing Then '当单号已经存在的时候
    
12.    MsgBox "该编号已存在！！": Exit Sub
    
13. End If
    
14. With Sheets("客户信息")
    
15.     i = .Range("C1048576").End(xlUp).Row + 1
    
16.     If i = 2 Then
    
17.         .Cells(i, 1) = 1
    
18.         .Cells(i, 3) = TextBox1.Value
    
19.         .Cells(i, 5) = TextBox2.Value
    
20.    
    
21.    Else
    
22.         .Cells(i, 1) = Cells(i - 1, 1) + 1
    
23.         .Cells(i, 3) = TextBox1.Value
    
24.         .Cells(i, 5) = TextBox2.Value
    
25.     End If
    
26.    
    
27.    ' Call客户排序
    
28.     TextBox1.Value = ""
    
29.     TextBox2.Value = ""
    
30. Sheet2.Protect ("a2023")
    
31. End With
    
32. End Sub
    

复制代码

半百

是不是这样？

760636412

760636412 发表于 2024-1-1 16:55
有没有大神来指点下，谢谢！指示下本人代码哪里没写对

   Sheets("客户信息").Cells(i, 3) = Cells(i - 1, 1) + 1
  Sheets("客户信息").  Cells(i, 3) = TextBox1.Value
  Sheets("客户信息").  Cells(i, 5) = TextBox2.Value
已解决!

760636412

半百 发表于 2024-1-1 17:16
是不是这样？

   Sheets("客户信息").Cells(i, 3) = Cells(i - 1, 1) + 1
  Sheets("客户信息").  Cells(i, 3) = TextBox1.Value
  Sheets("客户信息").  Cells(i, 5) = TextBox2.Value
我自已解决了，调试成功，谢谢你的解答！原因是保存数据代码没有指定工作表！前面指定的，不算，感谢

micch

cells对象和range对象，如果没有指明是属于哪个工作表，默认是当前活动工作表。

所以用的时候前面要加sheet对象，你用了with，那么不加.还是默认当前活动工作表

wxxydl

Private Sub CommandButton1_Click()
    If TextBox1.Text = "" Then MsgBox "客户信息": Exit Sub
    If TextBox2.Text = "" Then MsgBox "新编号": Exit Sub
    Dim Rng As Range
    Dim i As Integer
    Set Rng = Sheets("客户信息").Columns(5).Find(TextBox2.Value, lookat:=xlWhole)
    If Not Rng Is Nothing Then                                 '当单号已经存在的时候
        MsgBox "该编号已存在！！": Exit Sub
    End If
     Sheet2.Unprotect ("a2023")
    With Sheets("客户信息")
        i = Sheets("客户信息").Range("A1048576").End(xlUp).Row + 1
        If i = 2 Then
            .Cells(i, 1) = 1
            .Cells(i, 3) = TextBox1.Value
            .Cells(i, 5) = TextBox2.Value
        Else
            .Cells(i, 3) = .Cells(i - 1, 1) + 1
            .Cells(i, 3) = TextBox1.Value
            .Cells(i, 5) = TextBox2.Value
        End If
        ' Call客户排序
        TextBox1.Value = ""
        TextBox2.Value = ""
        
    End With
    Sheet2.Protect ("a2023")
End Sub