مشکل با اختلاف ساعت و تاریخ

[raminswat]

سلام خدمتدوستان و استادان عزیز
من یه فایل اکسل طراحی کردم اما چند تا مشکل داره. فایل پیوست شده

عمده مشکلی که دارم با اختلاف بین دو تاریخ و ساعت هستش ممنون میشم راهنمایی کنین و فیکسش کنین.

1.اختلاف ساعت (مدت زمان سپری شده ) مثلا برای زمان 11 شب تا ساعت 2 نیمه شب که اختلافشون 3 ساعت هستش نمیتونم حساب کنم چند جا خوندم گفتن باید تاریخ رو هم وارد کنم که مشکل حل بشه !
2.مشکلی که هستش اینه که هر دفعه بخوام تاریخ رو وارد کنم زمان بر هستش میخوام زمان و تاریخ خودکار وارد بشه
3.اگه فایل پیوست رو ببینین یه زمان شروع هستش یه زمان پایان میخوام مثلا وقتی روی سلول کلیک کردیم اگر قسمت مشتری اسم وارد شده باشد زمان شروع زده بشه و برای زمان پایان هم همینجور با این تفاوت که تا زمان شروع رو نزدیم اگه روی سلول زمان پایان بزنیم تاریخ و ساعتی وارد نشه !

ممنون میشم کمکم کنین
با تشکر از مهندسین عریر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[DOLFIN]

سلام اگر زمان ها یک روز اختلاف دارند نیاز به تاریخ نیست در فایل زیر یک نمونه براتون آماده کردم فقط زمان ها رو به صورت 24 ساعت وارد کنید یعنی ساعت 1 بعدازظهر به این صورت 13:00 و 1 بامداد به این صورت 1:00 وارد شود.

[raminswat]

سلام اگر زمان ها یک روز اختلاف دارند نیاز به تاریخ نیست در فایل زیر یک نمونه براتون آماده کردم فقط زمان ها رو به صورت 24 ساعت وارد کنید یعنی ساعت 1 بعدازظهر به این صورت 13:00 و 1 بامداد به این صورت 1:00 وارد شود.

ممنونم دوست عزیز اینکه خودکار تایم بزنه نمیدونین چیکار کنم ؟

[majid_mx4]

ممنونم دوست عزیز اینکه خودکار تایم بزنه نمیدونین چیکار کنم ؟

اگر لطفا کنید و منظورتان را واضح تر بفرمایید ممنون میشویم .

اکسل از کجا باید بفهمد که کی چه ساعتی شروع و تمام کرده مگر اینکه منظور شما استفاده از زمان سیستم است که بله میشود.

نمونه فایل را دانلود کنید.

خلاصه : ثبت زمان سیستم بمحض واردکردن نام مشتری و زمان شروع

با تشکر میر

[sabertb]

ممنونم دوست عزیز اینکه خودکار تایم بزنه نمیدونین چیکار کنم ؟

منظورتون اینه که اسم مشتری وارد بشه خودش تاریخ شروع و ساعتش رو بزنه جلوش ؟ یعتی تاریخ وارد شدن اطلاعات در سلول ثبت بشه و تغییر هم نکنه ؟

[iranweld]

با سلام

در فایل پیوست پس از درج نام مشتری تاریخ و ساعت فعلی بصورت اتوماتیک درج میگردد .

برای خاتمه با درج ساعت ،تاریخ خاتمه اتوماتیک درج شده و در ستون بعدی محاسبات زمانی صورت میگیرد.

[sami56]

سلام
من از این فایل استفاده کردم
مشکلی که داشتم تاحدودی حل شد
یه سوال
چطوری انکارو کردید که خودکار بزنه تاریخ رو؟
فرمول نداره؟

[iranweld]

سلام
من از این فایل استفاده کردم
مشکلی که داشتم تاحدودی حل شد
یه سوال
چطوری انکارو کردید که خودکار بزنه تاریخ رو؟
فرمول نداره؟

با سلام

با استفاده از توابع تاریخ شمسی در ویژوال بیسیک انجام شد که در ماکرو فایل قابل دیدن هستش

[sabertb]

با سلام

در فایل پیوست پس از درج نام مشتری تاریخ و ساعت فعلی بصورت اتوماتیک درج میگردد .

برای خاتمه با درج ساعت ،تاریخ خاتمه اتوماتیک درج شده و در ستون بعدی محاسبات زمانی صورت میگیرد.

فوق العاده است ممنون .
امکانش هست
1- اگر ستون مورد نظر من برای وارد کردن کارکتر ستون 25 و 27 باشد و بخوام تاریخشون در ستون های 37 و 38 وارد بشود چطور باید کد نویسی رو تغییر داد ؟ (تعداد سطر ورودی کارکتر هم نا محدود باشد)
2- در فایل من اطلاعات به صورت درصد پیشرفت وارد میشود و ممکنه اطلاعات به صورت درگ کردن از سلولی به سلول دیگر وارد بشه امکانش هست با این روش بشه این کد نویسی رو سازگار کرد ؟
خیلی وقت پیش (اواخر سال 92) این سوال رو مطرح کرده بودم ولی آخرش نتیجه ای گرفته نشد
من اینطور تغییر دادم ولی مثل اینکه یه مشکلی داره !

Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("y2:y50000")) Is Nothing Then data
    If Not Intersect(Target, Me.Range("aa2:aa50000")) Is Nothing Then data2
End Sub 

Sub data()

Dim i, J As Integer
Dim rowNumberValue As Integer, columnNumberValue As Integer

 rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column

If Cells(rowNumberValue, 37) <> "" Then
  Cells(rowNumberValue, 38) = Mid(J_TODAY(1), 1, 4) & Mid(J_TODAY(1), 6, 2) & Mid(J_TODAY(1), 9, 2)
   Cells(rowNumberValue, 39) = 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, 40) <> "" Then
  Cells(rowNumberValue, 41) = Mid(J_TODAY(1), 1, 4) & Mid(J_TODAY(1), 6, 2) & Mid(J_TODAY(1), 9, 2)
End If

End Sub 

[iranweld]

با سلام


در Sub data()

بجای 37 اولی 25 و بجای 38 عدد 37 خود را وارد کنید

If Cells(rowNumberValue, 37) <> "" Then
  Cells(rowNumberValue, 38) = Mid(J_TODAY(1), 1, 4) & Mid(J_TODAY(1), 6, 2) & Mid(J_TODAY(1), 9, 2)
   Cells(rowNumberValue, 39) = Time
End If 

در SUB DATA2
بجای 40 27 و بجای 41 38 رو قرار بدید

If Cells(rowNumberValue, 40) <> "" Then
  Cells(rowNumberValue, 41) = Mid(J_TODAY(1), 1, 4) & Mid(J_TODAY(1), 6, 2) & Mid(J_TODAY(1), 9, 2)
End If