|
本帖最后由 ht094156 于 2014-7-9 08:49 编辑
有三个一样的代码,只不过是引用的内容不同(c.Offset(0, 1).Value = "=人员!B2 " )
如何在This Workbook中,同时使用三个代码
之前用一个时不会出错,将三个代码放在这里,会提示,应如何修改。
能不能将三个代码整合在一起?
已上传原件,希望能找到答案
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells(1, 1).Column <> 1 Then Exit Sub
Dim c As Range
For Each c In Target
If c.Column = 1 Then
If c.Value = "" Then
c.Offset(0, 1).Value = ""
Else
c.Offset(0, 1).Value = Format(Now, "yyyy-mm-dd hh:mm:ss")
End If
End If
Next
End Sub
--------------------------------------------------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells(1, 1).Column <> 8 Then Exit Sub
Dim c As Range
For Each c In Target
If c.Column = 8 Then
If c.Value = "" Then
c.Offset(0, 1).Value = ""
Else
c.Offset(0, 1).Value = "=人员!B2 " 这里引用的是人员!B2 的内容,但在表格中会显示公式=人员!B2,应该改成显示值
End If
End If
Next
End Sub
-----------------------------------------------------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells(1, 1).Column <> 8 Then Exit Sub
Dim c As Range
For Each c In Target
If c.Column = 8 Then
If c.Value = "" Then
c.Offset(0, 1).Value = ""
Else
c.Offset(0, 1).Value = "=人员!B3 " 这里引用的是人员!B2 的内容,但在表格中会显示公式=人员!B2,应该改成显示值
End If
End If
Next
End Sub
本帖最后由 su45 于 2014-7-6 10:29 编辑
因你附件中没数据,不能调试,只发上代码: - Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
- If Sh.Name = "人员" Then End
- If Target.Column = 13 And Target.Count = 1 Then
- If Target.Value <> "" Then Target.Offset(0, 1).Value = Format(Date, "yyyy-mm-dd hh:mm:ss")
- If Target.Value <> "" Then Target.Offset(0, 2) = Sheets("人员").Range("B3 ")
- ElseIf Target.Column = 8 And Target.Count = 1 Then
- If Target.Value <> "" Then Target.Offset(0, 1) = Sheets("人员").Range("B2 ")
- End If
- End Sub
复制代码
|
|