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

yy6831817

提议：当找开MQ编辑器后，鼠标点中那行时，编辑器内的内容要跟随显示当前鼠标所在单元格的计算式内容

mythqiu

yy6831817 发表于 2023-6-2 17:47
提议：当找开MQ编辑器后，鼠标点中那行时，编辑器内的内容要跟随显示当前鼠标所在单元格的计算式内容

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

yy6831817

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

mythqiu

yy6831817 发表于 2023-6-3 10:07
1、这样修改 计算式方便点，2、在打开编辑器时，如果鼠标点（不知道情况下）到另外单元格时，再按下确定键 ...

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

mythqiu

yy6831817 发表于 2023-6-3 10:07
1、这样修改 计算式方便点，2、在打开编辑器时，如果鼠标点（不知道情况下）到另外单元格时，再按下确定键 ...

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

yy6831817

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
这代码错在哪？单击单元格无法触发？

yy6831817

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
这代码错在哪？无法触发？

495153973

厉害，只是现手算的真的少了

mythqiu

yy6831817 发表于 2023-6-5 11:27
Private Sub Worksheet_BeforeClick(ByVal Target As Range, Cancel As Boolean)
    If TextBox1.Visib ...

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

yy6831817

mythqiu 发表于 2023-6-16 00:01
你前面要有窗体名称。
比如 editmq.TextBox1

老师，如何修改？