VBA明细表插入行

1.         Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs) Implements Interfaces.IExcelWorkBook.ButtunClick
   
2.             ActiveWorkbook.WorkbookSet.GetLock()
   
3.             Dim r As Integer = ActiveWorkbook.ActiveWorksheet.WindowInfo.RangeSelection.Row + 1
   
4.             Dim rs As Integer = ActiveWorkbook.ActiveWorksheet.Range("T_1406").Row + ActiveWorkbook.ActiveWorksheet.Range("T_1406").RowCount
   
5.             Dim c As IRange
   
6.             If ActiveWorkbook.ActiveWorksheet.WindowInfo.RangeSelection.Intersect(Range("T_1406")) IsNot Nothing Then
   
7.                 If e.Shape.Name = "Button 1" Then
   
8.                     If rs = r Then
   
9.                         ActiveWorkbook.ActiveWorksheet.Cells("B" & r).Rows.EntireRow.Insert(InsertShiftDirection.Down)
   
10.                         Range("B" & r + 1 & ":G" & r + 1).Copy(Range("B" & r & ":G" & r))
    
11.                         For Each c In Range("B" & r + 1 & ":G" & r + 1)
    
12.                             If c.HasFormula = False Then
    
13.                                 c.ClearContents()
    
14.                             End If
    
15.                         Next
    
16.                     Else
    
17.                         ActiveWorkbook.ActiveWorksheet.Cells("B" & r + 1).Rows.EntireRow.Insert(InsertShiftDirection.Down)
    
18.                         Range("B" & r & ":G" & r).Copy(Range("B" & r + 1 & ":G" & r + 1))
    
19.                     End If
    
20.                 End If
    
21.             Else
    
22.                 MessageBox.Show("插入行时需要先选中明细表内的单元格后再插入行！")
    
23.             End If
    
24.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
25. 
    
26. 
    
27.         End Sub '按钮/标签点击事件

复制代码

VBA明细表插入行

1.         Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs) Implements Interfaces.IExcelWorkBook.ButtunClick
   
2.             ActiveWorkbook.WorkbookSet.GetLock()
   
3.             Dim r As Integer = ActiveWorkbook.ActiveWorksheet.WindowInfo.RangeSelection.Row + 1
   
4.             Dim rs As Integer = ActiveWorkbook.ActiveWorksheet.Range("T_1406").Row + ActiveWorkbook.ActiveWorksheet.Range("T_1406").RowCount
   
5.             Dim c As IRange
   
6.             If ActiveWorkbook.ActiveWorksheet.WindowInfo.RangeSelection.Intersect(Range("T_1406")) IsNot Nothing Then
   
7.                 If e.Shape.Name = "Button 1" Then
   
8.                     If rs = r Then
   
9.                         ActiveWorkbook.ActiveWorksheet.Cells("B" & r).Rows.EntireRow.Insert(InsertShiftDirection.Down)
   
10.                         Range("B" & r + 1 & ":G" & r + 1).Copy(Range("B" & r & ":G" & r))
    
11.                         For Each c In Range("B" & r + 1 & ":G" & r + 1)
    
12.                             If c.HasFormula = False Then
    
13.                                 c.ClearContents()
    
14.                             End If
    
15.                         Next
    
16.                     Else
    
17.                         ActiveWorkbook.ActiveWorksheet.Cells("B" & r + 1).Rows.EntireRow.Insert(InsertShiftDirection.Down)
    
18.                         Range("B" & r & ":G" & r).Copy(Range("B" & r + 1 & ":G" & r + 1))
    
19.                     End If
    
20.                 End If
    
21.             Else
    
22.                 MessageBox.Show("插入行时需要先选中明细表内的单元格后再插入行！")
    
23.             End If
    
24.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
25. 
    
26. 
    
27.         End Sub '按钮/标签点击事件

复制代码