求教一个与鼠标点击有关的vba代码

up360

       首先祝大家新年快乐，反正因疫情在家也不让出门，求一个vba代码，自己研究几天了，实现不了。
       我想实现这样的功能:点击任意一列，在某个单元格出现它的列号。比如点A列任意单元格，E5（可以是其它某个空闲单元格）单元格出现字母A，再点B列任意单元格，E5单元格出现字母AB，再点C列任意单元格，E5单元格出现字母ABC，我只要点11次（也就是11个不确定的列的列号）。问题不涉及数据，我就不传附件了。
       再次祝新年快乐。




补充：我自定义了一个工具栏，要放到EXCEL自定义工具栏，所以做成函数。

蓝桥玄霜

1. Thisworkbook里面的代码：
   
2. Private Sub Workbook_Open()
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Sheet1.[e5] = ""
   
5. End Sub
   
6. 模块里面代码：
   
7. Public d, n%
   

复制代码

1. 工作表代码：
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. Dim dz$, zm$
   
4. If n < 12 Then
   
5.     dz = Target.Address
   
6.     zm = Split(dz, "$")(1)
   
7.     If Not d.exists(zm) Then
   
8.         n = n + 1: d(zm) = n
   
9.         [e5] = [e5] & zm
   
10.     End If
    
11. End If
    
12. End Sub
    

复制代码

up360

蓝桥玄霜 发表于 2020-1-25 12:45

谢谢蓝老师指导，你给的这个代码 是不是我每次要复制某个工作薄前都要把那个代码先复制到那个工作薄中才能用，我想做个自定义按钮，能对任意工作薄显示列号，能实现吗？（因为各组织单位传过来的数据，我们需要的数据所在的列号不确定，我想做个工具，鼠标点击所要的列，在一个单元格会出现这些列号（字母），我有了这些序号字母，就可以用我另外一个函数（上图中它前面的按钮）对它们进行复制。）

up360

蓝桥玄霜 发表于 2020-1-25 12:45

谢谢蓝老师，因为各组织单位发过来的数据中，我想要的数据所在的列是不一样的，我主要是想做个自定义的工具，他们只要给我一个工作薄，我点击我想要的数据所在的列，在E5中就能显示出列号，然后我用这些列号的组合（比如ABCDEEFF），再用我的另一个函数（上图中它前面的按钮），就可以对这些数据进行复制。你给的这个代码是不是在每次使用前必须先粘贴到我要复制的那个工作薄中的工作表中，要是有多个工作表呢，能不能做一个通用的？

up360

顶上去，帮忙啊！！

zpy2

up360 发表于 2020-1-26 07:54
顶上去，帮忙啊！！

这个可能需要了解一下 类，加载项

up360

蓝桥玄霜 发表于 2020-1-25 12:45

蓝老师，我这个问题能解决吗？