不懂VBA也编程

LJYLHLQS3795517

请山菊花继续提供好的东西

讲古派

你好.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Date
End Sub
请问这段代码错在哪里.怎么老是出错.

山菊花

当编辑A列时，因不存在前一列致“Target.Offset(0, -1)”发生错误，当同时编辑多个单元格时，也会发生错误，可将代码修改如下：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Column = 2 Then
        If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Date
    End If
End Sub

gwxqqq

还vba呢
这个就够学一阵子的了

讲古派

嗯。现在不会出错了。不错。很好用。

金城烟雨

山版主：假如A1单元格是15位或18位身份证号码，如何提取出生年月，性别？

出生年月日
=mid(a1,7,6+(len(a1)=18)*2)
性别
=mid(a1,15+(len(a1)=18)*2,1)
在论坛上搜索“身份证”，可得到多种解法。

--山菊花

nagisa1982

先顶啊 然后慢慢学

讲古派

关于高亮显示当前行问题。
高亮显示当前行是个非常有用的东西。可是你给的那个方法却有个缺点。当别人在从我这复制到他的工作表上时。会弹出对话框“是否将名称一起复制”。我的同事很不喜欢这个对话框。叫我不要设置那个。然后我又改了代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate
End Sub
再设置条件格式＝row()=cell("row")

可是这个方法也还是不满意。复制时会连条件格式一起复制过去。这样我的同事设置的格式会变了。

有没有什么方法可以对别人不影响。

建议你的朋友采用选择性粘贴就不会改变他原来的格式。

--山菊花

金城烟雨

山斑竹，我是要的VBA效果，才学习VBA，函数我会。

山菊花

看是不是这个效果，A列输入号码，B列填写年月，C列填写性别：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Column = 1 Then
        Target.Offset(, 1) = Format(Mid(Target.Value, 7, IIf(Len(Target.Value) = 18, 6, 4)), "0年00") & "月"
        Target.Offset(, 2) = IIf(Mid(Target.Value, IIf(Len(Target.Value) = 18, 17, 15), 1) = "1", "男", "女")
    End If
End Sub