スポンサーリンク
セルの最終行にデータを追加記述できるはずが
ユーザーフォームでTextBoxに入力した文字や数字をCommandButtonをクリックするたびに自動的にセルの最終行に転記できるようにするoffsetでエラーがでてしまったことありませんか？詳しい原因は私には分からないのですが、今まで使っていたプログラムを新しく作成しようと思ったエクセルにコピーしたのにエラー！こんな画面が出ました！
調べても分からずじまい。なぜなら他のエクセルで使えるのでコード自体に間違えはないはずなので。
図１はもともと使っていたエクセルで図２が新しく作ろうとしているエクセルですが見比べてみると表のセルの場所が違います。
図1
図2
見比べてみたら、ワークシートの方に原因？転記したい表の位置？
尚、VBAのコードはコピーしてセルの位置だけA1・B1に変えただけ。
Private Sub CommandButton1_Click()
Range(“A1”).End(xlDown).Offset(1, 0).Value = TextBox1.Value
Range(“B1”).End(xlDown).Offset(1, 0).Value = TextBox2.Value
End Sub
エラーの出ない図1のもともと使っているエクセルは、A列と1行目は使っていませんがエラーの出る図２は使用しています。
どうやらこれが原因だったようです。未だ理由分からず。
エラーになるのがイヤなので念のために、空白になるセルB1・C1・D1・E1・F1には白色の文字で数字の「０」を入れてあります。
こんな単純な方法ですが、新しいエクセルも図1のようにA列と1行目を見た目は使わないように表を移動しコードもB1・C1に変えると、何の問題もなくコードが動くようになりました。
スポンサーリンク
ご覧いただきありがとうございます。
ブログランキングに登録しています。
少しでもお役に立てれば幸いで、参考になったようでしたら応援よろしくお願いします。
エクセルの勉強お疲れ様です。ちょっとひと休みしませんか？
