- 12
- 0
- 约1.4万字
- 约 14页
- 2017-03-27 发布于重庆
- 举报
带你入门VBA(第一讲)
带你入门VBA(2004第一期)马上新建一个EXCEL文件,用绘图插入一个矩形,点击右键,在菜单中点击指定宏,再点击新建。
会出现
Sub 矩形1_单击 End Sub
在两句中间加入Sheets sheet1 .Range a1 100
Sub 矩形1_单击 Sheets sheet1 .Range a1 100 End Sub
再加一句:
Sub 矩形1_单击 Sheets sheet1 .Range a1 100 Sheets sheet1 .Cells 2, 1 200
End Sub
这是两种单元格的基本录入方法,都懂吗?
再输入下面的循环程序
Sub 矩形1_单击 Dim X As Integer 声明 X为整数型变量 For X 1 To 20 X的值为从1到20循环 Sheets sheet1 .Cells x, 1 x 单元CELLS X,1 的值班等于X值 Next
End Sub
刚才我粘贴错了
Sub 矩形1_单击 Dim i As Integer
For i 1 To 20
Sheets sheet1 .Cells i, 1 i
Next
End Sub
这个程序的结果A1至A20 的值分别为1到20
Dim, As, Integer 是什么意思?是涵数吗?F1里好象找不到
DIM
您可能关注的文档
- 天津市安全评价收费标准.doc
- 山东省潍坊市2010年高三一模(历史)word版含答案.doc
- 山东省烟台市2013届高三上学期期末考试数学(理)试题Word版含答案.docx
- 糖尿病低血糖的危害和应对科室会.ppt
- 山东省烟台市2014届高三上学期期末考试英语Word版含答案.doc
- 山东省潍坊市2010届高三上学期阶段性测试.doc
- 天津电大经管学院专科专业课程综述格式2011.9.doc
- 天津师范大学研究生奖学金评定办法.doc
- 山东省高密市银鹰文昌中学八年级生物上册《第一章绿色植物的一生》果实和种子的形成学案.doc
- 山东省青岛开发区一中2013届高三10月月考生物试题.doc
- 语文广东稳派智慧上进教育联考2026届高三年级3月二轮复习阶段检测(3.26-3.27).doc
- 2025年元宇宙地产开发项目质量管理体系.pptx
- 2026年湖南石油化工职业技术学院单招职业技能考试题库精选答案详解.docx
- 2026年湖南石油化工职业技术学院单招职业适应性考试题库及参考答案详解.docx
- 校长在高三二轮复习备考质量推进会上的精彩发言.docx
- 2026年卫生资格(技术类)易错题型冲刺押题试卷.docx
- 2026年湖南石油化工职业技术学院单招职业技能考试题库及1套完整答案详解.docx
- 2026年湖南石油化工职业技术学院单招职业技能考试题库及答案详解(网校专用).docx
- 语文广东中山市2026届高三年级下学期模拟测试(一)(中山一模)(3.23-3.25)(2).docx
- 2026年卫生资格《药学执业药师》专项训练卷(附答案).docx
最近下载
- 毕业设计(论文)-哈尔滨市体育公园规划设计.docx VIP
- (2025年高考真题解读) 2025年高考数学真题完全解读(北京卷).docx VIP
- 2026年最新职业素养考试试题及答案.doc VIP
- 义务教育优质均衡发展质量监测八年级综合试卷测试题及答案.docx VIP
- 新解读(2025)《HJ T342-2007水质 硫酸盐的测定 铬酸钡分光光度法(试行)》.pptx VIP
- 实例要素式强制执行申请书(申请执行用).pdf VIP
- 风力发电机叶片雷击损伤的损坏鉴定报告.doc VIP
- 2025年度国家体育总局体育社会科学研究项目立项名单.docx VIP
- GB50303-2015 建筑电气工程施工质量验收规范.docx
- JTJ036-1998 公路改性沥青路面施工技术规范.pdf VIP
原创力文档

文档评论(0)