摘要： 基于表格的用户接口的最大问题是：由于采用Excel黙认方式来处理数据的剪切、复制、粘贴以及拖放，而数据输入表中大多数用于编辑的单元格都被指定了特定样式、数据验证或条件格式，因此Excel默认的复制/粘贴会覆盖掉被粘贴单元格中的各种格式，同时Excel默认的剪切方式会将被剪切单元格的格式设置为“通用样式”。Excel的拖放功能也与剪切/复制类似，同样会破坏单元格中的格式。
为避免发生上述情况，可以屏蔽Excel的拖放功能，并编写自已的剪切、复制和粘贴程序。
Dim mbCut As Boolean
Dim mrngSource As Range
‘初始化单元格的复制-粘贴
Public Sub InitCutCopyPaste()
Application.OnKey “^X”, “DoCut”
Application.OnKey “^x”, “DoCut”
Application.OnKey “ {DEL}”, “DoCut”
Application.OnKey “^C”, “DoCopy”
Application.OnKey “^c”, “DoCopy”
Application.OnKey “^{INSERT}”, “DoCopy”
Application.OnKey “^V”, “DoPaste”
Application.OnKey “^v”, “DoPaste”
Application.OnKey “ {INSERT}”, “DoPaste”
Application.OnKey “{ENTER}”, “DoPaste”
Application.OnKey “~”,”DoPaste”
excel图表制作次要坐标轴显示百分比的图
有时候，我们需要利用图表来表示为达到目标的累计完成值及各部分所贡献的完成值，如下图1所示。 图1 示例中，我们的销售额目标是500，目前各区贡献数额大小不同，在图表中使用堆积柱形图表示当前总销售额和各区所占销售额。 现在，我们需要在图表右侧再显示销售完成的百分比。 步骤1：绘制堆积柱形图。如下图2所示，选择数据
‘关闭拖放操作
Application.CellDragAndDrop = False
End Sub
‘处理剪切单元格
Public Sub DoCut()
If TypeOf Selection Is Range Then
mbCut = True
Set mrngSource = Selection
Selection.Copy
Else
Set mrngSource = Nothing
Selection.Cut
End If
End Sub
‘处理复制单元格
Public Sub DoCopy()
If TypeOf Selection Is Range Then
mbCut = False
Set mrngSource = Selection
Else
Set mrngSource = Nothing
End If
Selection.Copy
End Sub
‘处理粘贴单元格
Public Sub DoPaste()
If Application.CutCopyMode And Not mrngSource Is Nothing Then
Selection.PasteSpecial xlValues
If mbCut Then
mrngSource.ClearContents
End If
Application.CutCopyMode = False
Else
ActiveSheet.Paste
End If
End Sub
将上述代码复制到VBE中，试着运行并熟悉其原理。可以将上述程序嵌入到你正在开发的应用程序的合适位置，结合实际稍作调整，使应用程序更健壮。
excel函数公式之SERIES公式
SERIES公式控制着绘制Excel图表的数据，并且只在图表中有效，它不是真正的公式但可以像Excel公式一样在公式栏对其进行编辑。 认识SERIES公式 当你选取图表中的系列时，不仅工作表中该系列的数据会高亮显示，而且在公式栏中会显示一个公式，这个公式是你创建图表或添加系列时，Excel自动为你编写的。 如下图
