及excel各類圖表制作教程-資料下載頁
2025-05-12 18:07本頁面
【正文】 cel） 4000600080008000 10000 12022 14000 16000 18000 20220按 Alt+F11 啟動 Visual Basic 編輯器。在插入菜單上，單擊模塊。在模塊工作表中鍵入代碼 按 Alt+Q 返回 Microsoft Excel。 圖表制作 散點圖制作（ Excel） 黑河大興安嶺綏化鶴崗七臺河伊春雙鴨山雞西大慶佳木斯牡丹江齊齊哈爾哈爾濱4000600080008000 10000 12022 14000 16000 18000 20220城鎮(zhèn)居民人均收入農(nóng)村居民人均收入圖表制作 — 氣泡圖制作（ Excel） 注意 :做氣泡圖時 ,與散點圖一樣 ,剛開始的數(shù)據(jù)選擇區(qū)域只選擇數(shù)據(jù) ,左邊的名稱以及上邊的指標名不要選 ! 1\只選表中涂綠色區(qū)域即可 . 2\選擇氣泡圖 ,然后一直點擊下一步 ,直到完成即可 . 吉林長春延吉四平通化白城遼源松原白山50%60%70%80%90%100%6500 7500 8500 9500 10500 115003\利用前面交的方法 ,進行改坐標值 ,以及調(diào)整橫縱坐標的交叉點 .對圖表進行美化等工作 .最后就差在每個氣泡邊加上地址名稱了 .這與散點圖一樣 ,通過一個程序來完成 .請參考第 26頁的步驟 .程序已經(jīng)附在 PPT的最后 . 謝 謝 附：散點圖或氣泡圖中的數(shù)據(jù)點添加標簽的代碼 Sub AttachLabelsToPoints() 39。Dimension variables. Dim Counter As Integer, ChartName As String, xVals As String 39。 Disable screen updating while the subroutine is run. = False 39。Store the formula for the first series in xVals. xVals = (1).Formula 39。Extract the range for the data from xVals. xVals = Mid(xVals, InStr(InStr(xVals, ,), xVals, _ Mid(Left(xVals, InStr(xVals, !) 1), 9))) xVals = Left(xVals, InStr(InStr(xVals, !), xVals, ,) 1) Do While Left(xVals, 1) = , xVals = Mid(xVals, 2) Loop 39。Attach a label to each data point in the chart. For Counter = 1 To Range(xVals). (1).Points(Counter).HasDataLabel = _ True (1).Points(Counter). = _ Range(xVals).Cells(Counter, 1).Offset(0, 1).Value Next Counter End Sub
試題試卷相關(guān)推薦
鄂ICP備17016276號-1