Private Sub UserForm_Initialize()
    Dim strWebURL As String
    
    strWebURL = Cells(5, "E").Value 例:セルの値 http://www.yahoo.co.jp/
    UserForm1.WebBrowser1.Navigate strWebURL
    
End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