偶尔兴致来了，练习一些图表，记录一下

wb_1027

Sub test4()
On Error Resume Next
    Dim rng As Range
    Dim AddR As String
    If TypeName(Selection) = "Range" Then AddR = Selection.Address Else: AddR = ""
Rem ---- 声明一个对象变量；
Rem ---- 假设当前选择的对象是单元格，则将单元格地址赋予变量，否则将空文本赋予变量；
Rem ---- 弹出对话框，自由选择区域，对话框中默认显示变量 AddR 的值；若重新选择单元格区域，则该区域地址赋予 rng；
    Set rng = Application.InputBox("请选择区域进行格式设置！", "Love", AddR, , , , , 8)
    rng.NumberFormat = "0.00"
    MsgBox "您已为所选的" & rng.Cells.Count & "个单元格区域进行了格式设置。"
    rng.Select
End Sub

建立在已选择了工作表中任意单元区域，一或多个，
绕过出现对话框直接点击确定键。
偷懒啊！

493861364

wb_1027 发表于 2022-9-10 20:20
Sub test4()
On Error Resume Next
    Dim rng As Range

哈哈，费心了，谢谢老师，挺好玩儿的

493861364

继续练习图表

micch

这个图做好了，效果很不错，主要是比例和角度需要调整舒服了

wb_1027

雷达图

493861364

对得不太整齐，对付看吧

wb_1027

493861364 发表于 2022-9-20 21:49
对得不太整齐，对付看吧

要我就用CDR做了

493861364

wb_1027 发表于 2022-9-21 09:40
要我就用CDR做了

图形处理还有视频处理的软件，实在头晕，但感觉现在会的人越来越多，工具焦虑。。。。。。

morpheus126

493861364 发表于 2022-9-21 10:38
图形处理还有视频处理的软件，实在头晕，但感觉现在会的人越来越多，工具焦虑。。。。。。

还好吧，您能看到的，估计都是课程营销号专门二开出来的东西，看着很漂亮，实际很难套用
作为个人而言，其实您能用好自己趁手的工具，有钻研精神就可以了

wb_1027

493861364 发表于 2022-9-21 10:38
图形处理还有视频处理的软件，实在头晕，但感觉现在会的人越来越多，工具焦虑。。。。。。

我们平时还要PS，作假文件......