关于全局变量

JamesBondeee

请教如下：
1.打开excel后，便需要计算出变量的值。假设经过sub text1（）计算出A=1，那么如何在Private Sub Worksheet_selectionChange(ByVal Target As Range)中直接使用A的值。即


          Private Sub Worksheet_selectionChange(ByVal Target As Range)
            msgbox A
          end sub
        此时，返回内容为1的msgbox
2.在Private Sub Worksheet_selectionChange(ByVal Target As Range)中，需要多次重复的使用A的值（即A=1），如何使sub text1（）只运行1次，而不重复运行sub text1（）


请指教！！！

爱吃蜂蜜的狼

1. Public a
   
2. Sub dd()
   
3. a = 5
   
4. End Sub
   
5. Private Sub Worksheet_selectionChange(ByVal Target As Range)
   
6.             MsgBox a
   
7. End Sub
   

复制代码

LWQHLWQH

新建一个模块，填入: public A as long

liulang0808

楼主在模块顶部定义全局变量，然后再工作薄open事件中直接赋值吧

microyip

只有在模块里的Public定义的公用变量才能被所有模块、表单、窗体能调用的公用模块

JamesBondeee

爱吃蜂蜜的狼 发表于 2019-5-15 23:07

试了一下，似乎得先手动运行一下sub dd() 才可以，是吧

JamesBondeee

microyip 发表于 2019-5-16 08:02
只有在模块里的Public定义的公用变量才能被所有模块、表单、窗体能调用的公用模块

那应该怎么做，菜鸟请您指教！

JamesBondeee

liulang0808 发表于 2019-5-16 06:54
楼主在模块顶部定义全局变量，然后再工作薄open事件中直接赋值吧

不是直接赋值，是算出来的值，有可能会变，但是可能性很低。所得A的值需要在sheet1里用，该怎么写？菜鸟请指教！！

JamesBondeee

LWQHLWQH 发表于 2019-5-15 23:40
新建一个模块，填入: public A as long

模块里计算出来的变量的值可以直接在sheet1里使用吗？

maditate

JamesBondeee 发表于 2019-5-16 21:02
那应该怎么做，菜鸟请您指教！

在模块顶部声明公共变量。在open事件中给此变量赋值。当你打开文件时，此变量就完成赋值，以后你就可以用了。