明飞的技术园地

笨鸟先飞
  博客园  :: 新随笔  :: 联系 :: 管理

2010年12月29日

摘要: 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) 编辑