Excel VBA 跨 Subs 的增量范围为 1

Question

由于我对最后一个问题不太清楚。我是新手，在如何实施任何答案方面需要一些指导。

我目前有以下代码分布在不同的按钮上，因此分布在不同的 Subs 上。为了清楚起见，我将需要从代码中递增 1 的范围分开，并将每次按下按钮时我需要递增 1 的值加粗。我很欣赏这打破了格式，我道歉。

点击“InsertNewBill”按钮后数量会增加：

Private Sub InsertNewBill_Click()
    'I AM USING i TO STORE THE CELL INCREMENT, IT CURRENTLY DOES NOTHING**
    Dim i As Integer

范围("A30:AC30").选择

range("AC30").Activate

    Selection.Copy
    Selection.Insert Shift:=xlDown
End Sub

Private Sub DeleteTickBoxes_Click()
    'Variables
    Dim c As CheckBox
    Dim CellRange As Range
    Dim cel As Range

设置 CellRange = ActiveSheet.Range("E7:F30")

    'Delete Checkboxes within the specified range above on the ActiveSheet Only
    For Each c In ActiveSheet.CheckBoxes
        If Not Intersect(c.TopLeftCell, CellRange) Is Nothing Then
            c.Delete
        End If
    Next    
    'Insert New Checkboxes and Assign to a specified link cell using the offset
    For Each cel In CellRange
        'you can adjust left, top, height, width to your needs
        Set c = ActiveSheet.CheckBoxes.Add(cel.Left, cel.Top, 30, 6)
        With c   'Clears the textbox so it has no text
            .Caption = ""
            'Offset works by offsetting (Row offset, Column Offset) and accepts
            'positive for down/right and negative for left/up,
            'keep in not that the linked cells will automatically populate with true/false
            .LinkedCell = cel.Offset(0, -4).Address
        End With
    Next
    Call CentreCheckbox_Click
End Sub

我需要所有加粗的值都加一。即从 F30 到 F31 和 A30:AC30 到 A31:AC31。 这个值也需要从 InsertNewBill_Click 子传递到 DeleteTickBoxes_Click 子。

我假设我需要删除 Private 子并且可能有一个公共整数变量？ 我只是不确定如何在每次单击按钮后仅将数字增加 1。

感谢您的所有帮助

Answer 1

您应该尝试停止使用Select 和Activate - 在这种情况下您可以只使用Copy 范围：

Range(cells(30,"A"),cells(30,"AC")).Copy

要添加 i 作为偏移量，您可以使用：

Range(cells(30+i,"A"),cells(30+i,"AC")).Copy

或者你可以使用：

Range(cells(30,"A"),cells(30,"AC")).Offset(i,0).Copy

要让 i 在工作簿中的其他 Subs 中工作，请将其声明为 Public。

除非您确定该值将保持在较低水平，否则我建议将其声明为 Long，而不是 Integer。

对于Set CellRange = ActiveSheet.Range("E7:F30") 设置，您可以使用：

Set CellRange = ActiveSheet.Range("E7:F" & 30 + i)

Answer 2

使用公共变量并将其连接到您的地址中。在工作簿打开事件中将值初始化为 30。

本工作簿：

Option Explicit
Public i As Long
Private Sub Workbook_Open()
    i = 30
End Sub

标准模块：

Option Explicit
Private Sub button2_Click()
    ThisWorkbook.i = ThisWorkbook.i + 1
    Debug.Print ActiveSheet.Range("E" & ThisWorkbook.i & ":F" & ThisWorkbook.i).Address
End Sub

Answer 3

对于那些感兴趣的人。这是我最终使用的 VBA，因为它符合我的目的。

Sub InsertNewBill_Click()
Dim rngCopy As range
Dim rngPaste As range
Dim clearCell As range

i = Cells(30, 1) + 1
    Cells(30, 1) = i

ActiveSheet.range("A" & i & ":AD" & i).Insert

Set rngPaste = range("A" & i & ":AD" & i)
Set rngCopy = ActiveSheet.range("A" & i - 1 & ":AD" & i - 1)

rngCopy.Copy
rngPaste.PasteSpecial Paste:=xlPasteAll

With ActiveWorkSheet
    Cells(i, 1).ClearContents
End With

Call DeleteTickBoxes_Click

End Sub

*

Private Sub DeleteTickBoxes_Click()

'Variables
Dim c As CheckBox
Dim CellRange As range
Dim cel As range

i = Cells(30, 1)

Set CellRange = ActiveSheet.range("F" & i & ":G" & i)

'Delete Checkboxes within the specified range above on the ActiveSheet Only
For Each c In ActiveSheet.CheckBoxes
If Not Intersect(c.TopLeftCell, CellRange) Is Nothing Then
c.Delete
End If

Next

'Insert New Checkboxes and Assign to a specified link cell using the offset
For Each cel In CellRange
    Set c = ActiveSheet.CheckBoxes.Add(cel.Left, cel.Top, 30, 6) 'you can adjust left, top, height, width to your needs
    With c
        'Clears the textbox so it has no text
        .Caption = ""

        'Offset works by offsetting (Row offset, Column Offset) and accepts positive for down/right and negative for left/up,
        'keep in not that the linked cells will automatically populate with true/false
        .LinkedCell = cel.Offset(0, -4).Address

    End With

Next
Call CentreCheckbox_Click

End Sub