1

背景：我创建了一个 Word 模板，其中包含一个例程，该例程创建一个数组，该数组在第一维中保存项目标题，在第二维中保存目标标题。该数组被转换为 Excel 中的表格，用于创建时间线/甘特图。

问题：转置将数组信息适当地放入 Excel 表中，并根据需要扩展该表的大小。单元格 B5 是 DataBodyRange 的开始，也是我要粘贴数组信息的位置的开始。

' paste headings from array into excel
xlWS.Range("B5:C" & UBound(gHeadings, 2)) = xlApp.Transpose(gHeadings)

没有以正确方式出现的是表格中的后续数据单元格。时间线单元格具有以下公式：

=IF(AND(COLUMNS($H$5:H10)>=$E5,COLUMNS($H$5:H10)<=$F5),IF(COLUMNS($H$5:H10)-$E5<ROUND(($F5-$E5+1)*$G5,0),fillblock,""),"")

转置完成后，包含引用公式的单元格行在作为 DataBodyRange 的原始最后一行的表格行上出错。在该行第 10 行，公式从上面显示的内容更改为：

=IF(AND(COLUMNS($H$5:H119)>=$E10,COLUMNS($H$5:H119)<=$F10),IF(COLUMNS($H$5:H119)-$E10<ROUND(($F10-$E10+1)*$G10,0),fillblock,""),"")

对为什么会发生这种情况以及如何预防有任何想法或理解？

4

1 回答 1

0

关于 Excel 表格为何以我所描述的方式运行的总体答案没有得到解答。但是，这是我的解决方法。速度打击可以忽略不计。

    ' variable to hold the formula and fix the double-quote ("") issue in vba
        sEmpty = Chr(34) & Chr(34)
        sFormula = "=IF(AND(COLUMNS($H$5:H5)>=$E5,COLUMNS($H$5:H5)<=$F5),IF(COLUMNS($H$5:H5)-$E5<ROUND(($F5-$E5+1)*$G5,0),fillblock," & sEmpty & ")," & sEmpty & ")"

    ' paste cell formula into the new worksheet
        lTblRows = xlLO.DataBodyRange.Rows.Count
        xlWS.Range("H5:AK" & lTblRows + 4).Formula = sFormula

这有效地将公式复制到表中引用的每个单元格中，复制在行插入期间被错误引用的单元格。

于 2014-10-19T16:48:31.017 回答