[已解决]求帮忙修改代码:发现二义性的名称Workbook_SheetChange

ht094156

这个很麻烦么

无聊的疯子

ht094156 发表于 2014-7-4 20:28
这个很麻烦么

c.column=8 的时候，你是要=B3还是要=B2 呢？？

前一个过程是B2，后一个过程是B3

石头下的小草

等高手出现吧

无聊的疯子

ht094156 发表于 2014-7-4 20:28
这个很麻烦么

就当成是其中一个吧

代码综合后如下图，测试一下看看




没见你有操作描述，只有看代码来猜，，有可能与你的要求有点不同

1. 
   
2. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
3.   If Target.Cells(1, 1).Column = 1 Or Target.Cells(1, 1).Column = 8 Then Call XieRu(Target.Cells(1, 1).Column, Target)
   
4. End Sub
   
5. Private Sub XieRu(ByVal Inx As Byte, ByVal MyTarget As Range)
   
6. Dim Arr(1 To 8), C As Range
   
7.   Arr(1) = Format(Now, "yyyy-mm-dd hh:mm:ss")
   
8.   Arr(8) = "=人员！B2 "
   
9.   
   
10.   For Each C In MyTarget
    
11.     If C.Column = Inx Then
    
12.       If C.Value = "" Then
    
13.           C.Offset(0, 1).Value = ""
    
14.       Else
    
15.           C.Offset(0, 1).Value = Arr(Inx)
    
16.       End If
    
17.     End If
    
18.   Next
    
19. End Sub
    

复制代码

ht094156

无聊的疯子 发表于 2014-7-4 21:09
就当成是其中一个吧

代码综合后如下图，测试一下看看

你好，我的要求是这样的
1；当M列有数据时，则N列显示日期，当M列没有数据时，则N列什么也不用显示
2；当H列有数据时，则I列显示"人员！B2"的数值，当H列没有数据时，则I列什么也不用显示
3；当M列有数据时，则o列显示"人员！B3"的数值，当M列没有数据时，则O列什么也不用显示

真心很有用，能帮我解决一下吗

su45

因你附件中没数据，不能调试，只发上代码：

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. If Sh.Name = "人员" Then End
   
3. If Target.Column = 13 And Target.Count = 1 Then
   
4.     If Target.Value <> "" Then Target.Offset(0, 1).Value = Format(Date, "yyyy-mm-dd hh:mm:ss")
   
5.     If Target.Value <> "" Then Target.Offset(0, 2) = Sheets("人员").Range("B3 ")
   
6. ElseIf Target.Column = 8 And Target.Count = 1 Then
   
7.     If Target.Value <> "" Then Target.Offset(0, 1) = Sheets("人员").Range("B2 ")
   
8. End If
   
9. End Sub
   

复制代码

su45

上来了也不回复下？

ht094156

su45 发表于 2014-7-6 10:26
上来了也不回复下？

这两天断网了，不好意思，每次都是你帮我的，谢谢
今天还有个问题想请教一下，http://www.excelpx.com/thread-328344-1-1.html
有时间帮我看看吧