请教各位老师：如何在窗体控件中使用sheet表中的变量。

Xinchen

请教各位老师：如何在窗体控件中使用sheet表中的变量。在shett1中设定了双击G列任意单元格时调用窗口录入数据，当数据录入完成后，把完成的值填入到双击的单元格内。
现在是shett1激活后单元格位置无法赋值到窗体控件中，使用了Public 定义全局变量，但是好像传不过去。

Xinchen

属性表.rar (16.26 KB, 下载次数: 13)

2017-4-8 10:14 上传

点击文件名下载附件

maditate

全局变量要放在全局的位置。新建一个公共模块，把变量放在公共模块最上面。

Xinchen

maditate 发表于 2017-4-8 10:15
全局变量要放在全局的位置。新建一个公共模块，把变量放在公共模块最上面。

谢谢老师！
ThisWorkbook   是放在这里吗？要实时获取鼠标点击的单元格位置，是要写成OPEN 的方式吗？

maditate

Xinchen 发表于 2017-4-8 10:19
谢谢老师！
ThisWorkbook   是放在这里吗？要实时获取鼠标点击的单元格位置，是要写成OPEN 的方式吗？

不对。要VBA界面菜单上点插入、模块。

Xinchen

maditate 发表于 2017-4-8 10:21
不对。要VBA界面菜单上点插入、模块。

新建了一个模块1
Public h As Integer
Public l As Integer
Sub wz()
h = Target.Row
l = Target.Column
End Sub

还是不行呢，麻烦老师给看下

maditate

Xinchen 发表于 2017-4-8 10:28
新建了一个模块1
Public h As Integer
Public l As Integer

变量写在模块里，代码该写那就写那。，

Xinchen

maditate 发表于 2017-4-8 10:35
变量写在模块里，代码该写那就写那。，

新建了一个模块1
Public h As Integer
Public l As Integer
Sub wz()
h = Target.Row
l = Target.Column
End Sub

变量写在模块里了啊，但是窗体控件里还是调不到变量
我这写的要怎么改呢？

maditate

Xinchen 发表于 2017-4-8 10:37
新建了一个模块1
Public h As Integer
Public l As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
'Sub 属性表()
Dim LXYS, SYCH, NBJG
Set a = Sheets("属性").Range("A1:FF1").Find("流行元素", , , xlWhole)
                                    If Not a Is Nothing Then
                                        LXYS = a.Column '返回列
                                     End If
    h = Target.Row
    l = Target.Column
    If Target.Column <> LXYS And Target.Column <> SYCH And Target.Column <> NBJG Then Exit Sub
        Select Case Target.Column
            Case LXYS
                abc.Show
        End Select

End Sub
你的这段代码能让窗体显示吗？
  If Target.Column <> LXYS And Target.Column <> SYCH And Target.Column <> NBJG Then Exit Sub
  Target是一定存在行号列号的，且一定大于0的。  你在这句里 SYCH 是多少呢？，NBJG又是多少呢。

Xinchen

maditate 发表于 2017-4-8 10:49
Private Sub Worksheet_Change(ByVal Target As Range)
'Sub 属性表()
Dim LXYS, SYCH, NBJG

Dim LXYS, SYCH, NBJG
Set A = Sheets("属性").Range("A1:FF1").Find("流行元素", , , xlWhole)
                                    If Not A Is Nothing Then
                                        LXYS = A.Column '返回列
                                      End If
Set b = Sheets("属性").Range("A1:FF1").Find("适用场合", , , xlWhole)
                                    If Not A Is Nothing Then
                                        SYCH = b.Column '返回列
                                      End If
Set c = Sheets("属性").Range("A1:FF1").Find("内部结构", , , xlWhole)
                                    If Not A Is Nothing Then
                                        NBJG = c.Column '返回列
                                      End If

    If Target.Column <> LXYS And Target.Column <> SYCH And Target.Column <> NBJG Then Exit Sub

这段完整的代码是这样的