ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 378|回复: 6

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-1-25 11:30 | 显示全部楼层 |阅读模式
本帖最后由 up360 于 2020-1-25 11:33 编辑

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




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

TA的精华主题

TA的得分主题

发表于 2020-1-25 12:45 | 显示全部楼层
  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
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-25 13:55 | 显示全部楼层
本帖最后由 up360 于 2020-1-25 19:19 编辑

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-25 16:07 | 显示全部楼层
本帖最后由 up360 于 2020-1-25 19:35 编辑

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-26 07:54 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-1-26 09:19 来自手机 | 显示全部楼层
up360 发表于 2020-1-26 07:54
顶上去,帮忙啊!!

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-26 11:37 来自手机 | 显示全部楼层
蓝桥玄霜 发表于 2020-1-25 12:45


蓝老师,我这个问题能解决吗?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-4-5 14:01 , Processed in 0.071695 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表