Excelの
A1のデータをテキストボックスの１に表示
A2のデータをテキストボックスの２に表示
そして次にのコマンドボタンを押したら
B1のデータをテキストボックスの１に表示
B2のデータをテキストボックスの２に表示
というものを作成したいと考えています。
どうかご教授お願いいたします。

質問される前にここのサンプルや過去のログをご覧下さい。

> 質問される前にここのサンプルや過去のログをご覧下さい。

返信ありがとうございます。
おかげさまで既存のエクセルを開き、
データをそれぞれのテキストボックスに読み取ることができました。
しかし「次に」のボタンを押した時のプログラムがまだうまくいきません。

> しかし「次に」のボタンを押した時のプログラムがまだうまくいきません。

A1  の部分を  B1  に書き換えるだけでいいのでは。

Text1.Text = xlSheet.Cells(1, 1).Value →  Text1.Text = xlSheet.Cells(1, 2).Value

列番号を変数にして、クリックする毎に  I=I+1 のようにすれば。

> > しかし「次に」のボタンを押した時のプログラムがまだうまくいきません。
>
> A1  の部分を  B1  に書き換えるだけでいいのでは。
>
> Text1.Text = xlSheet.Cells(1, 1).Value →  Text1.Text = xlSheet.Cells(1, 2).Value
>
> 列番号を変数にして、クリックする毎に  I=I+1 のようにすれば。

私もそこの考えにたどり着いてるのですが

クリックする毎にI = I + 1
の動作をどうしていいか解からないのです・・・

プログラム初心者なので勉強しながら模索中です（＾＾；

お疲れ様です。
勉強しながら花チャンさんのHPに記載されてる
イベント処理関係のコマンドボタンをダブルクリックで
何とかプログラムができるんじゃないかと思い組んでみたんですがうまくきません。
一番目の情報と2番目の情報を読み取ってくれるのですが
それ以降が読み取ってくれません・・・。
原因は花ちゃんさんが指摘してくれた通りの
クリックする毎に  I=I+1
がうまく行ってないことだと考えます。
どうかご教授お願いします！

ソースは以下の通りです。

Private Sub Command1_Click()

Dim xlApp   As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("test.xls")
Set xlSheet = xlBook.Worksheets(1)
Dim xlCells As Excel.Range
Set xlCells = xlSheet.Cells
  
'--------------- エクセルの表をVBへ読み込み -------------------

Dim i As String
Dim sngSt As Single

i = 3
    Text1.Text = xlCells(i, 2).Value
    Text2.Text = xlCells(i, 3).Value
    Text3.Text = xlCells(i, 4).Value
    Text4.Text = xlCells(i, 5).Value

nClick = nClick + 1
    'マウスのダブルクリックの間隔を考慮(0.18〜0.9)
sngSt = Timer + GetDoubleClickTime / 1000
If sngSt >= 86400 Then
    sngSt = sngSt - 86400
End If
    '場合によっては待機時間を調整して下さい。
    'APIを使用しないなら0.18〜0.9秒の範囲で待機して下さい。
Do While Timer < sngSt
    DoEvents
Loop
        
If nClick = 2 Then

i = i + 1
    Text1.Text = xlCells(i, 2).Value
    Text2.Text = xlCells(i, 3).Value
    Text3.Text = xlCells(i, 4).Value
    Text4.Text = xlCells(i, 5).Value

End If

nClick = 0
'==================================================================
'終了処理
   Set xlCells = Nothing
   Set xlSheet = Nothing
   xlBook.Close            'Book を閉じる
   Set xlBook = Nothing
   xlApp.Quit
   Set xlApp = Nothing  
    
End Sub

ヒントだけ、下記をよくご覧下さい。　又、　i の値がどのように
変化するかも調べて見て下さい。

> Dim i As String
  Debug.Print i

> ヒントだけ、下記をよくご覧下さい。　又、　i の値がどのように
> 変化するかも調べて見て下さい。
>
> > Dim i As String
>   Debug.Print i

返信ありがとうございます。
ご指摘の通り
Dim i As String を
Dim i As Integer に変更し
MsgBox i を追加しました。

調べてみた所ダブルクリックした際に+1されているんですが
表示されたらまた iが3に戻ってしまいます。
なのでダブルクリックしても永遠に4にしかならず
その結果先に進まない事が分かりました。
今の所解決方法が分かっていませんが，報告させていただきました。

> 今の所解決方法が分かっていませんが，報告させていただきました。

単に変数の宣言している場所が間違っているだけですが。

クリックした時点で変数を宣言しているので、いつも ０ からのスタートです。

Private で宣言して見て下さい。

>
> > 今の所解決方法が分かっていませんが，報告させていただきました。
>
> 単に変数の宣言している場所が間違っているだけですが。
>
> クリックした時点で変数を宣言しているので、いつも ０ からのスタートです。
>
> Private で宣言して見て下さい。


ご指摘ありがとうございます。
おかげさまで以下のソースで＋１されて次を読み込むプログラムができました。
あと一つ疑問なんですが
最初の読み込みを 3 から始めたいのですが
i = 3 は何処で宣言したいいのですか？
これも Command1_Click()の中で宣言したらだめですよね？


Private i As Integer

Private Sub Command1_Click()

Dim xlApp   As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("test.xls")
Set xlSheet = xlBook.Worksheets(1)
Dim xlCells As Excel.Range
Set xlCells = xlSheet.Cells
  
'--------------- エクセルの表をVBへ読み込み -------------------

i = i + 1
    Text1.Text = xlCells(i, 2).Value
    Text2.Text = xlCells(i, 3).Value
    Text3.Text = xlCells(i, 4).Value
    Text4.Text = xlCells(i, 5).Value

'==================================================================
'終了処理
   Set xlCells = Nothing
   Set xlSheet = Nothing
   xlBook.Close            'Book を閉じる
   Set xlBook = Nothing
   xlApp.Quit
   Set xlApp = Nothing  
    
End Sub

>
> > 今の所解決方法が分かっていませんが，報告させていただきました。
>
> 単に変数の宣言している場所が間違っているだけですが。
>
> クリックした時点で変数を宣言しているので、いつも ０ からのスタートです。
>
> Private で宣言して見て下さい。

何度もすいません。
以下の変更で出来ました。
お付き合いくださってホントにありがとうございました。

i = i + 1
    Text1.Text = xlCells(2 + i, 2).Value
    Text2.Text = xlCells(2 + i, 3).Value
    Text3.Text = xlCells(2 + i, 4).Value
    Text4.Text = xlCells(2 + i, 5).Value