Question

我试图写一个宏观,在两点点点点点击时,用一些公式在囚室后面插入一个新行。对我来说,重要的是,如果我再次点击牢房,那么前面插入的线路的公式就会得到正确的指数的更新。

例如,在以下代码中,将双点击A1插入“公式=B2+1”一行。 2. 重复点击应插入一行。 2. 结论但现在第2行改为第3行,因此A3中的公式应为=B3+1。

这里是我迄今为止制定的法典:

Option Explicit

Const MYRANGE As String = "A:A"

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
     If Sh.Name <> "Sheet1" Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Sh.Range(MYRANGE)) Is Nothing Then Exit Sub
    Cancel = True
    Target.Rows(2).Insert
    Dim newRow As Range
    Set newRow = Target.Rows(2)
    Dim rowIndex As Long
    rowIndex = newRow.row
    newRow.Cells(1, 1).Formula = "=B" & rowIndex & "+1"
End Sub

UPDATE: Changing Target.Rows(2).Insert to Target.Offset(1).EntireRow.Insert 解决这个问题。提出问题,可以解释谁是谁是谁,它如何不同于罗(Ros(2)没有财产)。

Answer 1

您可以将这一法典削减四行,以取得相同结果。

请注意,你的法典正在更新你的目标行文和以下的囚室,因此它所赢得的只是更新一栏外的任何囚房配方。生活在你的目标之上。这个问题可能不是一个问题,值得一提。如果您希望得到全面更新,那么你总是会插入第二行而不是目标。

Option Explicit

Const MYRANGE As String = "A:A"

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Sh.Range(MYRANGE)) Is Nothing Then Exit Sub
    Cancel = True
    Target.Offset(1).EntireRow.Insert
    Target.Offset(1).Formula = "=B" & Target.Row + 1 & "+1"
End Sub

友情链接