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

 

VB封装Excel_VBA代码的三个方法

  • 2015年09月18日 19:37
  • 323KB
  • 下载

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

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

VBA求三个角度程序

  • 2014年07月10日 18:37
  • 389B
  • 下载

口袋中有红黄蓝白黑5种颜色的球若干个。每次从口袋中任意取出三个球,问得到3中不通过颜色的球的可能取法。(枚举)

// 121212 第七章例7.7.cpp : 定义控制台应用程序的入口点。 // /* * Copyright (c) 2012, 烟台大学计算机学院 * Al...

VBA 读取网络时间(三个网站)

  • 2011年08月18日 07:43
  • 5KB
  • 下载

EXCEL按单元格颜色进行筛选 VBA代码 FOR EXCEL2003 (原创)

原创代码: 1 自定义工具栏Sub MeNu_自定义模块()On Error GoTo ERR Dim M(1) As String MeNa = "自定义的模块" M(1) = "...

三个Delphi屏幕取词程序的代码

  • 2010年06月26日 10:05
  • 1.27MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VBA的三个代码口袋
举报原因:
原因补充:

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