• ベストアンサー

エクセルのユーザーフォームについて

エクセルのユーザーフォーム上で テキストボックスなどはフォーカス移動すると 入力バーが出ますがチェックボックスに来ると選択されているのがわかりません ちなみにチェックボックスはチェックのみ表示(レ点部分)文字はラベルで表示(上に表示させたかったので) 選択されているかどうか網点?など解るようにするにはどうすればいいのでしょうか?ご教授お願い致します。。

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

  • ベストアンサー
  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.3

こんばんは。 Wendy02です。 >チェックボックスはチェックのみ表示(レ点部分)文字はラベルで表示(上に表示させたかったので) チェックボックスの上に、表示ラベルがあるとすれば、こんな感じになるかしら? Private Sub CheckBox1_Enter()  'フォーカスオン時  Label1.Font.Bold = True End Sub Private Sub CheckBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  'フォーカスオフ時  Label1.Font.Bold = False End Sub チェックボックスには、ボーダーラインなどの設定はないようですね。今回、初めて気が付きました。考えたことがありませんでした。

naopon2000
質問者

お礼

返事が遅くなり大変申し訳ありませんでした。 さっそく試した所うまくいきましたー。 一通りうまく出来ました、深くお礼申し上げます。 また、解らない事があればご教授お願いいたします。

その他の回答 (2)

  • bonaron
  • ベストアンサー率64% (482/745)
回答No.2

こんなコードでごまかすとか? Private Sub CheckBox1_Enter()   CheckBox1.BackColor = &H80000010 End Sub Private Sub CheckBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)   CheckBox1.BackColor = &H8000000F End Sub Eccel2003 です。 Windows の設定によっては、色のコードが変わるかもしれません。 要は、フォーカス取得時に、ちょっと濃くし、 フォーカス喪失時にフォームと同じ色にするということです。

  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.1

>ちなみにチェックボックスはチェックのみ表示(レ点部分)文字はラベルで表示(上に表示させたかったので) フォーカスが来るとチェックボックスに設定した文字に点線の枠が付きます。 文字を表示させていないのであればフォーカスが当たっている状態の判別は出来ないと思います。

