【エクセルのマクロ】テキストボックスが空白でもエラーが出ないようにしたい

前へ 次へ
このQ&Aのポイント
  • エクセルを使って、ユーザーフォームのテキストボックスに入力した小数点を含む数字をコピーし、入力されていなければセルを消すマクロを作成しました。しかし、テキストボックスが空白の場合、エラーが出てしまいます。どのようなプログラムを使えば、エラーを回避できるのでしょうか？
  • マクロを使用して、エクセルのユーザーフォームのテキストボックスに入力された小数点を含む数字をコピーし、空白の場合はセルを消すプログラムを作成しました。しかし、テキストボックスが空白の場合にエラーが出てしまいます。どのように修正すれば、エラーを回避できるのでしょうか？
  • エクセルのマクロを使用して、ユーザーフォームのテキストボックスに入力された小数点を含む数字をコピーし、空白の場合はセルを消すプログラムを作成しました。しかし、テキストボックスが空白の場合にエラーが出てしまいます。どのようにすれば、エラーを回避できるのでしょうか？
回答を見る
  • ベストアンサー

【エクセルのマクロ】テキストボックスが空白でもエラーが出ないようにしたい

エクセルを使って、ユーザーフォームのテキストボックスに入力した小数点を含む数字をコピー、もし入力されていなければセルの中を消すマクロを書いていて、次のようなプログラムをテキストボックスとおなじユーザーフォームにあるボタンに取り付けました。 n3 = (n_3.Text) If n3 = Empty Then Range("j23").ClearContents Else Range("j23").Value = n_3 End If しかし、この方法だとコピーした数字が文字列として保存されてしまい、 計算に不向きなので、数字データとしてコピーするためにいちばん上の行に Dim n3 As Single と入れたところ、テキストボックスが空白の場合”型が一致しません”と表示されてエラーが出てしまいます。 調べたところ、Emptyという言葉はSingleのデータ型には使えないことまではわかったのですが、代わりにどのような言葉を使えばよいのかがわかりませんでした。 どなたかEmptyの代わりとなるような言葉か、プログラムを教えていただけないでしょうか？

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

  • ベストアンサー
  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

If n_3.Text = "" Then Range("j23").ClearContents ElseIf IsNumeric(n_3.Text) Then Range("j23").Value = Val(n_3.Text) Else MsgBox "テキストのデータは数値に出来ません" End If とか？

Amango
質問者

お礼

