我有30个电影片段，如送货，送货......送货29。
每个交付框包含一个项目文本字段，表格文本字段和数量文本字段我在舞台上有77个不同的项目按钮。每当单击一个按钮时，该项目名称将转到传递影片剪辑的项目文本框。
单击影片剪辑传递...传递29时，该剪辑将被删除，然后传递的#If VBA7 Then
Public Declare PtrSafe Function MessageBoxU Lib "user32" Alias "MessageBoxW" _
(ByVal hwnd As LongPtr, _
ByVal lpText As LongPtr, _
ByVal lpCaption As LongPtr, _
ByVal wType As Long) As Long
#Else
Public Declare Function MessageBoxU Lib "user32" Alias "MessageBoxW" _
(ByVal hwnd As Long, _
ByVal lpText As Long, _
ByVal lpCaption As Long, _
ByVal wType As Long) As Long
#End If
Sub DisplayNamaste()
Dim Info As String
Info = Range("A1").Value
MessageBoxU 0, StrPtr(Info), StrPtr("Here's the message"), 0
End Sub
和x位置必须与其下方的影片剪辑交换。
每个影片剪辑的高度为16.00，每个影片剪辑中有3个像素的间隙用于命中测试，因此影片剪辑不得过度重叠。
如何以适当的方式交换影片剪辑，就像有10个影片剪辑命名为1到10.如果删除3，则y将存储在3.y，4.y将存储在4.y .... 5.y中，将存储在9.y中。然后，可以在1到10的任何位置添加1到10的任何影片剪辑。
请大家帮我编码一下。