Currently viewing the tag: "Excel VBA"
做项目的时候，遇到这样的一个问题，需要在 Excel VBA 编程中动态的获取按钮所在 Cell 坐标。
感兴趣的朋友可以参考以下的代码：
‘计算Cmd所在的坐标
Function GetRC(ByVal Cmd As CommandButton)
Dim i, rX, cY As Integer
For i = 1 To 255
If Cells(1, i).Left < Cmd.Left And Cells(1, i + 1).Left > Cmd.Left Then
cY = i: Exit For
End If
Next
For i = 1 To 65535
If Cells(i, 1).Top < Cmd.Top And Cells(i + 1, 1).Top > Cmd.Top Then
rX = i: Exit For
End If
Next
GetRC = “Row:” & rX & “;Column:” & cY
End Function
最近在做项目的时候遇到了在 Excel VBA 代码中给 Sheet 中的单元格内输入公式的问题，自己 Google 了一下，发现 FormulaR1C1 这个函数，这个函数还是很强大的，自己简单了研究一下，为什么 Excel 能实现拖拽单元格时单元格中的公式能智能的根据位置而变换？答案就是这个函数。
这几天，我们 Team 又有一个新的流程上线，所以制作一个新版工作 Report 的 Excel 文档的任务又落到了我头上，以前利用 Excel VBA 写过很多类似的文档，所以这个任务的完成还算是轻车熟路，基本上把以前写的 Daily Report 文档拿过来修改一下就 OK 啦。
在代码的编写中，我想到了新的问题，因为我编写的文档需要大量的按钮控件，点击按钮Excel完成的动作大致相同，以前我只是把相同的问题，归类到一个 Sub 中去，然后再不同的按钮的Click函数中调用，其实这样做只是提高了代码的可修改性和重用性，学过设计模式的朋友应该了解，这样做的目的无非是如果按钮的响应动作发生变化，我只需要修改 Sub 中的代码即可，但是即便是这样，我还需要在制作新的 Excel 文档时手动生成大量的按钮Click事件响应函数，使用“海量”的”CTRL+V” 操作，于是懒惰的我开始思考有没有更简单的方法，最开始的时候我还比较享受使用“海量”的”CTRL+V” 操作，因为毕竟100个按钮，如果0.5秒操作一次的话，一分钟就搞定了，看来懒人的劳动是必须要量化的，呵呵。不过，实际问题是，在我的代码中每个 Click 事件的响应函数中需要动态获取按钮本身的Cell位置，也就是所以我需要修改100个的函数，这样的工作量太大了，所以我开始思考: Excel VBA中是否具有 Java 中的反射机制？
ClustrMaps
