怎样判断选中单元格是否在固定区域内？

264593702 · 发表于 2013-9-15 13:27

现在遇到一个问题，怎样判断选中单元格是否在固定区域内？
譬如：若选中单元格在range(B3：E19)，则B2="1"&"-"& "选中单元格的值"；若选中单元格在range(H3：k19)，则B2="5"&"-"& “选中单元格的值"；若都不在那两区域，则不赋任何值。

dajiahaoxinku12 · 发表于 2013-9-15 14:15

Sub xuanze()
If Not Application.Intersect(Range("b3:e19"), Selection) Is Nothing Then
   Range("b2") = "1" & "-" & Selection.Value
ElseIf Not Application.Intersect(Range("h3:k19"), Selection) Is Nothing Then
   Range("b2") = "1" & "-" & Selection.Value
Else
   Range("b2") = ""
End If
End Sub

dajiahaoxinku12 · 发表于 2013-9-15 14:30

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Not Application.Intersect(Range("b3:e19"), Target) Is Nothing Then
   Range("b2") = "1" & "-" & Target.Value
ElseIf Not Application.Intersect(Range("h3:k19"), Target) Is Nothing Then
   Range("b2") = "1" & "-" & Target.Value
Else
   Range("b2") = ""
End If
End Sub

264593702 · 发表于 2013-9-15 14:56

dajiahaoxinku12 发表于 2013-9-15 14:15
Sub xuanze()
If Not Application.Intersect(Range("b3:e19"), Selection) Is Nothing Then
R ...

好的！谢谢！能用！又学懂了新东西

264593702 · 发表于 2013-9-15 15:41

dajiahaoxinku12 发表于 2013-9-15 14:30
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
...

再请教个问题：

Sub yishou()
If Selection.Interior.ColorIndex = 3 Then
Range("c2:e2") = "yes"
Else
Range("C2") = WorksheetFunction.VLookup(B2, Sheets3.Range("A:E"), 2, 0).Value
End If
End Sub

当运行到 Range("C2") = WorksheetFunction.VLookup(B2, Sheets3.Range("A:E"), 2, 0).Value时候，出现错误，本想实现当选中单元格不是红色的时候C2 = VLOOKUP(B2，A:E，2，0)，但不知是哪里用错了，麻烦指正下！谢谢

dajiahaoxinku12 · 发表于 2013-9-15 15:42

range("b2")

264593702 · 发表于 2013-9-15 15:48

dajiahaoxinku12 发表于 2013-9-15 15:42
range("b2")

Range("C2") = WorksheetFunction.VLookup(Range("b2"), Sheets3.Range("A:E"), 2, 0).Value

还是出现运行错误“424” 要求对象！

莫非是#N/A的问题？

dajiahaoxinku12 · 发表于 2013-9-15 15:55

Range("C2") = Application.VLookup(ActiveSheet.Range("b2").Value, Worksheets("sheet3").Range("A1:E100"), 2, 0)

264593702 · 发表于 2013-9-15 16:06

dajiahaoxinku12 发表于 2013-9-15 15:55
Range("C2") = Application.VLookup(ActiveSheet.Range("b2").Value, Worksheets("sheet3").Range("A1:E100 ...

下标越界了！查了VLOOKUP 用法，没看懂！

dajiahaoxinku12 · 发表于 2013-9-15 16:08

呵呵，你的代码不要放在模块里面，放在要查数据的工作表里面，查询的数据源名字必须是 sheet3

		自动登录	找回密码
密码			免费注册

[求助] 怎样判断选中单元格是否在固定区域内？