Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12976 / 76738 ←次へ | 前へ→

【69273】Re:VBAプログラミング
発言  Jaka  - 11/6/17(金) 9:45 -

引用なし
パスワード
   良く解ってないけど見本。

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub aaaa()
Dim 上下左右 As Long, 歩 As Long

Cells(10, 10).Select
Sleep 200

Randomize
上下左右 = Int((4 * Rnd) + 1)
歩 = Int((10 * Rnd) + 1)
With ActiveCell
  For i = 1 To 歩
    If 上下左右 = 1 Then
      If ActiveCell.Row > 1 Then
       ActiveCell.Offset(-1).Select
      Else
       Exit For
      End If
    ElseIf 上下左右 = 2 Then
      If ActiveCell.Row < Rows.Count Then
       ActiveCell.Offset(1).Select
      Else
       Exit For
      End If
    ElseIf 上下左右 = 3 Then
      If ActiveCell.Column > 1 Then
       ActiveCell.Offset(, -1).Select
      Else
       Exit For
      End If
    ElseIf 上下左右 = 4 Then
      If ActiveCell.Column < Columns.Count Then
       ActiveCell.Offset(, 1).Select
      Else
       Exit For
      End If
    End If
    DoEvents
    Sleep 100
  Next
End With
End Sub

4 hits

【69270】VBAプログラミング 文哉 11/6/17(金) 6:07 質問
【69271】Re:VBAプログラミング UO3 11/6/17(金) 6:41 発言
【69273】Re:VBAプログラミング Jaka 11/6/17(金) 9:45 発言
【69278】あ〜、なんとなく解った。 Jaka 11/6/17(金) 12:54 発言
【69274】Re:VBAプログラミング SS 11/6/17(金) 9:49 発言
【69279】Re:VBAプログラミング SS 11/6/17(金) 13:07 発言
【69276】Re:VBAプログラミング UO3 11/6/17(金) 11:45 発言
【69277】Re:VBAプログラミング UO3 11/6/17(金) 12:29 発言
【69280】Re:VBAプログラミング UO3 11/6/17(金) 16:35 発言

12976 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free