范圍上的對象必需錯誤為Nothing?

我在VBA中有一些代碼,它試圖根據行在活動工作表的特定列中的值對行進行分組。我看到的問題在If rngArea Is Nothing Then線上,它給了我

424:需要對象

error.

我想我已經正確地將rngArea變量聲明為Range,如果這個變量最初是空的,那么Is Nothing是正確的,對嗎?這是如此簡單的一行代碼,我看不出還有什么問題。

有人能幫忙嗎?

Sub GroupEpics()
    FTESheet.Activate
    
    Dim c, rngArea, EpicLink As Range
    
    LstRow = FTESheet.Cells(Rows.Count, "B").End(xlUp).Row
    Set EpicLink = FTESheet.Range(Cells(3, 4), Cells(LstRow, 4))
    
    'undo any existing groupings
    'suppress error if no rows are grouped
    On Error Resume Next
    Range("A1:A" & LstRow).Rows.Ungroup
    On Error GoTo 0
    
    'loop through all epic link values
    For Each c In EpicLink
        If c.Value <> 0 And c.Row() > 2 Then
            'add this epic row to the cumulative range
            If rngArea Is Nothing Then
                Set rngArea = c
            Else
                Set rngArea = Union(rngArea, c)
            End If
        End If
    Next c
    
    ' loop through Range's Areas and group each one of them
    For Each c In rngArea.Areas
        c.EntireRow.Group
    Next c
End Sub
? 最佳回答:

實際上,問題是您沒有聲明rngArea As Range

如果你申報

Dim c, rngArea, EpicLink As Range

這意味著

Dim c As Variant, rngArea As Variant, EpicLink As Range

在VBA中,您需要為每個變量指定一個類型,否則默認為Variant。

Dim c As Range, rngArea As Range, EpicLink As Range

所以如果你不把rngArea設為一個對象,它只是一個空的Variant,而不是一個對象,但是Is Nothing正在檢查對象,這就是它失敗的原因。

如果聲明Dim rngArea As Range,則將變量定義為范圍對象。因此,如果沒有設置它,它就是Nothing,因此可以用If rngArea Is Nothing Then進行測試。

主站蜘蛛池模板: 美女视频一区二区三区| 日本免费电影一区二区| 精彩视频一区二区| 人妻无码视频一区二区三区| 国产激情一区二区三区在线观看| 免费精品一区二区三区在线观看| 中文字幕一区二区区免| 一区二区三区视频| 国产精品区一区二区三在线播放 | 精品成人一区二区三区四区| 国产日本亚洲一区二区三区| 精品乱人伦一区二区三区| 日韩一区二区在线免费观看| 精品国产鲁一鲁一区二区 | 亚洲AV午夜福利精品一区二区| 风流老熟女一区二区三区| 国产日韩精品一区二区在线观看| 亚洲一区二区三区日本久久九| 久久久91精品国产一区二区三区| 四虎永久在线精品免费一区二区| 一区二区三区免费视频播放器| 日本一区二区高清不卡| 成人一区二区免费视频| 日本不卡一区二区三区视频| 国产AV午夜精品一区二区入口| 亚洲国产精品一区二区第一页| 人妻少妇精品视频一区二区三区| 亚洲一区二区三区高清| 国产嫖妓一区二区三区无码| 久久国产精品免费一区二区三区| 国产精品区AV一区二区| 久久久久人妻一区精品| 亚洲不卡av不卡一区二区| 中文精品一区二区三区四区| 中文字幕一区二区三区人妻少妇| 国产一区风间由美在线观看| 麻豆精品久久久一区二区| 精品久久综合一区二区| 少妇激情AV一区二区三区| 国产MD视频一区二区三区| 91一区二区在线观看精品|