エクセル VBA ユーザーフォームのテキストボックスにアクティブセルを、含む4つのセルの値を、表示さ

エクセル VBA
ユーザーフォームのテキストボックスにアクティブセルを、含む4つのセルの値を、表示させるコードについて教えてください！！

今入れているコードは(UserForm2に入れてます)
Private Sub User Form_Initialize()
With Text Box1
.value = ActiveCell.Offset(,-1).Value
End With
With Text Box2
.value = ActiveCell.Value
End With
With Text Box3
.value = ActiveCell.Offset(,-7).Value
End With
With Text Box4
.value = ActiveCell.Offset(,-9).Value
End With
End Sub
さらにUserForm1にはコマンドボタン2を、クリックするとUserForm2が、表示され、表示と同時にテキストボックスに、表示されるようにしています。
コードは
Private Sub CommandButton3_Click()
UserForm2.Show
End Sub
というコードをいれてますが、うまく行きません。実行すると、オブジェクトが、必要ですとエラーが出て、UserForm2.Showの部分が黄色になります。
しかしテキストボックス3.4のコードを削除するとテキストボックス1.2にはうまく表示されます。
どこが間違っているのかお分かりの方是非教えてください！！よろしくお願います！

質問者からの補足コメント

• ご指摘いただきました、全TextBoxの間のスペースはコピペミスです！実際にはスペースはありません！紛らわしくてすみません！！！

    補足日時：2019/07/25 15:14

• あ、最初のUser Formも実際にはスペースはありません！重ね重ねすみません！

    補足日時：2019/07/25 15:16

• 個別にお返事できなかったので、補足に、入れされていただきます。
  Zincerさん、デバックの方法教えていただきありがとうございます！ほんと勉強になります！
  めぐみん_さん、ご回答いただきありがとうございます！もしかしてなんですが、非表示の列を、含めて-9、-7なんですが、非表示状態だと出来ないとかあるのでしょうか？

    補足日時：2019/07/25 23:03

• Zincerさん
  検証したところ、やはりTextBox3のところでエラーが、出ました。

    補足日時：2019/07/29 08:43

• Zincerさん
  ありがとうございます！！見てみましたら、テキストボックス3と思っていたところがテキストボックス4 でテキストボックス4と、思っていたところがテキスト5に、なっていました！！
  ほんと、こんな事⁈って驚きです！全然、思ってもいなかった事なので、こちらで相談させていただいて良かったです！！
  ほんとありがとうございます！！
  
  めぐみんさんにも色々考えいただき、ほんと感謝です！！！
  今回の質問で本当に色々な事が、勉強になり感謝です！！ありがとうございます！！

    補足日時：2019/07/29 17:07

No.8 回答者： Zincer 回答日時： 2019/07/29 12:55

添付した画像の（表示方法等）意味は分かりますね。

このモードで、質問者さんが「TextBox3」だと思っているオブジェクトのオブジェクト名（赤丸部分）を確認してみてください。
おそらく別の名前が付いていませんか？
異なっていれば「TextBox3」に変更すればエラーは解消されるはずです。
※適当に作成していますので添付画像のUserForm名等が異なるのは無視してください。
ついでに「TextBox４」の方も確認することをお勧めします。

No.7 回答者： Zincer 回答日時： 2019/07/26 19:22

No2です

話は進んでいるよですが、No3さんも同じ結論に達しているようです。
一応確認しておきますが、ブレークポイントを設定して一旦作業を停止し、エラーの原因は
With Text Box3
.value = ActiveCell.Offset(,-7).Value
や
With Text Box4
.value = ActiveCell.Offset(,-9).Value
ではない
事の確認は終わっているのでしょうか？

No.6 回答者： めぐみん_ 回答日時： 2019/07/26 15:08

No.5です。

＞UserForm2の方を、Private Sub User Form2_Initialize()に変えてみましたが、

これ自体は意味ないですね。

＞UserForm3にもPrivate Sub User Form_Initialize()を入れているんですが、それと判別できないのかと

