窗体问题，请高手老师看看， 在线等候 谢谢

lichelleco

Dim Ddw$, Xdw$, n%
x = Target.Row
On Error GoTo 1000
r = ActiveSheet.Range("R1:V" & Range("R65536").End(xlUp).Row).Find(Target.Value).Row
Ddw = Cells(r, "T"): n = Cells(r, "U"): Xdw = Cells(r, "V")
With UserForm1
.Label3.Caption = "Each   " & LTrim(Ddw) & " = " & n & "  " & LTrim(Xdw)
.TextBox1.Value = ""
.TextBox2.Value = ""
.TextBox3.Value = ""
.TextBox4.Value = ""
.TextBox5.Value = ""
.Label1 = Cells(r, "T")
.Label2 = Cells(r, "V")
.TextBox3.Visible = False   '先隐藏尺寸输入
.TextBox4.Visible = False   '先隐藏尺寸输入
.TextBox5.Visible = False   '先隐藏尺寸输入
.Label4.Visible = False
.Label8.Visible = False


老师帮我看下，七楼的代码可以的，要怎么才能把这些代码也放进去 谢谢

lichelleco

Yaong_3 发表于 2020-7-7 07:18
我7楼的代码效果就是"当选中C列中任意单元格时弹出窗体", 不明白你要什么样的.

在你给我的文件是可以的，不知道为什么导入的我的文件就不可以，文件太大，又没办法上传

Yaong_3

软件名叫 Gif·Gif·Gif

lichelleco

Yaong_3 发表于 2020-7-7 08:12
软件名叫 Gif·Gif·Gif

老师，对不起，你昨晚问我需要什么对应的条件，我理解错了，应该是要说，不管B行有没有型号输入，TAB到C行都要出现窗体，不过在B行有型号的话，那些对应的数据还是要在窗体显示

lichelleco

老师请看看  因为在R-V 的数据是需要在B行输入型号才会显示出数据，所以当我每一次输入输入型号的时候窗体没法显示出来

Yaong_3

lichelleco 发表于 2020-7-7 07:55
Dim Ddw$, Xdw$, n%
x = Target.Row
On Error GoTo 1000

把你的代码放进去不难, 难的是读懂你描述的事情.
显示相应的数据, 哪些是相应的数据? 举个例子.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 3 Then
    Application.EnableEvents = False
   
    '你后加的代码
Dim Ddw$, Xdw$, n%
x = Target.Row
On Error GoTo 1000
r = ActiveSheet.Range("R1:V" & Range("R65536").End(xlUp).Row).Find(Target.Value).Row
Ddw = Cells(r, "T"): n = Cells(r, "U"): Xdw = Cells(r, "V")
With UserForm1
.Label3.Caption = "Each   " & LTrim(Ddw) & " = " & n & "  " & LTrim(Xdw)
.TextBox1.Value = ""
.TextBox2.Value = ""
.TextBox3.Value = ""
.TextBox4.Value = ""
.TextBox5.Value = ""
.Label1 = Cells(r, "T")
.Label2 = Cells(r, "V")
.TextBox3.Visible = False   '先隐藏尺寸输入
.TextBox4.Visible = False   '先隐藏尺寸输入
.TextBox5.Visible = False   '先隐藏尺寸输入
.Label4.Visible = False
.Label8.Visible = False
End With
   
    With UserForm1
    .Show
    .TextBox1.SetFocus
    .Top = ActiveCell.Top + 170
    .Left = Range("C1").Left
    Application.EnableEvents = True
    End With
    End If
1000:
    End Sub

lichelleco

Yaong_3 发表于 2020-7-7 13:08
把你的代码放进去不难, 难的是读懂你描述的事情.
显示相应的数据, 哪些是相应的数据? 举个例子.

窗体输入_07-06.zip (30.84 KB, 下载次数: 1)

2020-7-7 14:14 上传

点击文件名下载附件

谢谢老师鼎力相助，现在一些相对应的没有显示在窗体请老师再看看 谢谢

lichelleco

Yaong_3 发表于 2020-7-7 13:08
把你的代码放进去不难, 难的是读懂你描述的事情.
显示相应的数据, 哪些是相应的数据? 举个例子.

谢谢老师在难理解我的描述还鼎力相助，现在一些相对应的没有显示在窗体请老师再看看 谢谢

Yaong_3

修改 On Error GoTo 1000 下面这句 :
r = ActiveSheet.Range("R1:V" & Range("R65536").End(xlUp).Row).Find(Target(1, 0).Value).Row

lichelleco

Yaong_3 发表于 2020-7-7 15:04
修改 On Error GoTo 1000 下面这句 :
r = ActiveSheet.Range("R1:V" & Range("R65536").End(xlUp).Row).Fi ...

终于导入文件可以了，万分感谢老师的帮助， 感恩！