0

エクセル２００７VBAに関する質問です。
１つのシートにデータを表示したいのですがなぜか全てのシートに表示されてしまいます。 Sheet1のA1→B１→C１→D１→A2→B2→C２→D２→A３→・・・・と表示させるようにプログラムをくんでいます。
Sheet1には確かにそのように値が表示されるのですが、なぜだかSheet２とSheet３にも同じように表示されてしまいます。

Sheet２や３に表示されてしまうとまずいのでSheet1のみにしたいのですが、どうしたらよいでしょうか？

以下がその部分のプログラミングです
y = 0
k = k + 1
Do Until y = "停止" '停止になるとループるける
y = Range("E8").Value '停止設定
i = 0
''''横に動くよ''''''''''''''''''''''''''''''
Do Until i = 5
r = Ascii 'データ受信
Cells(1 + k, 1 + i).Value = r '出力
ec.WAITmS = 150 '待機時間
i = i + 1
Loop
''''横に動くよ（終）''''''''''''''''''''''''
k = k + 1
If k > 1000 Then '１０００を超えたら終了。フリーズしないように処理
Exit Do
End If
Loop

質問者が選んだベストソリューション

Yahoo!知恵袋 4354日前