不懂VBA也编程

山菊花

高亮显示引用单元格。

1、右键点击工作表标签，选择“查看代码”，把下面的代码粘贴到光标处：

Dim Rng As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Not Rng Is Nothing Then Rng.Interior.ColorIndex = 0
    If Target.CountLarge > 1 Then Exit Sub
    If Not Target.HasFormula Then Exit Sub
    Application.EnableEvents = False
    Set Rng = Target.DirectPrecedents
    If Err = 0 Then
        Rng.Interior.Color = 65535
    Else
        Set Rng = Nothing
    End If
    Application.EnableEvents = True
End Sub


2、返回工作表，用鼠标点击公式所在单元格即可。

山菊花

自动打开记录单
右键点击工作表标签，选择“查看代码”，然后把下面的代码粘贴到当前代码窗口：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Cells(1, Target.Column).Value = "" Then Exit Sub
    Me.ShowDataForm
End Sub

山菊花

输入数据时进行信息检查

如下表，输入学生成绩时，要求必须完整填写前四列信息后，才允许填写后四列成绩。



做法：
右键点击工作表标签，选择“查看代码”，将下面的代码粘贴到VBE窗口，然后返回工作表：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column < 5 Or Target.Column > 8 Then Exit Sub
    For i = 1 To 4
        If Cells(Target.Row, i).Value = "" Then
            Application.EnableEvents = False
            Cells(Target.Row, i).Activate
            Application.EnableEvents = True
            Exit For
        End If
    Next
End Sub

dpf520

认真学习，天天向上

lugiya

一定要好好学习打好基础，不然遇到问题太痛苦了

gxls

好贴，适合菜鸟，必须要顶。先标记号，慢慢学习。

910124919

学习了！代码与自代功能的完美结合，顶！

wfssa

打印准考证、成绩报告单、商品标签、入场券等

山菊花

如何在编辑数据时弹出一个提示，而不影响当下表格的编辑
http://club.excelhome.net/thread-1576625-1-1.html
(出处: ExcelHome技术论坛)

右键点击Sheet2工作表标签，选择“查看代码”，把下面的代码粘贴到VBE窗口当前光标处，然后关闭代码窗口。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Dim cDz$, V$
     If Target.Row = 1 Or Target.Column = 1 Then Exit Sub
     If Target.CountLarge > 1 Then Exit Sub
     cDz = Target.Address
     V = Sheet1.Range(cDz).Value
     With Target.Validation
         .Delete
         If V <> "" Then
             .Add 0, 1, 1
             .InputMessage = V
         End If
     End With
End Sub
'保存工作簿时，文件类型选择“启用宏的工作簿”。

xvjiex

不懂VBA也编程，感谢分享！