|
本帖最后由 TT小鱼儿 于 2020-3-13 16:39 编辑
用EXCEL2016版本,我要查询公式的值,在代码添加 LookIn:=xlValues 后,总提示未命名参数。
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Address = "$B$3" Then
- UsedRange.Offset(6).ClearContents
- Set c = Sheets("水读").Columns(1).Find(Target.Value, , , 1, LookIn:=xlValues)
- If Not c Is Nothing Then c.Resize(13, 11).Copy [a6].Resize(13, 11)
- Set D = Sheets("电读").Columns(1).Find(Target, , , 1, LookIn:=xlValues)
- If Not D Is Nothing Then D.Resize(13, 11).Copy [L6].Resize(13, 11)
- End If
- End Sub
复制代码
|
|