excel的剪切、复制和粘贴操作 这样就不会破坏设置好的单元格格式

基于表格的用户界面最大的问题是，由于Excel用于剪切、复制、粘贴和拖放数据，而数据输入表中用于编辑的单元格大多被赋予了特定的样式、数据验证或条件格式，所以Excel的默认复制/粘贴会覆盖粘贴单元格中的所有格式，Excel的默认剪切方式会将剪切单元格的格式设置为“通用样式”。Excel的拖放功能类似于剪切/复制，同样会破坏单元格中的格式。为了避免上述情况，可以屏蔽Excel的拖放功能，自己编写剪切、复制、粘贴程序。将宏剪切为布尔值将宏源剪切为范围

初始化单元格复制粘贴public sub initcutcopy master()application . onkey“x”，“docut”application . onkey“x”，“docut”application . onkey“{ del }”，“docut”。

申请。onkey“^c”，“文档副本”应用程序。onkey“^c”，“文档副本”应用程序。onkey“^{insert}”，“文件副本”

申请。onkey“^v”，“多巴”应用程序。onkey“^v”，“多巴”应用程序。在键“{INSERT}”、“多巴”上

申请。在关键的“{回车}”、“多巴”应用程序上。OnKey“~”，“多巴司”

关闭拖放操作应用程序。celldraganddrop=假端接头。

如果选择类型为range，则处理剪切单元格public subdocut()，然后bcut=true set mrng source=selection selection。copyyeset mrngsource=无选择。cutendifendsub。

如果选择类型为range，则处理复制单元格公共sub do copy()，然后bcut=false设置mrng source=selectionleset mrng source=nothing end if。

选择。复制结束子

处理粘贴单元格公共子粘贴()如果应用。cutcopymode而不是mrngsource与selection相比算不了什么。如果MBC不在源代码中，则粘贴特殊的xlvalues。clearcontentsendif。

申请。cutcopy mode=false elseaactivesheet。粘贴endifendsub将上面的代码复制到VBE中，试着运行并熟悉它的原理。您可以将上述程序嵌入到您正在开发的应用程序的适当位置，并根据实际情况进行一些调整，使应用程序更加健壮。