如何用excel编辑一个，VBA程序，获取电脑桌面上的坐标点，显示在单元格中

如何用excel编辑一个，VBA程序，获取电脑桌面上的坐标点，显示在单元格中X轴显示在一个单元格，Y轴显示在一个单元格

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim p As POINTAPI
Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
GetCursorPos p
Text1.Text = p.x
Text2.Text = p.y
End Sub

楼主：你好，对于你这个问题有个前提条件： 如果你的excel版本是2003版，那么你只能用系统预设的56色。用vba代码实现的其他填充色会被转换为和这56色最接近的一种。 如果你的excel版本是2007及以上，那么单元格填充色几乎不受限制，你完全可以通过单元格填充的命令实现自定义颜色填充，支持rgb、hsl两种模式，无需借助vba。 如果使用vba,代码如下: sub test() '将a1单元格填充为红色,rgb(红，绿，蓝) ,红、绿、蓝取值在0~255，可设置不同值获得不同颜色。 range("a1").interior.color = rgb(255, 0, 0) '填充为红色 '如果想去掉填充色，用这句 range("a1").interior.pattern = xlnoeend sub