[已解决]方法range 作用于对象 global 1004

fggf

出现方法range 作用于对象 global 1004，
Sub PX()
Application.ScreenUpdating = False
   ActiveSheet.Unprotect Password:="123"
   Sheets("项目表").Activate
   Range("b4:g107" & Range("C65536").End(3).Row + 1).Sort Key1:=Range("g3"), Order1:=xlAscending, Key2:=Range _
        ("c3"), Order2:=xlAscending, Key3:=Range("d3"), Order3:=xlAscending, Header:=xlGuess
        Calculate
    ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True
Application.ScreenUpdating = True
  End Sub
出现1004rangae的错误。.rar (10.86 KB, 下载次数: 3)

2016-8-1 14:35 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-8-1 14:42

1. Sub PX()
   
2.     Application.ScreenUpdating = False
   
3.     ActiveSheet.Unprotect Password:="123"
   
4.     Sheets("项目表").Activate
   
5.     Range("b4:g" & Range("C65536").End(3).Row + 1).Sort Key1:=Range("g3"), Order1:=xlAscending, Key2:=Range _
   
6.         ("c3"), Order2:=xlAscending, Key3:=Range("d3"), Order3:=xlAscending, Header:=xlGuess
   
7.     Calculate
   
8.     ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
   
9.         , AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码

代码改一下，Range("b4:g107" & Range("C65536").End(3).Row + 1)，这里有错

跳转到最佳答案楼层

这儿有肥猫

这段有问题Range("b4:g107" & Range("C65536").End(3).Row + 1)，到底范围是b4:g107还是
"b4:g"&Range("C65536").End(3).Row + 1?

望帝春心

1. Sub PX()
   
2.     Application.ScreenUpdating = False
   
3.     ActiveSheet.Unprotect Password:="123"
   
4.     Sheets("项目表").Activate
   
5.     Range("b4:g" & Range("C65536").End(3).Row + 1).Sort Key1:=Range("g3"), Order1:=xlAscending, Key2:=Range _
   
6.         ("c3"), Order2:=xlAscending, Key3:=Range("d3"), Order3:=xlAscending, Header:=xlGuess
   
7.     Calculate
   
8.     ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
   
9.         , AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码

代码改一下，Range("b4:g107" & Range("C65536").End(3).Row + 1)，这里有错

mathking77

应该是Range("b4:g107" & Range("C65536").End(3).Row + 1)中+1 的问题
去掉试试

fggf

解决了，非常感谢各位！