[[20260223073806]]　『テキストボックスの入力方法』（栗栄太）　ページの最後に飛ぶ

『テキストボックスの入力方法』（栗栄太）

どのファイルでも共通で使用できるように
個人用マクロブック(PERSONAL.XLSB)を作っています。
テキストボックスに入力するのが"8:32" なのですが
Range(TextBox1.text) でエラーが発生しました。
原因は TextBox1.text が　"8:32" ではなくて
"0.35555555558:32"になっていました。
テキストボックスになにか設定が必要なのでしょうか？

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

 Range(TextBox1.text)だとTextBox1.textが
A1などのセルアドレスにする必要があるのでは
（はてな） 2026/02/23(月) 07:53:52

dim str as string: str = "8:32"
dim rng as range: set rng = range(str)　→ rng.Address = "$8$32"
これは問題なく使えるので
str を入力できるようにしたかったので
dim rng as range: set rng = range(TextBox1.Text)
にしたのですが,これができません。

少なくとも
TextBox1.Text に "8:32" と入力したのに　TextBox1.Text の文字列が
勝手に変わってしまうのもよくわかりません。

Debug.Print TextBox1.Text →　"0.35555555558:32"
（栗栄太） 2026/02/23(月) 08:04:01

すみません。
原因がわかりました。
シート上のActiveXコントロールは保持されていたのですが、
Personal.xlsb で入力した値はエクセルを終了すると
保持できないので、入力後にセルに保存して
再度読み込んでいました。
入力したデータ"8:32" これがセルに保存したときに
自動で変更されているようです。
書式設定の設定が必要なのだとは思いますが
お手数をおかけしました。
（栗栄太） 2026/02/23(月) 08:21:29

 Private Sub CommandButton3_Click()
     ActiveCell.Value = TextBox1.Value
 End Sub

 ユーザーフォーム上の TextBox ではそのような現象は発生しませんでした。

（参考） 2026/02/24(火) 17:39:38

コメント返信：

[ 一覧(最新更新順) ]

[[20260223073806]] 『テキストボックスの入力方法』（栗栄太） ページの最後に飛ぶ

[[20260223073806]]　『テキストボックスの入力方法』（栗栄太）　ページの最後に飛ぶ