VBA数据验证公式引用动态单元格问题

dickybora

想请教2个问题

第一个就是当我用VBA想给单元格添加数据验证的时候出错，由于数据验证公式是动态的，所以只能这样，如果直接引用单元格就正常


With Range("j" & i).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=OFFSET(NEGOTIATOR!$B$1,MATCH(I" & MATERIAL.Row & "=,NEGOTIATOR!$A$2:$A$19982,0),0,COUNTIF(NEGOTIATOR!$A:$A,I" & MATERIAL.Row & "))"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = False
    End With


第二个问题就是用VBA selectchange时间修改单元格背景色后就不能粘贴了，比如先复制一个单元格，然后出发selectchange，就不能粘贴了

麻烦大佬们帮忙看看
多谢

quqiyuan

quqiyuan

你这个触发Worksheet_SelectionChange事件，应该限制范围，否则点击任何另外一个单元格都触发的话，效率很低，还很容易造成错误

quqiyuan

你说的第二个问题看不明白。。