ベストアンサー

※ ChatGPTを利用し、要約された質問です（原文：ExcelVBAで計算機（エクセル２０００））

ExcelVBAで計算機を作成しています

2004/03/31 02:57

このQ&Aのポイント

ExcelVBAで計算機の作成について学んでいます。
クリアボタンを押下すると、計算結果を初期化したいが方法が分からない。
メモリ上の値を初期化する方法について教えてください。

fe2-dicapoo
お礼率82% (52/63)

その他（プログラミング・開発）
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

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

ベストアンサー

shishishishi
ベストアンサー率39% (362/921)

2004/03/31 09:33 回答No.1

エクセルVBAで計算機ですか？だったらそんな面倒な事しないで下記はどうですか？ Sub my電卓() x = Shell("calc.exe") End Sub

関連するQ&A

VBAの計算について教えてください。

お世話になります。 VBA超初心者です。教えて頂けると助かります。ユーザーフォームにテキストボックス１、２、３を作成し、それらを計算させてテキストボックス４に表示をさせたいと考えています。テキストボックスに入力するパターンは以下の２種類です。 (1)すべてのテキストボックスに数値が入る (2)テキストボックス３のみに数値が入る行いたい計算は、“（テキストボックス１ ×　テキストボックス２）　＋　テキストボックス３”です。曲りなりに作成してみましたが、テキストボックス３の数値を変えた時や削除した時などに、テキストボックス４に入っている数値が残っていたりと、思うようにできません。作成したものを掲載しておきます。何卒よろしくお願いします。テキストボックス１を変更したとき　１、３に数値が入っていれば、以下の計算を。それ以外は“０”をテキストボックス４へ Private Sub TextBox1_Change() If TextBox1.Value = True And TextBox3.Value = True Then TextBox4 = Val(TextBox1.Text) * Val(TextBox2.Text) + Val(TextBox3.Text) Else TextBox4 = 0 End If End Sub テキストボックス２を変更したとき　２、３に数値が入っていれば、以下の計算を。それ以外は“０”をテキストボックス４へ Private Sub TextBox2_Change() If TextBox2.Value = True And TextBox3.Value = True Then TextBox4 = Val(TextBox1.Text) * Val(TextBox2.Text) + Val(TextBox3.Text) Else TextBox4 = 0 End If End Sub テキストボックス３を変更したとき　１、２、３に数値が入っていれば、以下の計算を。１か２に数値がなく、３に数値があれば、３の数値をテキストボックス４へ。それ以外は“０”をテキストボックス４へ Private Sub TextBox3_Change() If TextBox1.Value = True And TextBox2.Value = True And TextBox3.Value = True Then TextBox4 = Val(TextBox1.Text) * Val(TextBox2.Text) + Val(TextBox3.Text) ElseIf TextBox1.Value = False or TextBox2.Value = False　And　TextBox3.Value = True Then TextBox4 = Val(TextBox3.Text) Else texbox24 = 0 End If End SubEnd Sub
エクセルVBA　計算の繰り返し処理？

エクセルのVBA　フォーム内にて下記、各テキストボックスの数値を変更することにより Label27にLabel28*TextBox12+TextBox13+TextBox14 Label33にLabel34*TextBox16+TextBox17+TextBox18 Label27、Label33に計算の答えを書き込みたいため下記のように書き込みました。 Private Sub TextBox12_Change() Label27.Caption = Val(Label28.Caption) * Val(TextBox12.Value) _ + Val(TextBox13.Value) + Val(TextBox14.Value) End Sub Private Sub TextBox13_Change() Label27.Caption = Val(Label28.Caption) * Val(TextBox12.Value) _ + Val(TextBox13.Value) + Val(TextBox14.Value) End Sub Private Sub TextBox14_Change() Label27.Caption = Val(Label28.Caption) * Val(TextBox12.Value) _ + Val(TextBox13.Value) + Val(TextBox14.Value) End Sub Private Sub TextBox16_Change() Label33.Caption = Val(Label34.Caption) * Val(TextBox16.Value) _ + Val(TextBox17.Value) + Val(TextBox18.Value) End Sub Private Sub TextBox17_Change() Label33.Caption = Val(Label34.Caption) * Val(TextBox16.Value) _ + Val(TextBox17.Value) + Val(TextBox18.Value) End Sub Private Sub TextBox18_Change() Label33.Caption = Val(Label34.Caption) * Val(TextBox16.Value) _ + Val(TextBox17.Value) + Val(TextBox18.Value) End Sub 計算は出来るのですが計算ラベル５０程あるため、修正を考えてももう少し簡素化して書き込みたいため調べましたがヒント項目がずれているせいか回答を検索できませんでした。どのようにすれば宜しいかご教示の程宜しくお願いいたします。
エクセル VBAのチェックボックスについて

