将单元格中的文本公式内容写入计算单元格

需求：将单元格中的文本公式内容写入计算单元格的VBA

写法：这里只提供写法，不展示效果了，可作为VBA的参考

1.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.                          If e.Shape.Name = "执行计算" Then
   
3.                 Dim lastRow As Long
   
4.                 Dim destCol As Long
   
5.                 Dim srcCol As Long
   
6.                 Dim i As Long
   
7.                 Dim Cells As IRange = ActiveWorkbook.ActiveWorksheet.Cells
   
8.                 '确定源和目标列
   
9.                 srcCol = 12 'L列
   
10.                 destCol = 7 'G列
    
11.                 lastRow = Range("F_5245").RowCount + 14
    
12. 
    
13.                 For i = 15 To lastRow
    
14.                     If Cells(i, srcCol).Value <> "" Then
    
15.                         Cells(i, destCol).Formula = "=" & Cells(i, srcCol).Value
    
16.                     Else
    
17.                         If MessageBox.Show("单元格" & Cells(i, srcCol).Address & "的值为空！是否继续计算？确定继续，取消退出！", "公式计算提醒", MessageBoxButton.OKCancel) = MessageBoxResult.Cancel Then
    
18.                             Exit For
    
19.                         End If
    
20. 
    
21.                     End If
    
22.                 Next i
    
23.             End If
    
24.        End Sub'按钮/标签点击事件

复制代码

将单元格中的文本公式内容写入计算单元格

需求：将单元格中的文本公式内容写入计算单元格的VBA

写法：这里只提供写法，不展示效果了，可作为VBA的参考

1.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.                          If e.Shape.Name = "执行计算" Then
   
3.                 Dim lastRow As Long
   
4.                 Dim destCol As Long
   
5.                 Dim srcCol As Long
   
6.                 Dim i As Long
   
7.                 Dim Cells As IRange = ActiveWorkbook.ActiveWorksheet.Cells
   
8.                 '确定源和目标列
   
9.                 srcCol = 12 'L列
   
10.                 destCol = 7 'G列
    
11.                 lastRow = Range("F_5245").RowCount + 14
    
12. 
    
13.                 For i = 15 To lastRow
    
14.                     If Cells(i, srcCol).Value <> "" Then
    
15.                         Cells(i, destCol).Formula = "=" & Cells(i, srcCol).Value
    
16.                     Else
    
17.                         If MessageBox.Show("单元格" & Cells(i, srcCol).Address & "的值为空！是否继续计算？确定继续，取消退出！", "公式计算提醒", MessageBoxButton.OKCancel) = MessageBoxResult.Cancel Then
    
18.                             Exit For
    
19.                         End If
    
20. 
    
21.                     End If
    
22.                 Next i
    
23.             End If
    
24.        End Sub'按钮/标签点击事件

复制代码