Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3530|回复: 8

[已解决][求助]為何提示引索超出范圍﹖

[复制链接]
发表于 2009-8-31 08:55 | 显示全部楼层 |阅读模式
Sub ObjectvarExample()
Dim WorkingRange As Range
Set WorkingRange = Workbooks("Hour8").Worksheets("Sheet1").Range("A1:D12")
WorkingRange.Font.Bold = True
WorkingRange.Font.Italic = True
WorkingRange.Font.Name = "ABC"
End Sub
為何提示引索超出范圍﹖
最佳答案
2009-8-31 13:25

1楼,Set WorkingRange = Workbooks("aaa.xls").Sheets("Sheet1").Range("A1:D12")

如果你工作簿扩展名是xls的话,应该加上".xls"。

6楼,因为已存在Dim sMess As Integer,即sMess为整型数据类型了。而sMess = "The workbook is:" & iCount中右边的表达式的结果是文本的,所以提示"类型不符合"

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2009-8-31 09:26 | 显示全部楼层

涵數小菜鳥在嗎﹖對你來說是小CASE了﹐來指點指吧﹗
回复

使用道具 举报

发表于 2009-8-31 09:43 | 显示全部楼层

 超出范围的时候。调试下程序。就会停留在有错误的代码行。。

好好看看就是了。

回复

使用道具 举报

 楼主| 发表于 2009-8-31 09:53 | 显示全部楼层

QUOTE:
以下是引用大力水手在2009-8-31 9:43:00的发言:

 超出范围的时候。调试下程序。就会停留在有错误的代码行。。

好好看看就是了。

是的﹐按F8進行過﹐知道出錯在哪行﹐但不知為何錯﹗


[此贴子已经被作者于2009-8-31 9:53:15编辑过]
回复

使用道具 举报

发表于 2009-8-31 09:56 | 显示全部楼层

是否有此文件?是否有此工作表?看看本地窗口里面会显示当前变量的值的。

回复

使用道具 举报

 楼主| 发表于 2009-8-31 11:38 | 显示全部楼层

Sub CountWorkSheets()
    Dim iCount As Integer
    Dim sMess As Integer
    iCount = Worksheets.Count
    If iCount <> 7 Then
        sMess = "The workbook is:" & iCount
        sMess = stessage & "It should contain 7 worksheets"
        MsgBox sMess
    End If
End Sub

這個為何提示狀態不符呢﹖

回复

使用道具 举报

 楼主| 发表于 2009-8-31 12:07 | 显示全部楼层

[求助]為何提示引索超出范圍﹖

[求助]為何提示引索超出范圍﹖

回复

使用道具 举报

发表于 2009-8-31 13:25 | 显示全部楼层    本楼为最佳答案   

1楼,Set WorkingRange = Workbooks("aaa.xls").Sheets("Sheet1").Range("A1:D12")

如果你工作簿扩展名是xls的话,应该加上".xls"。

6楼,因为已存在Dim sMess As Integer,即sMess为整型数据类型了。而sMess = "The workbook is:" & iCount中右边的表达式的结果是文本的,所以提示"类型不符合"

回复

使用道具 举报

 楼主| 发表于 2009-8-31 14:39 | 显示全部楼层

謝謝8樓的朋友。

6問題將Dim sMess As Integer,即sMess为整型数据类型了改為Dim sMess As String 就可以了﹐原來沒注意到這個

 

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 22:47 , Processed in 1.477725 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表