エクセルの学校：全文検索：Hyper Estraier：入力規則

Results of 1 - 1 of about 2818 for 入力規則 (0.005 sec.)

[[20171107153924]]: #score: 4284; @digest: 60e0e3ebaa0cffd124d9ff84079089b6; @id: 74793; @mdate: 2017-11-10T06:59:48Z; @size: 9524; @type: text/plain; #keywords: status (27816), beep (7460), 隠居 (5125), 同シ (4956), flg (3450), target (3414), 列入 (3247), 居じ (2990), 警告 (2970), じー (2884), isempty (2288), typename (2253), ad (2110), 動入 (1997), 力時 (1968), 力規 (1804), cnt (1754), 2017 (1745), 行以 (1732), 示頂 (1625), ト内 (1472), 規則 (1453), （隠 (1391), boolean (1378), ーさ (1266), 入力 (1173), 教示 (1165), value (1155), cells (1143), explicit (1087), change (1041), 重複 (950); 『入力した値が同シート内で重複しない場合に警告音』（とり）
質問失礼致します。もとからD列には多数の値が入力されておりB列に新しく値を入力した際、 D列に入力されている値と " 重複しない場合 " に警告音を出したいのです。現状、重複に色がつくようにしており色がつかなかった場合は重複なしと判断しているのですが、作業中にPC画面を見ているのでは効率が悪いため音で判断をしたいです。調べても重複する場合に警告という内容のものしか見つけられなかったためご教示いただけますと幸いです。＜使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- 入力規則で警告を出すようにしてはどうか? (警告時ダイアログ表示時には音も出るらしい。私の環境ではPCから音が出ないような設定になっているため未確認）（ねむねむ） 2017/11/07(火) 16:03 ---- とりさんこんばんは、ねむねむさんご指摘の入力規則と併用されると効果的かも、です。＞D列には多数の値が入力されておりB列に新しく値を入力、が前程で当該のシートのVBEに貼り付けてください。参考まで。 Private Sub Worksheet_Change(ByVal Target As Range) Dim B_flg As Boolean Dim ad As String Dim cnt As Long B_flg = True ad = Target.Address(False, False) If (Mid(ad, 1, 1) <> "B") Or (Selection.Count > 1) Or (IsEmpty(Range(ad).Value)) Then Exit Sub End If For cnt = 1 To Cells(Rows.Count, 4).End(xlUp).Row If Cells(cnt, 4).Value = Range(ad).Value Then B_flg = False End If Next cnt If B_flg Then Beep End If End Sub （隠居じーさん） 2017/11/07(火) 21:50 ---- 追記（^^; 入力規則だけでも、ねむねむさんご指摘通りダイアログも音もかなりきれいなベル音が出ますよ。マクロは必要ないかもです。 <(_ _)> （隠居じーさん） 2017/11/07(火) 22:00 ---- ねむねむ様隠居じーさん様ご教示ありがとうございます。 入力規則で確かに音が出たうえ、誤った入力を防ぐことができました。難しそうだなと少し忌避していたのですが案外簡単に使えたのでここでご教示いただけてよかったです。 VBAもシートに貼り付け使用してみたのですがB列へ入力毎に音が鳴ってしまいました。（同シート内にB列入力時、隣のセルに日付を自動入力するVBAが入っていたのですがそれが影響を与えてしまうことがあったりするのでしょうか。。?）（とり） 2017/11/08(水) 15:58 ---- とり様へテストしましたが、B列に入力した値が D列の数値と同じ数値であれば鳴りません。 D列の数値と違えば鳴ります。尚、B列のみ確認しておりますのでA列の値は関係無いとは思いますが、ソースが解らないので判断出来ません。はずしておりましたら、申し訳ありません <(_ _)> （隠居じーさん） 2017/11/08(水) 16:32 ---- 隠居じーさん様下記、ご教示頂いたVBAを組み込んだ際のソースです。 ---- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then If Cells(Target.Row, 3).Value <> "" Then Status = Date Else Status = "" If TypeName(Target.Value) <> "Variant()" Then Cells(Target.Row, 2).Value = Status Else _ For i = 0 To UBound(Target.Value) - 1: Cells(Target.Row + i, 2).Value = Status: Next End If Dim B_flg As Boolean Dim ad As String Dim cnt As Long B_flg = True ad = Target.Address(False, False) If (Mid(ad, 1, 1) <> "B") Or (Selection.Count > 1) Or (IsEmpty(Range(ad).Value)) Then Exit Sub End If For cnt = 1 To Cells(Rows.Count, 4).End(xlUp).Row If Cells(cnt, 4).Value = Range(ad).Value Then B_flg = False End If Next cnt If B_flg Then Beep End If End Sub ---- 最近VBAを使い始めたのでそもそも組み込み方自体が間違っているかもしれません^^; （とり） 2017/11/08(水) 17:11 ---- とり様こんばんわテストしてみました。 C列に何か情報があればB列に何を入力しても入力したB列のセルが日付情報に変換されてしまいます。後、C列を更新（消す）するとハングアップしますよ。（^^; 行頭にOption Explicitを指定して変数の宣言とか if構文は End IFで括られたほうがメンテはしやすいかもです。で結果Beep音が連発しているようです。日付はA列にされて、B列は入力用にあけておかれた方がよいかと。取り急ぎ、ご報告まで。 <(_ _)> （隠居じーさん） 2017/11/08(水) 19:53 ---- とり様こんばんわハングアップは私の勘違いです。失礼致しました。 m(__)m Ubound(Target.Value)は全列削除を指定した場合、最終行まで処理となり時間がかかって、一時応答なし状態でした。＞同シート内にB列入力時、隣のセルに日付を自動入力するVBA の隣のセルがA列と仮定してですが。 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Status Dim i As Long If Target.Column = 2 Then If Cells(Target.Row, 2).Value <> "" Then Status = Date Else Status = "" End If If TypeName(Target.Value) <> "Variant()" Then Cells(Target.Row, 1).Value = Status Else For i = 0 To Cells(Rows.Count, 1).End(xlUp).Row Cells(Target.Row + i, 1).Value = Status Next End If End If '******************************************************** Dim B_flg As Boolean Dim ad As String Dim cnt As Long B_flg = True ad = Target.Address(False, False) If (Mid(ad, 1, 1) <> "B") Or (Selection.Count > 1) Or (IsEmpty(Range(ad).Value)) Then Exit Sub End If For cnt = 1 To Cells(Rows.Count, 4).End(xlUp).Row If Cells(cnt, 4).Value = Range(ad).Value Then B_flg = False End If Next cnt If B_flg Then Beep End If End Sub で、どうでしょうか参考まで外してましたらすみません。 <(_ _)> （隠居じーさん） 2017/11/08(水) 23:43 ---- 隠居じーさん様こんにちは＞同シート内にB列入力時、隣のセルに日付を自動入力するVBA の隣のセルは仰るとおりA列のことになります。説明が足りず申し訳ございません。。また、遅くまでご教示頂きありがとうございます。本日は音の確認できる環境ではないため明日改めて確認いたします。取り急ぎご連絡まで。（とり） 2017/11/09(木) 13:51 ---- とり様ご連絡、有難うございます。修正版をUpいたします。修正箇所 1.全範囲選択でDELETEをかけるとオーバーフローをエラー処理。 2.A列の消去処理、途中は空白でA,B列、最終行付近に情報があった場合時間がかかりすぎるので1000行以降はMSGを表示後、処理中断としました。後でA列全行選択で削除してください。 1000行以上ご必要な場合は追加の当該コードを削除してください 3.B列の行全て選択時のエラートラップ追加。お試しを。 <(_ _)> Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Status Dim i As Long On Error GoTo my_end If Target.Column = 2 Then If Cells(Target.Row, 2).Value <> "" Then Status = Date Else Status = "" End If If TypeName(Target.Value) <> "Variant()" Then Cells(Target.Row, 1).Value = Status Else For i = 0 To Cells(Rows.Count, 1).End(xlUp).Row If i > 1000 Then Call my_chk Exit Sub End If Cells(Target.Row + i, 1).Value = Status DoEvents Next End If End If '******************************************************** Dim B_flg As Boolean Dim ad As String Dim cnt As Long B_flg = True ad = Target.Address(False, False) ' MsgBox ad If (Mid(ad, 1, 1) <> "B") Or (Selection.Count > 1) Or _ (IsEmpty(Range(ad).Value)) Or ad = "B:B" Then Exit Sub End If For cnt = 1 To Cells(Rows.Count, 4).End(xlUp).Row If cnt > 1000 Then Call my_chk Exit Sub End If If Cells(cnt, 4).Value = Range(ad).Value Then B_flg = False End If Next cnt If B_flg Then Beep End If Exit Sub my_end: MsgBox Err.Number & "error ^^:" End Sub Private Sub my_chk() MsgBox "A列の1000行以降に不審な情報があるようです。" End Sub 追伸もう少しお待ちになると。私の様なへぼコード（何とかうごくだけ(^^））ではなく VBAウイザードさまがたくさんおられますので、もっと素晴らしい知識をお示し戴けるかもです ^^; <(_ _)> （隠居じーさん） 2017/11/09(木) 17:43 ---- 入力規則で解決したのに、なぜマクロなのかわかりませんが。こんなことでしょうか? Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim rr As Range, r As Range Dim m, flg As Boolean Set rr = Intersect(Target, Columns("B")) If rr Is Nothing Then Exit Sub Application.EnableEvents = False rr.Offset(, -1).ClearContents rr.Interior.ColorIndex = xlNone For Each r In rr If r.Value <> "" Then r.Offset(, -1).Value = Date m = Application.Match(r, Columns("D"), 0) If IsError(m) Then r.Interior.Color = vbRed flg = True End If End If Next If flg Then Beep Application.EnableEvents = True End Sub （マナ） 2017/11/09(木) 21:21 ---- マナ様おはようございます。試してみました。視覚、聴覚、で確認でき。凄いですね。＞入力規則で解決したのに、なぜマクロなのかわかりませんが。私の場合は、下手の横好き、という事でとても勉強になります。ありがとうございました。とり様、割り込み、すみません <(_ _)> （隠居じーさん） 2017/11/10(金) 08:55 ---- 隠居じーさん様マナ様こんにちは。いろいろご教示頂きありがとうございます。シートに貼り付けて使用してみたのですが何も反応しなかったです。変数の宣言について知識が無いためそこが原因かなと思います。。（勉強します）教えてくださったのにすぐに活かす事ができず申し訳ないです。＞入力規則で解決したのに、なぜマクロなのかわかりませんが。最低限欲しい機能が今回の件だったため、今後機能を追加した際に今回マクロのことについて教わっておけば何かしら活用できるのでは?という下心からです。大変助かりました。ありがとうございました! （とり） 2017/11/10(金) 15:59 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201711/20171107153924.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