○○○

'---------------------------------
Sub aa()
    Dim strDes1 As String: strDes1 = "desA"
    Dim strDes2 As String: strDes2 = "desB"
    
    YesNo = MsgBox("execute?", vbYesNo + vbQuestion)
    If YesNo = vbNo Then
        Exit Sub
    End If
    
    Dim row As Integer
    Dim MaxRow As Integer: MaxRow = Cells(Rows.Count, 1).End(xlUp).row
    For row = 1 To MaxRow
        Cells(row, 2) = strDes1 & row & strDes2
        Cells(row, 3) = Cells(row, 1)
    Next
End Sub


Sub bb()
    res = MsgBox("Y:ビュー作成, N:テスト", vbYesNoCancel + vbQuestion)
    Select Case res
        Case vbYes
            MsgBox "作成"
        Case vbNo
            MsgBox "テスト"
        Case Else
            MsgBox "キャンセルしました"
            Exit Sub
        
    End Select
    
End Sub


'---------------------------------
'特定のページ(URL)を開く
	Dim objIE As InternetExplorer
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True


'---------------------------------
'特定のページ(URL)を開く
	objIE.Navigate "http://auctions.yahoo.co.jp/"
    Call IEWait(objIE)   'IEを待機
    Call WaitFor(3) '3秒停止

'---------------------------------
'IEを待機する
Function IEWait(ByRef objIE As Object)
    Do While objIE.Busy = True Or objIE.ReadyState <> 4
        DoEvents
    Loop
End Function


'---------------------------------
'指定した秒だけ停止する
Function WaitFor(ByVal second As Integer)
    Dim futureTime As Date
    futureTime = DateAdd("s", second, Now)
    While Now < futureTime
        DoEvents
    Wend
End Function


'---------------------------------
'IEを閉じる
	objIE.quit
    Set objIE = Nothing