- ベストアンサー
VBAでの電話番号表示について教えてください
山田 太郎（@f_a_007）の回答
補足："00-1111-2222"は、入力された値に相当します。 ですから、"00-1111-2222"部分は、値を代入した変数に置き換えてください。
関連するQ&A
- エクセルＶＢＡについて質問です。ＶＢＡを初めて１カ月くらいなので、簡単
エクセルＶＢＡについて質問です。ＶＢＡを初めて１カ月くらいなので、簡単な質問かもしれませんが、よろしくお願いします。 Cells(1, 1).Value = "'1／" + TextBox1.Value 上のコードの"'1／"の部分で質問なのですが、例えばTextBox1.Value=2の場合、セルＡ１には「１／２」と表示されます。そしてこの「１／２」を数式として扱おうとするとエラー(#VALUE!)になります。その原因はセルＡ１をクリックすると、メニューとシートの間にある「fx」の右側の部分に「'１／２」と表示されているからだと思うのですが…。 これを数式として扱う何か良い方法はありませんか？シートを扱って解決するのではなくＶＢＡを扱って解決したいのですが…。
- ベストアンサー
- Visual Basic
- VBA 空白をエラー表示させる！
ボタンをクリックすると、入力ミスがないように MsgBoxで表示させるものを作りましたが TextBox3を都合のため切り取りました！ そしたら、エラー表示され If Controls("TextBox" & i).Text = "" Then ↑黄色く表示されます！ どのように下の記述を変えれば良いか教えてください！ Private Sub CommandButton5_Click() Dim i As Integer For i = 1 To 9 If Controls("TextBox" & i).Text = "" Then MsgBox "判定入力していない項目がありますよ！", vbInformation, "空欄を見て！" Exit Sub End If Next If MsgBox("記録するよ？", vbOKCancel) = vbOK Then With Worksheets("グラフ") 'アセスメント身体 .Range("U2").Value = TextBox1.Value .Range("U3").Value = TextBox2.Value .Range("U4").Value = TextBox3.Value .Range("U5").Value = TextBox4.Value .Range("U6").Value = TextBox5.Value .Range("U7").Value = TextBox6.Value .Range("U8").Value = TextBox7.Value .Range("U9").Value = TextBox8.Value .Range("U10").Value = TextBox9.Value
- ベストアンサー
- オフィス系ソフト
- Excel VBA-改行について
Excel VBAで、UserFormのTextBoxに入力されたものをワークシートに表示させたいのですが、 TextBox内で、「Enter」キーが押されたら改行する方法と TextBoxで入力された通り（改行等）にワークシートのセルに表示する方法を どなたか教えて下さい。
- ベストアンサー
- Visual Basic
- VBAのFor構文で
質問させていただきます。 IF textBox1.value = "" then End If のように、VBAのテキストボックスが空白の場合に起動する構文を作ろうと考えているのですが、 このテキストボックスの数が多いので、どうにかして短く出来ないかと考えています。 VBAのテキストボックスを直接For構文で変更する事は可能なのでしょうか？ 例えば For i = 1 to 20 IF textBox(i).value = "" then End If Next i 上記のような構文では実際に動かしたときにtextBoxの指定がされていないのでエラーが出てしまいます。 やはり、各テキストボックスごとに構文を作らなければならないのでしょうか？ もし可能なら、その方法を教えていただきたいです。
- ベストアンサー
- オフィス系ソフト
- セルの内容をテキストボックスに表示する
こんにちは。今月からVBAを少しずつ勉強し始めている初心者です。 VBAでA列のセルをダブルクリックすると、そのセルにチェックが入り、 ユーザーフォームを起動させる。といったコードを記述しました。 チェックが入る→フォームが起動までは良いのですが、入力済みのセルをWクリックした時にフォームのテキストボックスににセルの内容を表示させようとしているのですがうまくいきません。不具合の内容は、フォームに表示されるデータが、前回Wクリックした行のデータが表示されます。例えば、 １回目 ID50を選択→表示されない。 ２回目 ID70を選択→ID50が表示される。 ３回目 ID90を選択→ID70が表示される。といった具合です。 コードは下記です。Targetが前回を参照しているのだと思って調べてみたのですがよく分かりません。すみませんがご教示お願いします。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim lngTop As Long, lngLeft As Long, strTitle As String Const RangeName As String = "領収書" If Not Intersect(Range(RangeName), Target) Is Nothing Then Cancel = True If Target = "レ" Then Target = "" Target.Offset(0, 9).ClearContents Else Target = "レ" End If End If If Target.Count <> 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub If Target <> "レ" Then Exit Sub 入力F.Show With Worksheets("送付名簿") 入力F.TextBox1.Value = Target.Offset(0, 1).Value 入力F.TextBox3.Value = Target.Offset(0, 2).Value 入力F.TextBox4.Value = Target.Offset(0, 3).Value 入力F.TextBox5.Value = Target.Offset(0, 5).Value 入力F.TextBox6.Value = Target.Offset(0, 4).Value 入力F.TextBox7.Value = Target.Offset(0, 6).Value 入力F.TextBox10.Value = Target.Offset(0, 7).Value 入力F.TextBox9.Value = Target.Offset(0, 8).Value End With End Sub
- ベストアンサー
- オフィス系ソフト
- このＶＢＡ、もうちょっとシンプルにできないですか？
自力でＶＢＡを書いてみたのですが、長くなってしまいました。 もうちょっとシンプルにするアイディアがあればお願いします。 やりたいことは、 (1)ユーザーフォームのテキストボックス内が空欄だったら「無視」 (2)テキストボックスの中が空欄でなければ「書き込み」 以上のことをやりたいのですが、テキストボックスが6種類あるので単純に記述すると結構長くなってしまいました。 特に問題がなければ、その旨をお願いします。 If TextBox1 = "" Then If TextBox2 = "" Then If TextBox3 = "" Then If TextBox4 = "" Then If TextBox5 = "" Then If TextBox6 = "" Then MsgBox ("得点が入力されていません。") ElseIf TextBox6 <> "" Then Sheets("総合（得点）").Cells(t + 9, u) = TextBox6.Value End If ElseIf TextBox5 <> "" Then Sheets("総合（得点）").Cells(t + 8, u) = TextBox5.Value ElseIf TextBox6 <> "" Then Sheets("総合（得点）").Cells(t + 9, u) = TextBox6.Value End If End If ElseIf TextBox4 <> "" Then Sheets("総合（得点）").Cells(t + 7, u) = TextBox4.Value If TextBox5 <> "" Then Sheets("総合（得点）").Cells(t + 8, u) = TextBox5.Value If TextBox6 <> "" Then Sheets("総合（得点）").Cells(t + 9, u) = TextBox6.Value End If End If End If ElseIf TextBox3 <> "" Then Sheets("総合（得点）").Cells(t + 6, u) = TextBox3.Value If TextBox4 <> "" Then Sheets("総合（得点）").Cells(t + 7, u) = TextBox4.Value If TextBox5 <> "" Then Sheets("総合（得点）").Cells(t + 8, u) = TextBox5.Value If TextBox6 <> "" Then Sheets("総合（得点）").Cells(t + 9, u) = TextBox6.Value End If End If End If End If ElseIf TextBox2 <> "" Then Sheets("総合（得点）").Cells(t + 5, u) = TextBox2.Value If TextBox3 <> "" Then Sheets("総合（得点）").Cells(t + 6, u) = TextBox3.Value If TextBox4 <> "" Then Sheets("総合（得点）").Cells(t + 7, u) = TextBox4.Value If TextBox5 <> "" Then Sheets("総合（得点）").Cells(t + 8, u) = TextBox5.Value ・ ・ ・ こんな感じで規則的に記述しただけです。（文字数が多いので最後は省略しました） 段差がなくて見づらいですが、宜しくお願いします。
- ベストアンサー
- Visual Basic
- ＶＢＡプログラムについて
ＶＢＡプログラムを本を見ながら作成していますが、はっきりいって素人です。 本に載っていないこととなるとちんぷんかんぷんで、いくつかあるプロシージャのどのプロシージャ内に記入したら良いのか分からないし、新しいプロシージャをどこに記入して良いのか分かりません。 例えば、 ----------------------------------------------------------- Private Sub CommandButton1_Click() ActiveCell.Value = TextBox1.Value ActiveCell.Offset(0, 1).Value = TextBox2.Value ActiveCell.Offset(0, 2).Value = TextBox3.Value ActiveCell.Offset(0, 3).Value = TextBox4.Value ActiveCell.Offset(0, 4).Value = TextBox5.Value ActiveCell.Offset(0, 5).Value = TextBox6.Value ActiveCell.Offset(0, 6).Value = TextBox7.Value ActiveCell.Offset(0, 7).Value = TextBox8.Value ActiveCell.Offset(0, 8).Value = TextBox9.Value ActiveCell.Offset(1, 0).Activate End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub Label1_Click() End Sub Private Sub UserForm_Click() End Sub Private Sub UserForm_Initialize() Range("A2").Activate End Sub ---------------------------------------------------------- テキスト入力フォームをいくつか作っており、コマンドボタン１とコマンドボタン２で入力ボタンと閉じるボタンにしています。 このプログラムでは、入力ボタンをクリックすることでデータが入力されて、入力された列のすぐ次の列の最初のセルがアクティブな状態になります。 (1)データ入力済みのエクセルシートにおいて、アクティブな状態にしたセルや列を削除したい場合、どこにどのように書けば良いのでしょうか? (2)データ入力が一度に終わらない時、途中の任意の列から入力を始めたい場合はどこにどのように書けば良いのでしょうか? 本に書かれていることは丸写しできますが、ちょっとでも違うと壁にぶつかってしまいます。 独学で勉強する時に良いと思われる方法はどんな方法なのでしょうか? おこがましいですが素人も分かりやすい説明をして頂けると助かります。 宜しくお願いします。
- ベストアンサー
- Visual Basic
- EXCEL VBA---IsDate
お知恵をお貸し下さい。 VBAでフォームを作成し、テキストボックスに数字（日付）を入力 （入力→10/7， 表示→2005/10/07） それを、IsDateで日付かどうかチェックさせたいのですが 下記のコードでは、例えば10月35日と入力してもエラーになりません。 （入力→10/35， 表示→1935/10/01) 2005/10/35と入力すればエラーになってくれるのですが やはりこの方法しかないのでしょうか？ もし、良い方法がありましたらお教え下さい。 よろしくお願いします。 ----------------------------------------------------------------- Sub Test() Dim Data As Variant Data = TextBox16.Text If IsDate(Data) Then TextBox16.Value = CDate(Data) Else MsgBox ("正しい日付を入力してください。") End if End sub -----------------------------------------------------------------
- ベストアンサー
- オフィス系ソフト
- VBAで入力数値について
Excel VBAでTextBoxに入力された数値が整数か小数か判定し、 小数の場合は、下記のようにしたいのですが、どのようにしたらよいのでしょうか。 TextBoxに入力された数値が、 （１）整数の場合・・・Ａ＝TextBox1.Value （２）小数点第一位の場合（1.5など）・・・Ａ＝TextBox1.Value＊10 （３）小数点第二位の場合（1.55など）・・・Ａ＝TextBox1.Value*100 どなたかご教授願います。
- ベストアンサー
- Visual Basic
- VBAのTextBox表示について質問します。
実は、MicrosoftのExcel内にありますVBAを使ってシート内に記載られている内容を Userform内にあるTextBoxに表示させたいと考えています。 UserformにあるTextBoxは、シートのセルに対してTextBoxを1個配置させています。 例えば・・・セルA1に入力されている文字をTextBox1に表示 セルB1に入力されている文字をTextBox2に表示 セルC1に入力されている文字をTextBox3に表示 セルD1に入力されている文字をTextBox4に表示 セルE1に入力されている文字をTextBox5に表示と言う様な感じで表示したいです。 セル表示範囲は、A1～E24までのセルでTextBoxもTextBox24まで存在します。 TextBox1.Text = ThisWorkbook.Sheets("Sheet1").Range("A1") TextBox2.Text = ThisWorkbook.Sheets("Sheet1").Range("B1") TextBox3.Text = ThisWorkbook.Sheets("Sheet1").Range("C1") TextBox4.Text = ThisWorkbook.Sheets("Sheet1").Range("D1") TextBox5.Text = ThisWorkbook.Sheets("Sheet1").Range("E1") TextBox6.Text = ThisWorkbook.Sheets("Sheet1").Range("A2") TextBox7.Text = ThisWorkbook.Sheets("Sheet1").Range("B2") TextBox8.Text = ThisWorkbook.Sheets("Sheet1").Range("C2") TextBox9.Text = ThisWorkbook.Sheets("Sheet1").Range("D2") TextBox10.Text = ThisWorkbook.Sheets("Sheet1").Range("E2") 以降～途中省略 TextBox120.Text = ThisWorkbook.Sheets("Sheet1").Range("E24") と言う様な・・・ 上記の、この様なコードでして行くと事は可能なんですが・・・ もっと短く出来ないでしょうか？
- ベストアンサー
- Visual Basic
お礼
f_a_007 さん 何度も、親切に有難う御座いました。 wdを置き換えたら出来ました。 大変助かります、有難う御座います。