سلام خدمت اساتید گران قدر
قبل از سوال ام می خواستم تشکر کنم از همه شما اساتید عزیز به خاطر دانشی که به من و دیگر کاربران انتقال دادید .
قبلا در پستی دیگر که استاد "iranweld" این ماکرو رو طراحی کردند
http://forum.exceliran.com/showthrea...8C%D8%AE/page2
با وارد کردن اطلاعات در 2 یا چند ستون تاریخ ورود اطلاعات در ستونی دیگر ثبت میشد . ولی فقط یه شرطی داره که به نظر میرسه فقط بعد از وارد کردن اطلاعات در ستون M وقتی تاریخش ثبت می شود که با موس یا با کیبورد بر روی سلول بعدی یعنی N برویم . حالا سوال من اینه که میشه کاری کرد که چه وقتی سلول ستون بعدی انتخاب شد چه سلول ردیف بعدی (یعنی یه اینتر بزنی یا پایین بیایی) تاریخ ورود اطلاعات آن سلول ثبت گردد ؟
کد PHP:
Sub data()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue, 13) <> "" Then
Cells(rowNumberValue, 27) = Mid(J_TODAY(1), 1, 4) & Mid(J_TODAY(1), 6, 2) & Mid(J_TODAY(1), 9, 2)
Cells(rowNumberValue, 29) = Time
End If
'Next i
End Sub
Sub data2()
Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
If Cells(rowNumberValue, 14) <> "" Then
Cells(rowNumberValue, 28) = Mid(J_TODAY(1), 1, 4) & Mid(J_TODAY(1), 6, 2) & Mid(J_TODAY(1), 9, 2)
End If
End Sub
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)