当前位置: 首页 > news >正文

VBA进行excel坐标转换

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

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

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

Private Sub ComboBox1_Change()Quadrant = ComboBox1.Text
End Sub
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
Public Quadrant As String
Sub Macro1()Sheets("Map").SelectSheet3.Cells.SelectWith Selection.ClearContentsEnd WithWith Sheet1X_Max = .Cells(3, 3)Y_Max = .Cells(3, 5)End WithDim Map_bin(99, 99)GrossDie = 9999For i = 1 To GrossDieWith Sheet2t1 = .Cells(i + 1, 1)t2 = .Cells(i + 1, 2)t3 = .Cells(i + 1, 3)End WithMap_bin(t1, t2) = t3NextFor X = 1 To X_MaxFor Y = 1 To Y_MaxWith Sheet3Select 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 SelectEnd WithNextNext
'
End Sub

代码实现效果如下图。

4th象限坐标
4th象限图像
2nd象限坐标:
2nd象限图像
1st象限坐标:
1st象限图像

http://www.lryc.cn/news/431418.html

相关文章:

  • 使用pytorch深度学习框架搭建神经网络
  • Hive数据库与表操作全指南
  • UniaApp引入Iconfont
  • 面试题:软件测试缺陷产生的原因有哪些?
  • RabbitMQ 04 集群
  • axure9勾选多个删除,弹框显示多个中继器编号
  • Git 使用指南 --- 版本管理
  • C#进阶-ASP.NET实现可以缩放和旋转的图片预览页
  • 【小程序 - 大智慧】深入微信小程序的核心原理
  • Qt 去掉QDialog对话框的问号
  • 负载均衡 Ribbon 与 Fegin 远程调用原理
  • c/c++:CMakeLists.txt中添加编译/连接选项使用内存错误检测工具Address Sanitizer(ASan)
  • armbian cups 远程打印机 1022
  • three.js使用3DTilesRendererJS加载3d tiles数据
  • 坐牢第三十五天(c++)
  • Conda离线部署django
  • 1. Fabric.js安装使用
  • Excel中.xls和.xlsx文件格式的区别,及C++操作Excel文件
  • php实用命令
  • TypeError:未绑定方法
  • Java虚拟机(JVM)的架构和工作原理,字节码执行流程
  • 416.分割等和子集
  • python初始化一个三维数组
  • EI会议推荐-第二届大数据与数据挖掘国际会议(BDDM 2024)
  • RK3566/RK3568 Android 11 动态显示/隐藏下拉框
  • Android图片缓存工具类LruCache原理和使用介绍
  • 生活杂记1
  • go常用代码
  • 各种各样的正则表达式
  • WebRTC 基础