您的位置：首页 > 其它

Excel cell 内公式不自动计算解决方法

2009-11-10 11:58 302 查看

■
背景：

Excel的工作sheet比较多时，cell内的公式可能不会自动计算。

■
解决办法：

1.公式所不能自动计算的行先进行剪切。

2.接着把剪切的行插入到下一行即可。

具体的实现代码如下:

'設定シートに項目リストを取得する
Set rgItemList = ThisWorkbook.Worksheets(SHT_CONFIG).Range(RANGE_ITEM_LIST)

'サブシステムのシート名を取得
nSheetCount = 0
For Each rgSheetName In rgStatusList
If Not IsEmpty(rgSheetName.Value) And Not IsError(rgSheetName.Value) Then
nSheetCount = nSheetCount + 1
ReDim Preserve strSheetList(1 To nSheetCount)
strSheetList(nSheetCount) = rgSheetName.Value
End If
Next

'各サブシステムのデータシートを設定
For i = 1 To UBound(strSheetList)
With ThisWorkbook.Worksheets(strSheetList(i))
.Range("D11:AI11").Cut
.Range("D12").Insert Shift:=xlDown
.Range("A18:Q18").Cut

.Range("A19").Insert Shift:=xlDown
End With
Next

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航