完美Excel

有时，需要选中某列表框的的项目后，在另一列表框中显示该项目的具体内容，如下图1所示。

图1：两个列表框实现内容匹配
“专业工程”包括“建筑工程、装饰装修工程……”等，当选中项目列表框中的专业工程后，在分类列表框中显示相应的内容。同理，选择项目列表框中的措施项目后，在分类列表框中也会显示相应的内容。
第一步：准备数据
如下图2所示，在工作表Sheet1中输入下列数据。

图2：基础数据
将A列的数据命名为“项目”，将B列的数据命名为“专业工程”，将C列的数据命名为“措施项目”。注意，B列和C列的名称应与A列的数据相一致。
第二步：准备窗体界面
如图1所示，在用户窗体中放置两个标签控件、两个列表框控件，并将两个列表框控件分别命名为lbxItem和lbxCategory。
第三步：输入代码
在用户窗体代码模块中，输入下列代码：

Private Sub lbxItem_Change()
    Dim rngCategory As Range
 
    Set rngCategory = Sheet1.Range(Me.lbxItem.Value)
 
    Me.lbxCategory.List = rngCategory.Value
End Sub
 
Private Sub UserForm_Initialize()
    Dim rngItem As Range
 
    Set rngItem = Sheet1.Range("项目")
 
    Me.lbxItem.List = rngItem.Value
End Sub

运行后的最终效果如图1所示。当然，您可以在A列添加更多的项目数据，然后在C列、D列……添加相应的内容并以A列的数据命名，从而扩展本实例。
(注：网站空间被删前的文章，有一定的学习意义，故找出来重新贴出之)

这是在网站空间被误删前发的一个贴子，翻出来重新贴出。
据百度百科：
汉诺塔（又称河内塔）问题是印度的一个古老的传说。开天辟地的神勃拉玛在一个庙里留下了三根金刚石的棒，第一根上面套着64个圆的金片，最大的一个在底下，其余一个比一个小，依次叠上去，庙里的众僧不倦地把它们一个个地从这根棒搬到另一根棒上，规定可利用中间的一根棒作为帮助，但每次只能搬一个，而且大的不能放在小的上面。面对庞大的数字(移动圆片的次数)18446744073709551615，看来，众僧们耗尽毕生精力也不可能完成金片的移动。
后来，这个传说就演变为汉诺塔游戏：
1、有三根杆子A,B,C。A杆上有若干碟子
2、每次移动一块碟子，小的只能叠在大的上面
3、把所有碟子从A杆全部移到C杆上
经过研究发现，汉诺塔的破解很简单，就是按照移动规则向一个方向移动金片：
如3阶汉诺塔的移动：A→C,A→B,C→B,A→C,B→A,B→C,A→C
此外，汉诺塔问题也是程序设计中的经典递归问题。
算法思路：
1、如果只有一个金片，则把该金片从源移动到目标棒，结束。
2、如果有n个金片，则把前n-1个金片移动到辅助的棒，然后把自己移动到目标棒，最后再把前n-1个移动到目标棒
- – - – - – - – - – - – - – - – -
这是一个很有趣的问题，也是一个迷人的问题，相信学过计算机特别是递归的朋友都熟悉这个经典的问题。问题简单描述如下：
设有3根标号为A，B，C的柱子，在A柱上放着n个盘子，每一个都比下面的略小一点，要求把A柱上的盘子全部移到C柱上，移动的规则是：（1）一次只能移动一个盘子；（2）移动过程中大盘子不能放在小盘子上面；（3）在移动过程中盘子可以放在A，B，C的任意一个柱子上。
其解答的基本思想是使用递归的方式：
1、1个盘子的汉诺塔问题可直接移动。
2、n个盘子的汉诺塔问题可递归表示为，首先把上边的n-1个盘子借助于C柱从A柱移到B柱，然后把最下边的一个盘子从A柱移到C柱，最后把移到B柱的n-1个盘子借助于A柱再移到C柱。4个盘子汉诺塔问题的递归求解示意图如下图所示。

程序代码：

Option Explicit
Dim Counter As Integer
 
Sub GetMove()
    Dim n As Integer
    On Error Resume Next
    n = Application.InputBox(Prompt:="请输入一个代表要移动盘子的数量值:", _
                                  Title:="汉诺塔问题", _
                                  Type:=2)
    Call Move(n, "A", "B", "C")