ご返事が遅れて申し訳ありません うまく動くようになりました、ありがとうございます。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • テキストボックスなら空白にする

    フォームにテキストボックス２つとコンボボックス２つを設置して、 規定値に値を設定し、 Private Sub cb_テキストボックスなら空白にする_Click() Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = Empty End If Next ctl End Sub としたのですが何も起こりません。 空白にするにはどうすればいいでしょうか？ あと、 ctl.Valueと打つ時に、 ドットの後に、Valueが一覧に出てきませんでした。 それが原因で空白にならないのでしょうか？ ご回答よろしくお願いします。

  • VBA 空白テキストボックスカウント

    こんにちは、よろしくお願いします。 ユーザーフォーム上にテキストボックスが　1-31が4段あります。 1-31には数字が入っているところもあれば、空白の所もあります。 このなかの数字が入っているテキストボックスの数をカウント したいのですがうまくいきません。 自分なりにやってみたこと テキストボックスの空白を数えて Dim i As Integer For i = 1 To 31 If Controls("TextBox" & i).Value = "" Then s_su.Text = Exit Sub s_suはカウントされた数字を表示するテキストボックスです。 上の式の =の右側に何を書いたらいいかがわかりません。 純粋に空白のテキストボックスを数えることは可能でしょうか。 また上記のテキストボックスを1-31数字の合計を別のテキストボックスに 表示しようと思いますが、 val(TextBox1.Text) + val(TextBox2.Text)～これを31回書いてますが もっとスマートに書けるようなコードはありますか。

  • アクセスでテキストボックスの値が空白だったら

    お世話になっております。 フォームのテキストボックスの値が0か空白だったら、レポート上に表示されるものを変えたいのですが、うまくいきません。 If [Forms]![フォーム1]![テキストボックス1].value = 0 Or [Forms]![フォーム1]![テキストボックス1].value = "" Then Me![レポート上のテキストボックス] = "無" Else [Forms]![フォーム1]![レポート上のテキストボックス1] = [Forms]![フォーム1]![テキストボックス1] & "ヶ月" End If これだと何も入っていないときに"ヶ月"と表示されてしまいます。どのように書けばよいのでしょうか？ ご教授願えませんでしょうか？

  • エクセルマクロ＿テキストボックスをシートに反映（その２）

    エクセルマクロ初心者です。（２００３使用＿ユーザーフォーム） 先ほどは大変お世話になりました。 複数行に応用させようとしたのですが、管理番号が余計に記載（テキストボックス（出荷日など）が空欄であっても、管理番号だけはとられてしまいます）されてしまいます。すみませんが、ご教授よろしくお願いいたします。 リストボックス１のデータは、Sheet1を表示しています。→管理番号はSheet2のＡ最終行に記載されます。 テキストボックス１（回答日）は、上記の管理番号記載のとなりに、 テキストボックス２（出荷日）は、テキストボックス１記載のとなりに、 ・・・とテキストボックス４（コメント）（これはＫ列）に１行で記載されます。 ↑ここまでは、教えていただいたので、完璧なのですが、 テキストボックス２～４までの内容を、あと複数行（４件）追加できるように試してみたのですが、空欄であっても管理番号だけは常に記載されてしまいます。 テキストボックス２と５に記載されている場合は、Sheet2に値を反映させるが、空欄の場合は、値を反映させないようにしたいのです。 （Sheet1=データベース） Ｃ５　　　Ｄ５ 管理番号 品名 アカ12 りんご アオ56 みかん クロ34 なし クロ89 すいか アオ12 もも （Sheet2=入力シート） Ａ（管理番号）　　　　Ｂ（回答日）　　　　Ｃ（出荷日）　　　Ｄ（数量）　　　　　Ｋ（コメント） アオ56 　　　　　　　8月9日 　　　　　　　8月10日 　　　　　75　　　　　送り先の確認 アオ56 　　　　　　　　　　　　　　　　　　　8月11日 　　　　　80 クロ34 　　　　　　　9月4日 　　　　　　　9月5日 　　　　　80 （今回は、２行で作成した場合のマクロを記載しました） Private Sub UserForm_Initialize() With ListBox1 .ColumnWidths = "0;0;50;50" .ColumnCount = 4 .RowSource = "Sheet1!A5:D" & Worksheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row End With End Sub Private Sub CommandButton1_Click() If TextBox2.Value Then Dim lRow As Long With Worksheets("Sheet2") lRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A" & lRow + 1).Value = ListBox1.List(ListBox1.ListIndex, 2) If IsDate(TextBox1.Value) Then .Range("B" & lRow + 1).Value = TextBox1.Value End If If IsDate(TextBox2.Value) Then .Range("C" & lRow + 1).Value = TextBox2.Value End If If IsNumeric(TextBox3.Value) Then .Range("D" & lRow + 1).Value = TextBox3.Value End If .Range("K" & lRow + 1).Value = TextBox4.Value End With End If If TextBox5.Value Then Dim llRow As Long With Worksheets("Sheet2") llRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A" & llRow + 1).Value = ListBox1.List(ListBox1.ListIndex, 2) If IsDate(TextBox5.Value) Then .Range("C" & llRow + 1).Value = TextBox5.Value End If If IsNumeric(TextBox6.Value) Then .Range("D" & llRow + 1).Value = TextBox6.Value End If .Range("K" & llRow + 1).Value = TextBox7.Value End With End If Dim myCtrl As Control For Each myCtrl In Controls If TypeName(myCtrl) = "TextBox" Then myCtrl.Value = vbNullString End If Next End Sub （ユーザーフォーム） リストボックス１＝Sheet1のデータを反映 テキストボックス１（回答日） テキストボックス２（出荷日）,テキストボックス３（数量）,テキストボックス４（コメント）←１件目 テキストボックス５（出荷日）,テキストボックス６（数量）,テキストボックス７（コメント）←２件目 ↑１件目のみでコマンドボタンを押した場合は、１件目のみの管理番号取得をしたいのです。が今は、２件目が空欄でも管理番号はとられてしまいます。 長くなってしまいすみません。 どなたかご回答いただければ幸いです。よろしくお願いいたします。

  • エクセルVBAユーザーフォームのテキストボックスについて

    VBA初心者です。 エクセルVBAユーザーフォームのテキストボックスに入力した数字を通貨単位でセルに反映させるにはどうすれば良いのですか？ Private Sub 一月OK_Click() Range("J10") = Me.一月売上 Range("J13") = Me.一月粗利 Unload Me End Sub 今はこんな感じです。 ここで月度の売上を入力してシート上で合計させたいのです。 よろしくお願いします。

  • エクセルマクロのテキストボックスを選択したい

    こんばんわ！ エクセルマクロのユーザーフォームのテキストボックスを選択したままにしたいのですが、どうしたらよいでしょうか？ 具体的には テキストボックスに値を打ち込みテキストボックスから移動すると確定？するようにしています。（下のプログラム） Private Sub textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) msgbox "aaa",vbinformation endsub これが動作した後、またtextbox1を選択状態にしたいです。 アドバイスの程よろしくお願いいたします。

  • テキストボックスの文字を保持したい

    どなたか教えてください。 ユーザーフォームにテキストボックスを挿入して、あるプログラムを動作させた状態を表示させたいのですが、この時ユーザーフォームを消してしまうとテキストボックスに表示させていた文字が消えてしまいます。テキストボックスに表示された文字を、ユーザーフォームを消して再度表示させた時にも表示させたままにすることは可能ですか？ お願いします。

  • テキストボックスが空白の時、セルに入力"しない"

    ユーザーフォームにて、テキストボックスに入力されている文字や数字をユーザーフォーム内の"入力開始ボタン"を押したら、セル(A1)に入力されるように設定しています。 しかし、別のセル(C1)に　A1 ×　B1　＝　X　　 という式が入力されており、テキストボックスが空白の状態で入力開始ボタンを押したら、セル(A1)に文字が打ち込まれたとカウントするのか、正しく計算できなくなります(A1を選択してデリートするとXに正しく0と表示されます）。 そこで、テキストボックスに文字か数字が打ち込まれている時のみセル(A1)に入力されるようにしたいのですが、回答宜しくお願いします。

  • エクセルでテキストファイルからフォームのテキストボックスにテキスト挿入するマクロ

    マクロでフォームのテキストボックスに直接テキストファイルからテキストを挿入したいのですが出来ますか？ opentextでエクセルシートに入れてからフォームにコピーすることはできたのですが、それだと重くなってしまうので直接取り込みたいんですがうまくいきません。 VBやJAVAのreadlineのようなものは使えないんでしょうか。

  • エクセルVBA　テキストボックスへのセットフォーカスについて

    エクセルＶＢＡでユーザーフォーム内に配置されたテキストボックス への数値の入力時に、指定範囲内になければメッセージボックスで 規格外であることを警告し、その規格外が入力されたテキストボックス を強制的に空欄にし、次のテキストボックスにフォーカスを移動させずに、入力間違いのテキストボックスにフォーカスを戻したいのですが どうすればよいのでしょうか？ 自分で考えた構文です。 Private Sub TextBox1_AfterUpdate() Dim A As Single A = TextBox1.Text If A < 1.99 Or A > 3.00 Then MsgBox "規格外！！" 　　　　TextBox1.Text = "" TextBox1.SetFoucus End If Exit Sub End Sub これですと、次のテキストボックスにフォーカスが移動してしまいます。 次のテキストボックスにフォーカスを移動させずに、規格内の値が 入力されるまでフォーカスを移動させない方法を教えて下さい。 お願い致します。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する