[已解决]运行时错误 “438” 对象不支持该属性或方法 帮忙看看是什么问题

laizis

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim bb As Integer
Dim ii As Integer

'保护 销售总台账 工作表

Sheets("销售总台账").Unprotect
Sheets("销售总台账").Activate
Sheets("销售总台账").Cells.Select

  Selection.Locked = False
  Selection.FormulaHidden = False

  Sheets("销售总台账").Range("B:J,T:W,AA:AH,AK:AL,AS:AT,AO:AP").Select

  bb = Sheets("销售总台账").Range("F65536").End(xlUp).Row
  For ii = 3 To bb
  If Sheets("销售总台账").Range("k" & ii) <> "" Then
  Sheets("销售总台账").Range("k" & ii).EntireRow.selcet        ' 提示：运行时错误 “438” 对象不支持该属性或方法
    End If
  Next ii

     Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables _
        :=True

          With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.499984740745262
    End With

End Sub

最佳答案

月排行榜 / 总排行榜

lyf7276

2013-7-16 16:57

Sheets("销售总台账").Range("k" & ii).EntireRow.selcet你最后个单词写错了，应该是select

跳转到最佳答案楼层

lyf7276

Sheets("销售总台账").Range("k" & ii).EntireRow.selcet你最后个单词写错了，应该是select

laizis

lyf7276 发表于 2013-7-16 16:57
Sheets("销售总台账").Range("k" & ii).EntireRow.selcet你最后个单词写错了，应该是select

囧，谢谢哦！