求助：如何在excel表中插入中国地图，做统计？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题，想要统计数据，显示在中国地图上

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：Excel表 EXCEL 中国地图 xcel exce 中国地图 excel 如何

我也想知道

你这个问题也太笼统了，你想显示成什么样子

酱油

同求~~~~~~~~~~

这个可以去excelhome论坛里去问

'@数据化分析 http://weibo.com/data2analysis
'博客:http://blog.sina.com.cn/data2analysis
'日期:2012-06-05

Sub auto_add_macro()
    '新建一个模型时手动运行，一次性添加宏
    For i = 1 To ActiveSheet.Shapes.Count
        '5表示对象类型是地图版块
        If ActiveSheet.Shapes(i).Type = 5 Then
            ActiveSheet.Shapes(i).OnAction = "'thisworkbook.click(""" & ActiveSheet.Shapes(i).Name & """)'"
        End If
    Next
End Sub
Sub click(region_name)
    '1、取A1单元格值，将上次选择的地图版块填充黄色边缘，即还原边缘色
     ActiveSheet.Shapes(Range("A1").Value).Line.ForeColor.RGB = RGB(134, 142, 146)
   
    '2、将当前选择的地图版块名称填值到A1
    Range("A1").Value = region_name
     
    '3、将当前选择的地图版块填充红色边缘, 并置顶
    ActiveSheet.Shapes(region_name).Line.ForeColor.RGB = RGB(255, 0, 0)
    ActiveSheet.Shapes(region_name).ZOrder msoBringToFront
End Sub

Sub fill_color()
    '1、取A1单元格值，将上次选择的地图版块填充黄色边缘，即还原边缘色
     ActiveSheet.Shapes(Range("A1").Value).Line.ForeColor.RGB = RGB(134, 142, 146)
     
    '2、将当前选择的地图版块名称填值到A1
    Range("A1").Value = "zhongguo"

    '3、将当前选择的地图版块填充红色边缘
    ActiveSheet.Shapes(Range("A1").Value).Line.ForeColor.RGB = RGB(255, 0, 0)
   
    Application.ScreenUpdating = False '暂停刷新屏幕
   
    For i = 4 To 34  '为数据源的起始和结束行号
        
        ActiveSheet.Shapes(Range("区域销售分析!AC" & i).Value).Fill.ForeColor.RGB = Range(Range("区域销售分析!AD" & i).Value).Interior.Color
        '对各省的图形使用其颜色栏的值作为名称所指向的单元格的颜色填充
    Next i
   
    Application.ScreenUpdating = True '恢复刷新屏幕
End Sub


Sub init()
   
    Application.ScreenUpdating = False '暂停刷新屏幕
   
    For i = 4 To 34  '为数据源的起始和结束行号
        
        ActiveSheet.Shapes(Range("区域销售分析!AC" & i).Value).Fill.ForeColor.RGB = Range(Range("区域销售分析!U7").Value).Interior.Color
        ActiveSheet.Shapes(Range("区域销售分析!AC" & i).Value).Line.ForeColor.RGB = RGB(134, 142, 146)
        ActiveSheet.Shapes("zhongguo").Line.ForeColor.RGB = RGB(134, 142, 146)
        
    Next i
   
    Application.ScreenUpdating = True '恢复刷新屏幕
End Sub

好详细，多谢分享

1、在excel表中可以插入中国地图，做统计。点击插入，选择“三维地图”，插入后打开，根据需要进行编辑统计图表。
2、具体操作如下所示。
1点击“插入”
2插入“三维地图”
3选择中国地图进行统计图表制作