文本框输入内容问题

yw88120

老庙黄金.zip (190.64 KB, 下载次数: 12)

2014-12-9 19:47 上传

点击文件名下载附件


For i = 2 To 46
显示为 时间：  的文本框是46之后的，我把For i = 2 To 46改成For i = 2 To 50的话，不管查询或者修改都会变成0，除非输入的是数字，麻烦帮我一下，不管输入任何内容都可以，谢

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim MYRANGE As Range
Dim i As Integer
L = Sheets("会员管理").Range("A65536").End(xlUp).Row
Set MYRANGE = Sheets("会员管理").Range(Sheets("会员管理").Cells(2, 1), Sheets("会员管理").Cells(L, 1)).Find(TextBox1.Value)
If Not MYRANGE Is Nothing Then
For i = 2 To 46
Me.Controls("TEXTBOX" & i) = Sheets("会员管理").Cells(MYRANGE.Row, i + 1)
Next i
CommandButton2.Visible = True
CommandButton1.Visible = True
Else

End If
    X = 0
    For i = 7 To 44
        s = Controls("textbox" & i).Text
        If Len(s) > 0 Then X = X + CDbl(s)
    Next
    TextBox6.Text = X
End Sub

Private Sub CommandButton2_Click() '修改
Dim MYRANGE As Range
Dim i As Integer
L = Sheets("会员管理").Range("A65536").End(xlUp).Row
Set MYRANGE = Sheets("会员管理").Range(Sheets("会员管理").Cells(2, 1), Sheets("会员管理").Cells(L, 1)).Find(TextBox1.Value)
If Not MYRANGE Is Nothing Then
For i = 7 To 46
Sheets("会员管理").Cells(MYRANGE.Row, i + 1) = Val(Me.Controls("TEXTBOX" & i))
Next i
CommandButton1.Visible = True
CommandButton2.Visible = True
End If
ActiveWorkbook.Save
L = Sheets("会员管理").Range("A65536").End(xlUp).Row
Set MYRANGE = Sheets("会员管理").Range(Sheets("会员管理").Cells(2, 1), Sheets("会员管理").Cells(L, 1)).Find(TextBox1.Value)
If Not MYRANGE Is Nothing Then
For i = 2 To 46
Me.Controls("TEXTBOX" & i) = Sheets("会员管理").Cells(MYRANGE.Row, i + 1)
Next i
CommandButton2.Visible = True
CommandButton1.Visible = True
Else

End If
    X = 0
    For i = 7 To 44
        s = Controls("textbox" & i).Text
        If Len(s) > 0 Then X = X + CDbl(s)
    Next
    TextBox6.Text = X
End Sub

Private Sub CommandButton3_Click()
Dim MYRANGE As Range
Dim i As Integer
L = Sheets("会员管理").Range("A65536").End(xlUp).Row
Set MYRANGE = Sheets("会员管理").Range(Sheets("会员管理").Cells(2, 1), Sheets("会员管理").Cells(L, 3)).Find(TextBox2.Value)
If Not MYRANGE Is Nothing Then
TextBox1.Text = Sheets("会员管理").Cells(MYRANGE.Row, 1)
For i = 2 To 46
Me.Controls("TEXTBOX" & i) = Sheets("会员管理").Cells(MYRANGE.Row, i + 1)
Next i
CommandButton2.Visible = True
CommandButton1.Visible = True
Else

End If
    X = 0
    For i = 7 To 44
        s = Controls("textbox" & i).Text
        If Len(s) > 0 Then X = X + CDbl(s)
    Next
    TextBox6.Text = X
End Sub

Private Sub CommandButton5_Click()
Dim MYRANGE As Range
Dim i As Integer
L = Sheets("会员管理").Range("A65536").End(xlUp).Row
Set MYRANGE = Sheets("会员管理").Range(Sheets("会员管理").Cells(2, 1), Sheets("会员管理").Cells(L, 4)).Find(TextBox3.Value)
If Not MYRANGE Is Nothing Then
TextBox1.Text = Sheets("会员管理").Cells(MYRANGE.Row, 1)
For i = 2 To 46
Me.Controls("TEXTBOX" & i) = Sheets("会员管理").Cells(MYRANGE.Row, i + 1)
Next i
CommandButton2.Visible = True
CommandButton1.Visible = True
Else

End If
    X = 0
    For i = 7 To 44
        s = Controls("textbox" & i).Text
        If Len(s) > 0 Then X = X + CDbl(s)
    Next
    TextBox6.Text = X
End Sub

zjdh

老庙黄金.rar (124.32 KB, 下载次数: 3)

2014-12-10 10:17 上传

点击文件名下载附件

zjdh

废话！
47～50没有数据当然是不会有时间啦！
你在对应单元输入时间就会显示时间啦！

yw88120

zjdh 发表于 2014-12-9 18:30
废话！
47～50没有数据当然是不会有时间啦！
你在对应单元输入时间就会显示时间啦！

哥，你试试附件，改成50之后，在文本框输入的只要不是数字，点修改就是保存进表里了，然后查询一下看看，全变成0了

zjdh

你自己看看这句是干什么的：
Sheets("会员管理").Cells(MYRANGE.Row, i + 1) = Val(Me.Controls("TEXTBOX" & i))
查一下 Val 函数的解释就明白啦。

zjdh

你应该单独处理那几个文本框，改成：
For i = 47 To 50
   Sheets("会员管理").Cells(MYRANGE.Row, i + 1) = Me.Controls("TEXTBOX" & i)
Next
若不需要“时间：”则那句改成
Sheets("会员管理").Cells(MYRANGE.Row, i + 1) = Split(Me.Controls("TEXTBOX" & i), "：")(1)

yw88120

zjdh 发表于 2014-12-9 22:25
你应该单独处理那几个文本框，改成：
For i = 47 To 50
   Sheets("会员管理").Cells(MYRANGE.Row, i + 1 ...

我是需要   显示为时间：的所有文本框都可以输入任意文字和数值符号   可能我说的不是很明白，谢谢
代码很多，麻烦帮我修改下，好人做到底，真心感谢~~~~

zjdh

回帖跑到2楼去了。