End Sub
 
Sub Move(ByVal nValue As Integer, ByVal A As String, ByVal B As String, ByVal C As String)
        If nValue = 1 Then
            Counter = Counter + 1
            Debug.Print Counter & ":" & "将盘" & "1" & ":" & "从柱" & A & "移到柱" & C
        Else
            Call Move(nValue - 1, A, C, B)
            Counter = Counter + 1
            Debug.Print Counter & ":" & "将盘" & nValue & ":" & "从柱" & A & "移到柱" & C
            Call Move(nValue - 1, B, A, C)
        End If
End Sub

程序运行，将n值设置为4时的输出为：
1:将盘1:从柱A移到柱B
2:将盘2:从柱A移到柱C
3:将盘1:从柱B移到柱C
4:将盘3:从柱A移到柱B
5:将盘1:从柱C移到柱A
6:将盘2:从柱C移到柱B
7:将盘1:从柱A移到柱B
8:将盘4:从柱A移到柱C
9:将盘1:从柱B移到柱C
10:将盘2:从柱B移到柱A
11:将盘1:从柱C移到柱A
12:将盘3:从柱B移到柱C
13:将盘1:从柱A移到柱B
14:将盘2:从柱A移到柱C
15:将盘1:从柱B移到柱C

早在2006年9月，我在学习Excel VBA的过程中，选取了一些比较简短且简单的示例，通过程序示例向初学者介绍Excel VBA。写作工作一直持续到当年底，完成了前6章，并陆续在ExcelHome论坛和博客上发表。本来打算一直写下去，最后汇集成一本电子图书，帮助希望学习Excel VBA的朋友。无奈事务繁忙，最后还是搁置了。
在《Excel VBA编程入门范例》陆续发布过程中和发布后，收到了大量网友的推荐和鼓励，在EH博客中浏览总人数达2万多，在EH论坛中浏览人数达5万多，并且很多网友都在持续关注中，不少网友给我发邮件，询问这本书的后续部分。
在这里，谢谢大家的关注！
2010年，我将尽量抽出时间，完成后续部分的写作，与大家分享！

下面是当初写作《Excel VBA编程入门范例》时的一些摘录。
目录
《ExcelVBA编程入门范例》汇集了ExcelVBA大多数基本操作实例。这些实例都很简短，部分实例很基础，也很容易理解，一个实例基本上演示了使用VBA实现Excel某一功能的操作。此外，在各实例中，配有一些说明和图片以帮助对实例所演示功能的理解，很适合VBA初学者或对VBA有一定了解的人对所学的知识进行整理并提高。下面是目录，共分16章。
Ch00 前言
Ch01 Excel应用程序对象(Application对象)及常用方法基本操作应用示例
Ch02 窗口(Window对象)基本操作应用示例
Ch03 工作簿(Workbook)基本操作应用示例
Ch04 工作表(Worksheet)基本操作应用示例
Ch05 单元格/单元格区域基本操作应用示例
Ch06 图表基本操作应用示例
Ch07 数据透视表基本操作应用示例
Ch08 格式化基本操作应用示例
Ch09 形状(图形)基本操作应用示例
Ch10 工作表和用户窗体的控件基本操作应用示例
Ch11 菜单和工具栏基本操作应用示例
Ch12 Office帮助助手基本操作应用示例
Ch13 文件基本操作应用示例
Ch14 常用方法、函数及技巧应用示例
Ch15 其它
前言
很喜爱VBA，喜欢使用她对Excel操作实现所需的功能，更喜欢使用VBA控制Excel以及实现结果后的那种感觉。
一直都想对ExcelVBA进行系统的整理和归纳，但由于对Excel及VBA了解得不够深入，总觉得无从下手。再加上又是利用少得可怜的业余时间进行学习，时断时续，学习的主线和思路也经常因为工作或其它的事情而打断。但喜欢学习的人总会挤得出时间来的，要想掌握或者是精通一门知识和技术不能有任何借口。幸运的是，有网络这个大平台，更有ExcelHome众多网友的帮助和鼓励，这几个月，总算坚持了下来。对Excel的痴迷没有停留在头脑和心中，而是体现在了具体的行动以及积极的学习和参与上来，因此，收获很大，感觉水平也有明显的提高。
现在，我计划利用点滴的业余时间，将基本的ExcelVBA操作用简短的实例进行演示，编辑成《ExcelVBA编程入门范例》，以此对ExcelVBA基础知识进行一次归纳和整理，从而理清学习ExcelVBA的线条，同时也希望能对热衷于Excel的朋友以及ExcelVBA初学者快速了解和步入ExcelVBA编程殿堂有所帮助。这是我第一次偿试对所学知识进行较大规模的整理，希望大家能多提改进意见和建议，以利于改进和提高，也有助于以后的学习和编写出更好的作品呈献给大家。
主要内容和特点
《ExcelVBA编程入门范例》主要是以一些基础而简短的VBA实例来对ExcelVBA中的常用对象及其属性和方法进行讲解，包括应用程序对象、窗口、工作簿、工作表、单元格和单元格区域、图表、数据透视表、形状、控件、菜单和工具栏、帮助助手、格式化操作、文件操作、以及常用方法和函数及技巧等方面的应用示例。这些例子都比较基础，很容易理解，因而，很容易调试并得以实现，让您通过具体的实例来熟悉ExcelVBA编程。
■ 分16章共14个专题，以具体实例来对大多数常用的ExcelVBA对象进行讲解；
■ 一般而言，每个实例都很简短，用来说明使用VBA实现Excel某一功能的操作；
■ 各章内容主要是实例，即VBA代码，配以简短的说明，有些例子可能配以必要的图片，以便于理解；
■ 您可以对这些实例进行扩充或组合，以实现您想要的功能或更复杂的操作。

