ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

菜鸟谈VBA最最基础入门《原创》

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2017-6-14 17:45 | 显示全部楼层
本帖已被收录到知识树中,索引项:开发帮助和教程
非常感谢 学到了很多知识

TA的精华主题

TA的得分主题

发表于 2017-6-15 13:26 | 显示全部楼层
厉害了楼主,感谢!

TA的精华主题

TA的得分主题

发表于 2017-6-15 17:27 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
学习了~!~~谢谢

TA的精华主题

TA的得分主题

发表于 2017-6-15 19:24 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2017-6-16 14:14 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2017-6-18 13:05 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
chenyao868 发表于 2009-11-4 15:19
非常8错,整理下大家共同学习。

感谢“chenyao868”的整理分享

TA的精华主题

TA的得分主题

发表于 2017-6-18 19:36 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
ggsmart 发表于 2009-8-18 16:19
[小试牛刀]制作个性化的欢迎界面
--------------------------------
  如果你辛辛苦苦设计了一个Excel ...

Private Sub UserForm_Initialize()
    ltime.Caption = 5
    Call b
End Sub
Sub a()
   欢迎.ltime.Caption = 欢迎.ltime.Caption - 1
If 欢迎.ltime.Caption * 1 > 0 Then      
      Call b
   Else
      Unload 欢迎
      Application.Visible = True
   End If
End Sub
Sub b()
   Application.OnTime Now + TimeValue("00:00:01"), "a"
End Sub
小试牛刀欢迎界面代码虽然简单,我却似懂非懂。请问叶老师,ltime.Caption 为什么不能等于60、20等数字,它不是初始秒数吗?窗体为什么总是显示10秒或9秒以下数字,不会显示59、58、57,,,等等?

TA的精华主题

TA的得分主题

发表于 2017-6-19 16:51 | 显示全部楼层
trustwxq 发表于 2009-10-1 09:25
无限循环的问题,和多个单元格内容添加、删除的问题已经解决,特别是添加时将一列代码向I列复制后,乡镇名 ...

打扰了,请教个问题
“If rng2.Row = aa And rng2.Value <> str1 Then
                bb = MsgBox("代码未指定,指定点确定,重输按取消!", vbOKCancel)
                If bb = vbOK Then
                    rng2.Offset(1, -1) = rng2.Offset(0, -1) + 1
                    rng2.Offset(1, 0).Value = str1
                    Target.Resize(, 2).Value = ""
                    Target.Range("a1").Select
                    Sheets("代码").Activate
                    rng2.Offset(1, 1).Activate
                    Application.EnableEvents = True
                    Exit Sub
                Else
                    Target.Resize(, 2).Value = ""
                    Target.Range("a1").Select
                    Application.EnableEvents = True
                    Exit Sub
                End If
            End If”

这段没看明白是什么意思,您能解释一下吗?

TA的精华主题

TA的得分主题

发表于 2017-6-19 17:06 | 显示全部楼层
trustwxq 发表于 2009-10-1 09:25
无限循环的问题,和多个单元格内容添加、删除的问题已经解决,特别是添加时将一列代码向I列复制后,乡镇名 ...


刚才好像说的太泛泛了,
“If rng2.Row = aa And rng2.Value <> str1 Then
                bb = MsgBox("代码未指定,指定点确定,重输按取消!", vbOKCancel)
                If bb = vbOK Then
                    rng2.Offset(1, -1) = rng2.Offset(0, -1) + 1
                    rng2.Offset(1, 0).Value = str1
                    Target.Resize(, 2).Value = ""
                    Target.Range("a1").Select
                    Sheets("代码").Activate
                    rng2.Offset(1, 1).Activate
                    Application.EnableEvents = True
                    Exit Sub
                Else
                    Target.Resize(, 2).Value = ""
                    Target.Range("a1").Select

                    Application.EnableEvents = True
                    Exit Sub
                End If
            End If”

我是不理解红色这部分区域的意思

TA的精华主题

TA的得分主题

发表于 2017-6-25 19:55 | 显示全部楼层
ggsmart 发表于 2009-8-12 21:49
程序流程控制——Go to 语句
===========================
Go to 在英语里是什么?相信大家的英语都比我 ...

为什么一定是i <= 1000 才行  直接=1000结果显示的是1?    小白  求指教
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-29 17:07 , Processed in 0.050225 second(s), 5 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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