挑战不可能-如何将文件2的宏2运行变量结果传到文件1的宏1

永远的船长

举例：文件2的宏2         ‘在personal.xlsb文件中
sub 宏2
dim x
x=selection.row()              '选中的行为第四行,x=4
end sub


在文件1新建宏1
sub宏1      
Application.Run "personal.xlsb!宏2"       ‘运行文件2的宏2，将运行变量的结果传到文件1中的宏1
range("a1")=x                                     ’这样文件1的宏1有自变量=宏2运行的结果
end sub


问题，怎么在宏1没定义的时候，把宏2的x转到宏1。








因为好多写模板都用到相同变量，比如文件地址x，文件名称y，选中单元格行，列等，每次重复dim和取数比较麻烦，
我设想在workbook的personal里面写个通用的sub 模板宏()，dim x，y等，把通用的变量都定义好，
新建一个worlbook-文件2，需要用到x，y，直接call personal就行，把运行的变量传到新写workbook-文件2的vba，也不用再定义xy等，直接用，不知道如何实现，目前学会同一文件下的不同宏传导，但是不同文件不好用，请高人指点下。。。

具体是
文件1中的宏1不用自定义x，y，而其他文件如personal/文件2中的宏2，宏2已经自定义的x及数值，直接运行宏2就可以，问题是运行完宏2，怎么传导宏1，让x有数
（背景：personal有个宏模板，已经自定义了一些基本参数，比如文件的地址x1、名称x2、选中单元格的行x3、列x4等信息，所以再写vba的话，直接用里面的x1或者x2，不用再定义x1或则x2，让personal里的x1或者x2传到当前宏里，只要直接用就可以了，不用再去写取数sub）


可在附件文件演练

jsgj2023

使用类模块应当可以很好地解决你的问题!

永远的船长

jsgj2023 发表于 2019-3-12 11:56
使用类模块应当可以很好地解决你的问题!

看了下类模块，没看明白，请教怎么整

jsgj2023

Private 记账年度
Property Let AccountYear(temp)
记账年度 = temp
End Property
Property Get AccountYear()
'AccountYear = 记账年度
AccountYear = 2019
End Property

一个简单的类模块属性实现,这里的属性值2019可以在标准模块中直接获取!

jsgj2023

类的名称为[类_会计凭证记账年度属性]

标准模块中的代码
sub test ()
Dim 记账年度  As New 类_会计凭证记账年度属性
strYear = 记账年度.AccountYear
end sub

永远的船长

jsgj2023 发表于 2019-3-12 13:43
类的名称为[类_会计凭证记账年度属性]

标准模块中的代码

稍微神会了您的意思，但是不大懂类模块，能不能在我的附件里面试验下发过来学习下比较清楚，

jsgj2023

仅供参考      

永远的船长

jsgj2023 发表于 2019-3-12 16:46
仅供参考

我的基础太差，没有搞懂，是不是我们没有沟通一个点上，我是把模板化的东西放在personal，我临时编制的宏比如用x（和personal的x保持一致），x就有personal运行结果的数值，直接输出，

jsgj2023

附件代码实现的就是这个功能,你在其他标准模块临时编制的宏可以直接调用类模块中的属性值.

jsgj2023

你再看看这个附件,如不能解决你的问题,那可能就是我理解有误!