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

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

[[20161024165259]]: #score: 4284; @digest: 9ed557c880f60899af48db001f280be3; @id: 71883; @mdate: 2016-10-28T11:28:02Z; @size: 9077; @type: text/plain; #keywords: 江口 (29861), （江 (11762), 口） (11083), g50 (7911), enableevents (4885), ジイ (4054), 消去 (3939), 力不 (3908), 右隣 (3248), intersect (2723), ェン (2678), 数セ (2476), 力可 (2360), 2016 (2139), target (2113), application (1984), イベ (1854), 入力 (1690), change (1561), ベン (1518), 月) (1454), 不可 (1354), case (1277), nothing (1128), select (1099), offset (1094), 領域 (1047), ンジ (1016), （β (1010), 登録 (994), 力で (851), worksheet (845); 『マクロチェンジイベントについて』（江口）
マクロのチェンジイベントについて教えていただけませんでしょうかせる〔a1:g50〕の範囲の値がA又はKが入力された時に入力されたセルの右のセルにZを入力するチェンジイベントが分かりません…どなたか教えてください。例 A5にAを入力したらA6にZが自動で入力＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- ども^^ 例えば、こんな感じですかね。 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Me.Range("A1:G50")) Is Nothing Then Exit Sub Select Case Target.Value Case "A", "K" Target.Offset(, 1).Value = "Z" End Select End Sub 細かい説明はしません。解らないところがあれば聞いてください。（まっつわん） 2016/10/24(月) 17:22 ---- やってみますありがとうございます大変たすかります（江口） 2016/10/24(月) 17:23 ---- Worksheet_ChangeイベントでTargetは複数セルになることもあるので。 Private Sub Worksheet_Change(ByVal Target As Range) Dim WK_RANGE As Range If Intersect(Target, Range("A1:G50")) Is Nothing Then Exit Sub Application.EnableEvents = False For Each WK_RANGE In Intersect(Target, Range("A1:G50")) With WK_RANGE If .Value = "A" Or .Value = "K" Then .Offset(, 1).Value = "Z" End If End With Next Application.EnableEvents = True End Sub なお、入力されているAやKが消されてもZはきえない。（ねむねむ） 2016/10/24(月) 17:27 ---- あ、バグ発見^^; 複数セルを一気に操作すると（コピペやクリア等）、エラーが出ます。どのように回避しましょう? 「複数セルが対象の時は、処理をしない。」でいいのかな? っと、やはり指摘が入ってますね^^;; （まっつわん） 2016/10/24(月) 17:31 ---- ねむねむサンありがとうございますあとまっつわんサンので上手くったのですが A1:G50をまとめて選択し、消去するとエラーがでますなぜですか? A1の単独の消去ではエラーがでませんまたA又はKが消去されたらZも消去するパターンはどうなりますか（江口） 2016/10/24(月) 17:39 ---- 失礼します。 >>「複数セルが対象の時は、処理をしない。」でいいのかな? よく、こういった制御を見かけますが、具合悪いと思います。まず、そんな入力はしないと思いますが、対象領域内でコピペやフィルコピーがあった場合、 A であっても K であっても、右隣りのセルが Z になりません。おそらく、シートのデータ仕様としては、AないしはKの時は絶対に右隣がZだということになっていると思います。シート内のデータの信憑性が崩れますよね。 Changeイベント処理は、Intersectをかけたものからセルを取り出すのが鉄則だと思いますね。ところで、（今回の要件ではOKなんですが）いつも悩むんですが、削除や挿入された場合、特に削除の場合、入力されていない領域が Targetに入ってきますね。いつも、そういうことは考えないようにしていますが、皆さんどうしてますか? （β） 2016/10/24(月) 17:46 ---- >>またA又はKが消去されたらZも消去するパターンはどうなりますかこんな感じですね。 Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range Dim c As Range Set r = Intersect(Target, Range("A1:G50")) If r Is Nothing Then Exit Sub Application.EnableEvents = False For Each c In r Select Case c.Value Case "A", "K" c.Offset(, 1).Value = "Z" Case Empty c.Offset(, 1).ClearContents End Select Next Application.EnableEvents = True End Sub （β） 2016/10/24(月) 18:56 ---- ありがとうございますすいません AとZ KとZ は常にワンセットであり Zが入力されているところに他のPなどが入るとメッセージ表示され消去または処理しないようにするには何度すいません（江口） 2016/10/24(月) 19:19 ---- >>Zが入力されているところに他のPなどが入るとこういう仕様でいいのですか? 範囲内のセル（B1:H50) で左隣が AまたはKなら Zしか入力できないということではないのですか? （β） 2016/10/24(月) 19:23 ---- ↑の理解で正しければ。一瞬、B1:H50 を選択して入力規則、ユーザー定義で =OR(AND(A1<>"K",A1<>"A"),AND(OR(A1="K",A1="A"),B1="Z")) こう考えたのですが、空白入力が許されてしまい、K-空白、A-空白というペアが出来上がってしまうので断念し、Changeイベントに追加。 Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range Dim c As Range Set r = Intersect(Target, Range("B1:H50")) If Not r Is Nothing Then For Each c In r Select Case c.Offset(, -1).Value Case "A", "K" If c.Value <> "Z" Then MsgBox "A,Kの右隣りにはZしか入力できません" & vbLf & _ "入力を取り消します" Application.EnableEvents = False Application.Undo Application.EnableEvents = True Exit Sub End If End Select Next End If Set r = Intersect(Target, Range("A1:G50")) If r Is Nothing Then Exit Sub Application.EnableEvents = False For Each c In r Select Case c.Value Case "A", "K" c.Offset(, 1).Value = "Z" Case Empty c.Offset(, 1).ClearContents End Select Next Application.EnableEvents = True End Sub （β） 2016/10/24(月) 19:47 ---- 無事なりました大変ありがとうございました（江口） 2016/10/24(月) 20:03 ---- すいませんまた教えてくださいそれぞれのには入力できる文字があらかじめ指定するにはどうしたらよいですか? 入力できる文字は I1:k50に入力することとします（江口） 2016/10/27(木) 22:52 ---- 入力できる文字とは今、固定で判断している "A" と "K" にかわり、別途登録した文字列を使うということですか? その登録が I1:K50 に入っているのですか? 50個も入力可能文字を登録するのですか? そもそも、少なくとも、I1:I50 という領域は、現状、A1:H50 に対象文字が入ったら "Z" になる場所ではないですか? そんなところに登録してあっても、上書きで、消えてしまいますが? 正確に、やりたいことを、具体例で示してください。（β） 2016/10/28(金) 09:04 ---- すいません説明が下手くそで a1:g50の範囲にはA〜Kの文字が入力可能ですしかし特定の行には入力できない文字を設定したいのですが例えば3行目にはBとDを入力するとメッセージが表示され入力されたBまたはDは消去される同じように 10行目にはG.J.Mが入力不可能と設定したいのですまたそれぞれの行に入力できない文字はH1:k50の中に入力あらかじめ入力しておきますよろしくお願いいたします(^^) （江口） 2016/10/28(金) 18:14 ---- つまり、今までの要件とは別に、第三（?）の、入力不可文字を設定したいということですね? で、各行あたり最大、3文字まで入力不可文字を登録しておこうということですね。以下のように、できないことはないですけど、さらにあれも、これもということになるともう、ごっちゃごちゃになって、何が何だか分からなくなりそうです。このあたりで打ち止めにしておいたほうがいいのでは? Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range Dim c As Range Set r = Intersect(Target, Range("B1:H50")) If Not r Is Nothing Then For Each c In r Select Case c.Offset(, -1).Value Case "A", "K" If c.Value <> "Z" Then MsgBox "A,Kの右隣りにはZしか入力できません" & vbLf & _ "入力を取り消します" Application.EnableEvents = False Application.Undo Application.EnableEvents = True Exit Sub End If End Select Next End If Set r = Intersect(Target, Range("A1:G50")) If r Is Nothing Then Exit Sub For Each c In r If Not IsEmpty(c) Then If WorksheetFunction.CountIf(c.EntireRow.Columns("I:K"), c.Value) > 0 Then MsgBox "この行には " & c.Value & " の入力はできません" & vbLf & _ "入力を取り消します" Application.EnableEvents = False Application.Undo Application.EnableEvents = True Exit Sub End If End If Next Application.EnableEvents = False For Each c In r Select Case c.Value Case "A", "K" c.Offset(, 1).Value = "Z" Case Empty c.Offset(, 1).ClearContents End Select Next Application.EnableEvents = True End Sub （β） 2016/10/28(金) 20:22 ---- 実際のシートのレイアウトが見えませんが、どの列であっても A なら右が Z といったことはどうも、ピンときません。そうではなく、A とか K が入力される列は、A:G の中でも、この列とこの列とこの列と、・・・と決まっているのでは? つまり、Zが自動設定される列も決まっているのでは? 今回の 3文字が入力不可という列も、こことこことここ、そういうように決まっているのではないですか? そのあたりを明確にしてもらえれば、もう少しすっきりした制御もできるかもしれません。（できないかもしれませんけど）（β） 2016/10/28(金) 20:26 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201610/20161024165259.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