- ベストアンサー
AccessVBAで教えて下さい。
文字のチェックをしたいのですが、例えばtxtboxに「a」と入力したら msgboxで禁止文字です。ってエラーが出るようにするにはどうしたら いいのでしょうか?VBA初心者なのでやさしく教えて下さい。 お願いします。
- みんなの回答 (4)
- 専門家の回答
関連するQ&A
- Excel VBA フォーム内のTXTBOX 値取得について
お世話になります VBAフォーム内のTXTBOXの入力についてですが 「今まで」 TXTBOXに値入力ボタンクリック時に書き込み処理でしたが 「わからないこと」 次に開くとTXTBOXに(セル)に入力した値を取得しボタンクリックなしでリアルタイムに書き込みをしたいのですが、 イメージ的に、テキストボックスとセルのリンクみたいな感じが理想です、分かる方宜しくお願い申し上げます。 Excel 2003 XP Pro VBA 初心者以下
- ベストアンサー
- オフィス系ソフト
- AccessVBAの参照不可
Access2000、WindowsXPです。 作成したmdbを他のAccess2000、WindowsXP環境のPCでデータ入力をしてそれをVBAでファイル出力しようとするとエラーになり、調べてみると参照設定のところで参照不可にチェックが入っています。 そのチェックを外すと動作します。 データを入れる前のmdbには参照不可のチェックは入っていなかったので環境が変わってデータを入力した跡にチェックが入ったようです。 これはなぜおこるのでしょうか? また対策はありますか? 以上、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 【Excel VBA】A列の全角・半角文字をチェック
【Excel VBA】A列の全角・半角文字をチェック Excel VBAの初心者です。 仕事で必要なため、教えていただけると助かります。 【やりたいこと】 Excel VBAで、入力が完了したExcelシートのA列(A1からA10)が、 半角のみであること、または全角が入力されていないこと、を チェックしたいです。 半角以外の文字があった場合は、メッセージを表示します。 また、半角以外のセルがあった場合は、そのセルの色を水色にします。 入力チェックの方法は、ボタンにマクロを登録して、 そのボタンを押下することで行います。 以下に、僕が試したプログラムを記します。 アドバイスをいただけると幸いです。よろしくお願いします。 Sub 入力チェック() Dim cellValue As String Dim strANSI As String Dim i As Integer For i = 0 To 10 cellValue = Cells(1, i + 1) strANSI = StrConv(cellValue, vbFromUnicode) If Len(cellValue) = LenB(strANSI) Then MsgBox "セルは半角のみ" myColor = 8 Else MsgBox "セルの内容は全角のみ" End If MsgBox "セルの内容は全角と半角があり" Next i End Sub
- ベストアンサー
- Visual Basic
- AccessVBAでサポートお願いします。
こんばんわ。AccessVBA初心者です。 下記のような処理を作りたいのですがわかりません・・。 もしお分かりになる方がいらっしゃいましたらサポートをお願い致します。 「テーブルA」「テーブルB」があり、それぞれのテーブルに連結した「フォームA」「フォームB」(両方とも帳票フォーム)があります。 テーブルには幾つかのフィールドがあり、その中にチェックボックスに連結したフィールドがあります。 まず、「フォームA」を開き、任意のレコードのチェックボックスにチェックを入れ(複数選択あり)、あるコマンドボタンをクリックするとチェックの入ったレコードのみを「テーブルA」から「テーブルB」へ移動させる処理を作成したいのですがどうもうまく作れません。 「テーブルB」へ移動後は「テーブルA」から該当のレコードが削除されている必要があります。 また、テーブルBには随時データが蓄積されていく必要があります。 どなたかお分かりになる方がいらっしゃいましたらご教授願います。 その際、VBAのソースを記述頂けますと助かります。 どうぞ宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Access2010 VBAで文字を数える
あるデータベースのフォーム内で、テキストボックス内に記載のある任意の文字列の数を数えて変数に格納したいと考えています。 そして、コマンドボタンを押したときに、メッセージボックスで「○件選択しています。」のように表示されるようにしたいと考えています。 色々と検索してみて以下のような記述をしたのですがうまく動いてくれませんでした。(「コンパイルエラー: SubまたはFunctionが定義されていません。」と表示されます。) Dim A As Integer A = Len([txtbox]) - Len(SUBSTITUTE([txtbox], ",")) MsgBox(A & "件の選択しています。") なお、テキストボックス、コマンドボタンは同一のフォーム内においてあります。 また、テキストボックス内で検索したい文字は半角カンマです。 詳しい方がおりましたら、どうぞご教示ください。
- ベストアンサー
- その他MS Office製品
- VBA UsedRangeで選択範囲を取得したい
セルに aaa bbb ccc と入力し、vbaで Sub Macro() MsgBox ActiveSheet.UsedRange End Sub を実行すると、 型が一致しません。(Error 13) と言うエラーになります。 "$A$1:$D$3"と言うような値を取得したいのですが、どのようなVBAにすればいいのでしょうか? ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- IF文の分岐が正しく動きません
Access VBAについて教えてください。いまオプショングループの中にテキストボックスがあります。オプショングループをoption1、テキストボックスをtextbox1とします。テキストボックスは空の状態で、ロックをかけているので入力はできません。 実行ボタンを押したときに、テキストボックスの中が空ならMsgboxをだしなさいという文をかきました。 If txtbox1.value = "" Then msgbox "nothing" end if また .value=NULL とも書き換えて実行しましたが、なぜかmsgboxを表示せずにend ifにいってしまいます。何が原因と考えられるでしょうか?
- ベストアンサー
- Visual Basic
- アクセスできない保護レベルエラーが発生します
VB or C#についてお教え下さい。環境はVS2010です。 フォーム(Form1)にテキストボックス(txtBOX)があります。 このFormのtxtBOXに対して文字列を入力するには、 this.txtBOX.text = "こんにちは"; または Me.txtBOX.text = "こんにちは"; というように、やるのは理解できます。 Classを追加して、このクラス(CLASS1)からForm1のテキストボックスに文字列を入力したいと思います。 そこで、 Form1 f1 = new Form1(); f1.txtBOX.text = "こんにちは"; とやりたかったのですが、そもそもインテリセンスが効きません。さらに、ビルドすると、 「Form1.txtBOXはアクセスできない保護レベルになっています。」と表示がされます・・・ いったい何が悪く、どこを直せば解決するのでしょうか?
- ベストアンサー
- Visual Basic
- msgboxの値をシリアル値で表示するには?
お世話になります。 エクセル2010VBA初心者です。 以下の手順で msgboxの値をシリアル値で表示するには どうすればいいのでしょうか? Sub シリアル値で表示() a = InputBox("年を入力してください") b = InputBox("月を入力してください") c = InputBox("日を入力してください") d = a & "年" & b & "月" & c & "日" MsgBox d End Sub 宜しくおねがいいたします。
- ベストアンサー
- オフィス系ソフト
- EXCELでの重複入力禁止を実現するVBAについて
EXCELの重複入力禁止についての質問です。 重複入力禁止は、大きく分けて関数、入力規則を使っての設定と、VBAを使って設定の2つに分かれると思いますが(違っていたらすいません)今回、予め入力規則を設定しているセルに対し、重複入力の禁止を設定したいため、VBAで実現したいと考えています。 設定したいのは、A列、B列の2列を対象として、同じ内容の行がある場合はエラー表示させて、重複しているシートを赤く塗りつぶすような動作を考えています。例えば、A1とA2は一致するが、B1とB2が異なるといった一列だけの判断ではなく、A1、B1の内容とA2、B2に入力している内容が完全に一致した場合、エラー表示させて、A1、B1、A2、B2セルを赤く塗りつぶす動作になります。(2列1行という言い方が正確かどうかわかりませんが、上記のような内容を希望しています。) また、空白は対象外と考えます。 上記のようなVBAを作成したいのですが、当方まだまだVBAを勉強段階で自分でソースを作成することが難しいです。 ソースを教えて頂けないでしょうか? また、可能であれば、A、B、C3列を対象としたVBAについても教えていただけると非常に助かります。
- 締切済み
- オフィス系ソフト
- 生後4か月の授乳中に下の歯が生えてくると痛みを感じることがあります。この痛みを和らげるためには、赤ちゃんの歯茎を冷やす方法が効果的です。冷たい歯車や凍らせたオモチャを噛ませることで、痛みを軽減することができます。
- また、生後4か月の赤ちゃんは授乳が主な栄養摂取方法ですが、歯が生えてくると噛むことができるようになります。この時期から徐々に離乳食を導入することで、歯の成長と噛む力の向上を促すことができます。
- さらに、痛みを感じている赤ちゃんの気をそらすことも大切です。笑顔や歌などでリラックスさせ、痛みを忘れさせることができます。また、マッサージや温かいお風呂などでリラックスさせることも効果的です。
お礼
遅くなりました。 何度もありがとうございました。 おかげさまで何とか出来ました。また何かわからない ことがありましたらお願いします。 では!