VBA的三个代码口袋

原创 2006年05月26日 11:31:00

sheet->module->class module

看上去他们的顺序是这样的,sheet->module->class module
1---------sheet应用过程
2---------过程来源module方便众人使用(公共) module不过是实例化的过程
3---------程序的灵魂正是来自于class module,他是module的神.

举个栗子 不如举个苹果

a b c
1 2 3
2 3 4
5 6 7

用他生成个Chart1,目的是让左右键控制图表变化.

我们构件的顺序与调用的顺序正好相反,
(1)首先是
classclsEvent

Public WithEvents xlChart As Chart

Private Sub xlChart_BeforeDoubleClick(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)
    Cancel = True
End Sub

Private Sub xlChart_BeforeRightClick(Cancel As Boolean)
    Cancel = True
End Sub

Private Sub xlChart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
    If Button = 1 Then
        xlChart.Axes(xlValue).MaximumScale = xlChart.Axes(xlValue).MaximumScale - 50
    End If
   
    If Button = 2 Then
        xlChart.Axes(xlValue).MaximumScale = xlChart.Axes(xlValue).MaximumScale + 50
    End If
End Sub

(2)然后是module
Public myChartEvent As New clsEvents

Sub TrapChartEvent()
    Set myChartEvent.xlChart = Worksheets("Sheet1").ChartObjects(1).Chart
End Sub

(3)最终在界面workbook部分的操作
 Private Sub Workbook_Open()
    TrapChartEvent
End Sub

 

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

Android从零开始的开源项目-口袋代码-1.启动界面

Android从零开始的开源项目-口袋代码-1.启动界面总目录: Android从零开始的开源项目-口袋代码效果示例:实现流程:App在启动的时候或多或少都会有一个黑屏或者白屏的过程,即使Activi...

VBA求三个角度程序

  • 2014-07-10 18:37
  • 389B
  • 下载

利用VBA代码解决Excel下拉菜单跳过空单元格的问题

一、问题描述利用Excel制作下拉菜单,当某一列有空白单元格时,如下图所示 在下拉菜单中,也会存在空白单元格 常规制作下拉菜单的方法没有办法避免该问题,所以需要利用VBA解决这个问题二、解决方法解...

写了一段VBA代码后, Excel每次保存时都弹出警告:”此文档中包含宏、Activex控件、XML扩展包信息“(office 2007)

前言:今天在写一段VBA代码之后,遇到一个问题,             Excel每次保存时就报一个警告(使用的是office 2007):    ...
  • sxzlc
  • sxzlc
  • 2011-12-27 16:29
  • 8421
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)