[已解决]判断选择的是否是整行

和气生财

不知道是否有更好的方法？

这是我的，感觉绕弯了。

假设选择了1行，或者多行，或者部分单元格

on error resume next

a=replace(selection.address, "$","")

b=split(a, ":")(0)

c=split(a, ":")(1)

d=b*1+c*1

if err.number = 0 then

     msgbox "yes, you select one row or rows"

else

   msgbox "no, not a row"

end if

on error goto 0

最佳答案

月排行榜 / 总排行榜

小线

2010-5-5 13:43

selection.address和selection.entirerow.address对比这样行么?

跳转到最佳答案楼层

小线

selection.address和selection.entirerow.address对比这样行么?

和气生财

QUOTE:

以下是引用小线在2010-5-5 13:43:00的发言：
selection.address和selection.entirerow.address对比这样行么?

是喔，小线这个的确可以的。谢谢哦，[em17][em17][em17]

看看还有其他的提议么？[em09]

小线

Sub Test()
    If Selection.Address = Selection.EntireRow.Address Then
        MsgBox "Yes,you select one row  or rows"
    Else
        MsgBox "No,not a row"
    End If
End Sub

[此贴子已经被作者于2010-5-5 13:50:57编辑过]

和气生财

QUOTE:

以下是引用小线在2010-5-5 13:50:00的发言：

Sub Test()
    If Selection.Address = Selection.EntireRow.Address Then
        MsgBox "Yes,you select one row  or rows"
    Else
        MsgBox "No,not a row"
    End
  If
End
  Sub

谢谢帮我验证了一次。这样的确可以的。[em23]

小线

这样不知道对不对

Sub Test()
    With Selection
        If .Count / .Rows.Count = Rows(1).Columns.Count Then
            MsgBox "Yes , you select one row or rows"
        Else
            MsgBox "No , not a row"
        End If
    End With
End Sub

和气生财

这个也行，不过还是刚才那个简单一些。谢谢，[em24]