zoukankan      html  css  js  c++  java
  • excel VBA 编程


    Dim cuttent_columns As Integer Dim care_repeat As Integer Private Sub Workbook_Open() Dim i As Integer Dim j As Integer '确定cuttent_columns的值 For i = 1 To 100 If Cells(1, i) = "" Then For j = i To 100 If Cells(1, j) = "" Then Else cuttent_columns = j - 1 'MsgBox "init cuttent_columns" 'MsgBox cuttent_columns Exit Sub End If Next End If Next End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next '跳过异常 Application.ScreenUpdating = False '关闭屏幕更新 If care_repeat = 1 Then care_repeat = 0 'MsgBox "防止正反馈" Exit Sub End If If Target.Row > 51 Then Exit Sub 'MsgBox "cuttent_columns" 'MsgBox cuttent_columns 'MsgBox "Target.Row" 'MsgBox Target.Row 'MsgBox "Target.Target.Column" 'MsgBox Target.Column Dim null_flag As Integer Dim i As Integer null_flag = 0 If Cells(Target.Row, 2) = 0 Or Cells(Target.Row, 2) = "" Then Else For i = 2 To cuttent_columns If Cells(Target.Row, i) = "" Then care_repeat = 1 Cells(Target.Row, i) = Cells(Target.Row, 2) care_repeat = 1 Cells(Target.Row, 2) = 0 null_flag = 1 Exit For End If Next If null_flag = 0 Then cuttent_columns = cuttent_columns + 1 care_repeat = 1 ActiveSheet.Columns(cuttent_columns).Insert care_repeat = 1 Cells(Target.Row, cuttent_columns) = Cells(Target.Row, 2) care_repeat = 1 Cells(Target.Row, 2) = 0 End If End If '计算总和 Dim littel_total As Integer Dim littel_total_num As Integer Dim big_total_num As Integer littel_total = cuttent_columns + 1 littel_total_num = 0 big_total_num = 0 '计算小总和 For i = 3 To cuttent_columns littel_total_num = littel_total_num + Cells(Target.Row, i) Next care_repeat = 1 Cells(Target.Row, littel_total) = littel_total_num '判断 If Cells(Target.Row, littel_total) > Cells(53, 2) Then care_repeat = 1 Cells(Target.Row, littel_total + 1) = "金额超过阈值" Else care_repeat = 1 Cells(Target.Row, littel_total + 1) = "" End If '计算大总和 For i = 2 To 51 big_total_num = big_total_num + Cells(i, littel_total) Next care_repeat = 1 Cells(52, littel_total) = big_total_num Application.ScreenUpdating = True '恢复屏幕更新 End Sub

      

  • 相关阅读:
    面向对象(OOP:Objdec Oriented Programming)
    vue中v-model和v-bind区别
    DateTimeFormat
    html中frameset简介
    学习及资料地址
    mybatis+oracle批量新增带序列List对象
    Io流读取并输出文件(例如.mp3格式文件)
    Java从服务器下载图片保存到本地
    转:Java DecimalFormat的主要功能及使用方法
    数据库事务隔离级别-- 脏读、幻读、不可重复读(清晰解释)
  • 原文地址:https://www.cnblogs.com/mingyunrangwozoudaoxianzai/p/11604175.html
Copyright © 2011-2022 走看看