お読みくださり、ありがとうございます。エクセル初心者でございます。エクセルのマクロなのですが、お詳しい方、是非教えて欲しいです！汗調子に乗って入力フォームなるものを作りました。入力フォームの中にて、チェックボックスで「ある」「なし」の項目を入れてみたのですが、チェックしていないのに、値が入る現象が起きています汗以下、素人が書いたコードを恥を承知で記載させていただきます。 Private Sub CheckBox1_Click() If CheckBox1.Value = True Then OK = "○" End If End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then NO = "×" End If End Sub Private Sub UserForm_Click() End Sub '以下のコードは、登録ボタンがクリックされたときの処理！ Private Sub 登録ボタン_Click() If TextBox1.Text = "" Then MsgBox "グッズ名を入力してください。" Exit Sub End If If TextBox2.Text = "" Then MsgBox "アプローチ先を入力してください。" Exit Sub End If With Worksheets("協賛グッズ") With Cells(Rows.Count, 2).End(xlUp) .Offset(1, 0).Value = TextBox1.Text .Offset(1, 1).Value = mori .Offset(1, 2).Value = mori2 .Offset(1, 3).Value = TextBox2.Text .Offset(1, 5).Value = TextBox3.Text .Offset(1, 6).Value = TextBox4.Text .Offset(1, 7).Value = TextBox5.Text .Offset(1, 8).Value = TextBox6.Text End With End With TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" CheckBox1.Value = False CheckBox2.Value = False End Sub 以上です。おかしなところ満載かと思いますが、チェックを入れた項目だけ値を入れたいと考えております。おわかりになるかたおりましたら何卒お助けください汗よろしくお願いいたします。
ExcelVBA　スピンボタンの値について

参考書を片手に勉強中のエクセルVBA初心者です。ぜひアドバイスをお願いします…！ Excel2000でユーザーフォームを作成し、スピンボタンを使用して数値を指定できるよう、以下のソースを記述しました。 ----------------------------------------- Private Sub UserForm_Initialize() With SpinButton1 .Min = 20 .Max = 150 .Value = 150 .SmallChange = 5 End With End Sub ----------------------------------------- Private Sub SpinButton1_Change() 　　TextBox1.Value = SpinButton1.Value / 10 End Sub ----------------------------------------- Private Sub TextBox1_Change() 　　TextBox1.Text = Format(TextBox1.Text, "0.0") End Sub ----------------------------------------- これを、スピンボタンも使用でき、かつ手入力にも対応するように動作させたいと考えています。具体的にはテキストボックスに6（ランダムな値）と手入力後、スピンボタンを使用してで6.0の値から増減させたいのですが、そのようなことは可能でしょうか？可能であれば、どのようにすればよいのでしょうか？（テキストボックス内の値は、小数点第1位まで表示させ、2.0～15.0の値しか表示できないようにしたいです）どうかご回答よろしくお願いいたします。
TextBoxの値を使った計算式

