同一个窗体内是否可以不同的赋值

ericyu779

程序想法是通过自定义右键菜单中不同的命令打开同一个窗体，根据不同的菜单向窗体内赋值，其他均正常显示，只是无论选择执行第一条还是第二条均显示的是第二个红框的内容。本人菜鸟一枚，恳请大神赐教。

microyip

使用类来处理就可以了

ericyu779

microyip 发表于 2019-11-28 08:04
使用类来处理就可以了

老师可以说具体点吗，我真实菜鸟，不是很明白

microyip

两段代码是一样的，唯一不同的地方，加个判断来修改即可

ericyu779

microyip 发表于 2019-11-28 08:25
两段代码是一样的，唯一不同的地方，加个判断来修改即可

附上代码，请老师帮忙添加，多谢！
With .Controls.Add(1) '括弧内为菜单样式
.BeginGroup = True
.Caption = "1.转至上报信息车辆销售收入"
.FaceId = 9590
str1 = Target.Offset(0, -9)
str3 = Target.Offset(0, -2)
str4 = Target.Offset(0, -3)
str8 = Target.Offset(0, -1) '内报科目
str9 = Target.Offset(0, -4) '金额
str10 = "调整至上报信息车辆销售收入"
str11 = "项目间调整"
str12 = "a1.1.1----销售收入"
Cancel = True   '无此函数，双击后单元格进入编辑状态
UserForm3.TextBox64 = str1
UserForm3.TextBox65 = str3
UserForm3.TextBox66 = str4
UserForm3.TextBox37 = str10
UserForm3.ComboBox15 = str8
UserForm3.TextBox41 = str9
UserForm3.TextBox62 = str9
UserForm3.ComboBox16 = str12
UserForm3.ComboBox22 = str11
UserForm3.ComboBox23 = str11
.OnAction = "openformtz1"
End With
With .Controls.Add(1)
.Caption = "2.调拨收入"
.FaceId = 9591
.OnAction = "openformtz1"
str1 = Target.Offset(0, -9)
str3 = Target.Offset(0, -2)
str4 = Target.Offset(0, -3)
str8 = Target.Offset(0, -1) '内报科目
str9 = Target.Offset(0, -4) '金额
str10 = "调整至上报信息车辆销售收入"
str11 = "项目间调整"
str13 = "a1.1.2----调拨销售收入"
Cancel = True   '无此函数，双击后单元格进入编辑状态
UserForm3.TextBox64 = str1
UserForm3.TextBox65 = str3
UserForm3.TextBox66 = str4
UserForm3.TextBox37 = str10
UserForm3.ComboBox15 = str8
UserForm3.TextBox41 = str9
UserForm3.TextBox62 = str9
UserForm3.ComboBox16 = str13
UserForm3.ComboBox22 = str11
UserForm3.ComboBox23 = str11
End With

chis3

代碼要有層次的縮進啊
善用with

ericyu779

chis3 发表于 2019-11-28 08:37
代碼要有層次的縮進啊
善用with

哈哈，我真的是菜鸟

ericyu779

microyip 发表于 2019-11-28 08:25
两段代码是一样的，唯一不同的地方，加个判断来修改即可

microyip老师，麻烦帮忙看看这个代码怎么写，我是想设置多个这个功能，万分感谢！

microyip

ericyu779 发表于 2019-11-28 14:16
microyip老师，麻烦帮忙看看这个代码怎么写，我是想设置多个这个功能，万分感谢！

你上个附件，大把高手会给你指导的

ericyu779

上传附件，说明在表格内，请大神赐教