请教，如何在宏工具中，在字段名前边加上A列B列C列这样列号

山风点伙

大约意思是，做比对的工具，原来显示为“1.字段名1,2.字段名2 。。。。",现在想修改为显示”A.字段名1,B.字段名2 。。。。“或者”1.(A)字段名1,2.(B)字段名2 。。。。",就是在字段名前加个字母列名，方便两张表比对，源代码见附件


EXCEL匹配.zip (110.13 KB, 下载次数: 16)

2023-12-5 11:35 上传

点击文件名下载附件

半百

但是这样改后，其它代码又会出现错误，故其它代码也要作相应改动。

山风点伙

半百 发表于 2023-12-5 13:34
但是这样改后，其它代码又会出现错误，故其它代码也要作相应改动。

感谢回复，感谢回复，除了这四处选项栏，其它什么地方要改呢？有什么影响？

我用了笨法子，解决了冲突问题


                   Me.Controls("Col3").AddItem n & "." & "[" & Chr(n + 64) & "]" & TargetSheet.Cells(1, n)
                            Me.Controls("Col4").AddItem n & "." & "[" & Chr(n + 64) & "]" & TargetSheet.Cells(1, n)

山风点伙

感1感1感1感1感1感1感1感1感1感1
感1感1

山风点伙

感1感1感1感1感1感1感1感1感1感1
感1感1感1感1感1感1感1感1感1感1感1感1
感1感1

山风点伙

Me.Controls("Col3").AddItem n & "." & "[" & Chr(n + 64) & "]" & TargetSheet.Cells(1, n)
                            Me.Controls("Col4").AddItem n & "." & "[" & Chr(n + 64) & "]" & TargetSheet.Cells(1, n)

我用了个笨法了，不报错了

半百

山风点伙

半百 发表于 2023-12-6 10:42

高手，感谢

我用笨方法解决的