ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 兰色幻想

[原创] 带你入门VBA,第二讲

[复制链接]

TA的精华主题

TA的得分主题

发表于 2010-10-14 23:03 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2010-12-10 15:12 | 显示全部楼层
学习学习学习想想想学习

TA的精华主题

TA的得分主题

发表于 2012-7-1 09:16 | 显示全部楼层
likeatree80 发表于 2008-9-21 12:24
请教兰老师,For i = 1 To Range("B65536").End(xlUp).Row中的End(xlUp).Row是什么意思阿?谢谢

excel限定的最后65536行,Range("B65536")是B列最后一个单元格,End(xlUp)往上到第一个非空单元格,row所在行,End(xlUp).Row往上到第一个非空单元格的所在行的行号

TA的精华主题

TA的得分主题

发表于 2014-3-21 14:57 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
VBA新手。发现兰色幻想此种教学方法,很受用。

现在学习第二讲而已,第一讲木有交作业。
先补份作业先:

Sub 矩形2_Click()
Dim x As Integer
Dim y As Integer
For x = 1 To 15
Sheets("sheet1").Cells(x, 2) = x + 100
Next
y = Application.WorksheetFunction.CountA(Columns("b:b"))
Sheets("sheet1").Cells(y + 1, 2) = Application.WorksheetFunction.Sum(Range(Cells(), Cells(x, 2)))
End Sub

谢谢老师。我会继续学习的!

TA的精华主题

TA的得分主题

发表于 2019-5-31 10:21 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
兰色幻想 发表于 2004-10-18 10:58
以下是引用yuwd3在2004-10-18 6:56:00的发言:

谢谢!再问个问题,如果有变量时如何选中不连续区域?如 ...

格式应该是这样:range("列号“&变量&”:列号“&变量&”,列号“&变量&”:"列号“&变量&”“).select

TA的精华主题

TA的得分主题

发表于 2019-12-27 08:19 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
Sub s()
Dim i As Integer
For i = 1 To 15
    Cells(i, 2) = i + 100
Next
Cells(i, 2) = WorksheetFunction.Sum(Range("b1:b" & i - 1))
End Sub

TA的精华主题

TA的得分主题

发表于 2019-12-27 08:43 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-12-27 13:42 | 显示全部楼层
月黑风高 发表于 2004-10-5 13:32
发现问题:如果用下面的程序,最后是在B15和B16单元格同时出现“1620”这个运算结果,不知是什么原因?
Su ...

因为当for 运行完了以后,最后他是给i加1的。相当于i=I+1 最后还运行了一次。所以你现在的I,值和你想的不一样。你可以在调试窗口看下现在I的值
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 18:01 , Processed in 0.055718 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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