کد PHP:
Sub data17()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 7) <> "" Then
Cells(rowNumberValue - 1, 30) = J_TODAY(1)
End If
End Sub
Sub data18()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 8) <> "" Then
Cells(rowNumberValue - 1, 31) = J_TODAY(1)
End If
End Sub
Sub data19()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 9) <> "" Then
Cells(rowNumberValue - 1, 32) = J_TODAY(1)
End If
End Sub
Sub data20()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 10) <> "" Then
Cells(rowNumberValue - 1, 33) = J_TODAY(1)
End If
End Sub
Sub data21()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 11) <> "" Then
Cells(rowNumberValue - 1, 34) = J_TODAY(1)
End If
End Sub
Sub data22()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 12) <> "" Then
Cells(rowNumberValue - 1, 35) = J_TODAY(1)
End If
End Sub
Sub data23()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 13) <> "" Then
Cells(rowNumberValue - 1, 36) = J_TODAY(1)
End If
End Sub
Sub data24()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 14) <> "" Then
Cells(rowNumberValue - 1, 37) = J_TODAY(1)
End If
End Sub
Sub data25()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 15) <> "" Then
Cells(rowNumberValue - 1, 38) = J_TODAY(1)
End If
End Sub
Sub data26()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 16) <> "" Then
Cells(rowNumberValue - 1, 39) = J_TODAY(1)
End If
End Sub
Sub data27()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 17) <> "" Then
Cells(rowNumberValue - 1, 40) = J_TODAY(1)
End If
End Sub
Sub data28()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 18) <> "" Then
Cells(rowNumberValue - 1, 41) = J_TODAY(1)
End If
End Sub
Sub data29()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 19) <> "" Then
Cells(rowNumberValue - 1, 42) = J_TODAY(1)
End If
End Sub
Sub data30()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 20) <> "" Then
Cells(rowNumberValue - 1, 43) = J_TODAY(1)
End If
End Sub
Sub data31()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 21) <> "" Then
Cells(rowNumberValue - 1, 44) = J_TODAY(1)
End If
End Sub
Sub data32()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue - 1, 22) <> "" Then
Cells(rowNumberValue - 1, 45) = J_TODAY(1)
End If
End Sub
وقتی شما اطلاعات رو زیرهم وارد کنید تاریخ نمیزنه حتما باید بعد از وارد کردن اطلاعات به سلول کناریش برید تا تاریخ ثبت بشه
علاقه مندی ها (Bookmarks)