运行错误6，溢出

蔡武

这样运行错误6       
Private Sub CommandButton1_Click()       
        Dim m As Integer       
                m = Sheets("年度班级课程表").UsedRange.Rows.Count       
                    Sheets("年度班级课程表").Range("a4:g" & m).Clear       
        End Sub       
               
               
这样可以删除       
Private Sub CommandButton1_Click()       
        Dim x As Integer       
                m = Sheets("年度班级课程表").UsedRange.Rows.Count       
                    Sheets("年度班级课程表").Range("a4:g" & m).Clear       
        End Sub       

搞不懂哪里有问题。

abc123281

数据类型定义错误   把    Dim m As Integer    改成  Dim m& 就行了  或者不要定义数据类型
你下面这个可以运行的代码
Dim x As Integer        
      m = Sheets("年度班级课程表").UsedRange.Rows.Count
就等于m没有定义数据类型  所以可以运行     

abc123281

一般建议使用下面的代码来动态定位已使用的单元格区域
仅供参考
Private Sub CommandButton1_Click()
With Worksheets("年度班级课程表")
   r = .[a65526].End(xlUp).Row
  .Range("a4:g" & r).Clear
End With
End Sub

ww87725244

Dim m As Integer
这个是有范围的，超出了当然溢出啊

liulang0808

Private Sub CommandButton1_Click()
Dim m As Long
        m = Sheets("年度班级课程表").UsedRange.Rows.Count
            Sheets("年度班级课程表").Range("a4:g" & m).Clear
End Sub

蔡武

abc123281 发表于 2018-10-5 20:17
数据类型定义错误   把    Dim m As Integer    改成  Dim m& 就行了  或者不要定义数据类型
你下面这个可 ...

谢谢分享。我测试一下。

蔡武

liulang0808 发表于 2018-10-5 20:55
Private Sub CommandButton1_Click()
Dim m As Long
        m = Sheets("年度班级课程表").UsedRange.Ro ...

谢谢指导，我测试试试。