没有合适的资源?快使用搜索试试~ 我知道了~
资源推荐
资源详情
资源评论
问题总结-
指定位置最后非空行非空列的描述
列最后一行
意思是从 列的最后一个单元格遍历直到有内容的哪一行可用鼠标点击 单元格按
箭头上来验证 是方向上的意思么
Range("IV1").End(xlToLeft).Column
第一行的最后非空单元格的列数.可用鼠标点击 IV1 单元格,按 End+←来验证.
最后一个单元格的快捷键
最后非空行非空列
sheet 最后非空行号:Activesheet.UsedRange.rows.count 验证错误
或 ActiveCell.SpecialCells(xlLastCell).Row 此行验证正确
sheet 最后非空列号:Activesheet.UsedRange.columns.count 验证错误
或 ActiveCell.SpecialCells(xlLastCell).Column 验证正确
对象的描述
对象的引用,在 里,!"#"$ 集合包含在 %& 对象里,当我们要引用某工作
薄的时候,要遵循从大到小的规则。跟表示硬盘里的某个文件的位置一样,比如我们想引
用 ' 盘“我的文档”文件夹下的名为“我的 () 课程”文件时要输入的是:
':*我的文档*我的 () 课程
同样,如果我们要引用名称为“+,#"$”的工作薄时就是:
%&!"#"$“+,#"$”
和引用文件不同的是,() 里使用的分隔符是点。
同理,当我们引用“+,#"$”里面的工作表“+,$-”时应是:
%&!"#"$“+,#"$”!"$-$“+,$-”
可以继续延伸到下一层,引用“+,#"$”里工作表“+,$-”里面的单元格区域
“. './”:
%&!"#"$“+,#"$”!"$-$“+,$-”“. './”
但是并不是每一次引用都必须这么呆板,就像猪八戒不用每一次都去爬下水管道。如果
我们引用的是活动对象,也就是被激活的对象,引用就可以进行简化。
如果是 +,#" 工作薄是激活的,引用可以简化为
!"$-$“+,$-”“. './”
如果 +,$- 当前也是激活的,引用甚至还可以简化为 “. './”,也可以直接输
入0. './1,如果引用的单元 是单个的单元格,还可以用 2$(行号列号)的引用
方式。
跨工作簿工作时两个工作簿都要打开否则显示错误下标越界
!"$-$.和 !"$-$“$-.”有什选择当前活动的工作簿:
ThisWorkbook.Activate
如果选择其他工作簿,注意该工作簿一定是打开的,并且不要忘记加上后缀“.xls” ,例如:
Windows("Totol.xls").Activate
选择一个工作表:
Sheets("Balance").Activate.
和 “”什么区别?
!"$-$.表示 !"$-$ 集合里的第一个工作表。
!"$-$“$-.”表示 !"$-$ 集合里名为$-.的工作表。
程序流程控制—— 语句
33333333333333333333333333333
42$ 语句同 56 语句一样,也是条件判断的语句。它的功能也可以用 56
语句来完成。但是,当程序的条件太多,用 56 语句来判断的话就存在一些不足了,比
如程序是否美观?是否便于阅读?程序的执行效率等等。42$ 语句在执行的效率
上,同 56 语句相比,肯定是要快得多。
042$ 语句的语法1
42$测试表达式
2$条件表达式 .
语句块 .
2$条件表达式 7
语句块 7
2$条件表达式
语句块
2$条件表达式
语句块
2$$
语句块 $
4
当某个条件表达式与测试表达式相匹配时,则执行其后的语句块,否则执行
2$$ 后的语句块,然后结束 42$ 块的执行。同 56 语句一样,可以不要 2$
$ 语句。
“如对 . 单元格的学生成绩进行等级评定,小于等于 / 分的为差,/ 分到 8 分
的为不及格,/ 分到 98 分的为及格,:/ 分到 :8 分的为良好,8/ 到 .// 分的为优秀。”
用 42$ 语句来解决就是:
复制内容到剪贴板
代码
4;#$
5<0.1(;3=-
>$). 单元格没有输入数字。
%4;#?退出程序
5<
42$0.1(;
2$/=78
>$)差
2$/=8
>$)不及格
2$/=98
>$)及格
2$:/=:8
>$)良好
2$$
>$)优秀
4
4;#
42$ 语句@@A)
42$ 语句@@A)
需要补充一点的是,无论是 56 语句还是 42$ 语句,
都是可以进行嵌套的!
引用
$+ 的补充说明 楼上写的代码我只考虑分数是整数的时候,这里我只是举个
例子,目的是让大家认识 42$ 语句,因为没有考虑小数和负数的情况一旦出现
78 之类的就都全是优秀所以,程序本身并不全面为此: 度 B6652 技术论坛的老朽
对代码进行了修定提供了另一段全面的代码非常感谢C
代码
?修订 : 度 老朽
?网址 -D EE:;FE##$
?日期 7//8G9G.上午.. 77 7.
4;#=$
5<0.1(;3=-
>$). 单元格没有输入数字。
%4;#?退出程序
5<
42$0.1(;
2$5$H/
>$)差
2$5$H/
>$)不及格
2$5$H:/
>$)及格
2$5$H8/
>$)良好
2$$
>$)优秀
4
4;#
!单元格的复制粘贴
同工作簿
4;#>.
.4
4&2,
).4
&I4-$
4;#
等价于
4;#>.
.2,).
4;#
以上的代码只是发生在活动工作表内,如果要在其他工作簿或工作表中实现复制
粘贴的命令,只需要改变引用即可。如我们要将 )".$ 的第一个工作表中的
. ./ 复制到 )"7$ 的第一个工作表中的 ). )./ 单元格,则代码为:
复制内容到剪贴板
代码
4;#+,,
!"#"$#".4-$.0. ./12,J
!"#"$#"74-$.0#. #./1
4;#
注意 此时应保证 #". 和 #"7 都是打开的否则显示错误 下标越界
, 和后面的横杠之间有个空格切记换行符是空格加横杠
同上也可以这样的思路去写 先激活区部分对象
结果如下:
4;#+,,
"#"$K#".L$-$K$-.L&I
0. ./12,
!"#"$K#"7L$-$K$-.L&I
0#. #./1$
4;#
错误待完成
" #$ 单元格的 #% 属性
对象的 属性
对象有一个 属性,也许你在阅读别人的例子里经常会看到如
“01”这样的语句,这就是 属性的利用。
属性应用于 对象,同样也返回一个 对象。该对象代表包含源区域的
区域结尾处的单元格。如果你还是不明白,那请你在工作表里试一试,分别按 2上、下、
左、右方向键,看看得到的是什么? 属性返回的单元格就相当于在源单元格按住 2
键上(或下、左、右)方向键所得到的单元格。它的语句格式简单写为:
源区域(移动方向)
移动方向可以是:
=M:向左移动,相当于在源区域按 左方向键。
=%-:向右移动,相当于在源区域按 右方向键。
:向上移动,相当于在源区域按 上方向键。
':向下移动,相当于在源区域按 下方向键。
擦 可以 也可以为什么
剩余63页未读,继续阅读
资源评论
liupipiwag
- 粉丝: 0
- 资源: 6
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功