ممنون از راهنماییتون در نگاه اول بنظر میرسید همه چی درست هست منم حل مسئله رو زدم . ولی بعد وقتی خواست اطلاعات ام رو وارد کنم دیدم هرجا هرچی کپی میکنم (حتی چیز هایی که لازم نیست تاریخش ثبت بشه که زیادم هست) فایل شروع به ثبت تاریخ میکند که خیلی خیلی زمان بر است و لازم هم نیست . می خواستم اگر میشه این قابلیت تو رنج مشخصی عمل کنه مثلا بین h9:u10000 وقتی اطلاعات وارد شد تاریخش به صورت متناظر همون سلول 23 تا جولوترش وارد بشه.
سلام خیلی خیلی ممنون از راهنماییتون . واقعیت اینه که خیلی در مورد VB اطلاعات ندارم و همیشه با صحیح و خطا و تغییر برخی پارامتر ها که ازشون سر در میارم کد های اساتید رو برای فرم های مختلف همهنگ میکنم ولی بعضی وقتا مثل الان مشکل دارم در مورد قرار دادن شرط در جای خودش هر جا میزارم اررور میده . قبل از Sub میزارم اررور میده بعدش میزارم اررور میده یه بار از Next اررو میگیره یه بار از شرط هنوز نتونستم روش درستش رو درک کنم .
اگر امکانش هست کل کد رو دوباره در PHP پست بزارید ممنون میشم.کد PHP:
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:
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
ویرایش توسط iranweld : 2015/11/26 در ساعت 10:58
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)