VBA进行excel坐标转换

在Excel里利用坐标绘图时,可以比较容易想到采用数据透视表,但是数据透视表生成的图不可更改,因此本案例采用VBA进行坐标变换而不改变原始值来转换图像,即实现图像的左右翻转和上下翻转,如下图所示,选择map的坐标象限后点击"start"即可实现图像的翻转方向。

利用坐标画图即将横纵坐标对应excel的行和列,将数值写入单元格中,从而形成带行列的map,具体做法已经在VBA应用实战案例(5)里面阐述过,本案例的重点是利用特定公式转换坐标的方法来转换数值在excel中的位置,从而实现图像变换的目的。

具体实现代码如下,值得注意的是,案例中定义的象限和数学中的象限并不一样,只是便于表达而已,可以根据需要修改成其他描述。

vbnet 复制代码
Private Sub ComboBox1_Change()
    Quadrant = ComboBox1.Text
End Sub
vbnet 复制代码
Private Sub Workbook_Open()
Sheet1.ComboBox1.Clear
Sheet1.ComboBox1.AddItem "1st"
Sheet1.ComboBox1.AddItem "2nd"
Sheet1.ComboBox1.AddItem "4th"

Sheet1.ComboBox1.Text = "1st"
Quadrant = "1st"
End Sub
vbnet 复制代码
Public Quadrant As String
Sub Macro1()

    Sheets("Map").Select
    Sheet3.Cells.Select
    With Selection
        .ClearContents
    End With
    
    With Sheet1
        X_Max = .Cells(3, 3)
        Y_Max = .Cells(3, 5)
    End With
    
    Dim Map_bin(99, 99)
    GrossDie = 9999
    
    For i = 1 To GrossDie
        With Sheet2
            t1 = .Cells(i + 1, 1)
            t2 = .Cells(i + 1, 2)
            t3 = .Cells(i + 1, 3)
        End With
        Map_bin(t1, t2) = t3
    Next
    
    For X = 1 To X_Max
        For Y = 1 To Y_Max
        With Sheet3
        Select Case (Quadrant)
            Case "4th"
                .Cells(1, X + 1) = X - 1
                .Cells(Y + 1, 1) = Y - 1
                .Cells(Y + 1, X + 1) = Map_bin(X - 1, Y - 1)
                
            Case "2nd"
                .Cells(Y_Max + 1, X) = X_Max - X
                .Cells(Y, X_Max + 1) = Y_Max - Y
                .Cells(Y_Max - Y + 1, X_Max - X + 1) = Map_bin(X - 1, Y - 1)
                
            Case "1st"
                .Cells(Y_Max + 1, X + 1) = X - 1
                .Cells(Y, 1) = Y_Max - Y
                .Cells(Y_Max - Y + 1, X + 1) = Map_bin(X - 1, Y - 1)
            End Select

        End With
        Next
    Next
'
End Sub

代码实现效果如下图。

4th象限坐标

2nd象限坐标:

1st象限坐标:

相关推荐
地平线开发者17 分钟前
CPU& 内存加压工具 stress-ng 介绍
算法·自动驾驶
XY.散人20 分钟前
初识算法 · 分治(2)
算法
DanielYQ20 分钟前
LCR 001 两数相除
开发语言·python·算法
冉佳驹27 分钟前
数据结构 ——— 希尔排序算法的实现
c语言·数据结构·算法·排序算法·希尔排序
St_Ludwig42 分钟前
C语言 蓝桥杯某例题解决方案(查找完数)
c语言·c++·后端·算法·游戏·蓝桥杯
是糖不是唐44 分钟前
代码随想录算法训练营第五十三天|Day53 图论
c语言·数据结构·算法·图论
施努卡机器视觉1 小时前
电解车间铜业机器人剥片技术是现代铜冶炼过程中自动化和智能化的重要体现
运维·机器人·自动化
sweetheart7-71 小时前
LeetCode20. 有效的括号(2024冬季每日一题 11)
c++·算法·力扣··括号匹配
徐浪老师1 小时前
深入实践 Shell 脚本编程:高效自动化操作指南
运维·chrome·自动化
King's King1 小时前
自动化立体仓库:详解
运维·自动化