[[20090620071126]]　『表に無い文字は入力のできない方法』（ごんた）　ページの最後に飛ぶ

『表に無い文字は入力のできない方法』（ごんた）　　　　　　　　　　　　　　　　　　　　　　　　　

 下の表のようにA1～A5に個別数字、
 B1～B5に単価を表示しA10～A14に個別数字（最初から入力している）、
 B10～B14に上の表の集計を表示させています。
 A10～A14までに無い数字をA1～A5に打ち込みしたとき
 入力できない方法はありますか、
 またA1～A5のセルの色が変わるか、ビープ音が出せますか？
 もし良い方法があればお教えください。

関数は=SUMIF($A$1:$A$5,"1",$B$1:$B$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さん、コピペすると私のやり方が悪いのか音が出ません。

 １．エクセルのバージョンは何でしょう？
 ２．単独に入力した場合は音が出ますか？
 ３．Ctrlキーを使い、複数のセルに同じ値を
 　　入力した場合は音がでますか？
 ４．貼り付ける際は、どの様に貼り付けていますか？
 　　（貼り付けたい先頭のセルを選択して、Enter　？）

 (HANA)

 １．エクセルのバージョンは何でしょう？        2002です。
 ２．単独に入力した場合は音が出ますか？　        出ます。
 ３．Ctrlキーを使い、複数のセルに同じ値を
 　　入力した場合は音がでますか？　　　　        出ます。
 ４．貼り付ける際は、どの様に貼り付けていますか？
 　　（貼り付けたい先頭のセルを選択して、Enter　？）コピー　貼り付けです。
　
　保存をして開くと出ません。宜しくお願いします。

 ＞４．コピー　貼り付けです。
 その「貼り付け」をどのように行っているのか
 お伺いをしています。

 たとえば、A1セルから貼り付ける場合
 ４－１　A1セルを選択して　Enter
 ４－２　A1セルを選択して　Ctrl + V
 ４－３　A1セルを選択して　右クリック→貼り付け
 ４－４　A1セルを選択して　メニュー・編集→貼り付け
 ４－５　A1セルを選択して　貼り付けボタンをクリック
 ４－６　その他

 ＞保存をして開くと出ません。
 ・・・もう少し詳しく教えてください。
 保存をする前なら　コピペでも音が出る？
 一旦閉じる前なら　コピペでも音が出る？
 保存して開くと、コピペでなくても出なくなる？

 (HANA)

A1セルを選択して　右クリック→貼り付けています。

保存をする前なら　コピペでも音が出る？　　　　出ます。

 一旦閉じる前なら　コピペでも音が出る？　　　　出ます。
 保存して開くと、コピペでなくても出なくなる？　出ません。

　　以上です、宜しくお願いします。

 ＞保存して開くと、コピペでなくても出なくなる？　出ません。
 それで、マクロを確認すると
 コードはそこにあるのですか？

 もしかして、マクロが無効で開かれている
 なんてことはないですか？

 メニュー・ツール(T)→オプション(O)
 [ セキュリティ ]タブの下の方に
 「マクロセキュリティ(S)」のボタンがありますが
 それを開いて [ セキュリティレベル ]タブを開くと
 どこにマークがついていますか？

 ●高(H)になっていたら、●中(M)を選択して下さい。
 保存して閉じて開くときに、「マクロがあるけどどうするか？」
 なんて聞かれるので「有効」で開いてください。

 (HANA)

 もしかして・・・・
 ＞コピペすると私のやり方が悪いのか音が出ません。
 【コードを】コピペ
 ・・・の話ですか？

 (HANA)

セキュリティレベルを中にしたらできました。HANAさん再三にわたり大変有難うございました。（ごんた）

 もしもこのマクロを特定のPCでのみ使用するので有れば
 デジタル署名をつけて、セキュリティレベルは
 高のままで使用するのが良いかもしれません。

 デジタル署名について詳しくは、
 エクセルHelpで確認するか
 Web検索して下さい。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20090620071126]] 『表に無い文字は入力のできない方法』（ごんた） ページの最後に飛ぶ

[[20090620071126]]　『表に無い文字は入力のできない方法』（ごんた）　ページの最後に飛ぶ