Excel2007のVBAでプログラミング　with 4.3inch PlusOne

プログラミング Excel

会社で使っているExcel2003とは見た目以外でも違っている。会社ではExcel2003なので、次のように設定して使っている。

  • Excelのオプションの基本で、開発タブをリボンに表示するをチェック
  • Excelのオプションの保存で、保存形式をExcel97-2003ブックに指定
  • 開発、マクロのセキュリティ、信頼できる場所に開発用のディレクトリを指定

これで開発に使えるようになった。この場合、ファイル名の横に[互換モード]と表示されている。
ボタンをクリックすると、InternetExploreを起動して、A1のURLを表示し、別ウィンドウ（ユーザフォーム）でそのURLに関する説明（A2の内容)を表示するというものを作ってみた。
コーディングはこんな感じ

Sub test()
    Dim IE
    Dim ieAddress, msgContent As String

    ieAddress = Cells(1, 1).Value
    msgContent = Cells(2, 1).Value

    Set IE = CreateObject("InternetExplorer.Application")

    IE.navigate (ieAddress)
    IE.Left = 0
    IE.Top = 200
    IE.Width = 800
    IE.Height = 400
    IE.Visible = True

    UserForm1.Label1.Caption = msgContent
    UserForm1.StartUpPosition = 0
    UserForm1.Left = 0
    UserForm1.Top = 0
    UserForm1.Show vbModeless

End Sub

UserForm1はモードレスにするため、vbModelessを渡している。