使用vlookup引用在VBA中粘贴单元格颜色
使用vlookup引用在VBA中粘贴单元格颜色
提问于 2018-08-13 05:35:32
我正在编写用于创建组织结构图的代码，希望能够将表格中的源单元格的颜色粘贴到组织结构图中。当前目标单元格格式是从预设格式("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回答 1
Stack Overflow用户
发布于 2018-08-13 05:47:32
在粘贴公式后，您是否尝试过粘贴格式？
Range("chartformula").Copy
Range("finalarea").PasteSpecial xlPasteFormulas
Range("finalarea").PasteSpecial xlPasteFormats
Sheets("Org Chart").Calculate您还应该使用工作表限定Range，特别是因为您的宏不限于一个工作表。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51813057
复制相关文章
相似问题