☰

宏（按钮）用于修改光标所在的行

tag-icon • tag-icon microsoft-excel vba macros cursor
宏（按钮）用于修改光标所在的行

我希望能够在 Excel 工作表上有一个按钮，将光标放在工作表的任意行/列上，单击按钮，然后光标行/列定义的整行都会被修改（颜色填充，可能移动到另一个预定义的工作表）。

有人可以给我一些指点吗？

答案1

我设法在这个论坛和其他类似论坛的贡献的帮助下创建了此代码。由于我是 VBS 的初学者，因此此代码确实看起来很复杂，但它满足了我的需要。

我创建了 4 个工作表和 4 个按钮。每个工作表包含 3 个按钮。每个按钮都允许剪切和粘贴行，并为之前通过鼠标单击行中的任意单元格选择的行着色。这 3 个按钮指的是其他 3 个工作表。因此，线条可以在 4 个工作表之间移动，并会相应地着色。

Sub Button2_Click()
    Application.ScreenUpdating = False

    Dim strSheetName, strCellAddress As String
    strSheetName = ActiveSheet.Name
    strCellAddress = ActiveCell.Address(False, False)

    Rows(ActiveCell.Row).Cut
    Sheets("Active").Select
    Range("A4").Rows("1:1").Insert Shift:=xlDown
    Range("A4").Interior.Color = RGB(0, 255, 0)
    Application.CutCopyMode = False

    Range("A" & ActiveCell.Row).Select
    Sheets(strSheetName).Select
    Range(strCellAddress).Select

    Rows(ActiveCell.Row).Delete

    Application.ScreenUpdating = True
End Sub

答案2

您可以ActiveCell.Address在宏中使用，它返回当前选定的单元格或另一个属性的地址ActiveCell。

单击按钮时用红色填充整个活动单元格行的示例Button1：

Sub Button1_Click()

    ActiveCell.EntireRow.Interior.Color = RGB(255, 0, 0)

End Sub

相关内容