VBA - 使用Excel中已选择的颜色来填充单元格内部

使用VBA编程语言可以在Excel中自动填充单元格的背景颜色。这对于需要根据特定条件或者用户选择的颜色来填充单元格的情况非常有用。下面将介绍如何使用VBA代码来实现这一功能，并提供一个案例代码来帮助大家更好地理解。

vba
Sub FillCellsWithSelectedColor()
    Dim selectedColor As Long
    Dim targetRange As Range
    
    ' 获取用户选择的颜色
    selectedColor = Application.Dialogs(xlDialogFormatCells).Interior.Color
    
    ' 检查用户是否选中了单元格
    If TypeName(Selection) = "Range" Then
        Set targetRange = Selection
        targetRange.Interior.Color = selectedColor
        MsgBox "已将选定单元格的背景颜色设置为所选颜色。"
    Else
        MsgBox "请先选择要填充颜色的单元格。"
    End If
End Sub

vba
Sub FillCellsWithColorBySalesAmount()
    Dim salesRange As Range
    Dim cell As Range
    
    ' 获取销售额所在的列
    Set salesRange = Range("B2:B10")
    
    ' 遍历每一个单元格，并根据销售额的大小来填充背景颜色
    For Each cell In salesRange
        If cell.Value > 5000 Then
            cell.Interior.Color = RGB(255, 0, 0) ' 红色
        ElseIf cell.Value > 3000 Then
            cell.Interior.Color = RGB(255, 255, 0) ' 黄色
        Else
            cell.Interior.Color = RGB(0, 255, 0) ' 绿色
        End If
    Next cell
End Sub