皆様、こんにちは。いくつかのテキストボックスを含んでいるユーザーフォームを作りました。ユーザーがこれらのテキストボックスに入力したデータを使った式をあるセルに設定しようとしていますが、「＃NAME?」というエラーメッセージが出てしまいます。コードは以下のように書いています。 Private Sub CommandButton1_Click() Range("P24").Value = TextBox8.Value Range("Z24").Formula = "=Val(TextBox8.Text)*37.86" Range("AA24").Formula = "=Val(TextBox8.Text)*57.86/1000*44/12" Range("AB24").Formula = "=Val(TextBox1.Text)*37.86/1000*0.25+Val(TextBox3.Text)/0.11*0.013+Val(TextBox4.Text)*/0.12*0.0076+Val(TextBox5.Text)/0.25*0.015+Val(TextBox6.Text)/0.31*0.017+Val(TextBox7.Text)/0.22*0.013" 　Unload 軽油の消費量 End Sub 何方か詳しい方に正しい書き方を教えていただければ非常に助かります。どうぞよろしくお願いいたします。
エクセル　ユーザーフォームでVLOOK

ユーザーフォームのテキストボックスで、ご教示お願いいたします。現在、以下のようなコードこちらで教えていただきセルに入力をしております。テキストボックス5に値を入れ、 listのシートから該当する文字をテキストボックス6に表示させたいと思っております。 ■現在のコード '// Private Sub CommandButton1_Click() Dim LastRow As Long 'ここはキャメル形式やパスカル形式にします/大文字は定数です。 Dim i As Long '/テキストボックスに値があるか調べる For i = 1 To 7 Next i '/セルに書き込み With Worksheets("Sheet1") LastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 For i = 1 To 7 .Cells(LastRow, i).Value = Me.Controls("TextBox" & i).Value Next End With '/TextBox1-7をクリア If MsgBox("テキストボックスを空にしてよろしいですか？", vbQuestion + vbYesNo) = vbYes Then For i = 1 To 7 Me.Controls("TextBox" & i).Value = "" Next i End If 'TextBox1にフォーカスを移動 Me.TextBox1.SetFocus End Sub ■付け足したいコード Private Sub textbox5_change() Dim temp, x temp = Me.textBox5.Value If IsNumeric(temp) Then temp = Val(temp) x = Application.VLookUp(temp, Sheets("list").Range("a1:b20"), 2, False) If Not IsError(x) Then Me.TextBox6.Value = x Else MsgBox Me.TextBox5.Value & " はリストにありません" End If End Sub 【質問内容】付け足したいコードは上記の通りですが、どのように付け足せばいいのかが分からず、困っております。度々で申し訳ありませんが、テキストボックス5の値を見て、テキストボックス6に表示させるやり方をご教示お願いいたします。
マクロにおける条件文の作成の件

以下の様に条件付きの計算式を作成しました。CommandButton3を押しても計算しなかったり、TextBox3.Value > TextBox1　ではないときでもエラーメッセージが出ます。どこに欠点があるのか教えて下さい。 Private Sub CommandButton3_Click() Dim row As Integer If TextBox1.Value = Empty Then MsgBox ("Ａが空欄です") Exit Sub End If If TextBox2.Value = Empty Then MsgBox ("Ｂが空欄です") Exit Sub End If If TextBox3.Value = Empty Then MsgBox ("Ｃが空欄です") Exit Sub End If If TextBox4.Value = Empty Then MsgBox ("Ｄが空欄です") Exit Sub End If If TextBox3.Value > TextBox1.Value Then MsgBox ("Ｃの値をＡの値より小さくしましょう！") Exit Sub End If If TextBox4.Value > TextBox2.Value Then MsgBox ("Ｄの値をＢの値より小さくしましょう！") Exit Sub End If TextBox5 = Round(TextBox1 * TextBox2 - (TextBox1 - TextBox3) * (TextBox2 - TextBox4) / 2, 0) End Sub
エクセルVBAでユーザーフォームのテキストボックス

