اشتباه در درج تاریخ سلول پر شده تحت شرایط خاص

[sabertb]

من فکر کردم فقط دستی داده وارد میکنید. اگه قرار باشه کپی کنید یا فیل کنید یک حلقه نیاز دارید. من تست کردم این برنامه کاملا جواب میده مشکلی نداره

Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
For Each cell In Selection
    If Not Intersect(Target, Selection) Is Nothing Then Cells(cell.Row, cell.Column + 23) = J_TODAY(1)
Next
End Sub

میتونید نمونه فایلو بزارید به بینم من کجاشو مثل شما وارد نکردم ایرادم کجاست

[Amir Ghasemiyan]

میتونید نمونه فایلو بزارید به بینم من کجاشو مثل شما وارد نکردم ایرادم کجاست

فایل نمونه خدمت شما
دقت کنید که اگه یک سلول داده دارید باید بجای enter از کلید های ترکیبی ctrl+enter استفاده کنید

[sabertb]

فایل نمونه خدمت شما
دقت کنید که اگه یک سلول داده دارید باید بجای enter از کلید های ترکیبی ctrl+enter استفاده کنید

ممنون از راهنماییتون در نگاه اول بنظر میرسید همه چی درست هست منم حل مسئله رو زدم . ولی بعد وقتی خواست اطلاعات ام رو وارد کنم دیدم هرجا هرچی کپی میکنم (حتی چیز هایی که لازم نیست تاریخش ثبت بشه که زیادم هست) فایل شروع به ثبت تاریخ میکند که خیلی خیلی زمان بر است و لازم هم نیست . می خواستم اگر میشه این قابلیت تو رنج مشخصی عمل کنه مثلا بین h9:u10000 وقتی اطلاعات وارد شد تاریخش به صورت متناظر همون سلول 23 تا جولوترش وارد بشه.

[Amir Ghasemiyan]

ممنون از راهنماییتون در نگاه اول بنظر میرسید همه چی درست هست منم حل مسئله رو زدم . ولی بعد وقتی خواست اطلاعات ام رو وارد کنم دیدم هرجا هرچی کپی میکنم (حتی چیز هایی که لازم نیست تاریخش ثبت بشه که زیادم هست) فایل شروع به ثبت تاریخ میکند که خیلی خیلی زمان بر است و لازم هم نیست . می خواستم اگر میشه این قابلیت تو رنج مشخصی عمل کنه مثلا بین h9:u10000 وقتی اطلاعات وارد شد تاریخش به صورت متناظر همون سلول 23 تا جولوترش وارد بشه.

خب یک شرط ساده اولش بذارین. به این صورت:
if intersect(target,range("h9:u10000" then

بقیه برنامه


end if

[sabertb]

خب یک شرط ساده اولش بذارین. به این صورت:
if intersect(target,range("h9:u10000" then

بقیه برنامه


end if

سلام خیلی خیلی ممنون از راهنماییتون . واقعیت اینه که خیلی در مورد VB اطلاعات ندارم و همیشه با صحیح و خطا و تغییر برخی پارامتر ها که ازشون سر در میارم کد های اساتید رو برای فرم های مختلف همهنگ میکنم ولی بعضی وقتا مثل الان مشکل دارم در مورد قرار دادن شرط در جای خودش هر جا میزارم اررور میده . قبل از Sub میزارم اررور میده بعدش میزارم اررور میده یه بار از Next اررو میگیره یه بار از شرط هنوز نتونستم روش درستش رو درک کنم .

Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
For Each cell In Selection
        If Intersect(Target, Range("h9:u10000")) Then Cells(cell.Row, cell.Column + 23) = J_TODAY(1)
Next
End If
End Sub 

اگر امکانش هست کل کد رو دوباره در PHP پست بزارید ممنون میشم.

[iranweld]

بدین صورت تست بفرمایید

Sub Worksheet_Change(ByVal Target As Range)

Dim cell As Range

Set cell = Range("H8:R50000")

        If Not Intersect(Target, Me.Range("H8:R50000")) Is Nothing Then
        
        Application.ScreenUpdating = False
        
        For Each cell In Selection
        
        cell.Offset(0, 23).Value = J_TODAY(1)
Next

End If

Application.ScreenUpdating = True

End Sub