エクセルの学校：全文検索：Hyper Estraier： kazu 条件付書式

Results of 1 - 1 of about 406 for kazu 条件付書式 (0.004 sec.)

kazu (7739), 条件付書式 (2650)

[[20090620071126]]: #score: 6689; @digest: 6142c9dcad18eff69979943aaccf6427; @id: 44085; @mdate: 2009-06-22T00:31:57Z; @size: 5436; @type: text/plain; #keywords: プ音 (17392), 音が (10942), 別数 (10718), は音 (9344), ビー (5022), ュリ (3461), セキ (3414), ィレ (2980), リテ (2888), キュ (2404), ピペ (2234), ペで (1752), 前な (1752), 個別 (1692), て開 (1569), 。保 (1520), 存を (1517), 単独 (1509), ー貼 (1504), 出ま (1307), る? (1165), ー・ (1125), 保存 (1057), レベ (1038), ク→ (987), コピ (912), intersect (908), hana (877), 貼り (842), iserror (722), ティ (715), ベル (704); 『表に無い文字は入力のできない方法』（ごんた）
下の表のようにA1〜A5に個別数字、 B1〜B5に単価を表示しA10〜A14に個別数字（最初から入力している）、 B10〜B14に上の表の集計を表示させています。 A10〜A14までに無い数字をA1〜A5に打ち込みしたとき入力できない方法はありますか、またA1〜A5のセルの色が変わるか、ビープ音が出せますか? もし良い方法があればお教えください。関数は=SUMIF($A$1:$A$5,"1",$B$1:$B$5)を使用しています。 A B 1 1 200 2 2 250 3 3 320 4 2 100 5 1 50 6 7 8 9 10 1 250 11 2 350 12 3 320 13 4 14 5 ---- ◆A10〜A14までに無い数字をA1〜A5に打ち込みしたとき ◆入力できない方法入力規則で、リストを選び元の値で A10:A14 としておくライブラリより「簡易リストボックス」 http://www.excel.studio-kazu.jp/lib/e2k/e2k.html ◆A1〜A5のセルの色が変わる 条件付書式の設定で =AND(A1<>"",COUNTIF($A$10:$A$14,A1)=0) お好みの書式を設定しておくライブラリより「条件付き書式」 http://www.excel.studio-kazu.jp/lib/e2qw/e2qw.html ◆ビープ音これは、マクロになります。シートモジュールに Private Sub Worksheet_Change(ByVal Target As Range) If Application.Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub If IsError(Application.Match(Target.Resize(1, 1).Value, Range("A10:A14").Value, 0)) Then Beep End If End Sub (HANA) ---- HANAさん有難うございました。できました。 ---- すいません、ビープ音を出す場合下のようにBDFHJLに単価、ACEGIKに個別数字を入れた場合のマクロの数式をお願いします。（ごんた） A B C D E F G H I J K L 1 1 200 1 20 5 300 2 30 4 65 2 600 2 2 250 3 50 3 150 2 40 5 35 5 55 3 3 320 4 2 100 5 1 50 6 7 8 9 10 1 250 11 2 350 12 3 320 13 4 14 5 ---- Application.Intersect の中の Range("A1:A5") って所を Range("A1:A5,C1:C5,E1:E5,G1:G5,I1:I5,K1:K5") って感じで変更してみるとどうですか? 因みに、コピペなどで複数の値が同時に入力された場合は正しくチェック出来ませんのでご注意下さい。 (HANA) ---- HANAさん度々有難うございました。（ごんた） ---- コピペなどで複数の値が同時に入力された場合でもビープ音の出るやり方はありますか? ---- こんな感じで。 Private Sub Worksheet_Change(ByVal Target As Range) Dim mrng As Range, rng As Range, mdr As Range Set mrng = Application.Intersect(Target, Range("A1:A5,C1:C5,E1:E5,G1:G5,I1:I5,K1:K5")) If mrng Is Nothing Then Exit Sub Set mdr = Range("A10:A14") For Each rng In mrng If rng.Value <> "" And IsError(Application.Match(rng.Value, mdr.Value, 0)) Then Beep Exit For End If Next Set mrng = Nothing Set mdr = Nothing End Sub (HANA) ---- HANAさん、コピペすると私のやり方が悪いのか音が出ません。 ---- 1.エクセルのバージョンは何でしょう? 2.単独に入力した場合は音が出ますか? 3.Ctrlキーを使い、複数のセルに同じ値を入力した場合は音がでますか? 4.貼り付ける際は、どの様に貼り付けていますか? （貼り付けたい先頭のセルを選択して、Enter ?） (HANA) ---- 1.エクセルのバージョンは何でしょう? 2002です。 2.単独に入力した場合は音が出ますか? 出ます。 3.Ctrlキーを使い、複数のセルに同じ値を入力した場合は音がでますか? 出ます。 4.貼り付ける際は、どの様に貼り付けていますか? （貼り付けたい先頭のセルを選択して、Enter ?）コピー貼り付けです。保存をして開くと出ません。宜しくお願いします。 ---- ＞4.コピー貼り付けです。その「貼り付け」をどのように行っているのかお伺いをしています。たとえば、A1セルから貼り付ける場合 4-1 A1セルを選択して Enter 4-2 A1セルを選択して Ctrl + V 4-3 A1セルを選択して右クリック→貼り付け 4-4 A1セルを選択してメニュー・編集→貼り付け 4-5 A1セルを選択して貼り付けボタンをクリック 4-6 その他＞保存をして開くと出ません。・・・もう少し詳しく教えてください。保存をする前ならコピペでも音が出る? 一旦閉じる前ならコピペでも音が出る? 保存して開くと、コピペでなくても出なくなる? (HANA) ---- A1セルを選択して右クリック→貼り付けています。保存をする前ならコピペでも音が出る? 出ます。一旦閉じる前ならコピペでも音が出る? 出ます。保存して開くと、コピペでなくても出なくなる? 出ません。以上です、宜しくお願いします。 ---- ＞保存して開くと、コピペでなくても出なくなる? 出ません。それで、マクロを確認するとコードはそこにあるのですか? もしかして、マクロが無効で開かれているなんてことはないですか? メニュー・ツール(T)→オプション(O) [ セキュリティ ]タブの下の方に「マクロセキュリティ(S)」のボタンがありますがそれを開いて [ セキュリティレベル ]タブを開くとどこにマークがついていますか? ●高(H)になっていたら、●中(M)を選択して下さい。保存して閉じて開くときに、「マクロがあるけどどうするか?」なんて聞かれるので「有効」で開いてください。 (HANA) ---- もしかして・・・・＞コピペすると私のやり方が悪いのか音が出ません。【コードを】コピペ・・・の話ですか? (HANA) ---- セキュリティレベルを中にしたらできました。HANAさん再三にわたり大変有難うございました。（ごんた） ---- もしもこのマクロを特定のPCでのみ使用するので有ればデジタル署名をつけて、セキュリティレベルは高のままで使用するのが良いかもしれません。デジタル署名について詳しくは、エクセルHelpで確認するか Web検索して下さい。 (HANA) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200906/20090620071126.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