- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
191 ：デフォルトの名無しさん[sage]：2015/09/27(日) 10:30:25.39 ID:2CSdDWVz - >>188
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test2()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, 54, 13.5).Select
Cells(1, 2).Select
Sleep 3000
Cells(1, 2).Value = 1
End Sub
|