关于技巧101的实现。

look.h

下面是代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sLetter
    If Target.Address = "$B$2" Then
        sLetter = Asc(Target.Value) - 63
        With Target.Offset(, 1).Interior
            Select Case sLetter
            Case Is < 27
                .ColorIndex = sLetter
            End Select
        End With
    End If
End Sub

我可能那里不知道，实现不出来。望达人指点。

look.h

把代码输入大VBA编辑器中不能实现效果。

当B2单元格为空是就出错 说数值超过了定义的范围。

在线等，谢谢了。我是初哥。

look.h

帮帮我吧，我不知道那个下拉条是怎么做出来的。

ZMKGEM0815

这么高深啊，看得得好好学习了！！[em04][em04][em04]