meimei2022@ 2022-06-06 09:24 采纳率: 50%
浏览 55
已结题

EXCEL中VBA编写数据地图,颜色显示问题

VBA制作数据地图,调试运行没有报错,点击相关按钮,没有颜色显示。

Option Explicit

img

Sub fill_color()
Dim i%, c As Long
For i = 2 To 35 '位数据源的起始行和结束行行号,根据区域的多少来确定
Select Case Cells(i, 33)
Case Is >= Range("AK12")
c = Range("AJ12").Interior.Color
Case Range("AK13") To Range("AK12")
c = Range("AJ13").Interior.Color
Case Range("AK14") To Range("AK13")
c = Range("AJ14").Interior.Color
Case Range("AK15") To Range("AK14")
c = Range("AJ15").Interior.Color
Case Else
c = Range("AJ16").Interior.Color
End Select
'Sheet1.Shapes("图形2").Activate
ActiveSheet.Shapes(Cells(i, 32)).Fill.ForeColor.RGB = c
Next
End Sub

img

img

  • 写回答

3条回答 默认 最新

  • soar3033 2022-06-07 15:40
    关注

    通过vba可以实现

    img

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论 编辑记录
    1人已打赏
查看更多回答(2条)

报告相同问题?

问题事件

  • 系统已结题 6月15日
  • 已采纳回答 6月7日
  • 创建了问题 6月6日