フォームが開く際のイベントなので、２であるか３であるかは呼び出す事でそれぞれが自身であると認識はするでしょう。

経緯を見直してもユーザーフォーム２に配置されているコントロール（名・種別）による物のようにしか浮かばないのですが。。。

この回答へのお礼

めぐみん_さん、本当に色々ありがとうございます！
ユーザーフォーム2のところをもう一度よーく見直してみます！もしかしてどこか入力ミスしてるかもなので、、、。

お礼日時：2019/07/26 16:23

No.5 回答者： めぐみん_ 回答日時： 2019/07/26 09:41

No.4です。

＞UserForm1に問題があるのでしょうか？

問題はないように思います。
敢えて言うならUserForm2にある、

＞しかしテキストボックス3.4のコードを削除するとテキストボックス1.2にはうまく表示されます。

テキストボックス３と４のコントロール名が違うか、似たようなコントロールのリストボックスを間違えて配置しているとかになるのかな？
でもそれだとUserForm2にコードを記載している時にわかりそうだし。

この回答へのお礼

色々、考えて下さりありがとうございます！
UserForm3にもPrivate Sub User Form_Initialize()を入れているんですが、それと判別できないのかと、UserForm2の方を、Private Sub User Form2_Initialize()に変えてみましたが、今度はテキストボックス1〜4まで全て表示できなくなってしまいました、、、、。

お礼日時：2019/07/26 13:59

No.4 回答者： めぐみん_ 回答日時： 2019/07/26 06:47

No.3です。

検証は出来てませんが検索すると非表示列もカウントされるようですね。
なのでそれを踏まえての移動であるなら問題にはならないみたいですね。

この回答へのお礼

調べていただきありがとうございます！
表示、非表示は関係ないのですね。
アクティブセルはJ列なので-9、-7が、無いということはありません。
このコードはUserForm2に入れていると最初に、述べさせていただいているのでが、このブックにはUserFormが3まで作成してあり、UserForm 1には
Private Sub CommandButton1_Click()
UserForm3.Show
End Sub
Private Sub CommandButton3_Click()
UserForm2.Show
End Sub
Private Sub CommandButton4_Click()
Unload Me
End Sub
Private Sub (CommandButton2はまだ設定してません。)
と入れてあり、Private Sub CommandButton1に関してはうまく動きます。UserForm1に問題があるのでしょうか？

お礼日時：2019/07/26 09:14

No.3 回答者： めぐみん_ 回答日時： 2019/07/25 18:29

＞テキストボックス3.4のコードを削除するとテキストボックス1.2にはうまく表示されます。

With Text Box3
.value = ActiveCell.Offset(,-7).Value
End With
With Text Box4
.value = ActiveCell.Offset(,-9).Value
End With

Offset で-7や-9移動した値を取得出来ない列（Ｇ列より左等）のセルをアクティブにしているとか？

No.2 回答者： Zincer 回答日時： 2019/07/25 18:25

＞オブジェクトが、必要ですとエラーが出て、UserForm2.Showの部分が黄色になります。

＞しかしテキストボックス3.4のコードを削除するとテキストボックス1.2にはうまく表示されます。
ということは、
「TextBox3」または「TextBox４」の一方または両方が存在しない
ということが考えられます。
Private Sub User Form_Initialize()
の
With Text Box3
.value = ActiveCell.Offset(,-7).Value
End With
と
With Text Box4
.value = ActiveCell.Offset(,-9).Value
End With
にブレークポイントを設定して確認しないと構文上のエラーは見受けられないようです。
設定の仕方は、下記のURL等を参考にしてください。

VBA デバッグの仕方
https://www.tipsfound.com/vba/01010

No.1 回答者： めぐみん_ 回答日時： 2019/07/25 15:03

検証してませんが。

テキストボックス名 Text Box1 の真ん中に半角スペースらしきものが皆あるのはコピペミス？

この回答へのお礼

早速ありがとうございます！TextBoxの間のスペースはコピペミスです！すみません！！！補足に入れておきます！

お礼日時：2019/07/25 15:13