ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: mythqiu

MQ Cal工程通用算量计算式V1.2.6.4(MQCal算量)增加选项卡菜单

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2023-6-2 17:47 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
提议:当找开MQ编辑器后,鼠标点中那行时,编辑器内的内容要跟随显示当前鼠标所在单元格的计算式内容

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-2 18:11 来自手机 | 显示全部楼层
yy6831817 发表于 2023-6-2 17:47
提议:当找开MQ编辑器后,鼠标点中那行时,编辑器内的内容要跟随显示当前鼠标所在单元格的计算式内容

如果是选中行就变。多计算式显示那个计算式列的内容。
………
如果是选中计算式,编辑器窗口内容着变,你的使用场景是怎样的?也就是说你为什么需要这种形式?

TA的精华主题

TA的得分主题

发表于 2023-6-3 10:07 | 显示全部楼层
本帖最后由 yy6831817 于 2023-6-3 16:07 编辑

1、这样修改 计算式方便点,2、在打开编辑器时,如果鼠标点(不知道情况下)到另外单元格时,再按下确定键,就会填错单元格内容了

计算式v1.2.8[改].rar

294.44 KB, 下载次数: 16

用GPT改的,上面问题搞不定了

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-4 14:01 来自手机 | 显示全部楼层
yy6831817 发表于 2023-6-3 10:07
1、这样修改 计算式方便点,2、在打开编辑器时,如果鼠标点(不知道情况下)到另外单元格时,再按下确定键 ...

你说得问题不会有。数据只会写入读取的数据单元格。不会但其他单元格。

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-4 14:02 来自手机 | 显示全部楼层
yy6831817 发表于 2023-6-3 10:07
1、这样修改 计算式方便点,2、在打开编辑器时,如果鼠标点(不知道情况下)到另外单元格时,再按下确定键 ...

你这个例子我到时候在电脑看下

TA的精华主题

TA的得分主题

发表于 2023-6-5 11:24 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
Private Sub Worksheet_BeforeClick(ByVal Target As Range, Cancel As Boolean)
    If TextBox1.Visible Then '判断TextBox1窗口是否打开
        If Target.Cells.Count = 1 Then '判断是否选择了单个单元格
            TextBox1.Text = Target.Value '将所选单元格的值显示在TextBox1窗口中
        End If
    End If
End Sub
这代码错在哪?单击单元格无法触发?

TA的精华主题

TA的得分主题

发表于 2023-6-5 11:27 | 显示全部楼层
mythqiu 发表于 2023-6-4 14:02
你这个例子我到时候在电脑看下

Private Sub Worksheet_BeforeClick(ByVal Target As Range, Cancel As Boolean)
    If TextBox1.Visible Then '判断TextBox1窗口是否打开
        If Target.Cells.Count = 1 Then '判断是否选择了单个单元格
            TextBox1.Text = Target.Value '将所选单元格的值显示在TextBox1窗口中
        End If
    End If
End Sub
这代码错在哪?无法触发?

TA的精华主题

TA的得分主题

发表于 2023-6-9 17:16 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-16 00:01 来自手机 | 显示全部楼层
yy6831817 发表于 2023-6-5 11:27
Private Sub Worksheet_BeforeClick(ByVal Target As Range, Cancel As Boolean)
    If TextBox1.Visib ...

你前面要有窗体名称。
比如 editmq.TextBox1

TA的精华主题

TA的得分主题

发表于 2023-6-17 10:14 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

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

GMT+8, 2024-4-13 08:31 , Processed in 0.042188 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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