
excel
vbSub CrosshAIr()Dim x As Integer, y As Integerx = Selection(1, 1)y = Selection(2, 1)With Range("A1:Z100").SetRange Analysis.DataBodyRangeCrosshAIrAt x, yEnd WithEnd Sub这个代码会在excel中显示出一个十字光标,并且光标会在A1:Z100区域内运动。你可以根据需要修改代码中的单元格范围来调整光标所显示的位置。如果想要在屏幕上显示一个固定位置的十字光标,可以使用以下代码:vbSub CrosshAIr()Dim x As Integer, y As Integerx = Selection(1, 1)y = Selection(2, 1)Screen.SetWindowLong Long(x, 0, x)Screen.SetWindowLong Long(x, 1, x)Screen.SetWindowLong Long(y, 0, y)Screen.SetWindowLong Long(y, 1, y)End Sub这个代码会在屏幕上显示一个固定位置的十字光标,并且光标会随着鼠标移动而移动。以上就是两个示例代码,希望对您有所帮助。如果您需要进一步的定制和调整,请告诉我。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号