مساعدة بخصوص كتابة الوقت

[nadjib_2012]

السلام عليكم

عند كتابة الوقت في اليوزر فورم يكتب على الشكل hh:mm وفي الورقة ايضا ولكن عند التعديل عليه يظهر في الفورم على الشكل 0.0025455412

الرجاء المساعة وشكرا

[رجب جاويش]

أخى الفاضل

مرحبا بك بين اخوانك

الرجاء ارفاق ملف توضح به ما تريد

لارفاق الملف اضغطه أولا ثم ارفقه

[nadjib_2012]

هدا هو الملف

الزبون.rar

[nadjib_2012]

الرجاء الاجابة في اقرب وقت وشكرا

[عبدالله المجرب]

السلام عليكم

استبدل كود الكومبوبوكس 1 (حدث التغيير) بهذا

Private Sub ComboBox1_Change()

If ComboBox1.Value = 0 Then GoTo 1

CommandButton1.Enabled = False

CommandButton3.Enabled = True

Dim R As Integer, RR As Integer, Endrow As Integer

With Sheets("info")

    Endrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1

    For RR = 1 To Endrow

	    If .Cells(RR, 1).Value = Val(ComboBox1) Then

		    For R = 0 To 4

			    Me.Controls(myCon(R)).Value = .Cells(RR, R + 1).Value

			    Me.Controls("TextBox4").Value = Format(.Cells(RR, 4).Value, "hh:mm")

		    Next R

		    Exit For

	    End If

    Next RR

End With

1 End Sub

[nadjib_2012]

شكرا جزيلا

بارك الله فيكم ووفقكم

ممكن طريقة للترتيب حسب التاريخ ثم الوقت