在Excel中怎么实现带格式的拷贝 - VBA当前位置:& &&&在Excel中怎么实现带格式的拷贝在Excel中怎么实现带格式的拷贝&&网友分享于：&&浏览：245次在Excel中如何实现带格式的拷贝？RT，所谓带格式是指将单元格中的字体、单元格样式甚至单元格的行高、列宽等都拷贝过来而没有任何变化。请高人指教！------解决方案--------------------楼主指的是VBA吗，这个缺省就是带格式的，示例如下VB code
cells(1,1).copy
cells(2,2),paste
------解决方案--------------------
Sub Macro1()&
Columns(&A:A&).Select&
Selection.Copy&
Columns(&H:H&).Select&
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _&
False, Transpose:=False&
Application.CutCopyMode = False& End Sub&
------解决方案--------------------缺省时不拷贝宽度的，宽度需要使用xlPasteColumnWidths方式单独拷贝，代码如下VBScript code
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
------解决方案--------------------另：楼主要学会提问，如果你是想问VB的东东，一开始就要把具体的开发环境报出来，看你的大标题，也就是Excel，也不知道这个Excel在那里，是一个COM对象，还是真正的Excel窗口。谢谢。
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有Excel2010VBA语法_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
Excel2010VBA语法
|0|0|文档简介
网优工程师|
总评分4.4|
浏览量7144
&&Excel2010VBA语法基础
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩6页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢如何调试Excel VBA代码 - jack_Meng - 博客园
随笔 - 735, 文章 - 1, 评论 - 108, 引用 - 0
Excel VBA出错时给出的错误信息极少，需要充分利用各种工具来进行调试。
1.编译错误 常见的编译错误有： 错误的源代码格式，比如if后面缺少then：在编辑器中该行会变成红色。 错误的语法结构，比如if和end if没有对应上：代码运行前会给出编译错误提示。 类型不匹配：函数输入的参数与定义时的参数类型不同时会出现该类错误。 变量未定义：指使用了没有申明的变量类型（当Option Explicit时） 建议： 格式规范化，严格缩进。VBA插件Smart Indent是一个很好的辅助工具。这样做让源代码更具备可读性，从而更快检测源代码格式和语法结果错误，。 勾选上「工具&&选项&&编译器&&要求变量声明」，或者在每个代码模块最前面手工加上 Option Explicit 。在代码编辑中，很多错误只是因为手误，这个选项会让编译器强制检查变量申明，从而在编译时便发现错误。2.运行中出错或者运行结果错误 当程序编译没有问题，但运行中出错或者运行的结果与想象中不符，就需要用到VBA的调试功能。下面是VBA提供的几个重要的调试功能，这些功能能让程序停在某些特定的位置上等待检查：F9：设置程序断点，在代码左侧栏点击有相同效果。重新按F9即取消断点。F8：单步跟踪，当调用子函数会跟踪到子函数内部Shift+F8：单步跟踪，但不会进入子函数内部Ctrl+Shift+F8：跳出正在跟踪的函数，直接返回上一层函数。F5：运行程序，直到出现错误、程序结束或程序断点为止Ctrl+F8：运行程序，直到出现错误、程序结束、程序断点或当前光标所在行为止debug.print var：在立即窗口中显示var的值debug.assert var：当var==false时程序自动停止 以上命令也可在菜单和命令栏中获取。 在调试过程中，可通过下面几种方法查看各个变量的值，当变量和预期不一样时，也就找到了程序出错的原因，便能对照修改： 立即窗口（快捷键Ctrl+G）：在该窗口里会显示debut.print的结果值，以及随时计算和运行代码。在代码前面添加「?」，可以在立即窗口中显示运行结果。 监视窗口：可以将变量以及表达式添加到监视窗口，可以实时查看变量和表达式的值。支持将代码窗口里的变量和表达式拖入到见识窗口 本地窗口：本地窗口里可以查看目前的local变量和global变量的变量值。 编辑窗口：将鼠标停在编辑窗口的变量上可显示该变量的值。 有一些方法可减少程序错误以及降低调试的难度： 添加重要的代码注释。 源代码格式规范化，增加代码可读性。VBA插件Smart Indent是一个很好的辅助工具。 尽可能声明变量类型，少用Variant变量。 注意函数的参数传递方式，默认为传引用，子函数会修改变量的值。 尽量将功能函数化，不同的功能分开写。 避免在VBA中引用绝对地址，如Range("A1")。可先在Excel中定义名称"abc=$A$1"，然后引用Range("abc")。 避免使用ActiveSheet, ActiveWorkbook等可变变量，用Sheet1,ThisWorkbook这种绝对变量。绝对变量不受外界操作影响。出处：
========================================================================
VBA测试与错误处理
测试代码，检查它是否正确。为确保代码能够正常作用，必须尽力模拟代码运行的不同环境，并检查其正确性。
程序中的错误一般分为如下几类：
（1）语法错误(如输入时关键字或标点符号拼写错误) 。
（2）编译错误(如使用对象的方法时，该对象并不支持这个方法) 。
（3）运行期间错误(如除0、打开或关闭并不存在的文档、关闭未打开的文档等) 。
（4）逻辑错误(逻辑锗误是最难查找的错误类型，它们是由程序中使用的逻辑引起的。
要确保代码中的变量和表达式按照预想的方式运行，可以使用VBA中的各种调试工具跟踪它们。VBE有以下调试工具。
(1) 中断模式
①进入中断模式方法：在过程的开始位置按下F8键（&逐语句&执行）。使用&切断断点&(F9键或者单击当前空白指示器栏)。使用Stop语句。当过程运行时，按下Ctrl+Break键。使用运行期间错误MsgBox对话框。
②退出中断模式方法：从运行菜单中选择&运行子过程/用户窗体)&；或者按下F5键，或者单击&调试&工具栏上的&运行子过程/用户窗体&按钮。从&运行&菜单中选择&重新设置&选项，或者单击&调试&工具栏上的&重新设置&按钮。
(2) 单步执行过程
① 单步执行过程:从&调试&菜申中选择&逐过程&选项，或者按下Shift+F8键。
②跳出过程(跳过程剩余部份):从&调试&菜单中选择&跳出&选项，或者按下Ctrl十shift十F8键。
③运行到光标处(跳过一组语句):从&调试&菜单中选择&运行到光标处&或按下Ctrl+F8键。
④设置下一条语句为光标所指语句(要警惕会忽略不执行中间的语句):从&调试&菜单中选择&设置下一条语句&或者按下Ctrl十F9键。
⑤&显示下一条语句&选项指明下一个将要执行的语句是什么。当需要在程序窗口中监视很多过程、却丢失了跟踪时，就可使用这个调试功能。
(3) 监视过程
①&本地&窗口(显示当前过程中使用所有变量及其值，还会显示当前加载窗体和控件的属性。):从&视图&菜单中选&本地窗口&选项。
②&调用堆栈&对话框(查看所有活动的过程调用):从&视图&菜单中选&调用堆栈&或按下Ctrl+L键。
③&立即窗口&（可查询并设置变量值,创建或撤销对象,执行单行命令）。从&视图&菜单中选择&立即窗口&或按下Ctrl+G键。
④&监视窗口&(是一个调试工具，在中断模式下可使用它更改变量和表达式的值,以查看不同的值如何影响代码)。从&视图&菜单中选择。
3.预防错误
（1）注释 。
（2）缩进代码：Tab键或启用Too1s(工具)菜单选Options(选项)Editor(编辑器)选项卡中的Auto Indent(自动缩进)。
（3）使代码模块化。
（4）显式声明变量:使用Option Explicit语句，或启用工具菜单选&选项&编辑器选项卡中的&需要变量声明&复选框。
（5）避免使用变体Variant(当某变量可能包含NULL值时就只能惟一指定Variant类型了)。
（6）打开语法检查：启用工具菜单选&选项&编辑器选项卡中&自动语法检测&。
（7）谨防Dim陷阱：Dim str1, str2 As String&& '并未声明str1变量。
4．错误处理
调试只能够发现可以预测的错误，要处理不可预测的和不可避免的错误时，就必须使用错误处理。通过启用错误处理，捕获并提示错误处理，可以使程序更健壮。就可以使应用程序更稳定、更健壮。如果应用程序中包含了好几个过程，那么可以考虑采用集中式错误处理程序。
(1) 捕获错误：On Error Goto line (On Error Goto 0会在当前过程禁用错误处理程序) 在这个语法中，line指定了发生运行期间错误时控制将跳转到的代码行。
(2) 编写错误处理程序：给用户显示错误信息；提示补救方法；允许继续或取消操作。使用Err对象：
存储最后一个错误的数字ID。这是默认属性
Description
存储说明错误的有关信息
包含发生了错误的对象名或应用程序名
包含帮助文件的名字
HelpContextID
包含错误号对应的帮助上下文ID
LastDLLError
包含最后一次调用DLL的系统错误代码
Raise方法可以让用户自定义错误处理信息，还可把错误处理信息传回调用过程: Err.Raise number[, source, description, helpFile, helpContext]
Clear方法清除Err对象的所有属性值：Err.Clear (当调用On Error, Exit Sub, Exit Function, Exit Property, Resume 等语句时，会自动调用Err.Clear方法。)
(3) 退出错误处理程序:
①0n error Resume:当错误处理程序已经修复错误后，可以用它来返回控制给引起错误的语句。但注意如果错误还在的话，会引起无限循环。
②0n error Resume Next:忽略错误语句，继续下一句。
③Resume [LineLabel]: 把控制传递给行标号(必须和Resume语句处在同一个过程中)所在点的语句。
④也可使用Exit Sub或者Exit Function甚至End语句退出已产生错误的过程，但这些语句应放在错误处理程序之前，这样当未产生错误时就不会执行错误处理程序。(window.slotbydup=window.slotbydup || []).push({
id: '3284507',
container: s,
size: '0,0',
display: 'inlay-fix'
Excel format函数用法和实例
format函数是使用频率比较高的一个函数，文章通过两个小练习来理解format函数。
第一，format函数用法介绍
　　 VBA中format函数的用法是根据格式表达式中的指令来格式化。format函数类似于excel工作表中的text函数。format函数在VBA中经常使用到，经常使用format函数来对日期和时间进行格式化。
　　根据帮助，可以知道format函数的语法为：
　　Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
第二，format函数应用举例
format函数练习一
Sub format格式化()
&&& [B1] = Format(Date, &mmdd&)
　　解释：将系统当天的日期，格式化为数字形式，然后再在B1单元格里显示出来。显示出来的效果：1123。
format函数练习二
Sub 现在()
&&& MsgBox Format(Date, &yyyy年m月&) & Chr(10) & Format(Date, &AAA&) & Chr(10) & Format(Now, &h&) & &点&
　　解释：用消息框输出format函数格式化以后的年月、星期、时间。
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------