نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

موضوع: سوال در خصوص جمع اتوماتیک ساعت ها در یوزرفرم

  1. #1


    آخرین بازدید
    2015/07/30
    تاریخ عضویت
    June 2015
    نوشته ها
    7
    امتیاز
    13
    سپاس
    7
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    confused سوال در خصوص جمع اتوماتیک ساعت ها در یوزرفرم

    سلام
    دوستان کسی می تونه در دو مورد زیر منو راهنمایی کنه:
    1. چطور می تونم مشخص کنم هر سلول از چه نوع داده ای باید باشه؟ مثلا در فایل پیوست فرمت داده ها ورودی ساعت باشه hh:mm
    2. چطور می تونم ساعت ها رو با هم جمع و در آخرین باکس نمایش بدم؟ (همزمان با تکمیل باکس ها)

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

  2.  

  3. #2


    آخرین بازدید
    2021/06/21
    تاریخ عضویت
    May 2013
    محل سکونت
    تهران
    نوشته ها
    68
    امتیاز
    145
    سپاس
    4
    سپاس شده
    89 در 38 پست
    سطح اکسل
    45.00 %

    با سلام
    ورود اطلاعات ساعت و دقیقه و (ثانیه - اختیاری) با ( . ) ممیز میباشد . یعنی 1.2 یا ( 1.02 ) یک ساعت و 2 دقیقه
    و1.20 یک ساعت و بیست دقیقه
    کد PHP:
     Private Sub TextBox1_Change()    If TextBox1.Value "" Then Exit Sub    If TextBox2.Value "" Then Exit Sub       If TextBox3.Value "" Then Exit Sub        TextBox4.Value CDate(TextBox1.Value) + CDate(TextBox2.Value) + CDate(TextBox3.Value)End Sub Private Sub TextBox2_Change()    If TextBox1.Value "" Then Exit Sub    If TextBox2.Value "" Then Exit Sub      If TextBox3.Value "" Then Exit Sub    TextBox4.Value CDate(TextBox1.Value) + CDate(TextBox2.Value) + CDate(TextBox3.Value)End SubPrivate Sub TextBox3_Change()    If TextBox1.Value "" Then Exit Sub    If TextBox2.Value "" Then Exit Sub      If TextBox3.Value "" Then Exit Sub    TextBox4.Value CDate(TextBox1.Value) + CDate(TextBox2.Value) + CDate(TextBox3.Value)End Sub Private Sub TextBox4_Change()

        If 
    TextBox1.Value "" Then Exit Sub    If TextBox2.Value "" Then Exit Sub       If TextBox3.Value "" Then Exit Sub    If TextBox4.Value "" Then Exit Sub        TextBox4.Value CDate(TextBox1.Value) + CDate(TextBox2.Value) + CDate(TextBox3.Value)End Sub 

  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2016/11/06
    تاریخ عضویت
    January 2014
    محل سکونت
    تهران
    نوشته ها
    149
    امتیاز
    1192
    سپاس
    175
    سپاس شده
    414 در 123 پست
    تعیین سطح نشده است

    سلام
    در جواب سوال یک می تونید از این کد استفاده کنید :
    کد:
    Private Sub t1_AfterUpdate()
    Dim tString As String
    Dim tDate As Date
    On Error GoTo ErrMsg
    With t1
        
       If InStr(1, .Value, ":", vbTextCompare) = 0 Then
            
           tString = Format(.Value, "0000")
            tDate = TimeSerial(Left(tString, 2), Right(tString, 2), 0)
           
            t1.Value = Format(tDate, "HH:MM")
        Else
            
           .Value = Format(.Value, "hh:mm")
        End If
    End With
    Exit Sub
    ErrMsg:
    MsgBox "", vbOKOnly, ""
    End Sub
    خانه اکسل - http://********************

  6. سپاس ها (2)


  7. #4


    آخرین بازدید
    2015/07/30
    تاریخ عضویت
    June 2015
    نوشته ها
    7
    امتیاز
    13
    سپاس
    7
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط DOLFIN نمایش پست ها
    سلام
    در جواب سوال یک می تونید از این کد استفاده کنید :
    کد:
    Private Sub t1_AfterUpdate()
    Dim tString As String
    Dim tDate As Date
    On Error GoTo ErrMsg
    With t1
        
       If InStr(1, .Value, ":", vbTextCompare) = 0 Then
            
           tString = Format(.Value, "0000")
            tDate = TimeSerial(Left(tString, 2), Right(tString, 2), 0)
           
            t1.Value = Format(tDate, "HH:MM")
        Else
            
           .Value = Format(.Value, "hh:mm")
        End If
    End With
    Exit Sub
    ErrMsg:
    MsgBox "", vbOKOnly, ""
    End Sub


    با تشکر
    در مورد سه خونه اول بعد از تایپ تبدیل به ساعت می شه، اما در خصوص خانه پاسخ (چهارم) جواب نداد

  8. #5


    آخرین بازدید
    2015/07/30
    تاریخ عضویت
    June 2015
    نوشته ها
    7
    امتیاز
    13
    سپاس
    7
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط ordouei نمایش پست ها
    با سلام
    ورود اطلاعات ساعت و دقیقه و (ثانیه - اختیاری) با ( . ) ممیز میباشد . یعنی 1.2 یا ( 1.02 ) یک ساعت و 2 دقیقه
    و1.20 یک ساعت و بیست دقیقه
    کد PHP:
     Private Sub TextBox1_Change()    If TextBox1.Value "" Then Exit Sub    If TextBox2.Value "" Then Exit Sub       If TextBox3.Value "" Then Exit Sub        TextBox4.Value CDate(TextBox1.Value) + CDate(TextBox2.Value) + CDate(TextBox3.Value)End Sub Private Sub TextBox2_Change()    If TextBox1.Value "" Then Exit Sub    If TextBox2.Value "" Then Exit Sub      If TextBox3.Value "" Then Exit Sub    TextBox4.Value CDate(TextBox1.Value) + CDate(TextBox2.Value) + CDate(TextBox3.Value)End SubPrivate Sub TextBox3_Change()    If TextBox1.Value "" Then Exit Sub    If TextBox2.Value "" Then Exit Sub      If TextBox3.Value "" Then Exit Sub    TextBox4.Value CDate(TextBox1.Value) + CDate(TextBox2.Value) + CDate(TextBox3.Value)End Sub Private Sub TextBox4_Change()

        If 
    TextBox1.Value "" Then Exit Sub    If TextBox2.Value "" Then Exit Sub       If TextBox3.Value "" Then Exit Sub    If TextBox4.Value "" Then Exit Sub        TextBox4.Value CDate(TextBox1.Value) + CDate(TextBox2.Value) + CDate(TextBox3.Value)End Sub 
    با تشکر از شما
    متاسفانه نتونستم از این کدها استفاده کنم، امکانش هست به صورت فایل ارسال بفرمایید. (در قسمت های مختلف خطا می ده)

  9. #6


    آخرین بازدید
    2021/06/21
    تاریخ عضویت
    May 2013
    محل سکونت
    تهران
    نوشته ها
    68
    امتیاز
    145
    سپاس
    4
    سپاس شده
    89 در 38 پست
    سطح اکسل
    45.00 %

    متاسفانه فایل پیوست نشد .
    در صورت سوال بیشتر یا دریافت فایل ایمیل بزنید .
    Excel.saeed@gmail.com
    تصاویر کوچک فایل پیوست تصاویر کوچک فایل پیوست ut1.jpg  

  10. سپاس ها (1)


  11. #7


    آخرین بازدید
    2015/07/30
    تاریخ عضویت
    June 2015
    نوشته ها
    7
    امتیاز
    13
    سپاس
    7
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط ordouei نمایش پست ها
    متاسفانه فایل پیوست نشد .
    در صورت سوال بیشتر یا دریافت فایل ایمیل بزنید .
    Excel.saeed@gmail.com
    با سپاس فراوان

    اما مشکلات و خطا ها همچنان پابرجاست مواردی مثل ذیل:
    1. در صورت استفاده از کارکتر ( : ) توسط کاربر به اشتباه خطا داده و از برنامه خارج می شود.
    2. در صورتی که مثلا به جای 8.0 از 8 استفاده شود، جمع به صورت تاریخ نمایش داده می شود
    3. در صورتی که کاربر اشتباه ساعت را وارد کند مثلا 1.70 باز هم جمع به صورت تاریخ نمایش داده می شود.

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

  12. #8


    آخرین بازدید
    2015/07/30
    تاریخ عضویت
    June 2015
    نوشته ها
    7
    امتیاز
    13
    سپاس
    7
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    بزرگواران، هیچ کس نمی تونه پاسخ این سوال رو بده؟!؟!؟!؟


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. واردکردن اطلاعات یه فایل اکسل به طوراتوماتیک در فایل اکسل دیگر
    توسط alitaheri در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 19
    آخرين نوشته: 2022/11/09, 14:51
  2. سوال فوری در خصوص جمع و تفریق روز و ساعت و دقیقه
    توسط alireza1350 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 7
    آخرين نوشته: 2015/06/10, 21:01
  3. پاسخ : قفل اتوماتیک سطر
    توسط esrafil2006 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 13
    آخرين نوشته: 2014/12/02, 14:01
  4. ماکروی سورت اتوماتیک یک جدول
    توسط nartamis در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2014/09/04, 01:38
  5. سورت اتوماتیک در اکسل
    توسط ~M*E*H*D*I~ در انجمن توابع در ويژوال بيسيك - Functions in VBA
    پاسخ ها: 4
    آخرين نوشته: 2014/05/21, 14:53

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد