VBA IE操作 .Focusでフォーカスをセットしてみた(入力エリアの移動)

はてなダイアリーから現在リダイレクトしているので、テストコードは動きません。

下記のような質問をもらいました。

>あるページの決まった位置で画面を表示させるには、どのようにするのかご教授してもらえませんか？
>各ページに、サイト名、ＵＲＬ、コメントがあって、これを随時入力するプログラムを作成中です。
>このとき、入力するＢＯＸが、ページの下のほうなので、
>トップからかなりスクロールしなければなりません。
>入力をモニターしたいので、新しいページに飛んだときに、画面表示を入力の場所に移動するには、
>どのようにするのがいいでしょうか？

単純に .Focus すると、入力エリアを移動することができるので、
目的のエリアオブジェクト.Focus で使ってみてください。

'表示位置を調整する
objIE.Document.getElementsByName("名前")(0).Focus 'フォーカスをセット
↑こんな感じで、簡単に使えると思います。

Option Explicit

Sub ie_test()  'IEテストする。

'IEの起動
    Dim objIE As Object '変数を定義します。
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True      '可視、Trueで見えるようにします。
    
'処理したいページを表示します。
    objIE.Navigate "http://d.hatena.ne.jp/ken3memo/20110102/1293921661"

'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        DoEvents  '重いので嫌いな人居るけど。
    Wend
    
    '項目(name=xxxx)にセットする。
    objIE.Document.getElementsByName("username")(0).Value = "テスト君"
    objIE.Document.getElementsByName("useremail")(0).Value = "test@ken3.org"
    objIE.Document.getElementsByName("body")(0).Value = "ここにコメントを書く" & vbCrLf & "改行" & Now()
   
    '表示位置を調整する
    objIE.Document.getElementsByName("body")(0).Focus  'フォーカスをセット

End Sub