ユーザーフォーム上にテキストボックスを8個設置しました。そこに数値が入力された場合は自動的にカンマ区切りが表示されるように以下のコードを書きました。これで希望の動きはしてくれるのですが、このやりかたは正しいでしょうか？また、テキストボックスは8個あるので、それぞれに下記のように8通りコードをかかなければいけないのでしょうか？ご教示ください。 Private Sub TextBox1_Change() 　　If IsNumeric(TextBox1.Value) Then Application.EnableEvents=False 　　　　TextBox1.Text = Format(TextBox1.Value, "#,##0") Application.EnableEvents=True 　　End If End Sub 途中（2～7）略 Private Sub TextBox8_Change() 　　If IsNumeric(TextBox8.Value) Then Application.EnableEvents=False 　　　　TextBox8.Text = Format(TextBox8.Value, "#,##0") Application.EnableEvents=True 　　End If End Sub
12個のCommandbuttonをスマートに

はじめまして 2003 XP UserFormにCommandbuttonが12個あります。 Private Sub CommandButton1_Click() If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & "1" Else: TextBox1.Value = TextBox1 & "1" End If End Sub Private Sub CommandButton2_Click() If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & "2" Else: TextBox1.Value = TextBox1 & "2" End If End Sub Private Sub CommandButton3_Click() If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & "3" Else: TextBox1.Value = TextBox1 & "3" End If End Sub Private Sub CommandButton4_Click() If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & "4" Else: TextBox1.Value = TextBox1 & "4" End If End Sub Private Sub CommandButton5_Click() If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & "5" Else: TextBox1.Value = TextBox1 & "5" End If End Sub Private Sub CommandButton6_Click() If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & "6" Else: TextBox1.Value = TextBox1 & "6" End If End Sub Private Sub CommandButton7_Click() If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & "7" Else: TextBox1.Value = TextBox1 & "7" End If End Sub Private Sub CommandButton8_Click() If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & "8" Else: TextBox1.Value = TextBox1 & "8" End If End Sub Private Sub CommandButton9_Click() If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & "9" Else: TextBox1.Value = TextBox1 & "9" End If End Sub Private Sub CommandButton10_Click() If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & "0" Else: TextBox1.Value = TextBox1 & "0" End If End Sub Private Sub CommandButton11_Click() If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & "00" Else: TextBox1.Value = TextBox1 & "00" End If End Sub Private Sub CommandButton12_Click() If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & "000" Else: TextBox1.Value = TextBox1 & "000" End If End Sub 　これをもっとスマートに出来ないでしょうか？宜しくお願いします。
excel VBA コンボボックスでシート選択後エラー

どなたかご教授願います。ユーザーフォームにコンボボックスを配置し、ブック内のシートすべて選択できるようにしてます。選択後シートに移動するのですが、同じユーザーフォームのテキストボックス等に入力した後、コマンドボタンをクリックするとエラーとなります。しかしテキストボックス等の値は間違いなく入力されています。よろしくお願いします。 Private Sub ComboBox1_Change() → Sheets(Me.ComboBox1.Value).Select 　　　　　　この部分が黄色になってしまいます End Sub Private Sub CommandButton1_Click() Dim myRow As Long ActiveSheet.Select myRow = Range("B65536").End(xlUp).Offset(1, 0).Row '各テキストボックの値をセルに入力 Cells(myRow, 2).Value = TextBox1.Value Cells(myRow, 3).Value = TextBox1.Value Cells(myRow, 4).Value = ComboBox2.Value Cells(myRow, 6).Value = TextBox2.Value Cells(myRow, 7).Value = TextBox3.Value Cells(myRow, 8).Value = TextBox4.Value 'Cells(myRow, 9).Value = TextBox5.Value '書式設定 Cells(myRow, 2).NumberFormatLocal = "m" Cells(myRow, 3).NumberFormatLocal = "dd" Cells(myRow, 6).NumberFormatLocal = "#,###" 'セルに入力が各テキストボックの値をクリア ComboBox1.Value = "" ComboBox2.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" 'フォーカス移動 ComboBox2.SetFocus End Sub
VBAでエラー時の処理について

