VBA编程问答(第3辑).docxVIP

VBA 编程问答 （第 3 辑 ） VBA 编程问答 （第 3 辑 ） fanjy 发表于 2007-1-20 20:18:00 500){this.resized=true;this.style.width=500;} 在学习 ExcelVBA 编程的过程中，经常会遇到一些问题，有些可能 是新碰到的，有些则是以前已遇到过但暂时忘掉了解决办法 的，VBA编程问答将把我所收集到的问题和自已所遇到的问 题及解决办法进行归纳整理，以方便查阅和参考。 在下面的内容中，有大量的程序代码，并附有简单的说明， 您可以将它们输入或复制到 VBE 编辑器中进行调试，也可 以将它们进行适当的调整和修改后应用到自已的程序中。有 以将它们进行适当的调整和修改后应用到自已的程序中 。有 些问答提供了参考示例，您可以直接下载后处理。 本辑目录 问题 26 ：如何实现单元格在指定区域内自动跳转 问题 27：如何将多个工作簿中的工作表一次性合到一个工作 簿里面？ 中相应问题 28：关于 Excel 单元格填充颜色 ？ 问题 29 ：如何实现在 Sheet1 中输入后，在 Sheet2 中相应 的单元格中显示？ 问题 30 ：如何实现当某一单元格满足非空条件时， 输入的数 据不能修改？ 问题 31 ：如何用 Vba 方法导出 Xls 文件至 Txt 文件？ 问题 26 ：如何实现单元格在指定区域内自动跳转 例如，在单元格区域 A1 例如，在单元格区域 A1 ：C100 中，无论何时在其中的某个 单元格中输入完一个单个的字符后，自动按规律跳转到下 单元格，即在单元格 B1 中输完后，跳转到单元格 C1 ，在单 元格 C1 中输入完单个字符后，自动跳转到单元格 A2 ， #8230;#8230; 解答：可以在工作表事件中使用下面的代码： #8216;*********************************** Private Sub Worksheet_Change(ByVal Target As Range) Const WS_RANGE As String = A1:C100 lt;== 需要改变单元格区域 On Error GoTo ws_exit Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target If Len(.Value) = 1 Then Me.Cells(.Row - (.Column Mod 3 = 0), .Column Mod 3 + 1).Select If Intersect(ActiveCell, Me.Range(WS_RANGE)) Is Nothing Then Me.Range(WS_RANGE).Cells(1, 1).Select End If End If End With End If ws_exit: Application.EnableEvents = True End Sub #8216;*********************************** 说明：该代码中的单元格区域可按您的需要改为合适的单元 格区域，但必须是 3 列。 不限于列的代码如下： #8216;*********************************** Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range Dim Ix As Long, Ad As String Set Rng = Range(F4:G50) lt;== 按需要改变单元格 区域 On Error GoTo ws_exit Application.EnableEvents = False If Not Intersect(Target, Rng) Is Nothing Then If Len(Target.Value) = 1 Then Ad = Target.Address(False, False, xlR1C1, , Rng) Ix = Val(Mid(Ad, 3)) * Rng.Columns.Count + Val(Mid(Ad, InStr(Ad, C) + 2)) + 1 Rng((Ix Mod Rng.Cells.Count) + 1).Select End If End If ws_exit: Application.EnableEvents = True End Sub #8216;*********************************** 说明：上面的代码中，单元格区域