関連するQ&A

  • エクセルのユーザーフォームについて

    エクセルマクロのユーザーフォームのテキストボックスに セルの値を表示する方法で質問です。 ユーザーフォームを表示するとその時点での セルの値はテキストボックスに表示されているのですが ユーザーフォームを表示したまま 別のブックのセルを選んだ際に そのセルの内容がテキストボックスに表示されるようにしたいです。 ボタンや、なにかをするわけではなく 自分で任意のセルを選択したら、という事です。 ユーザーフォームには selectionchange などがないのでどうすれば良いかわかりません。 宜しくお願いします。

  • エクセルのフォームでのフォーカス

    エクセルVBAでのユーザーフォームの テキストBOX間のフォーカスはenterで移動可能かのですが、間にComboBoxがあるとComboBoxが飛ばされますが そこにもフォーカス移動って可能でしょうか?

  • AccessフォームにExcelみたいなコメント

    環境 Windows7 64bit Access2010 Accessのフォームオブジェクト(テキストボックス、リストボックス等)に Excelのようなコメントを付与したいのですが可能でしょうか? 画像はExcelのものですが、画像のようにフォームオブジェクトに フォーカスを合わせている間ずっとコメントが出るようにしたいです。 ヒントテキストや、ステータスバーは試しましたが、「これだ!」という感じではありませんでした。 Excelのようなコメントを出せるのが一番なのですが、無理であれば タグプロパティ、ラベルを使用することにしたいと思います。 ご教示していただきたいのは以下の2つです。 よろしくお願いいたします。 1.フォームオブジェクトにフォーカスを移動したとき、フォーカスがある間、   Excelのコメントのようなものを表示することが可能か否か。 2.可能な場合はどのようにできるのか。

  • エクセル ユーザーフォーム

    エクセルのユーザーフォームでコマンドボタンを使ってテンキーを作りたいのですが、入力するときにテキストボックス1、テキストボックス2の切り替え方がわからなく困っています。 2つのテキストボックスに対応させるにはどのようにコードを書いたら良いでしょうか。 よろしくお願いします。

  • ユーザーフォームについて

    エクセル2002です。 ユーザーフォーム内のテキストボックスを使用して、 (1)A1のセルに1と入力されている状態でマクロを起動した場合、 (2)ユーザーフォーム内のテキストボックスには2と表示される (3)ユーザーフォーム内のボタンを押すと、A2のセルに2と入力される。 このような流れで、A列のデータ最終行に番号をふっていきたいです。 (A列のデータ最終行がA30なら、A31に31と番号をふる) ユーザーフォームのテキストボックスとボタンは作ってあるのですが、 それぞれに入れるコードを教えていただけないでしょうか。 よろしくお願いします。

  • ユーザーフォームのスクロールについて(エクセル2000VBA)

    お世話になります。 上下に長いユーザーフォームを作成し、スクロールして使っています。 1~4まで項目があり、ボタンをクリックするとその項目の先頭まで自動的にスクロールするような仕組みを作りたいのですがどうしたらよいでしょうか? Private Sub CommandButton1_Click()  TextBox1.SetFocus  '項目の先頭にあるテキストボックスに移動する End Sub という風なコードはできたのですが、ボタンの位置よりテキストボックスが下にあると、フォーカスしたテキストボックスがユーザーフォームの一番下に表示されてしまいます。 また、上方向にいく時も、テキストボックスの1行上に配置してあるタイトル(ラベルで作成しました)が表示されないので少し不便な気がします。 例えば、FAQサイトによくあるような、目次をクリックするとその項目が一番上に表示され、「Top」をクリックしてページ先頭にジャンプするような感じにしたいのですが…。 よろしくお願いします。

  • EXCEL VBAのユーザーフォームの操作方法について教えていただきたいことがあります

    EXCEL VBAのユーザーフォームの操作方法について教えていただきたいことがあります。 (1)ユーザーフォームにテキストボックスを2つ作る (2)コマンドボタンを1つ作る。 この場合に、コマンドボタンを押すと、セットフォーカスされている方のテキストボックスに「新春」と表示させることはできるのでしょうか。 キーボードは当然セットフォーカスされているテキストボックスに入力されますが それと同じ機能をコマンドボタンにも持たせたいのです。 Private Sub CommandButton1_Click() で TextBox1がセットフォーカスされているならTextBox1に"新春"と入力する TextBox2がセットフォーカスされているならTextBox2に"新春"と入力する というような条件式になるのでしょうか。 色々調べましたが答えが見当たりません。 よろしくお願いいたします。

  • excel vba ユーザーフォーム

    現在、セルa101からa110までに「商品名」、セルb101からb110までに「金額」が 入力済みです。 このデータを、ユーザーフォーム上にコンボボックスを2つ作成し、セルa1へ 商品名を選択後、入力。また、b2へ金額を選択後、入力させたいのです。 また、ユーザーフォーム上にテキストボックスを作成し、ここに入力した 「備考」の全角10文字をc1へ移動したいです。 今のところ、ユーザーフォーム、コンボボックス、テキストボックスを作成した だけで 立ち往生しています。 どなたか、ご教授お願いいたします。

  • エクセルのマクロでフォームを起動したときのフォーカス

    はじめまして。 表題の件ですが、 エクセルのマクロでフォームを作成し、 データ入力をしようとしています。 フォームを入力する際 一番最初に 使用するのはテキストボックスなのですが 起動する際 フォーカス位置はボタンで 一回テキストボックスをクリックしないと フォーカスが移動しません。 起動したときにテキストボックスに初期フォーカスを設定する方法を 教えて頂けませんでしょうか。 どうぞよろしくお願い致します。

  • ユーザーフォームへの文字の表示方法について

    VBAを始めたばかりの超初心者です。単純にユーザーフォームを作って検索ボタンを付け、検索結果を表示させる。こんな単純な事がわからずに困っています。 問題は何行もヒットしたらスクロールバーはどうするのか? 検索結果だけの部分をスクロールさせたい。 コントロールは何を張るのか?ラベル?テキストボックス? 検索したい情報はエクセルで有るのでそれを引っ張ってきたいだけなですが。。 出来れば同一のユーザーフォームに表示させたいです。 どなたか教えて下さい。宜しくお願い致します。

専門家に質問してみよう