Excel宏里写VB语言 感激兄弟们帮忙

[kke_007]

Excel宏里写VB语言

编写一种效果
例如
类型是下拉框
如果选择例1
后面的上班时间 下班时间就自动写上9:00 6:00之类的

表
类型 上班时间 下班时间 加班时间
例1 9：00 6：00

例2 手动填写 手动填写 手动填写

[colorall]

按照自己的想法操作录制一个宏，编辑看一下修改一下就可以用

[机器人]

如果要求验证不严格的话，直接用Excel公式即可完成这个模板。

列A，单元格验证改为List, 里面是 例1,例2
列B, 单元格： =IF($A1, "例1", "9:00 AM", "手动填写")
列C, 单元格： =IF($A1, "例1", "6:00 PM", "手动填写")

把上面行拷贝下去。再设置Excel Worksheet保护。模板就OK了。

[colorall]

在sheet1里添加Worksheet_Change事件，把录制的宏编到事件里，加上个判断写完如下（3行4列是下拉框）

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 And Target.Row = 3 Then
        If Target.Value = "例1" Then
           Range("E3").Select
           ActiveCell.FormulaR1C1 = "9:00"
           Range("F3").Select
           ActiveCell.FormulaR1C1 = "6:00"
           Range("G3").Select
           ActiveCell.FormulaR1C1 = "1小时"
       Else
           Range("E3").Select
           ActiveCell.FormulaR1C1 = "手动填写"
           Range("F3").Select
           ActiveCell.FormulaR1C1 = "手动填写"
           Range("G3").Select
           ActiveCell.FormulaR1C1 = "手动填写"
       
       End If
       Range("D3").Select

    End If

End Sub

[kke_007]

还有没有别的

[kke_007]

没进展....

[colorall]

都给你写的清清楚的
并且都验证过的
也不知道想要什么，差在哪里没进展，唉