不懂VBA也编程

山菊花

问题：如何突出显示被引用的单元格？

1、右键单击工作表标签，选择“查看代码”，将下面的代码粘贴到光标所在的代码窗口：

1. Sub 显示从属单元格()
   
2.     Dim Rng As Range, o As Range
   
3.     On Error Resume Next
   
4.     For Each Rng In Me.UsedRange.SpecialCells(xlCellTypeFormulas, 23)
   
5.         If Err = 0 Then
   
6.             If o Is Nothing Then
   
7.                 Set o = Rng.DirectPrecedents
   
8.             Else
   
9.                 Set o = Union(o, Rng.DirectPrecedents)
   
10.             End If
    
11.         Else
    
12.             Err.Clear
    
13.         End If
    
14.     Next
    
15.    
    
16.     '下面两行代码属两种效果，可选其中一种
    
17.     o.Select '选定单元格
    
18.     o.Interior.ColorIndex = 6 '颜色号 3 - 56，可自行修改
    
19. End Sub

复制代码

2、返回工作表。按Alt+F8，选择宏“显示从属单元格”，然后点击“执行”按钮。

结合Change事件应用

山菊花

问题：如何高亮显示本周输入数据？
第一步 手工为本工作簿创建一个名称“日期”。
第二步 按Alt+F11打开代码编辑器，在ThisWorkbook模块中编写代码：

1. 
   
2. <P>Private Sub Workbook_Open() '打开工作簿时，系统自动运行下面的程序
   
3.     Dim Sh As Worksheet
   
4.     Dim Rng As Range
   
5.     Application.ScreenUpdating = False
   
6.     If [日期] <> Date Then '检查保存的日期[日期]是否与当前系统日期相等，如果不是，运行下面一段程序
   
7.         For Each Sh In Worksheets '遍历各个工作表
   
8.             For Each Rng In Sh.UsedRange '遍历工作表中各单元格
   
9.                 If Rng.Interior.Color = 2815 Or Rng.Interior.Color = 65534 Then Rng.Interior.Pattern = 0 '清除颜色
   
10.             Next
    
11.         Next
    
12.     End If
    
13.     ThisWorkbook.Names("日期").RefersTo = Date
    
14.     Application.ScreenUpdating = True
    
15.    
    
16. End Sub 'Open 事件程序至此结束</P>
    
17. <P>Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) '编辑单元格，将运行下面的程序
    
18.     Dim Rng As Range
    
19.     Application.ScreenUpdating = False
    
20.     For Each Rng In Target
    
21.         If Rng.Formula = "" Then '如果单元格为空，则
    
22.             Rng.Interior.Pattern = 0 '清除填充格式
    
23.         Else
    
24.             Rng.Interior.Color = IIf(Rng.HasFormula, 65534, 2815) '给单元格着色
    
25.         End If
    
26.     Next
    
27.     Application.ScreenUpdating = True
    
28. End Sub</P>

复制代码

山菊花

查看链接工作簿。
点击“数据—编辑链接”，打开如下对话框。
问题：如何复制列表中的文本信息？

1、按Alt+F11打开VBE编辑器，将下面的代码粘贴到光标所在窗口中：

1. Sub 查看链接文件()
   
2.     Dim cFile$, Arr
   
3.     cFile = ThisWorkbook.Name
   
4.     Arr = ThisWorkbook.LinkSources(1)
   
5.     If IsEmpty(Arr) Then Exit Sub
   
6.     Workbooks.Add
   
7.     With ActiveWorkbook.Sheets(1)
   
8.         .Range("a1").Value = cFile$
   
9.         .Range("a3").Resize(UBound(Arr), 1).Value = WorksheetFunction.Transpose(Arr)
   
10.     End With
    
11. End Sub

复制代码

2、按F5运行程序，关闭VBE编辑器。
或者粘贴代码后返回工作表窗口，按Alt+F8选择宏“查看链接文件”并执行它。

yhl091122

山菊花 发表于 2008-12-7 11:24
保护工作表应该有选择才行，没有必要把所有工作表进行保护。
下面附件只有一个功能，关闭工作簿时保护 ...

谢谢，学习了

yhl091122

山菊花 发表于 2008-11-19 15:29
日期在记录单中是一个很重要的信息。为了减轻录入的负担，我们有时会希望Excel能自动录入当前日期。

右 ...

谢谢，学习了

yhl091122

山菊花 发表于 2008-11-20 15:06
如果希望录入的数据能够被保护，不被删改。可用程序自动将单元格锁定。
首先，选择单元格区域，按 Ctrl+1  ...

谢谢学习了

ljh16280

这些东东很实用，必须收藏.

zyxu

学习了，很多功能非常的好用。

932605043

学习，支持

漫步者辉

这个要学习一下