Jack_孟

摘要： 第1.40例 Timer 函数一、题目： 要求编写一段代码，运用 Timer 函数来计算本代码运行所化的时间。二、代码：Sub 示例_1_040() Dim t, i&, a t = Timer For i = 1 To 1000000 a = a + i Next i MsgBox ... 阅读全文

摘要： 最近公司HR和Finance想算员工的工作天数，想让我帮忙写些VBA，自己从网上找了下代码，自己再改改，以下来自网络。计算两个日期之间的工作日，用VBA，因量大，最好用数组做Sub kk()Dim arr, i&, j&, m&arr = Sheet2.Range("b3:f4")For i = 1... 阅读全文

摘要： 想做个功能，点一次按钮，就在A1记录一次当前系统时间，要精确到毫秒的。再点一次按钮就在A2显示，以此类推！例如：这个功能可以用来做歌词记时间！Sub ttt()ActiveCell.Selecttt = Timerh = Int(tt / 3600)m = Int((tt - 3600 * h) /... 阅读全文