VBA清除指定的单元格内容

1.         Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs) Implements Interfaces.IExcelWorkBook.ButtunClick
   
2.             ActiveWorkbook.WorkbookSet.GetLock()
   
3.             If e.Shape.Name = "Button 1" Then
   
4.                 Range("Value_Area").ClearContents()
   
5.             End If
   
6.             ActiveWorkbook.WorkbookSet.ReleaseLock()
   
7.         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.             If e.Shape.Name = "Button 1" Then
   
4.                 Range("Value_Area").ClearContents()
   
5.             End If
   
6.             ActiveWorkbook.WorkbookSet.ReleaseLock()
   
7.         End Sub '按钮/标签点击事件

复制代码