分享 2014-12-27
2014-12-27 16:06
Sub 批量变更文件名() Dim wbList(600) As String, wbCount As Integer, i As Integer, OldName$, NewName$ FolderName = "D:\工具软件\视频教程\" '文件夹路径 wbCount = 0 wbName = Dir(FolderName "*.*") While wbName ...
126 次阅读|0 个评论
分享 做一名Excel星探,其乐无穷
2014-12-4 15:41
期待能平均每年发现一个有潜质的Excel新星,并在必要时助其一臂之力。基本条件: 1)90后; 2)具有一定Excel基础,有灵性,愿意在一定时期内持之以恒地学习Excel知识(不需要占用正常工作等时间); 3)乐于分享; 4)最好已具备一些VBA基础或有这方面打算; 5)愿意和大家成为现实中的朋友——如果能在将来参加Exc ...
160 次阅读|0 个评论
分享 计划2013年下半年带VBA初级班,欢迎捧场!
2013-5-16 21:53
筹备中。。。。。。。。
183 次阅读|1 个评论 热度 1
分享 未公开的API 定时MsgBox ---MessageBoxTimeout
2012-10-17 09:57
以下代码转自EH论坛, http://club.excelhome.net/thread-590980-1-1.html 由EH论坛ldy和winland两位版主提供。先保存起来,近期的新程序中将会用到。 Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As ...
个人分类: Excel VBA|327 次阅读|0 个评论
分享 财务用金额转换自定义函数
2011-8-24 08:33
今天在论坛看到了大小写转化的自定义函数,感觉很实用,记录下来,以后继续补充。 一 人民币中文大写转数字 http://club.excelhome.net/thread-337509-8-1.html 更多参考80楼 Function DxToN(ss) For i% = 1 To 9 ss = Re ...
个人分类: Excel VBA|305 次阅读|1 个评论 热度 1
分享 利用字典进行二级数据有效性设置
2011-8-23 12:02
利用字典进行二级数据有效性设置
今天在论坛碰到一位老同学问到二级数据有效性的问题, http://club.excelhome.net/thread-755869-1-1.html 基础数据如下图所示: 楼主希望建立级联下拉菜单, 即通过设置数据有效性, 前面一列输入产品款号后, 后面两列下拉菜单中对应的颜色和尺码由据第一列数据来决定。 今天尝试 ...
个人分类: Excel VBA|917 次阅读|0 个评论
分享 利用VBA快速填充序列
2011-8-17 14:48
在11202班级有这样一个题目:A1到A100里依次输入1到100,用VBA来实现。 传统解法: Sub test() Dim i% For i = 1 To 100 Cells(i, 1) = i Next End Sub 这里尝试三种方法,无需循环及定义变量,只需在编辑代 ...
个人分类: Excel VBA|684 次阅读|1 个评论 热度 1
分享 用VBA将图片添加为批注
2011-8-17 14:34
来源: http://t.excelhome.net/thread-8835-1-1.html 在11112班,有学员提到使用VBA添加批注的题目,比较有意思,题目要求如下(点击 这里 下载题目附件): 解决代码如下: Sub AddComments() Dim cell As Range Cells.ClearComments   ...
个人分类: Excel VBA|546 次阅读|0 个评论
分享 Diamond At Work推出一系列时尚用品---休闲一下咯
2011-8-16 21:12
Diamond At Work 发起于 2005 年,并先后于 2005 年 10 月和 2007 年 4 月 成功举办了第一、二届工业金刚石会议 。在这两届工业金刚石会议上, Diamond At Work 展示了一系列诸如袖扣、手表之类的精美物品,取得了很大的成功。现在,我们可以通过登陆其网站来购买了。   ...
个人分类: 休闲|679 次阅读|1 个评论 热度 1
分享 计算1+2-3+4+5-6……+97+98-99的9种解法
2011-8-16 20:41
=SUM(IF(MOD(ROW(1:99),3),ROW(1:99),-ROW(1:99))) =SUM(((MOD(ROW(1:99),3)0)*2-1)*ROW(1:99)) =SUM(IF(MOD(ROW(1:99),3)=0,-1,1)*ROW(1:99)) =SUM(SIGN(MOD(ROW(1:99),3)-1/2)*ROW(1:99)) =SUM(ROW(1:99)-IF(MOD(ROW(1:99),3)=0,ROW(1:99)*2)) =SUM(ROW(1:99)-(MOD(ROW(1:99),3)=0)*ROW(1:99)*2) =SUM(MID(REPT("+ ...
个人分类: Excel函数公式|797 次阅读|1 个评论 热度 1
返回顶部