入力画面には３つのTextBoxあり、すべてを入力したら「記入」ボタンをクリックします。その時、TextBox2とTextBox3の合計がTextBox1の値と一致するか判定します。一致した場合は、その値を選択したセルに表示し、一致しなかった場合は、メッセージを表示させ、メッセージの「OK」ボタンをクリックすると「記入」ボタンがクリックされる前の状態(UserForm1の入力項目にデータが入力されている状態)に戻したいのですが、どのようにしたらよいのでしょうか。現在は、下記のようなかんじになっています。 Private Sub CommandButton1_Click()　　Sum = 0 　For N = 1 To 2 　If Controls("TextBox" & N).Text = "" Then 　　RepMsg = MsgBox("値を入力して下さい。", vbOKOnly + vbExclamation, "入力確認") 　　『？　「記入」ボタンがクリックされる前の画面(UserForm1)に戻る』　Else 　　Sum = Val(Controls("TextBox" & N).Text) + Sum 　End If 　Next N 　If Val(TextBox1.Text) <> Sum Then 　　RepMsg = MsgBox("合計が一致しません。", vbOKOnly + vbExclamation, "合計確認") 　　If RepMsg = vbOK Then 　　　『？　「記入」ボタンがクリックされる前の画面(UserForm1)に戻る』　　End If 　End If （　表示　） End Sub
エクセルＶＢＡについて質問です。

エクセルＶＢＡについて質問です。ユーザーフォームのテキストボックスに数字以外を入力するとエラーメッセージが出るように関数を作ったのですが、 Private Function AA(objtextbox As MSForms.TextBox) As Boolean Dim A As String AA = False A = Trim(objtextbox.Text) If objtextbox.Text <> "" Then If IsNumeric(A) = False Then MsgBox "数値 Error", vbCritical With objtextbox .SetFocus .SelStart = 0 .SelLength = Len(.Value) End With AA = True End If End If End Function Private Sub textbox1_exit(ByVal cancel As MSForms.ReturnBoolean) cancel = AA(TextBox1) End Sub テキストボックス２００近くある場合、１つ１つに Private Sub textbox1_exit(ByVal cancel As MSForms.ReturnBoolean) cancel = AA(TextBox1) End Sub と作っていかなくてはいけないのでしょうか？プロシージャ名に変数使おうとしたら上手くできませんでした。どなたか助けてください。
テキストボックスの数値を3桁ごとに区切りたい。

テキストボックスの数値を3桁ごとに区切りたい。エクセルのユーザーフォームにテキストボックスを１～７まで並べています。テキストボックス１～６の合計を７に入れるようにしています。テキストボックスに記入するＶＢＡは以下のように投入しています。合計は上手く表示されるのですが、3桁ごとに「,」の区切りを入れたいと思っています。どのように記述したらよいのか、教えていただけないでしょうか。 -------------------------------------- Private Sub TextBox1_AfterUpdate() Dim i Dim res For i = 1 To 6 res = res + Val(Me.Controls("TextBox" & i).Value) Next i TextBox7 = res End Sub Private Sub TextBox2_AfterUpdate() Dim i Dim res For i = 1 To 6 res = res + Val(Me.Controls("TextBox" & i).Value) Next i TextBox7 = res End Sub Private Sub TextBox3_AfterUpdate() Dim i Dim res For i = 1 To 6 res = res + Val(Me.Controls("TextBox" & i).Value) Next i TextBox7 = res End Sub Private Sub TextBox4_AfterUpdate() Dim i Dim res For i = 1 To 6 res = res + Val(Me.Controls("TextBox" & i).Value) Next i TextBox7 = res End Sub Private Sub TextBox5_AfterUpdate() Dim i Dim res For i = 1 To 6 res = res + Val(Me.Controls("TextBox" & i).Value) Next i TextBox7 = res End Sub Private Sub TextBox6_AfterUpdate() Dim i Dim res For i = 1 To 6 res = res + Val(Me.Controls("TextBox" & i).Value) Next i TextBox7 = res End Sub -------------------------------------- ＃次の文字を書くテキストボックスの情報に加えてみましたが、合計が狂ってうまくいきませんでした。 TextBox1.Text = Format(TextBox1.Value, "#,##0") TextBox7.Text = Format(TextBox7.Value, "#,##0")
ユーザーフォームのテキストボックスでVLOOK

