我正在编写用于创建组织结构图的代码,希望能够将表格中的源单元格的颜色粘贴到组织结构图中。当前目标单元格格式是从预设格式("chartformat")驱动的。下面的代码。任何帮助都将不胜感激。
' Put Preformula
Range("preformula").Copy
Range("finalarea").PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
Sheets("Org Chart").Calculate
' Clear Blanks
Range("finalarea").SpecialCells(xlCellTypeFormulas, 4).ClearContents
' Put Format
Range("chartformat").Copy
Range("finalarea").SpecialCells(xlCellTypeFormulas, 2).PasteSpecial Paste:=xlPasteFormats
' Put Formula and Clear
Range("chartformula").Copy
Range("finalarea").PasteSpecial Paste:=xlPasteFormulas
Sheets("Org Chart").Calculate
Range("finalarea").Copy
Range("finalarea").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
发布于 2018-08-13 05:47:32
在粘贴公式后,您是否尝试过粘贴格式?
Range("chartformula").Copy
Range("finalarea").PasteSpecial xlPasteFormulas
Range("finalarea").PasteSpecial xlPasteFormats
Sheets("Org Chart").Calculate
您还应该使用工作表限定Range
,特别是因为您的宏不限于一个工作表。
https://stackoverflow.com/questions/51813057
复制相似问题