将明细表中的空行通过VBA删除的方法
- Imports SpreadsheetGear
- Imports C1.Silverlight
- Imports C1.Silverlight.C1MessageBoxButton
- Imports C1.Silverlight.C1MessageBoxIcon
- Imports Newtonsoft.Json
- Imports Newtonsoft.Json.Linq
- Imports System.Windows.forms
- Namespace ExcelViewVBDotnet
- Public Class StandardInterface
- '预留位置1
- '预留位置2
- Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
- Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
- EV = Excel
- Excel.GetLock()
- AW = Excel.ActiveWorkbook
- Range = AW.ActiveWorksheet.Range
- Excel.ReleaseLock()
- End Sub'打开时执行事件
- Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
- End Sub'单元格选择后执行的事件
- Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
- End Sub'单元格编辑完成后执行事件
- Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
- ActiveWorkbook.WorkbookSet.GetLock()
- If e.Shape.Name = "Button 1" Then
- Dim UsedRows, i As Integer
- UsedRows = ActiveWorkbook.ActiveWorksheet.UsedRange.RowCount
- For i = UsedRows To 3 Step -1
- If ActiveWorkbook.Worksheets("Sheet1").Cells(i, 2).Text = "" And ActiveWorkbook.Worksheets("Sheet1").Cells(i, 3).Text = "" And ActiveWorkbook.Worksheets("Sheet1").Cells(i, 4).Text = "" Then
- ActiveWorkbook.Worksheets("Sheet1").Cells(i, 2).EntireRow.Delete()
- End If
- Next
- MessageBox.Show("删除完毕!")
- End If
- ActiveWorkbook.WorkbookSet.ReleaseLock()
- End Sub'按钮/标签点击事件
- Public Sub FollowHyperlink(sender As Object)
- End Sub '暂不支持
- End Class
- ' 注:除事件字眼下可以自定义代码外的所有代码不允许改动,否则编译将有可能失败。
- End Namespace
复制代码
用其中的按钮事件
|
|
hessen