扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
职称计算机考试Excel2003试题及答案
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口我想要word2003和excel2003免费版的，不用验证码，谁有？我的邮箱是_百度知道
我想要word2003和excel2003免费版的，不用验证码，谁有？我的邮箱是
提问者采纳
已发 ，请查收
其他类似问题
word2003的相关知识
其他2条回答
office2003已发到你的qq邮箱。
你想要就发给你吗？微软都收钱
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁excel2003输入数据后如何让其在下一个单元格自动计算出我想要的数据呢？
excel2003输入数据后如何让其在下一个单元格自动计算出我想要的数据呢？
要先设置公式，如下图，是乘法，要有＝，才能行。
你说的是，类似在单元格C2输入 5*3+2，在D2显示 17如果是这样的话，选中单元格B1，同时按Ctrl和F3进入名称编辑器，新建，名称处输入比如 abc，下面引用位置处输入=EVALUATE(A1)确定。这样的话，你在任意有计算式的格子的右边一格输入 =abc就可以得到结果了。
其他回答 (2)
下一个单元格与它本身单元格之间的关系是怎样的呢？
下面那个单元格要设好对应输入数据单元格的公式，这样一输入数据下面就自动计算出来了。
你是怎么设置的啊，我设置的怎么不行啊
这个先设公式啊。
设置了不行
相关知识等待您来回答
微软专区领域专家我想要word2003和excel2003免费版的，不用验证码，谁有？我的邮箱是，谢谢了_百度知道
我想要word2003和excel2003免费版的，不用验证码，谁有？我的邮箱是，谢谢了
提问者采纳
如果对您有帮助，请注意查收已发送至你邮箱，望及时采纳
其他类似问题
word2003的相关知识
其他2条回答
我有的好啊。谢谢合作。是很全的office版本，你要么。随后就发？要的话，就采纳我的最佳
网上下载免费的吧
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 2103|回复: 12|
在线时间955 小时经验1551 威望0 性别保密最后登录注册时间阅读权限50UID861653积分1551帖子精华0分享0
EH高级, 积分 1551, 距离下一级还需 449 积分
积分排行685帖子精华0微积分0
Sub Macro1()
&&Dim oLab ' As Label
&&For ii = 1 To 20
& & Set oLab = Sheet1.OLEObjects.Add(ClassType:=&Forms.Label.1&, Link:=False, DisplayAsIcon:=False, Left:=541.5, Top:=62.25, Width:=78, Height:=18)
& & oLab.Name = &Lab& & ii
& & Debug.Print TypeName(oLab), oLab.Name
现在有个问题数据类型不匹配提出
dim oLab as Label - 不成立
Set oLab --- 数据类型为 OLEObject
Dim oLab As OLEObject - 成立
Set oLab = Sheet1.OLEObjects.Add 如何处理
让dim oLab as Label - 成立
同理，Comcobox等也出现类似问题。
在线时间801 小时经验6920 威望3 性别男最后登录注册时间阅读权限95UID161933积分9870帖子精华3分享0
积分排行76帖子精华3微积分0
必须得先引用 Microsoft Forms 2.0 Object Library
在线时间801 小时经验6920 威望3 性别男最后登录注册时间阅读权限95UID161933积分9870帖子精华3分享0
积分排行76帖子精华3微积分0
如果不定义变量，在不引用上述工程库的情况下，也可以这样Sub Macro1()
& & For ii = 3 To 7
& && &&&mN = &Lab& & ii
& && &&&Set Cel = Cells(ii, 2)
& && &&&With Sheet1.OLEObjects.Add(ClassType:=&Forms.Label.1&, Link:=False, DisplayAsIcon:=False, Left:=Cel.Left, Top:=Cel.Top, Width:=Cel.Width, Height:=Cel.Height)
& && && && &.Name = mN
& && && && &.Object.Caption = mN
& && &&&End With
& & Next ii
End Sub复制代码
当你提问时，要像向1年级的小学生来阐述问题那样尽量详细！如果能让1年级的小学生能明白你的问题，那么你的问题就能更好更快更高更强地得到回复！
在线时间955 小时经验1551 威望0 性别保密最后登录注册时间阅读权限50UID861653积分1551帖子精华0分享0
EH高级, 积分 1551, 距离下一级还需 449 积分
积分排行685帖子精华0微积分0
14:21 上传
excel默认引用项
(16.25 KB, 下载次数: 8)
14:21 上传
下载次数: 8
在线时间955 小时经验1551 威望0 性别保密最后登录注册时间阅读权限50UID861653积分1551帖子精华0分享0
EH高级, 积分 1551, 距离下一级还需 449 积分
积分排行685帖子精华0微积分0
为什么要用dim oLab as Label
主要是用oLab的属性或位置的重新定位
Dim oLab As Label
&&.Caption = &&
&&.Left = 10
&&.Top = 10
&&.Width = 10
&&.Height = 10
这种方法需要消化理解。
.Object.Caption = mN
在线时间801 小时经验6920 威望3 性别男最后登录注册时间阅读权限95UID161933积分9870帖子精华3分享0
积分排行76帖子精华3微积分0
原帖由 ningyong58 于
14:21 发表
excel默认引用项
只有当你插入窗体(或窗体控件)之后，EXCEL才会自动引用Microsoft Forms 2.0 Object Library
当你提问时，要像向1年级的小学生来阐述问题那样尽量详细！如果能让1年级的小学生能明白你的问题，那么你的问题就能更好更快更高更强地得到回复！
在线时间955 小时经验1551 威望0 性别保密最后登录注册时间阅读权限50UID861653积分1551帖子精华0分享0
EH高级, 积分 1551, 距离下一级还需 449 积分
积分排行685帖子精华0微积分0
还是前面的问题。Label在form中应用。现在将其应用到Sheet中，肯定会出点问题。
在线时间801 小时经验6920 威望3 性别男最后登录注册时间阅读权限95UID161933积分9870帖子精华3分享0
积分排行76帖子精华3微积分0
原帖由 ningyong58 于
14:27 发表
为什么要用dim oLab as Label
主要是用oLab的属性或位置的重新定位
Dim oLab As Label
&&.Caption = &&
&&.Left = 10
&&.Top = 10
&&.Width = 10
&&.Height = 10
这种方法需要消化理解 ...
& && &'撰写:老朽
& && &'网址:
& && &'日期: 下午 02:54:47
Sub zldccmx()
& & For II = 1 To 5
& && &&&mN = &Lab& & II
& && &&&With Sheet1.OLEObjects.Add(ClassType:=&Forms.Label.1&)
& && && && &.Name = mN
& && &&&End With
& & Next II
& & For i = 1 To 5
& && &&&With OLEObjects(&Lab& & i)& & '变量引用法
& && && && &.Top = 60
& && && && &.Left = 20 + (i - 1) * 80
& && && && &.Object.Caption = &我的Left是& & .Left
& && && && &.Object.AutoSize = True
& && &&&End With
& & With [Lab3]& & '直接引用法
& && &&&.Top = 120
& && &&&.Object.Caption = &我特别一点&
& && &&&.Object.ForeColor = vbRed
& & End With
当你提问时，要像向1年级的小学生来阐述问题那样尽量详细！如果能让1年级的小学生能明白你的问题，那么你的问题就能更好更快更高更强地得到回复！
在线时间955 小时经验1551 威望0 性别保密最后登录注册时间阅读权限50UID861653积分1551帖子精华0分享0
EH高级, 积分 1551, 距离下一级还需 449 积分
积分排行685帖子精华0微积分0
原帖由 zldccmx 于
14:55 发表
& && &'撰写:老朽
& && &'网址:
& && &'日期: 下午 02:54:47
Sub zldccmx()
& & For II = 1 To 5
& && &&&mN = &Lab& & II
& && &&&With Sheet1.OLEObjects.Add(C ... \
谢谢，学会了OleObjects.Object的用法。
但是还有一个问题
Object.BackColor = 有没有透明效果。
[ 本帖最后由 ningyong58 于
15:37 编辑 ]
在线时间801 小时经验6920 威望3 性别男最后登录注册时间阅读权限95UID161933积分9870帖子精华3分享0
积分排行76帖子精华3微积分0
原帖由 ningyong58 于
15:32 发表
谢谢，学会了OleObjects.Object的用法。
但是还有一个问题
Object.BackColor = 有没有透明效果。
& && &'撰写:老朽
& && &'网址:
& && &'日期: 下午 04:42:33
Sub zldccmx()
& & For II = 1 To 5
& && &&&mN = &Lab& & II
& && &&&With Sheet1.OLEObjects.Add(ClassType:=&Forms.Label.1&)
& && && && &.Name = mN
& && &&&End With
& & Next II
& & For i = 1 To 5
& && &&&With OLEObjects(&Lab& & i)& & '变量引用法
& && && && &.Top = 60
& && && && &.Left = 20 + (i - 1) * 80
& && && && &.Object.Caption = &我的Left是& & .Left
& && && && &.Object.AutoSize = True
& && &&&End With
& & With [Lab3]& & '直接引用法
& && &&&.Top = 120
& && &&&.Width = 200
& && &&&.Object.Caption = &我特别一点：& & vbLf & &是可以透明的哦!&
& && &&&.Object.AutoSize = True
& && &&&.Object.ForeColor = vbRed
& && &&&.ShapeRange.Fill.Visible = msoFalse
'& && &&&.Object.BackColor = vbCyan '背景是青色
& && &&&.Object.BackStyle = fmBackStyleTransparent
& & End With
当你提问时，要像向1年级的小学生来阐述问题那样尽量详细！如果能让1年级的小学生能明白你的问题，那么你的问题就能更好更快更高更强地得到回复！
积分≥4700即可申请
优秀会员奖章No.1
优秀会员奖章No.2
优秀会员奖章No.3
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&