代码无法正常显示结果

divineson

正在学习数组，简单的编了一段，但未能成功，没有报错，但也无法正确显示结果，请各位老师指点一下，错在哪了，谢谢！


Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, i
Dim arr
With Worksheets("硬币出入库")
.AutoFilterMode = False
r = .Cells(.Rows.Count, "d").End(xlUp).Row
        arr = .Range("a2:g" & r)
        For i = 2 To UBound(arr)
            If arr(i, 4) <> 0 And arr(i, 1) = 0 Then
                arr(i, 1) = Format(Now(), "M月d日")
            Else: arr(i, 1) = ""
            End If
         Next
    End With
End Sub

D列非空且A列为空时，在A列记录日期。在D列录入后，A列没有显示日期，请各位老师指导一下，谢谢！

shiruiqiang

If arr(i, 4) <> 0 And arr(i, 1) = 0 Then
d列不为0且a列等于0
分别加len()
If len(arr(i, 4)) <> 0 And len(arr(i, 1)) = 0 Then 才达到你的要求

1915384707

arr(i, 1) = Format(Now(), "M月d日")
这个是给数组赋值，并没有修改表格的值，可以参考下面代码
.Cells(i, 1) = Format(Now(), "M月d日")

divineson

shiruiqiang 发表于 2024-11-11 15:41
If arr(i, 4)  0 And arr(i, 1) = 0 Then
d列不为0且a列等于0
分别加len()

老师你好，改了之后还是不行，没有显示日期，请你再指点一下，谢谢！

shiruiqiang

还有，你的数组没写回去

ykcbf1100

一句代码就够了

ykcbf1100

参与一下。。。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.    
   
3.     Me.Cells(Target.Row, 1) = Format(Date, "M月d日")
   
4.    
   
5. End Sub
   
6. 
   

复制代码

divineson

感谢各位老师的指导，目前所需功能已实现了，但数组编写的方式还未能成功，使用数组其一是为了学习，其二是原文件有较多子表同时也编有程序，使用数组能够提高运算速度