エクセルの学校：全文検索：Hyper Estraier：チェックボックス

Results of 1 - 1 of about 978 for チェックボックス (0.008 sec.)

[[20090513085535]]: #score: 5499; @digest: a8071d1b11385b16840835309a5398c8; @id: 43372; @mdate: 2009-05-22T16:21:10Z; @size: 3751; @type: text/plain; #keywords: 4142 (4623), クボ (4406), トタ (2746), タブ (2610), checkbox1 (2313), ルツ (2237), colorindex (1909), ルボ (1782), ボッ (1636), ブの (1599), チェ (1392), のタ (1380), クス (1314), 赤に (1313), ブか (1312), tab (1262), ェッ (1260), らき (1187), の色 (1134), ック (1070), 別シ (1056), 見出 (1015), トロ (974), sheet2 (962), のチ (891), の見 (815), ォー (762), シー (724), とら (706), ーム (674), target (650), フォ (585); 『あるセルを入力すると別シートの見出しの色を変えたい』（とらきち）
あるセルに文字を入力すると、別シートの見出しの色を赤に変わるようにしたいんですけど、何か良い方法ありませんか?? ---- ＞別シートの見出しの色これは、別シートにあるどこかのセルの文字色・背景色の事ですよね? 条件付書式の設定が使えるのではないかと思いますが直接シート間参照が出来ませんので自シートに一度参照する・名前の定義・INDIRECT関数の使用等対策が必要になります。 (HANA) ---- シートタブかも。(ROUGE) ---- ＞シートタブかもやっぱりそうですかね。そんな気もしたので一応確認をと思ったのですが。シートタブでしたら、マクロになりますね。別シート = Sheet1なら Sheets("Sheet1").Tab.ColorIndex = 3 (HANA) ---- 説明不足ですいません。シートタブのことです。例えば、A1のセルに文字を入力したら、Sheet2のタブ色が赤になるにはどのようなマクロになるでしょうか?? （とらきち） ---- なさりたいことの全体を、説明してみられてはどうでしょう。変更するのは常にSheet2のタブの色なのですか? A1セルの値によって、変更するシートは変わるのではないかと思いますが。また、別の文字が入力されたら元に戻すなんて作業が必要に成りそうに思いますが。 (HANA) ---- 作業としては、A1のセルに文字が入力されたら、Sheet2のタブの色が赤になり、 A1のセルの文字が消去されたら、Sheet2のタブの色は元の状態「色なし」に戻る内容です。変更するのは常にSheet2のタブの色です。 A1のセルに入力する文字は何でも構いません。とりあえず何か文字が入力されたら、Sheet2のタブの色が変わってほしいです。（とらきち） ---- こんな感じでどうでしょう。 '------ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub With Sheets("Sheet2") If Target.Value = "" Then .Tab.ColorIndex = -4142 Else .Tab.ColorIndex = 3 End If End With End Sub '------ 入力をするシートのシートタブを右クリックしコードの表示(V)で出てくる画面に貼り付けて下さい。 (HANA) ---- ありがとうございました。 ---- HANAさん、複数貼り付けの場合も想定してくださいね^^ (ROUGE) Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Sheets("Sheet2").Tab.ColorIndex = IIf(Len(Range("A1").Value) > 0, 3, -4142) End If End Sub ---- 「エラーにならない」事ばかり気にしてましたが Target.Address <> "$A$1" ではじかれるって事ですね。分かりました。 (HANA) ---- 追加でお尋ねしたいんですけど・・・フォームのチェックボックスを使って、チェックを入れたら、sheet2のタブの色が赤に変わり、チェックをはずすと、sheet2のタブの色が「色なし」に戻るには、どうしたら良いでしょうか?? コントロールツールボックスのチェックボックスではなくて、フォームのチェックボックスを使用したいです。（とらきち） ---- コントロールツールボックスのチェックボックスの方が簡単ですが、何故だめなんでしょうか? 標準モジュールに下記コードを貼り付けて、チェックボックスにこのマクロを登録してください。 Sub Torakichi() Sheets("Sheet2").Tab.ColorIndex = _ IIf(Sheets("Sheet1").Shapes(Application.Caller) _ .ControlFormat.Value = 1, 3, -4142) End Sub (ROUGE) ---- フォームのチェックボックスをすでに使用しているので、統一したいからです。不可能でしょうか?? （とらきち） ---- [[20090521163423]]『フォームのチェックボックスを使って、シートの見出しの色を変えたい』（とらきち） (HANA) ---- えっと、とらきちさん、私が提示したコードは''フォームのチェックボックス''のためのものです。試されていないのでしょうね。。。コントロールツールボックスを利用するものであれば、 Private Sub CheckBox1_Click() Sheets("Sheet2").Tab.ColorIndex = IIf(Me.CheckBox1.Value, 3, -4142) End Sub といったイベントで処理できます。 (ROUGE) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200905/20090513085535.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