セルをダブルクリックすると、A列に〇が付くようにコードを作成しています。
現在のコードは次のとおりです。
Private
1Dim rngTarget As Range 2Dim rngFind As Range 3Dim Trow As Long 4 If Target.Count > 1 Then Exit Sub '複数セル選択禁止? 5 Trow = Target.Row 6 If Cells(Trow, 1).Value = "" Then 7 Cells(Trow, 1).Value = "〇" 8 Else 9 Cells(Trow, 1).Value = "" 10 End If 11 12 MaxRow = Cells(Rows.Count, 2).End(xlUp).Row 13 For Trow = 2 To MaxRow 14 '=IF(A3="〇","〇",IF(L3>0,IF(INDEX($A:$A,MATCH(L3,$B:$B))="〇","〇"," ")," ")) 15 Cells(Trow, 13).Formula = "=IF(RC[-12]=""〇"",""〇"",IF(RC[-1]>0,IF(INDEX(C1:C1,MATCH(RC[-1],C2:C2))=""〇"",""〇"","" ""),"" ""))" 16 Next 17End Sub
現在のコードでは、どのセルをクリックしても〇がついてしまうので、クリック可能なセル範囲を限定したいのですが、うまくいきません。
B2:L301の範囲のみ動くように修正したいです。
お力お貸しください。
よろしくお願いします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/02/25 06:15
2020/02/26 23:37