趣味のエクセルマクロ

ナンバーズ4などの数字選択式宝くじデータ分析用の自作マクロおよびナンバーズ4の各種データリストなどをブログにしています。

マクロ 対話型

 MsgBox


マクロを起動させた時に、処理を質問表示させる様にします。
ここでは、はい(Y)で実行、いいえ(N)で何もせずに終了します。
(はい(Y)で最初から最後のデータまで処理しています。)


●印表示処理に時間がかかるので、実行するか確認のために「開始しますか?」を
表示させ、下のボタン選択押下します。(4000行を超えるデータで時間がかかるw)



Sub patapata_3()  '当選数字パターン貼付け


Dim i, j, dai, lastkai As Integer
Dim daida As String


 Sheets("原本").Select
 lastkai = Cells(1, 12) + 3
 
    start = MsgBox("開始しますか?", vbYesNo)
 If start = vbNo Then End 
’もし、いいえならマクロ終了


saikeisanoff
 Range("by3:cj5000").ClearContents
_
_
_
End Sub


-------------------------------------------------------------------------------------------------


InputBox



マクロ起動で入力をうながします。
入力し「OK」ボタン押下で検索処理をします。


Sub box_kensaku() ' 検索して入力
Dim bango As String


  On Error GoTo errorcheck
Sheets("box").Select
  Range("B3:W65").Select
   bango = InputBox("box番号入力して下さい", Default:=Cells(1, 25))
  
   If Len(bango) <> 4 Then MsgBox ("4桁で番号入力してください。"): End
  
   Cells(1, 25) = bango
’ 入力したbangoを検索する
    Selection.Find(What:=bango, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, MatchByte:=False, SearchFormat:=False).Activate


 _
 _
 _
End Sub


両方を組み合わせて処理しています。InputBox → MsgBox




Office TANAKA さんのサイトには詳しい説明が載っていました。
私も勉強したいと思います。