摘要:
Sub calc() Dim name As String Dim nameCol As String '姓名所在列 Dim scoreCol As String '成绩所在列 Dim cellNameValue As String Dim cellScoreValue As String Dim iNameCol As Integer Dim iScoreCol As Integer Dim i As Long Dim totalScore As Double name = InputBox("请输入要查找的用户", "输入用户") nameCol = InputBox("请输入姓名所在列 阅读全文
posted @ 2010-12-29 22:16 明飞 阅读(176) 评论(0) 推荐(0) 编辑