【烟花原创】VBA零基础之第78篇 单元格对象Range（二十二）

hwc2ycy

PasteSpecial 方法

　选择性粘贴
　　

　语法：PasteSpecial(Paste, Operation, SkipBlanks, Transpose)

　　Paste 可选，粘贴类型，对应上图中的 粘贴，可取的值如下：

　　　xlPasteAll  粘贴全部内容。

　　　xlPasteAllExceptBorders 粘贴除边框外的全部内容。

　　　xlPasteAllMergingConditionalFormats　将粘贴所有内容，并且将合并条件格式

　　　xlPasteAllUsingSourceTheme  使用源主题粘贴全部内容。

　　　xlPasteColumnWidths  粘贴复制的列宽。

　　　xlPasteComments  粘贴批注。

　　　xlPasteFormats  粘贴复制的源格式。

　　　xlPasteFormulas  粘贴公式。

　　　xlPasteFormulasAndNumberFormats  粘贴公式和数字格式。

　　　xlPasteValidation  粘贴有效性。

　　　xlPasteValues  粘贴值。

　　　xlPasteValuesAndNumberFormats  粘贴值和数字格式。

　　　各项值在上图中均有一一对应。

　　Operation 可选，对应上图中的运算，可取值如下：

　　　xlPasteSpecialOperationAdd  复制的数据与目标单元格中的值相加。

　　　xlPasteSpecialOperationDivide  复制的数据除以目标单元格中的值。

　　　xlPasteSpecialOperationMultiply  复制的数据乘以目标单元格中的值。

　　　xlPasteSpecialOperationNone  粘贴操作中不执行任何计算。

　　　xlPasteSpecialOperationSubtract  复制的数据减去目标单元格中的值。

　　SkipBlanks可选，对就上图中的跳过空单元。

　　　True表示不将剪贴板上区域中的空白单元格粘贴到目标区域中，默认值为 False。

　　Transpose 可选，对应上图中的转置。
　　　表示在粘贴区域时是否转置行和列，默认值为 False。

　返回值：Variant

　示例：
　　源数据截图：
　　　

　　Range("d2:d6").Copy

　　Range("b2:b6").PasteSpecialxlPasteValues, xlPasteSpecialOperationAdd

　　Application.CutCopyMode = False

　　'取消复制或剪切模式。

　　复制，剪切模式如下图：
　　　

　　代码执行后效果图：
　　　

　　‘提工资，技巧操作应该都会吧。

　关于选择性粘贴，其实在日常操作中也是使用比较多的。

　另外论坛新手班，技巧班，综合班都会有介绍，大家可以录制一个选择性粘贴的宏折腾下

PrintOut 方法

　打印对象。

　语法：

　　PrintOut(From, To, Copies, Preview,ActivePrinter,  _
　　　　　PrintToFile, Collate, PrToFileName)

　　　From 可选，打印的开始页号。如果省略此参数，则从起始位置开始打印。

　　　To 可选，打印的终止页号。如果省略此参数，则打印至最后一页。

　　　Copies 可选，打印份数。如果省略此参数，则只打印一份。

　　　Preview 可选，表示是否在打印对象之前调用打印预览。

　　　　如果为 False（或省略该参数），则立即打印对象。

　　　ActivePrinter 可选，设置活动打印机的名称。

　　　PrintToFile 可选，如果为 True，则打印到文件。
　　　　如果没有指定 PrToFileName，将提示用户输入要使用的输出文件的文件名。

　　　Collate 可选，如果为 True，则逐份打印多个副本。

　　　PrToFileName 可选，如果 PrintToFile 设为 True，则该参数指定要打印到的文件名。

　返回值：Variant

　说明：

　　From 和 To 所描述的“页”指的是要打印的页，并非指定工作表或工作簿中的全部页。

　　之前介绍工作表对象时，也有Printout方法。

　示例：

　　Range("a1").CurrentRegion.PrintOutpreview:=True

PrintPreview 方法

　打印预览

　语法：PrintPreview(EnableChanges)

　　　EnableChanges 可选，表示是否可更改边距和打印预览中可用的其他页面设置选项。

　示例：

　　Range("a1").CurrentRegion.PrintPreview

　在测试时发现单元格对象下该方法EnableChanges参数传递False时无效。

　但是在调用工作表对象的PrintPreview方法时可传递False。

　这点大家注意下。

yewei113

支持烟花   

我的一生141314

支持烟花

tingfeng461002

ANDY0393

谢谢分享，标记，七十八