借助Excel单元格和图形很容易设计出一个美观的用户界面。
下图就是Excel中设计出来的。
选定单元格，设置格线，设置背景颜色，就画出界面。
图中有两个命令按钮，一个红色的是打开所在单元格的文件，一个绿色的，是查找内容。
这两个命令按钮会随着鼠标选定的单元格移动位置。
实现的方法是在工作表的【工作表事件】selectionchange中判断单元格的坐标位置，然后把命令按钮的left和top属性指定为这个单元格坐标值，改事件就触发移动效果。
上面代码限定了移动按钮的移动范围是第5行到第25行，超出这个范围则默认落在5行3列的位置。
win是事件响应，有事件发生就有响应，所以，用户鼠标点击了单元格这个事件发生了，就响应了移动效果。
本文这个程序是供某单位采集投资业务数据使用的，实现了数据批量采集和自动填报功能，功能很强大。
REM 命令按钮移动代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
ARow = .Row
If ARow > 4 And ARow < 26 Then
Set aC = Cells(ARow, 10)
With CmdOpen ‘命令按钮名称
.Left = aC.Left
.Top = aC.Top
.Height = aC.Height
End With
With CmdGetVal ‘命令按钮名称
.Left = CmdOpen.Left + CmdOpen.Width
.Top = aC.Top
.Height = aC.Height
End With
Else
If ARow > 26 Then
Cells(5, 3).Select
End If
End If
End With
End Sub
vba是利器，是六脉神！
总有人看不起vba，殊不知vba的强大和效率之高足以笑傲江湖。
