0

谷歌并没有给我我想要的东西，我想也许 SO 可能有答案。

我没有使用输入框或用户提示来询问用户将存储在单元格中的信息，而是寻找一些代码来模拟在编辑栏中单击。我目前正在使用带有“F2”的 sendkeys 方法来允许用户在选定的单元格中输入信息。查看公式栏会容易得多，而不是数据海洋中的单个单元格。

Sub CopyTemplate()

'ActiveWorkbook.Save
Worksheets("HR-Cal").Activate
Dim rng As Range
Dim trng As Range
Dim tco As String
'Use the InputBox select row to insert copied cells
Set rng = Application.InputBox("select row to paste into", "Insert template location", Default:=ActiveCell.Address, Type:=8)
If rep = vbCancel Then
End If

startrow = rng.Row
'  MsgBox "row =" & startrow
Range("AG2") = startrow

Application.ScreenUpdating = False

'copy template block
Range("C6").End(xlDown).Select
Range("AG1") = ActiveCell.Row

tco = "A5:AN" & Range("AG1")
Range(tco).Select
Selection.Copy

Range("A" & Range("AG2")).Activate
Selection.Insert Shift:=xlDown

Range("c100000").End(xlUp).Select
Selection.End(xlUp).Select
'select first value

Range("AG1:AG2").ClearContents

Application.ScreenUpdating = True

SendKeys "{F2}"
SendKeys "{BS}"

End Sub

当代码运行时，这就是用户所看到的（col 2 col 2621）在此处输入图像描述

4

2 回答 2

3

我不相信有一个按键可以“激活”公式栏。可能有一种方法可以处理多个按键事件，例如<alt><tab><tab>...~nine years later and a couple of other keys~...<tab><tab>

更快更直接的方法是关闭“EditDirectlyInCell”设置：

Application.EditDirectlyInCell = False

当您发送键时，这会将光标带到公式栏F2

Workbook_Open()您可以在工作簿的代码中关闭此功能：

Private Sub Workbook_Open()
    Application.EditDirectlyInCell = False
End Sub

也许Workbook_BeforeClose()您可以重新打开该设置，这样您就不会更改它们的默认值：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.EditDirectlyInCell = True
End Sub
于 2015-10-20T19:42:14.030 回答
1

也许这会有所帮助，我在进入单元格编辑之前将Application.EditDirectlyInCell设置为 false，然后在将 EditDirectlyInCell 返回为 true 之前调用DoEvents

Sub EditRange(ByVal Target As Range)          'so any change in target would not affect
                                              'the caller's variable

    Set Target = Target.Areas(1).Resize(1, 1) 'to make sure the target is single cell

    Target.Worksheet.Activate                 'to make sure the worksheet is active

    Target.Activate                           'activate the designated cell

    Application.EditDirectlyInCell = False    'turn cell editing to false, any attempt _
                                               to edit cell will be done in formula bar

    SendKeys "{F2}"                           'send F2 to start editing the cell

    DoEvents                                  'make sure every command is fully executed

    Application.EditDirectlyInCell = True     'return in cell editing to default value
End Sub
于 2020-06-29T06:58:30.097 回答