VBA举行excel坐标转换

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

使用坐标绘图即将横纵坐标对应excel的行和列，将数值写入单元格中，从而形成带行列的map,具体做法已经在VBA应用实战案例（5）内里论述过，本案例的重点是使用特定公式转换坐标的方法来转换数值在excel中的位置，从而实现图像变更的目的。
具体实现代码如下，值得注意的是，案例中定义的象限和数学中的象限并不一样，只是便于表达而已，可以根据需要修改成其他描述。

1. Private Sub ComboBox1_Change()
2.     Quadrant = ComboBox1.Text
3. End Sub

复制代码

1. Private Sub Workbook_Open()
2. Sheet1.ComboBox1.Clear
3. Sheet1.ComboBox1.AddItem "1st"
4. Sheet1.ComboBox1.AddItem "2nd"
5. Sheet1.ComboBox1.AddItem "4th"
7. Sheet1.ComboBox1.Text = "1st"
8. Quadrant = "1st"
9. End Sub

复制代码

1. Public Quadrant As String
2. Sub Macro1()
4.     Sheets("Map").Select
5.     Sheet3.Cells.Select
6.     With Selection
7.         .ClearContents
8.     End With
9.    
10.     With Sheet1
11.         X_Max = .Cells(3, 3)
12.         Y_Max = .Cells(3, 5)
13.     End With
14.    
15.     Dim Map_bin(99, 99)
16.     GrossDie = 9999
17.    
18.     For i = 1 To GrossDie
19.         With Sheet2
20.             t1 = .Cells(i + 1, 1)
21.             t2 = .Cells(i + 1, 2)
22.             t3 = .Cells(i + 1, 3)
23.         End With
24.         Map_bin(t1, t2) = t3
25.     Next
26.    
27.     For X = 1 To X_Max
28.         For Y = 1 To Y_Max
29.         With Sheet3
30.         Select Case (Quadrant)
31.             Case "4th"
32.                 .Cells(1, X + 1) = X - 1
33.                 .Cells(Y + 1, 1) = Y - 1
34.                 .Cells(Y + 1, X + 1) = Map_bin(X - 1, Y - 1)
35.                
36.             Case "2nd"
37.                 .Cells(Y_Max + 1, X) = X_Max - X
38.                 .Cells(Y, X_Max + 1) = Y_Max - Y
39.                 .Cells(Y_Max - Y + 1, X_Max - X + 1) = Map_bin(X - 1, Y - 1)
40.                
41.             Case "1st"
42.                 .Cells(Y_Max + 1, X + 1) = X - 1
43.                 .Cells(Y, 1) = Y_Max - Y
44.                 .Cells(Y_Max - Y + 1, X + 1) = Map_bin(X - 1, Y - 1)
45.             End Select
47.         End With
48.         Next
49.     Next
50. '
51. End Sub

复制代码

代码实现结果如下图。
4th象限坐标

2nd象限坐标：

1st象限坐标：

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。