清除区域中单元格的内容而保留公式

1.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.                     ActiveWorkbook.WorkbookSet.GetLock()
   
3.             If e.Shape.Name = "Button 1" Then
   
4.                 Dim Cell As IRange
   
5.                 For Each Cell In Range("B13:AV78")
   
6.                     If Cell.HasFormula = False Then
   
7.                         Cell.ClearContents()
   
8.                     End If
   
9.                 Next Cell
   
10.             End If
    
11.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
12.        End Sub'按钮/标签点击事件

复制代码

清除区域中单元格的内容而保留公式

1.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.                     ActiveWorkbook.WorkbookSet.GetLock()
   
3.             If e.Shape.Name = "Button 1" Then
   
4.                 Dim Cell As IRange
   
5.                 For Each Cell In Range("B13:AV78")
   
6.                     If Cell.HasFormula = False Then
   
7.                         Cell.ClearContents()
   
8.                     End If
   
9.                 Next Cell
   
10.             End If
    
11.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
12.        End Sub'按钮/标签点击事件

复制代码