ユーザーフォームのテキストボックスで、ご教示お願いいたします。現在、以下のようなコードこちらで教えていただきセルに入力をしております。上から順番に入力した際、テキストボックス5に値を入たら、 listのシートから該当するもの（項目は20個）をテキストボックス6に表示させたいと思っております。 ■現在のコード '// Private Sub CommandButton1_Click() Dim LastRow As Long 'ここはキャメル形式やパスカル形式にします/大文字は定数です。 Dim i As Long '/テキストボックスに値があるか調べる For i = 1 To 7 Next i '/セルに書き込み With Worksheets("Sheet1") LastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 For i = 1 To 7 .Cells(LastRow, i).Value = Me.Controls("TextBox" & i).Value Next End With '/TextBox1-7をクリア If MsgBox("テキストボックスを空にしてよろしいですか？", vbQuestion + vbYesNo) = vbYes Then For i = 1 To 7 Me.Controls("TextBox" & i).Value = "" Next i End If 'TextBox1にフォーカスを移動 Me.TextBox1.SetFocus End Sub ■付け足したいコード Private Sub textbox5_change() Dim temp, x temp = Me.textBox5.Value If IsNumeric(temp) Then temp = Val(temp) x = Application.VLookUp(temp, Sheets("list").Range("a1:b20"), 2, False) If Not IsError(x) Then Me.TextBox6.Value = x Else MsgBox Me.TextBox5.Value & " はリストにありません" End If End Sub 【質問内容】付け足したいコードは上記の通りですが、どのように付け足せばいいのかが分からず、困っております。度々で申し訳ありませんが、テキストボックス5の値を見て、テキストボックス6に表示させるやり方をご教示お願いいたします。
ExcelVBAで行と列の検索

　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ１　　コード　あ　　い　う　え２　　１０　　○　　　 ○ ３　　２０　　　　　○　　○ ４　３０　　　　　　　　　　○ 上記の表が5000件あります。Textbox1に入力し検索ボタンを押すと A列のコードを検索して一致する列の○のあるところの１行目の項目をtextbox2に表示したいのですがうまく行きません。よろしくお願い致します。 Private Sub CommandButton1_Click() '検索フォームボタン Dim i As Long Dim 最終行 As String Dim サーチ行 As Long Sheets(1).Activate 最終行 = Range("A1").End(xlDown).Row サーチ行 = 0 For i = 2 To 最終行 If TextBox1.Value = Range("A" & i) Then If Range("B" & i, "N" & i) = "" Then TextBox2.Text = Range("B1", "N1") サーチ行 = i Exit For End If End If Next If サーチ行 = 0 Then MsgBox TextBox1.Value & "データはありません。", vbInformation, "無し" End If TextBox1.SetFocus End Sub エラーはでません。データはありませんとなります。　
Excel　オーダーフォームのテキストボックス入力について

オーダーフォームを作成し、テキストボックスを2つ以上作成し、コマンドボタンを1つ作りました。同じ行ですべてを入力できるようにしたいのですが、どうしたらよいでしょうか？テキストボックス1の値を入力するためのコマンドは、最下位の行を探してそこに入力するようなコマンドを作っているはずです…その横の列にテキストボックス2の値を入力し、その横の列にテキストボックス3の値を入力し…というようにしていきたいのです。 Private Sub CommandButton1_Click() Dim lRow As Long With Worksheets("sheet1") lRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A" & lRow + 1).Value = TextBox1.Value End With TextBox1.Value = "" TextBox1.SetFocus End Sub
年齢の計算について

