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的得分主题

发表于 2011-3-12 22:34 | 显示全部楼层
感谢论坛上这么多的好心人,让我的学习之路有了支撑

TA的精华主题

TA的得分主题

发表于 2011-3-12 22:50 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-3-12 22:57 | 显示全部楼层
en ,讲的好,资料也好。虽然小小的会一点vba了。但看了之后还是受益匪浅呀。thanks

TA的精华主题

TA的得分主题

发表于 2011-3-12 23:03 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
也想学习一下,不知道能不能学懂,不过还是谢谢了啊

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-3-12 23:53 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
呵呵,夜深了,小老鼠又出来了,正是我活动的时间,大家千万不要喊打!!!
总共15讲,我先讲第一讲,高手就不要听了 ,你们听我都不敢讲了,害臊,出臭了,不过,还是欢迎你们指正我的缺点,帮助入门级的朋友,同时再提高自己VBA水平。
言规正传,我希望听我讲课之前的同学,先找个位置坐,不要坐在地下 先听听我的视频教材,然后一讲讲的来
  第一讲:VBA与宏
   VBA 是VB的一个分枝,VBA是一种编程语言,最简单说是由一个个英文词和合成词,按一定规则组成的代码。的我们要去英国,首先我们就要考虑自己能否说和听懂英文,而我们现在要和EXCEL说话,因为EXCEL能听懂VBA,我们要和EXCEL交行沟通,那么我们就要会EXCEL里的VBA,也就是VBA是编程人员和EXCEL沟通的语言,呵呵,我不知我这个比喻解释VBA是否恰当
   英文单词,你可能会说,别说我了,别说了,我连26个英文字母都不会,还学,呵呵,我也没有假话,我也真的不会发音这26个字母。我也怕,我刚才说过,是由一些简单的英文单词和一些组合词和合成词组成,如Open(打开),Close(关闭) IF(如果).....Then,这个对英文差的学生来说是有一定的困难,困难总是存在的,就像哲学里说的,时时有矛盾,事事有矛盾,但这时就看我们的恒心,和毅力了,学贵有恒.人贵有志.
    什么是宏,大家一说到宏,就直接想到录制宏,我接触VBA之前也是录制宏,大家动一下后,录制一段宏:在A1单元格输入"小老鼠",点一个别的单元格,再次选中A1单元格,工具菜单,宏,录制新宏,点击确定,到格式工具栏上点击字体颜色为红色,字号的大小为18磅,点停止录制,这时我们按一下快捷键Alt+F11,打开VBE编辑窗口,双击模块1,看到如下代码:
  1.     Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. ' 宏由 999宝藏网 录制,时间: 2011-3-12
  5. '

  6. '
  7.     Selection.Font.ColorIndex = 3       选中的单元格的字体颜色值为3,对应颜色为红色,
  8.     With Selection.Font
  9.         .Name = "宋体"       '字体为宋体
  10.         .Size = 18               '字体的大小为18磅
  11.         .Strikethrough = False          'Strikethrough 是删除线的意思
  12.         .Superscript = False       'Superscript 上标的意思
  13.         .Subscript = False      'Subscript下标的意思
  14.         .OutlineFont = False  '字体为空心
  15.         .Shadow = False   '阴影
  16.         .Underline = xlUnderlineStyleNone  '无下划线
  17.         .ColorIndex = 3  '颜色索引为3,3是红色
  18.     End With
  19. End Sub
复制代码
以上代码我们可以把False改为TRUE看看,一一运行,我们就会发现他们之间的不同作用,现在我们来精减上面的代码,所有False都删除,包括:Underline = xlUnderlineStyleNone  和Selection.Font.ColorIndex = 3      
最后得到这样的的代码
  1. Sub Macro1()
  2.      With Selection.Font
  3.           .Name = "宋体"
  4.           .Size = 72
  5.           .ColorIndex = 3
  6.      End With
  7. End Sub
复制代码
呵呵,到了00:36分了,小老鼠要回家了,休息了,下次见,第一讲还没有完,待续
第一讲的待续在50楼  http://club.excelhome.net/thread-691838-5-1.html

[ 本帖最后由 佛山小老鼠 于 2011-3-13 14:40 编辑 ]

TA的精华主题

TA的得分主题

发表于 2011-3-12 23:54 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-3-13 00:37 | 显示全部楼层
呵,谢谢鼠师了,期待老师快点把15讲的讲稿都贴出来啊。

TA的精华主题

TA的得分主题

发表于 2011-3-13 01:42 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-3-13 01:58 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-3-13 03:20 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
我非常感谢。。多谢
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-28 17:21 , Processed in 0.066056 second(s), 5 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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