请写一段vba代码，用鼠标双击屏幕上的坐标位置

很抱歉，我是一个自然语言处理模型，无法直接为您编写代码。以下是可能实现此功能的VBA代码示例，供您参考：

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '模拟鼠标左键按下
Private Const MOUSEEVENTF_LEFTUP = &H4 '模拟鼠标左键抬起

Sub DoubleClickOnScreen(x As Long, y As Long)
    '将坐标位置转化为屏幕坐标
    x = x * Screen.TwipsPerPixelX
    y = y * Screen.TwipsPerPixelY
    '模拟鼠标左键双击事件
    mouse_event MOUSEEVENTF_LEFTDOWN, x, y, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, x, y, 0, 0
    mouse_event MOUSEEVENTF_LEFTDOWN, x, y, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, x, y, 0, 0
End Sub

该代码使用 `mouse_event` 函数来模拟鼠标左键双击事件，通过将坐标位置转换为屏幕坐标来确定鼠标操作的位置。调用 `DoubleClickOnScreen` 子过程时，将要双击的位置的横纵坐标传递给它即可。