はじめまして、ご覧いただきありがとうございます。
ExcelVBAにて条件分岐で入力規則を設けるマクロを組みました。
複数範囲のコピー&ペーストにも対応させたつもりなのですが、「入力規則が反映される予定のセル」つまり11列目が選択範囲内に含まれてると、マクロが動かず入力規則が反映されません。
これを反映させるようにするにはどういった改変を行えばよいのでしょうか?
下記がコードになります。
VBA
1Option Explicit 2 3Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 4 5Dim ws1 As Worksheet, ws2 As Worksheet 6Dim i, j As Range 7 8Set ws1 = Worksheets("入力表") 9Set ws2 = Worksheets("名簿") 10 11 12 13 For Each j In Target 14 15 With j 16 17 On Error Resume Next 18 19 If .Column = 9 And .Value = "本社" Or .Value = "営業所" Then 20 21 i = .Row 22 ws1.Cells(i, 11).Validation.Add Type:=xlValidateList, Formula1:="=OFFSET(名簿!$A$2,0,0,COUNTA(名簿!$A:$A)-1,1)" 23 24 25 ElseIf .Column = 9 And .Value <> "本社" Or .Value <> "営業所" Or .Value = "" Then 26 27 i = .Row 28 ws1.Cells(i, 11).Validation.Delete 29 30 End If 31 32 End With 33 34 Next 35 36 37End Sub
わかる方いましたらご指導お願い致します。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/05/12 02:54