菜鸟谈VBA最最基础入门《原创》

国士

非常感谢老师

bikiof

讲解的好细！顶

bikiof

讲的很好，标记下

jieack

太好了 想学习下VBA，学习了

13560597984

好东西，好分享，好收获！

13560597984

虽然现在还没学会，见到楼主这么有心，一定要顶！！！

單肩落布

太感谢了啦~~很好的教程~

OKJSJSF

我做了一个贷款利率浮动幅度测算表，有4类客户，在F1单元格用有效性序列下拉选择，包括空值。表格共64行，每类客户需要的测算依据不同，显示的行数也不同，所以用了下面的选择性事件代码。代码用途是，当选出某类客户时，显示该客户的测算页面，隐藏不用的其它行，调整显示行的行高。现有一个问题无法解决，就是在其它单元格输入测算依据时，每输一次回车，表格都要闪一下，眼非常难受。有人说可以改为SELECT CASE END SELECT语句，但我找不到这语句的事件表达式，也就是第一句PRIVATE SUB接着写什么，对象-事件（）怎么写？当直接用4个宏按钮关联4类客户时，输入数据表格不会闪，但我不想用按钮，所以请教各位前辈。我想这个问题对大家做计算表都会有用。
Private Sub Worksheet_Change(ByVal Target As Range)
If [f1].Value = "个人老客户" Then
Rows("4:64").Select
    Selection.RowHeight = 23
    Range("4:4,13:13,32:40,44:45,53:54").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollRow = 5
ElseIf [f1].Value = "个人新客户" Then
Rows("4:64").Select
    Selection.RowHeight = 26
    Range("4:4,13:13,18:21,32:40,41:45,53:54").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollRow = 5
ElseIf [f1].Value = "企业新客户" Then
Rows("4:64").Select
    Selection.RowHeight = 28
    Range("18:21,32:45").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollRow = 4   
Else
Rows("3:64").Select
    Selection.EntireRow.Hidden = False
    Selection.RowHeight = 19.5
    ActiveWindow.ScrollRow = 4
    Range("F1").Select   
End If
End Sub

OKJSJSF

当客户类型是空值或企业老客户时，表格全部显示，共64行，行高最小，作为默认页面。

OKJSJSF

中间代码是这样写吗？
f = [f1].Value
Select Case f
Case Is = "企业新客户"
Rows("4:64").Select
    Selection.RowHeight = 28
    Range("18:21,32:45").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollRow = 4
Case Is = "企业老客户"
Rows("3:64").Select
    Selection.EntireRow.Hidden = False
    Selection.RowHeight = 19.5
    ActiveWindow.ScrollRow = 4
    Range("F1").Select
Case Is = "个人新客户"
Rows("4:64").Select
    Selection.RowHeight = 26
    Range("4:4,13:13,18:21,32:40,41:45,53:54").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollRow = 5
Case Is = "个人老客户"
Rows("4:64").Select
    Selection.RowHeight = 23
    Range("4:4,13:13,32:40,44:45,53:54").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollRow = 5
End Select