编程语言很多时候是相通的

这个星期基本完成了上个星期布置的任务，也即使用Excel宏（VBA脚本）处理了炫铃月收入和月用户数的拷贝和粘贴。

下午给了运营支撑部门的同事试运行了一下，她对Ricki说，“哇，感觉这个好厉害呀，都没看到那个新建 Microsoft Excel 工作表有什么内容呀，就可以算呀”“我觉得做技术蛮好啊”（说明：新建 Microsoft Excel 工作表.xls里面只存放了宏，用来执行的，里面确实没有数据）

看到这个，Ricki并没有感到开心，而是倍感痛苦。外行人总觉得做IT很N很有M，须不知这就是程序员的生活是干得比驴累，吃得比猪差，起得比鸡早，看上去比谁都好，五年后比谁都老！，吖，谁叫你做IT，活该！

少说废话，切入正题！

程序试行一切正常，就少了把月收入的小计部分拷贝到年度收入，但由于Ricki规范了文档的命名后，便无法获取到当前所处理的日期数据。以至于无法确定该把数据放到表中的哪一行，无法匹配了。

虽然大学也看过VB，但也是皮毛，过多接触的还是Javascript，所以想是否VB里也有输入窗口的方法，用来获取用户输入的数据，如果有的话，就好办了！ 让人:)的是，真的有哦，代码如下：

Private Sub Workbook_Open()
Dim CurDate As String
CurDate = InputBox("请输入当前日期,格式为YYYY.MM,如2010.10", "提示")
Macro9 (CurDate)
End Sub
Sub Macro9(CurDate)
Workbooks.Open Filename:="D:\输出数据\炫铃月报本月.xls", UpdateLinks:=False
Sheets("2-月收入").Select
Range("C26:E26").Select
Selection.Copy
Sheets("1-年度收入").Select
For Row = 3 To 14 Step 1
If Range("A" & Row).Value = CurDate Then
Range("B" & Row & ":D" & Row).Select
Exit For
End If
Next Row
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub 

想想，其实很多编程语言，大部分都有其共同点，比如C++和Java，Java的引用和C语言中的指针，概念不同，但实际执行是一样的。

有空，欢迎到[url=http://hongfanshu.blogbus.com/]红番薯[/url]逛逛