[ No.47 ]
マクロ
投稿者:
2003年02月03日 (月) 09時35分 |
|
|
|
Sub ★50表示() ' ' ★50表示 Macro ' マクロ記録日 : 2003/1/29 ユーザー名 : TORI ' ' Keyboard Shortcut: Ctrl+q ' ActiveWindow.Zoom = 50 Range("A48").Select End Sub Sub 移動() ' ' 移動 Macro ' マクロ記録日 : 2003/1/29 ユーザー名 : TORI' ' Keyboard Shortcut: Ctrl+w ' For n = 1 To 7 ActiveCell.Offset(0, 10).Select Application.Wait Now() + TimeValue("00:00:01") Next n End Sub |
|