Excel VBA开发：点击Button 2按J4指定单元格地址填充颜色

• 按下Alt + F11打开Excel VBA编辑器
• 定位到目标工作表的代码模块，插入以下宏代码：

Sub Button2_Click()
    Dim targetCell As Range
    Dim cellAddress As String
    
    ' 获取J4单元格内的地址文本
    cellAddress = ThisWorkbook.ActiveSheet.Range("J4").Value
    
    ' 尝试将文本转换为单元格引用
    On Error Resume Next
    Set targetCell = ThisWorkbook.ActiveSheet.Range(cellAddress)
    On Error GoTo 0
    
    ' 若引用有效则填充颜色，无效则提示
    If Not targetCell Is Nothing Then
        ' 这里用红色作为示例，可替换为你需要的颜色值（比如RGB(255,255,0)是黄色）
        targetCell.Interior.Color = RGB(255, 0, 0)
    Else
        MsgBox "J4中的地址无效，请检查输入！"
    End If
End Sub

• 返回Excel界面，右键点击Button2，选择「指定宏」，选中上述Button2_Click宏并确认。

这个代码会自动读取J4中的单元格地址文本，将其转换为实际的单元格引用，然后给目标单元格填充指定颜色。如果J4输入的地址格式错误，还会弹出提示框提醒你检查。

内容的提问来源于stack exchange，提问作者Sullivan2021