ベストアンサー "#,###;"[青]"#,###"になっちゃう 2013/11/08 22:58 フォーム上のたくさんのテキストボックスに同じ書式を付けたいのですが なぜか、vbaで"#,###;[青]#,###"を指定しても、 実際コントロールには "#,###;"[青]"#,###" となってしまいます。 myctl.Format = "#,###;[青]#,###" と言うコードだと、”まではいってしまうようですが、 "#,###;[青]#,###"のままプロパティの書式の値を指定する方法を教えてください。 画像を拡大する みんなの回答 (1) 専門家の回答 質問者が選んだベストアンサー ベストアンサー mshr1962 ベストアンサー率39% (7417/18945) 2013/11/08 23:34 回答No.1 漢字がうまくいかないなら "#,###;[Blue]#,###" じゃ駄目ですかね。 http://www.relief.jp/itnote/archives/000307.php 質問者 お礼 2013/11/09 08:21 できました! 漢字が原因だったのですね。解決しました。 通報する ありがとう 0 カテゴリ パソコン・スマートフォンソフトウェアオフィス系ソフト 関連するQ&A EXCEL・VBAフォームの日付(表示形式を変更したい) VBA初心者です。フォームの中にテキストボックスを作成しています。規定値にあるシートのセルを表示しています。このセルは日付(西暦4桁)で入力しているのですがテキストボックスでは(西暦2桁)で表示されてしまいます。 FORMATというのを使用すればよいようなのですがどうつかえばいいのかわからないのです。 プロパティでテキストボックスのコントロールソースにそのセルを指定しています。 どのように記述すればよいでしょうか。 詳しい方教えていただけますでしょうか。 よろしくお願いいたします。 サブレポートのテキストボックスのコントロールソース アクセス レポート サブレポートのテキストボックスのコントロールソースの設定をVBAでするタイミングを教えてください。 詳細_Formatイベントで、 Me.Controls("サブレポート").Report.Controls("月").ControlSource = "月" とすると 印刷プレビュー時または印刷を開始したあとは、コントロールソースプロパティを設定できません というエラーになります。 フォームからレポートを開いていて、フォームの値をサブレポートのテキストボックスのコントロールソースに設定したい場合、どのレポートのイベントで設定すればいいでしょうか? ご回答よろしくお願いします。 Accessのサブフォームについて Accessのサブフォームのテキストボックスをクリックするとメインフォームのテキストボックスにサブフォームのテキストボックスの値を反映させるために以下のロジックを組み込んだ所エラーが発生してしまいました。 調べてみても分かりませんでしたので解決方法が分かる方は教えて下さい。 よろしくお願いします。 ロジック Form!メインフォーム!テキストボックス=サブフォームのテキストボックス エラー 「指定した式で参照されている’メインフォーム’フィールドが見つかりません」 「コントロールがフォーカスを取得していないときに、コントロールのプロパティまたはメソッドを参照することはできません」 ヤバいパソコンが壊れたかも!?事前に知っておきたい3つの兆候と対策 OKWAVE コラム VBAのテキストボックスの表示について エクセルでVBAを使っているのですが、作成したフォームのテキストボックスに、セルの[00]や[05]といった形式の値を入れようとすると、[0]や[5]と直されてしまいます。プロパティでうまく設定する方法はありますでしょうか? よろしくお願いいたします。 VBAでフォームのスクロールバーが下にいってしまう 縦に長いフォームを作っているのですがフォームビューをするとフォームがやや下の方の画面で開けられてしまいます。 原因はフォームオープン時に対象レコードをテキストボックスに入れたり、プルダウンボックスにレコードをセットしたりしているからだと思います。(全てコーディングで) どうすればスクロールバーを一番上まで戻すことができますか?元からスクロールバーを移動させずにレコードをセットする方法でもかまいません。 それともう一つ、フォームのプルダウンボックスに、プロパティの値集合ソースからSQLをセットしたりする方法がありますが、VBAのグローバル変数をWHERE句に使用したい場合はこの方法は使えませんよね? 最後にもう一つクエリはVBAのグローバル変数使えませんよね? フォームのコントロールから値を取得することもできませんよね? Excel-VBA>コントロールをグレイアウトするには? Excel-VBAでユーザーフォームのコントロールをグレイアウト(灰色にして入力不可能にする)するには、プロパティのどの項目を変更すれば良いのでしょうか? 具体的には、2つのオプションボタンの一方が選ばれたとき、その隣にあるテキストボックスをグレイアウトしたいのです。 ちなみに、グレイアウトの方法は、オプションボタンの状態を監視して、値がTrueになったときにテキストボックスのプロパティを変更させればいいのかな?・・・と考えていますが、この方法が間違っているようでしたら、それについてもアドバイスお願いします。 どうぞ宜しくお願いします。 コントロールのプロパティー値をコードで変更したい アクティブXコントロールのオブジェクトのプロパティーを手作業で変更するのではなくて、 マクロのコードで変更できればいいと思うのですが、コードの書き方がさっぱりわかりません。 私がやりたことは 下の画像にあるバーコードのコントロールのValueプロパティの値をVBAのコードで指定したい ということです。 一体、どんな書き方をすればいいんでしょうか? できればズバリのコードをそのまま提示して欲しいです。 ACCESS メインFからサブFの値を参照 サブフォームで集計した値をメインフォームで演算値として使用したいのですができません。 サブフォームのフォームヘッダに集計値を入れるテキストボックスを配置し、メインフォームにサブフォームの集計値を参照するテキストボックスを配置しています。 ほんとうはイベントの実行で直接サブフォームの集計値を使った演算を行いたいのですが出来ないのでメインフォームにテキストボックスを作成しました。 サブフォームの集計値は表示しますが、その値を演算値として使用できないのです。試しにMsgboxでメインフォームのテキストボックスの値を表示させると何も表示しません。 なぜメインフォームのテキストボックスにサブフォームの値は表示できるのにその値を使用できないのでしょうか? 具体的には次の通りです。 <サブフォームに配置したテキストボックス> 名前 :テキスト16 コントロールソース:SUM([枚数〕) 書式 :数値 <メインフォームに配置したテキストボックス> 名前 :テキスト130 コントロールソース:[Foms]![メインフォーム名]![サブフォーム名].Form!テキスト16 書式 :数値 <イベント> MSGBOX テキスト130 ※何も表示されません! テキスト型 書式を「#,##0」にするには? あくせすです テキスト型の金額フィールドがあります。 なぜテキスト型かと言うと、数値も入るけど 「なし」「未確認」などの文字も入れたいからです。 その金額フィールドをコントロールソースとして フォームのテキストボックスにリンクさせてるのですが 数字の時は書式を「#,##0」に、文字の時は、そのまま文字列を表示させるには どうすればいいでしょうか? プロパティで書式を「#,##0」にしたけど、 数値でもカンマ区切りになりません。 なのでコントロールソースを 「=IIf(IsNumeric([金額])=True,Format([金額],"#,##0"))」 にしてみたのですが エラーにもならないけど、何も表示されません。 「=IIf(IsNumeric([金額])=True,Format([金額],"#,##0"), [金額] )」 にすると、#エラーになってます。 デザインビューで見ると 「無効なコントロールソースです」になってしまってます。 対策を教えてください。 access2000 vba の テキストイベント取得 access2000 vbaで、プログラムを組んでいます。 画面にテキストボックス1と、表(あるテーブルの内容をあらわしているもの)があります。 [初心者でこの表のうまい言い方がよくわかりません・・] テキストボックス1は、プロパティの、データ/コントロールソースが、あるテーブルのコードになっています。 このテキストボックス1は表のレコードを選択することにより、内容が変わります。(選択したレコードの、コード値になります。) ここで、テキストボックス1の値が変化したときに、イベントを発生したいのですが、なかなかできません。 change,afterupdateではだめでした。 うまくつたわらないかもしれませんが、手入力以外による値の変化は、テキストボックスイベント検知はできないものでしょうか。 フォーム上のテキストボックスの値を変更させない方法って? アクセス2000を使っています。 フォーム上にテキストボックスを作成して、テーブル の値を表示しています。 VBAでこのテキストボックスの値が1の時は, me!txt.enabled=true(テキストボックスが開く) 0の時は、me!txt.enabled=false(テキストボックスがグレーアウト)というようにさせたいのです。さらにこのテキストボックスの値を変更できないようにしたいのですが方法はありますか? 要は、表示だけさせたいのです。 プロパティで値ロックするとenableが利かなくなります。 よろしくお願いいたします エクセル テキストBOXのフォント エクセルでセルやVBAエディターの フォントリストにあるものが フォームのテキストBOXリストにありません。 プログラムでプロパティー指定しても 有効にはならないようです。エラーも返しませんが OCRBを使いたいのですが。。。 プロパティーに追加する方法って有るのでしょうか よろしくどうぞ 家のネットワークを最適にできますか?:知っておくべきポイント OKWAVE コラム [Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには Accessにおいて。 帳票フォームの"詳細"に非連結のコントロール(例:テキストボックス)を配置し、それぞれ別々の値を持たせることは可能なのでしょうか? 例えば。 VBAにおいて、カレントレコードのAという値とBという値を計算し、その値を非連結のテキストボックスに挿入したとします。 単票フォームであれば、問題なくテキストボックスには計算後の値が表示されるわけですが…… 帳票フォームの場合では、"規定値"に計算式を入れたときと同様、先頭の値と同じものが連続するテキストボックスに表示されてしまいます。 これを回避し、計算後のデータを連続するテキストボックスにそれぞれの値として表示させるには、どのようにすればよいのでしょうか? もちろん、連結させたコントロールを使用すれば、問題はないのですが…… 状況によっては、これが行えた方が便利かと思い、質問させていただきます。 「帳票フォームでは不可能である」といった回答でもかまいません。 どうぞよろしくお願いいたします。 Access VBA コントロール 削除 Access の VBA にて、フォームに設置しているラベルやテキストボックスといったコントロールを削除するコードを作成したいのですが、どのように記述すればよろしいでしょうか? ラベルに「コントロールソース」を設定することは不可能でしょうか? 単票形式のフォームのレコードソースに紐付くコントロールソースを ラベルに設定したいのですができません。 ハイパーリンクをテキストボックスではなく ラベル上に表示したいです。 テキストボックスのプロパティには「コントロールソース」があるのですが ラベルに「コントロールソース」はありません。 設定することは不可能でしょうか? VBAでも可能なら教えてください。 よろしくお願いします。 条件付き書式を設定しても、テキストボックスの色が変更されない! テキストボックス1 (FLG)と テキストボックス2 (AAA)があります。 テキストボックス1(FLG)の値が1以外の時にテキストボックス2の色を青色に変更しようとしています。 手順は、 テキストボックス2を選択状態にして、 [書式]-[条件付き書式]で 条件を [式] にして、 判定方法は FLG<>1 塗りつぶし、背景の色で 青色を選択 です。 (ちなみに、テキストボックス1自信の色の変更は [書式]-[条件付き書式]で 条件を [フィールドの値] にして、 判定方法を 1と等しくないとき としてもうまくいったのですが・・・。) よろしくお願い致します。 エクセルVBAのテキストボックス改行について 質問させて頂きます。 今VBAを使っているのですが TextBox内の改行がうまくいきません。 フォーム上にテキストボックスを置いて5~6行表示できる大きさにして、 (テキストボックス内に書いたものを保存ボタンでエクセル内の指定部分に反映させるコードを書き) それをマクロから開いて文字を入力している時に エンター押せば改行できると思っていたのですが出来ません。 CtrlやAlt押しながらもダメでした。 テキストボックスのプロパティ内に行を指定できる何かがあるのでしょうか? 色々いじりすぎて元に戻せなくなりつつあったので 質問させて頂きました。 ご存じの方おられましたら是非教えて下さい。 よろしくお願いします。 [エクセルVBA]セルの値をテキストボックスに表示 よろしくお願いします。 ユーザーフォームを使って作業しています。 その中で、コンボボックス1で指定した名前を検索値として、VLOOKUPを使ってあるシート(例:シート名「時間検索」)からセルの値をテキストボックスに表示させるようにしたいのです。 コードを作成し表示させることはできたのですが、セルに入っている値の書式が「[h]:mm」の時間形式(例:19:00)のためか、セルの値を引っ張ると小数点(例:0.79166....)で表示されます。 色々と調べてみた中で、format関数を使ったりしてみたんですが不首尾に終わっています。 なんとかテキストボックスに、セルと同じ形式で表示したいのですが、どのように考えればよろしいでしょうか? ご教示お願いいたします。 質問の仕方が悪かった場合は補足・訂正させていただきますので、どうぞよろしくお願いします。 ACCESSのコンボボックスについて ACCESSのコンボボックスに「012/015/028/125」等が設定されているて、 コンボボックスのプロパティの「入力チェック」は「はい」の設定になっております。 そういった場合、「12」と入力した場合、「012」とすることは可能でしょうか? テキストボックスの場合には、そのテキストボックスの更新後処理で Me.コード = Format(Me.コード, "000") のように記述し変更していたのですが・・・。 コンボボックスでは、「指定した値はリストにありません」と表示され、更新後処理がが実行されません。 テキストボックスかコンボボックスを条件としたい フォーム上のコントロールを取得する時に、 「テキストボックスかコンボボックスなら」としたいのですが、VBAコードがわかりません。 ************************************************************ Sub Sample() Dim myCtrl As Control Dim myForm As String myForm = "フォーム1" For Each myCtrl In Forms(myForm).Controls If myCtrlのタイプがテキストボックス Or コンボボックス Then Debug.Print myCtrl.Name End If Next End Sub ************************************************************ に修正していただけますか? ControlType プロパティを使うと思うのですが、使い方がわかりません。 ご回答よろしくお願いします。 注目のQ&A 「You」や「I」が入った曲といえば? Part2 タイヤ交換 アプローチしすぎ? コロナの予防接種の回数 日本が世界に誇れるものは富士山だけ? AT車 Pレンジとサイドブレーキ更にフットブレーキ 奢りたくありませんがそうもいかないのでしょうか 臨月の妻がいるのに… 電車の乗り換え おすすめのかっこいい曲教えてください! カテゴリ パソコン・スマートフォン ソフトウェア Excel(エクセル)Word(ワード)PowerPoint(パワーポイント)Access(アクセス)その他MS Office製品オフィス系ソフトPhotoshop(フォトショップ)Illustrator(イラストレーター)その他Adobe製品画像・動画・音楽編集ホームページ作成ソフト筆まめ・はがき作成フリーウェア・フリーソフトその他(ソフトウェア) カテゴリ一覧を見る あなたにピッタリな商品が見つかる! OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
できました! 漢字が原因だったのですね。解決しました。