zoukankan      html  css  js  c++  java
  • EXCEL文件中的简单VB编程,基本的访问方法

    Private Sub CommandButton1_Click()
        For i = 1 To Sheets.Count - 1
        
            
            Dim shet
            Dim shetd
            shetd = "a" + Trim(str(i))
            shet = "b" + Trim(str(i))
            
            For j = 1 To 100
                
                Dim sss
                sss = "A" + Trim(str(j))    //数字转换成字符,截取掉空格,拼合成一个单元格地址
                
                
                Dim ccc
                ccc = Sheets(i).Range(sss).Value   //获得某页某个单元格的内容
                
                Dim d
                d = Sheets(i).Name        //获得某个sheet的名称
                
                
                
                If ccc = "合计" Then
                
                    Dim row
                    row = "t" + Trim(str(j))
                    
                    Sheets("统计").Range(shetd) = d         //设置某个单元格的值
                    
                    Sheets("统计").Range(shet) = Round(Sheets(i).Range(row).Value, 2)
                    
                End If
            Next j
        Next i
    End Sub

    Private Sub CommandButton2_Click()
        For i = 1 To Sheets.Count - 1
        
            
            Dim shet
            Dim shetd
            shetd = "a" + Trim(str(i))
            shet = "b" + Trim(str(i))
            
            For j = 1 To 100
                
                Dim sss
                sss = "A" + Trim(str(j))
                
                
                Dim ccc
                ccc = Sheets(i).Range(sss).Value
                
                Dim d
                d = Sheets(i).Name
                
                
                
                If ccc = "平均" Then
                
                    Dim row
                    row = "t" + Trim(str(j))
                    
                    Sheets("统计").Range(shetd) = d
                    
                    Sheets("统计").Range(shet) = Round(Sheets(i).Range(row).Value, 2)
                    
                End If
            Next j
        Next i
    End Sub

  • 相关阅读:
    openJudge计算概论-谁考了第k名
    OpenJudge计算概论-求平均年龄
    OpenJudge计算概论-能被3,5,7整除的数
    OpenJudge计算概论-计算书费
    OpenJudge计算概论-计算三角形面积【海伦公式】
    OpenWrt 中安装配置Transmission
    OpenWrt中wifidog的配置及各节点页面参数
    Linux中后台执行任务
    通过ionice和nice降低shell脚本运行的优先级
    OpenWrt中对USB文件系统的操作, 以及读写性能测试
  • 原文地址:https://www.cnblogs.com/baishahe/p/1772018.html
Copyright © 2011-2022 走看看