こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセル VBA セルのデータを見に行ったのですが・・・

いつも皆様には大変お世話になっております。
エクセルVBAなのですが・・・

sa = ActiveCell.Row
tu = ActiveCell.Column

z = Cells(sa + 18, tu + 3).Text
MsgBox z
If z = "" Then
sa = ActiveCell.Row
tu = ActiveCell.Column
Cells(sa + 18, tu + 3) = a
Else
sa = ActiveCell.Row
tu = ActiveCell.Column
Cells(sa + 32, tu + 3).End(xlUp).Offset(1, 0) = a

と、入力したのですが
z = Cells(sa + 18, tu + 3).Text
この zのセルに文字が入っていても
MsgBox z 
をみても何も入っていないと表示されてしまいます。
何が原因かさっぱりわかりません;;
皆様よろしくお願いいたします

投稿日時 - 2007-03-14 10:59:15

QNo.2831760

すぐに回答ほしいです

質問者が選んだベストアンサー

本当に
Cells(sa + 18, tu + 3)
であってますか?何か思い違いをしていて、数値がずれているということはありませんか?
1番最初の

sa = ActiveCell.Row
tu = ActiveCell.Column
の後に、
Cells(sa + 18, tu + 3).Select:Exit Sub
と入れると、そのセルを選択して終了するので、それでどのセルを指しているか確認してみてはいかがでしょうか。

それから質問とは関係ありませんが、このVBAには
sa = ActiveCell.Row
tu = ActiveCell.Column
というのが3回出てきます。マクロの中でActiveCellが変わることはないので、これらは最初の1つだけで十分です。

投稿日時 - 2007-03-14 11:14:20

お礼

Cells(sa + 18, tu + 3).Select:Exit Sub
これを入れてみたら、ぜんぜん違うセルを見に行ってました;;
saとtuの入れる場所が違ったみたいです;;
早速のお返事ありがとうございました^^

投稿日時 - 2007-03-14 11:30:51

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問