加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

VBA(制作自定义按钮)

(2010-08-13 21:50:09)
标签:

杂谈

分类: VBA

第一章
1)制作自定义按钮的那个ExceI文件不能被删除,不能被移动位置,所在的文件夹不
能改名,否则单击这个按钮的时候,不会有预期的执行结果。
2)修改新菜单或定义按钮时必须进入“工具栏—自定义—框架”中,否则,右击修改不会有效果;
3)如果文件名为:auto_open的程序就会自动执行;但按住Shift键,文件就不会自动运行了。
第二章 用Excel VBA 选择和操作 Excel 对象

sub 选择并赋值()——宏文件名
    ActiveCell.FormulaR1C1 = "888"——当前单元格赋值
    Range("D6").Select——选择范围
End Sub——宏结尾

1. 当前工作表中活动单元格(Activecell)
ActiveSheet 当前工作簿中的当前工作表,即当前编辑的Excel文件中正在编辑的工作表...activecell 当前工作表中活动单元格...ActiveChart 当前工作簿中的活动图表

2、Formula
公式, 方程式


3、Rem 后面的句子叫“注释语句”,注释语句在程序中是不会被执行的;

 

4、temp 变量


第一节   单元格的选择和赋值
sub aaaa()
 range("b1").select
 activecell.formular1c1="888"
end sub

sub aaaa()
rem 选择第1行第2列的单元格
cells(1,2).select
activecell.value=888
end sub

sub aaaa
row_il=1
clm_il=2
temp=888
cells(row_il,clm_il).select
activecell.value=temp
end sub

sub aaaa
sheets("seet1").cells(1,2).value=888
end sub

sub aaaa
temp=cells(1.1).value
cells(2.3).value=temp
end sub

第二节  求当前单元格所在的行号和列号
sub bbbb
cells(1,1).value=avtivecell.row
cells(2,3).value=avtivecell.column
end sub
第三节  对单元格范围进行操作

rang("a1:a3").select
计算选中的单元格
temp1=selection.rows.count
temp2=selection.columns.count
cells(1,1).value=temp1
cells(1,2).value=temp2

第四节 选择范围之内的单元格循环
sub cccc
k=1
for each c in selection
temp=c.value
if temp>9 then
cells(k,5).value=temp
k=k+1
end if
next c

第五节  对行进行操作

19页
end sub

 

 

0

阅读 收藏 喜欢 打印举报/Report
前一篇:演讲与口才2
后一篇:申论1-1
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有