下拉菜单光标跟随问题

laoye5403

自己编的自动横道图计划，我希望C列下拉菜单双击选择后，光标跟随在单元格值的后边，如图，光标跟随在55后边。

帮帮忙

quqiyuan

quqiyuan

代码如下。。。
'如果双击列表框的内容则写入活动单元格
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    arr = Range("b8:b" & a)
    For i = 1 To a - 7
        If arr(i, 1) = ListBox1.Text Then m = i + 7
    Next i
'    ActiveCell = Cells(m, 4)
    ActiveCell = "=d" & m
   
'    ActiveCell = ListBox1.Text
    With ListBox1
        .Clear '清空列表框
        .Visible = False
    End With
    With TextBox1
        .Value = ""
        .Visible = False
    End With
    Application.SendKeys "{F2}"
End Sub

laoye5403

目的是选择该单元格前面的某个工作的结束时间（显示为工作双击时填入的是结束时间）加（减）N天，作为该工作的开始时间。

laoye5403

quqiyuan 发表于 2024-9-28 11:24
代码如下。。。
'如果双击列表框的内容则写入活动单元格
Private Sub ListBox1_DblClick(ByVal Cancel As ...

感谢帮助，完全可以，谢谢！但是离开C列去其他地方编辑后，再回C列数字键盘不可用，要重新开启数字键盘。

quqiyuan

laoye5403 发表于 2024-9-28 11:44
感谢帮助，完全可以，谢谢！但是离开C列去其他地方编辑后，再回C列数字键盘不可用，要重新开启数字键盘。

我试了可以的啊。

laoye5403

quqiyuan 发表于 2024-9-28 12:01
我试了可以的啊。

感谢大神！
变成这样解决了
    Dim WshShell As Object
    Set WshShell = CreateObject("Wscript.Shell")
    WshShell.SendKeys "{F2}"
'    Application.SendKeys "{F2}"