いろいろ調べましたが、なかなか分からないので質問させていただきます。エクセルのVBAでユーザーフォーム内にテキストボックスを3つ配置しました。それぞれのテキストボックスは以下のようにしています。テキストボックス１　基準日の入力　（2012/4/1　など）テキストボックス２　生年月日の入力　(1980/5/10　など) テキストボックス３　基準日での年齢を表示(自動表示) テキストボックス１、２に日付を入力した場合にテキストボックス３に年齢が自動で表示されるといった内容です。そこで、以下のようにプログラムしましたが、基準日を過ぎた日付をテキストボックスに入力してしまった場合にエラーになって止まってしまいます。そこで、テキストボックス２にテキストボックス１の基準日を過ぎた日付を入れてしまったときにエラーメッセージがでるようにしたいのですが、どうすればよいでしょうか？また、文字などを入れてしまった場合には、エラーメッセージが出ますが、和暦（例：60/4/10）など入れてしまった場合にもエラーになり止まってしまいます。このような場合(yyyy/mm/dd以外の入力の場合)にもエラーメッセージが出るようにするにはどうすればよいでしょうか？ Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox2 = "" Then Exit Sub Else If Not (IsDate(Me.TextBox2)) Then MsgBox "日付を入力してください" & Chr(10) & "例(2002/4/1)", vbCritical TextBox2 = "" Cancel = True Exit Sub Else TextBox3.Value = Evaluate("datedif(""" & TextBox2.Value & """,""" & TextBox1.Value & """,""y"")") End If End If End Sub 何卒よろしくお願いします。
リストボックスからの入力をテキストに貼付

下記コードではリストボックあ行選択しテキスト1～6に入力後、クリアボタンで消去したあと、か行選択しテキストに入力したら7～貼付けになるクリアボタンで消去後、改めてテキスト1～入力するコードがありますか。どなたか解る方よろしくお願いします。 Private Sub 実行_Click() Static cnt As Integer Dim i As Integer If Listbox.ListIndex = -1 Then Exit Sub For i = 0 To Listbox.ListCount - 1 If Listbox.Selected(i) Then cnt = cnt + 1 If cnt > 10 Then cnt = 1 Me.Controls("TextBox" & cnt).Text = Listbox.List(i) End If Next End Sub Private Sub クリア_Click() Dim tbCont As Control With Me.MultiPage1 For Each tbCont In .Pages(.Value).Controls If TypeName(tbCont) = "TextBox" Then tbCont.Value = Null End If Next tbCont End With End Sub
excel VBA 色をセルに自動的に付ける

エクセル2000を使用していて、VBA初心者で勉強中の者です。タイムテーブルを作っています。入力はユーザーフォームを使っています。コマンドボタンを押すとtextboxにある値を判断してセルに色を付けるマクロを教えてください。タイムテーブルは列は15分で1列使い、1時間で4列です。 1曜日は4行分使い、4行目に予定時間（textbox2)が入ります。 15分なら0.25　30分なら0.5　1時間は1　・・・ユーザーフォームの登録ボタンをクリックした時4行目に入力される値で判断して、例えば0.15ならセルを1つ塗りつぶし、1時間なら4列分塗りつぶすマクロを教えてください。塗りつぶすセルの値が入っているのはtextbox2 色は　ColorIndex = 33 textbox2の値が0.01～0.25は１列分塗りつぶし　　　　　　　0.26～0.5は２列分塗りつぶし　　　　　　　0.51～0.75は３列分塗りつぶし　　　　　　　0.76～1は４列分塗りつぶし　　　　　　　1.01～0.25は５列分塗りつぶし　　　　　　　・・・　　　　　　　4.76～5は20列分塗りつぶしよろしくお願いします。以下はユーザーフォームの登録ボタンを押す時のコードです。 Private Sub CommandButton1_Click() '未入力なら中止 If ComboBox2.Value = "" Then MsgBox "時間を入力" Cancel = True Exit Sub ElseIf ComboBox3.Value = "" Then MsgBox "時間を入力" Cancel = True Exit Sub End If Call Macro登録 End Sub Sub Macro登録() 　　　 With ActiveSheet .Cells(行, 列).Value = ComboBox1.Text'1行目の値 .Cells(行 + 1, 列).Value = TextBox1.Text'2行目の値 .Cells(行 + 2, 列).Value = ComboBox2.Text & "～" & ComboBox3.Text'3行目の値 .Cells(行 + 3, 列).Value = TextBox2.Value'4行目の値　　　　End With End Sub
ifでの条件分岐

.net　vb2005でプログラミングしています。 2つのテキストボックスがあり、その名前をtextbox1,textbox2 , 変数の代入をtx1、tx2とします。どちらも半角数字で300までしか入力できません。さらに、tx1に入力されるとtx2も必ず入力される必要があります。 tx1が未入力の場合はtx2も未入力である必要があります。最初にtx1の文字数が0か確認し、入っている場合、居ない場合と ifで条件分岐させましたがうまくいきません。。アドバイスいただきたいと思います。 Dim tx1,tex2 As Integer If Len(TextBox1.Text) = 0 Then flg = 0 ElseIf Regex.IsMatch(TextBox1.Text, "^[0-9]{1,3}$") Then tx1= Val(TextBox1.Text) tx1 = Convert.ToInt32(iptx5) '文字列をInteger型(数字型)に変換 Else MsgBox("300までの数字で入力して下さい", vbCritical, "入力エラー") TextBox1.Clear() Exit Sub End If If tx1 > 255 Then flg = 1 MsgBox(ipm_msg2, vbCritical, "入力エラー") TextBox1.Clear() End If '********************************************************************** If Len(TextBox1.Text) = 0 Then flg = 0 exit sub ElseIf Regex.IsMatch(TextBox2.Text, "^[0-9]{1,3}$") Then tx2 = Val(TextBox2.Text) tx2 = Convert.ToInt32(tex2) Else MsgBox(ipm_msg1, vbCritical, "入力エラー") TextBox2.Clear() Exit Sub End If '**255以上なら入力不可** If iptx6 > 255 Then flg = 1 MsgBox(ipm_msg2, vbCritical, "入力エラー") TextBox6.Clear() Exit Sub End If

ExcelVBAで計算機を作成しています

ExcelVBAで計算機（エクセル２０００）

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

関連するQ&A

VBAの計算について教えてください。

エクセルVBA　計算の繰り返し処理？

エクセル VBAのチェックボックスについて

ExcelVBA　スピンボタンの値について

TextBoxの値を使った計算式

エクセル　ユーザーフォームでVLOOK

マクロにおける条件文の作成の件

エクセルVBAでユーザーフォームのテキストボックス

12個のCommandbuttonをスマートに

excel VBA コンボボックスでシート選択後エラー

VBAでエラー時の処理について

エクセルＶＢＡについて質問です。

テキストボックスの数値を3桁ごとに区切りたい。

ユーザーフォームのテキストボックスでVLOOK

ExcelVBAで行と列の検索

Excel　オーダーフォームのテキストボックス入力について

年齢の計算について

リストボックスからの入力をテキストに貼付

excel VBA 色をセルに自動的に付ける

ifでの条件分岐

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

ExcelVBAで計算機を作成しています

ExcelVBAで計算機（エクセル２０００）

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

関連するQ&A

VBAの計算について教えてください。

エクセルVBA 計算の繰り返し処理？

エクセル VBAのチェックボックスについて

ExcelVBA スピンボタンの値について

TextBoxの値を使った計算式

エクセル ユーザーフォームでVLOOK

マクロにおける条件文の作成の件

エクセルVBAでユーザーフォームのテキストボックス

12個のCommandbuttonをスマートに

excel VBA コンボボックスでシート選択後エラー

VBAでエラー時の処理について

エクセルＶＢＡについて質問です。

テキストボックスの数値を3桁ごとに区切りたい。

ユーザーフォームのテキストボックスでVLOOK

ExcelVBAで行と列の検索

Excel オーダーフォームのテキストボックス入力について

年齢の計算について

リストボックスからの入力をテキストに貼付

excel VBA 色をセルに自動的に付ける

ifでの条件分岐

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

エクセルVBA　計算の繰り返し処理？

ExcelVBA　スピンボタンの値について

エクセル　ユーザーフォームでVLOOK

Excel　オーダーフォームのテキストボックス入力について

カテゴリ
一覧

専門家に質問してみよう
専門家登録