私はwindows8のuserです。
windows7の時は[Fn]キーを押さずF8キーを押せてとてもべんりでした、、、
どなたかwindows8の[Fn]キーを使わずにF8を押せる方法を教えて頂きませんか？？

詳しくありがとうございます！

ところで、この書籍には普通に書いてあるのですが、
getElementsByClassNameがうまく作動しません。

ステップ・インではうまく作動しても普通に作動するとできない。
Win8、IE11ですけどなにかうまいやり方があるのでしょうか？

具体的にはこちらのコードです。

Public Sub IE基本_郵便検索2()
‘ 新しいIEを開く
Dim ie As New InternetExplorer
ie.Navigate “http://www.post.japanpost.jp/zipcode/”
ie.Visible = True
‘ 完了待ちをする
While ie.Busy = True And ie.ReadyState < READYSTATE_COMPLETE
DoEvents
Wend
Dim doc As HTMLDocument
Set doc = ie.Document
Dim sel As IHTMLSelectElement
Dim inp As IHTMLInputElement

' 都道府県を設定
Set sel = doc.getElementsByName("pref")(0)
sel.Value = 13 ' 東京都
' 市区町村を設定
Set inp = doc.getElementsByName("addr")(0)
inp.Value = "板橋区常盤台"
' 「郵便番号を検索」ボタンを押す
Dim btn As IHTMLInputElement
Set btn = doc.getElementsByTagName("input")(9)
btn.form.submit
' 完了待ちをする
While ie.Busy = True And ie.ReadyState 0 Then
Exit Do
End If
DoEvents
Loop
Dim url As String
Dim i
For i = 1 To coll.Length
Dim el As IHTMLElement2
Set el = coll(i – 1)
If el.tagName = “DIV” Then
Dim ela As IHTMLAnchorElement
Set ela = el.getElementsByTagName(“a”)(0)
url = ela.href
Exit For
End If
Next
ie.Navigate2 url, &H800
End Sub

よろしければ教えていただけると嬉しいです(^_^;)

すみません、コードの写し間違いだったようです（汗）

こちらのコードになります。
Public Sub IE基本_郵便検索2()
‘ 新しいIEを開く
Dim ie As New InternetExplorer
ie.Navigate “http://www.post.japanpost.jp/zipcode/”
ie.Visible = True
‘ 完了待ちをする
While ie.Busy = True And ie.ReadyState < READYSTATE_COMPLETE
DoEvents
Wend
Dim doc As HTMLDocument
Set doc = ie.Document
Dim sel As IHTMLSelectElement
Dim inp As IHTMLInputElement

' 都道府県を設定
Set sel = doc.getElementsByName("pref")(0)
sel.Value = 13 ' 東京都
' 市区町村を設定
Set inp = doc.getElementsByName("addr")(0)
inp.Value = "板橋区常盤台"
' 「郵便番号を検索」ボタンを押す
Dim btn As IHTMLInputElement
Set btn = doc.getElementsByTagName("input")(9)
btn.form.submit
' 完了待ちをする
While ie.Busy = True And ie.ReadyState 0 Then
Exit Do
End If
DoEvents
Loop
Dim url As String
Dim i
For i = 1 To coll.Length
Dim el As IHTMLElement2
Set el = coll(i – 1)
If el.tagName = “DIV” Then
Dim ela As IHTMLAnchorElement
Set ela = el.getElementsByTagName(“a”)(0)
url = ela.href
Exit For
End If
Next
ie.Navigate2 url, &H800
End Sub

すみませんやり直しです。

Public Sub IE基本_郵便検索2()
‘ 新しいIEを開く
Dim ie As New InternetExplorer
ie.Navigate “http://www.post.japanpost.jp/zipcode/”
ie.Visible = True
‘ 完了待ちをする
While ie.Busy = True And ie.ReadyState < READYSTATE_COMPLETE
DoEvents
Wend
Dim doc As HTMLDocument
Set doc = ie.Document
Dim sel As IHTMLSelectElement
Dim inp As IHTMLInputElement

' 都道府県を設定
Set sel = doc.getElementsByName("pref")(0)
sel.Value = 13 ' 東京都
' 市区町村を設定
Set inp = doc.getElementsByName("addr")(0)
inp.Value = "板橋区常盤台"
' 「郵便番号を検索」ボタンを押す
Dim btn As IHTMLInputElement
Set btn = doc.getElementsByTagName("input")(9)
btn.form.submit
' 完了待ちをする
While ie.Busy = True And ie.ReadyState 0 Then
Exit Do
End If
DoEvents
Loop
Dim url As String
Dim i
For i = 1 To coll.Length
Dim el As IHTMLElement2
Set el = coll(i – 1)
If el.tagName = “DIV” Then
Dim ela As IHTMLAnchorElement
Set ela = el.getElementsByTagName(“a”)(0)
url = ela.href
Exit For
End If
Next
ie.Navigate2 url, &H800
End Sub

？？
コメント投稿すると該当部分だけなぜか消えますね(・・;

少しテストします。

‘この部分です！
Do
Set coll = doc.getElementsByClassName(“data”)
If coll.Length > 0 Then
Exit Do
End If
DoEvents
Loop

コメントが多重化してしまいすみません。
今度こそ…
Public Sub IE基本_郵便検索2()
‘ 新しいIEを開く
Dim ie As New InternetExplorer
ie.Navigate “http://www.post.japanpost.jp/zipcode/”
ie.Visible = True
‘ 完了待ちをする
While ie.Busy = True And ie.ReadyState < READYSTATE_COMPLETE
DoEvents
Wend
Dim doc As HTMLDocument
Set doc = ie.Document
Dim sel As IHTMLSelectElement
Dim inp As IHTMLInputElement

' 都道府県を設定
Set sel = doc.getElementsByName("pref")(0)
sel.Value = 13 ' 東京都
' 市区町村を設定
Set inp = doc.getElementsByName("addr")(0)
inp.Value = "板橋区常盤台"
' 「郵便番号を検索」ボタンを押す
Dim btn As IHTMLInputElement
Set btn = doc.getElementsByTagName("input")(9)
btn.form.submit
' 完了待ちをする
While ie.Busy = True And ie.ReadyState 0 Then
Exit Do
End If
DoEvents
Loop
Dim url As String
Dim i
For i = 1 To coll.Length
Dim el As IHTMLElement2
Set el = coll(i – 1)
If el.tagName = “DIV” Then
Dim ela As IHTMLAnchorElement
Set ela = el.getElementsByTagName(“a”)(0)
url = ela.href
Exit For
End If
Next
ie.Navigate2 url, &H800
End Sub

やっぱり消えるみたいです（泣）
なぜでしょう。。。

聞きたいのは、
本書のサンプルである秀和の4-3の部分です。
http://www.shuwasystem.co.jp/support/7980html/3915.html

↓ここの部分が、うまく作動しません。
ステップインだとうまくいきますが、連続実行だとうまく動かない。
Set coll = doc.getElementsByClassName(“data”)
If coll.Length > 0 Then

ブレイクポイントで止めてみると、coll.Lengthが0のままになっていることが
判明しました。
ステップインだとここが2になるのですが……。

この理由がよくわからなくて困っていますorz
ご助言いただけると大変助かります！