不懂VBA也编程

yijiboo

学习中，谢谢。。。。

PENGJICHANG

在此留个记号，以后好用，谢谢

jdmlw

先在此谢谢山菊花了，我的电脑老是死机，但是我还是要学学山菊花教的课程，这对我来说太有用了！

jdmlw

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    If Target.Count > 1 Then Exit Sub '如果选择一个区域，不运行下面的代码，退出程序
    If Intersect(Target, Range("c3:k11")) Is Nothing Then Exit Sub '如果选择的单元格不在 C3:k11 范围内，退出程序
    If Target = "" Then Exit Sub '如果单元格为空，退出程序
    Sheets(Target.Value).Visible = 1 '取消隐藏，显示工作表
    Sheets(Target.Value).Activate '激活相同名称的工作表
   
End Sub

Sheets(Target.Value).Activate '激活相同名称的工作表,是否也可以激活相同名称的工作薄呢？

引用工作簿应使用Workbooks属性：
Workbooks(Target.Value).Activate
——山菊花

hooyee

谢谢分享！

yanwenzhang

谢谢！很多东西！

cqlty

学了不少

shbc001

感谢分享,很有用的内容

讲古派

自动输入日期                                                                        l
Private Sub Worksheet_Change(ByVal Target As Range)                                                                 l
If Target.Column = 1 Then Target.Offset(0, 2) = Date                                                                          l
End Sub                                                                                                                                                        l
中间一行是核心代码，意思是：当第1列(即A列)录入数据时，右边第2列(即C列)输入一个日期。l
-----------------------------------------------------------------------------------------------------------------------------l
如果我们以后在查表的时候不小心动了A列里的数据,那C列不是也变啦.有没有办法设置成只有第一次输入,程序有效.以后再怎么修改A列的数据,C列都不会变.               或者只有当A列由空值变为不为空值的时候有效.

山菊花

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Offset(0, 2) = "" Then Target.Offset(0, 2) = Date
End Sub