前6章下载：

在使用Word制表时，通常涉及到为表格中的行编号。有时，为表格行编号后，需要在表格中插入或删除行，此时又需要重新编号。其实，Word可以为表格行自动编号。
例如，有如下图所示的表格。

我们希望序号列自动编号，不受插入或删除行的影响。
首先，选中序号列中需要自动编号的单元格，如下图所示。
然后，单击“格式——项目符号和编号”，出现“项目符号和编号”对话框。单击“编号”选项卡，选择一种格式的编号，如下图所示。

当然，可以单击上图所示的对话框中的“自定义”按钮，在“自定义编号列表”中设置编号的格式，如下图所示。

单击“确定”，完成自动编号，如下图所示。

这样，当你在表格中插入或删除行时，编号会自动调整。

在数列中，除前两个数外，每个元素都是前两个元素的和，例如：

0，1，1，2，3，5，8，13，21，34，55，89，……

称之为斐波那契（Fibonacci）数列。
通用定义为：

斐波那契数列有许多用途，并且具有许多有趣的属性，例如斐波那契数列的商：

可以发现，前后元素的比例符合黄金分割法。
下面，我们编写一个程序，在Excel工作表中打印出斐波那契数以及它的商。
程序代码如下：

Sub Fibonacci()
    Dim f0 As Long, f1 As Long
    Dim strNum As String
    Dim Max As Long, temp As Long
    Dim n As Long
 
    strNum = InputBox(Prompt:="请输入Fibonacci数列的数字:")
 
    f0 = 0
    f1 = 1
 
    If IsNumeric(strNum) Then
        Max = CLng(strNum)
        Range("A1") = "数字序号"
        Range("B1") = "数字"
        Range("C1") = "商"
        Range("A2") = 0
        Range("B2") = 0
        Range("A3") = 1
        Range("B3") = 1
        For n = 2 To Max
            temp = f1
            f1 = f1 + f0
            f0 = temp
            Range("A" & n + 2) = n
            Range("B" & n + 2) = f1
            Range("C" & n + 2) = f1 / f0
        Next n
    Else
        MsgBox "您没有输入数字!程序退出!"
    End If
End Sub

其中，变量f1包含当前斐波那契数的值，f0包含前一个斐波那契数的值。
在For循环中：

• 将f1（即当前的斐波那契数）的值保存到一个临时变量中。
• 将f0和f1相加，并将结果保存到f1中，这就是新的斐波那契数。
• 在f0中存储临时变量的值，即f0就是前一个斐波那契数。
• 将结果输出到工作表中，并重复这个过程。