تنسيق التاريخ في عمود ليست بوكس

[سمير نجار]

السلام عليكم ورحمة اللع وبركاته

السادة الكرام مشرفين وأعضاء

لدي فورم فيه تكست بوكس للبحث في ليست بوكس والمشكلة هي في ظهور التاريخ في ليست بوكس

بحثت في المنتدى الكريم عن مشكلة ظهور التاريخ في عمود ليست بوكس . فوجدت طريقتين إحداهما للاستاذ عبدالله باقشير والثانية للاستاذ ابوحنين

وحاولت تعديل الكودين بما يتناسب مع طلبي فلم افلح

والمطلوب هو ظهور التاريخ كما هو موجود في ورقة العمل سواء في حدث الفورم او في حدث التكست بوكس

ولكم جزيل الشكر

تنسيق تاريخ في عمود ليست بوكس.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

جرب المرفق بعد التعديل في كود اليوزرفورم...

بن علية حاجي

تنسيق تاريخ في عمود ليست بوكس.rar

[سمير نجار]

وعليكم السلام ورحمة الله وبركاته

استاذي الكريم بن علية

لك كل الشكر على الرد

يبدو ان الملف فيه مشكلة لانه لا يفتح

الرجاء ارفاقه مرة اخرى

جزاك الله كل خير

[بن علية حاجي]

السلام عليكم ورحمة الله

قمت بتحميل الملف من ردي وهو يشغل جيدا، لست أدري ما هي المشكلة (ربما تعمل في جهازك بنسخة إكسيل 2007)... المهم أعيد إرفاقه من جديد (هذه المرة بالملحق .xlsb)...

بن علية حاجي

تنسيق تاريخ في عمود ليست بوكس.xlsb

[سمير نجار]

وعليكم السلام استاذي الكريم

صدقت لدي نسخة اكسيل  2007 ( ولكن هل لاحقة XLSM  لا تعمل على اوفيس 2007 ؟؟؟)

وقد قمت بتثبيت حزمة توافق للاوفيس ومع ذلك لم يعمل المرفق الاول وكذلك الثاني

ألا يمكنك حفظ الملف بلاحقة XLSX  او ارفاق الكود فقط في المشاركة

جزاك الله خيراً

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم إن إكسيل 2007 به مشاكل كثيرة خاصة بالتوافق (مع 2003 و 2010 فما فوق) ويُنصح الانتقال إلى النسخ 2010 أو 2013 أو 2016 (وهي متوفرة في النت)... بالنسبة لحفظ الملف بلاحقة xlsx. فهذا غير ممكن باعتبار أن الملف به أكواد...

والحل الآخر هو أن أشرح لك ما تم التعديل فيه:

أولا : قم بمسح كل الأكواد الخاصة باليوزرفورم (من البداية إلى النهاية) وثاني قم بتعويضه بالكود التالي:

Option Explicit
Private Const ContColmn As Integer = 6
'     تنسيق التاريخ
Private Const DateFormt As String = "yyyy/mm/dd"
Private sRng As Range
Private sColmn
Private N As Integer
Private MyRng As Range
Option Base 1
Dim sh12 As Range
Dim LR As Range
Dim rng As Range
Dim cl As Range
Dim Cel As Range
Dim Arr()
Private Sub CommandButton4_Click()
Unload Me
End Sub
Private Sub MY_List_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyEscape Then
 Me.MY_Text = ""
 Me.MY_Text.SetFocus
ElseIf KeyCode = vbKeyF12 Then
 Unload Me
End If
End Sub
Private Sub MY_Text_Change()
Dim MyValue
Dim MyAr() As String
Dim ib As Boolean
Dim RR As Integer, i As Integer, ii As Integer
Dim RRr As Integer, LR As Integer
Dim dt1 As Date, dt2 As Date
Dim LastRow As Integer, R As Integer, T As Integer, s As Integer
MY_List.Clear
With sheet2
LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
    
    For R = 2 To LastRow
        If .Cells(R, "C") Like "*" & MY_Text.Text & "*" Then
            MY_List.AddItem
            MY_List.List(T, 0) = .Cells(R, "A")
            MY_List.List(T, 1) = Format(.Cells(R, "B"), "yyyy/mm/dd")
            MY_List.List(T, 2) = .Cells(R, "C")
            MY_List.List(T, 3) = .Cells(R, "D")
            MY_List.List(T, 4) = .Cells(R, "E")
            MY_List.List(T, 5) = .Cells(R, "F")
            T = T + 1
         End If
    Next
With Me.MY_List
    .ColumnCount = 6  '  عدد الأعمدة
    .ColumnWidths = "60;90;110;100;100;196"   '  عرض أعمدة الليست
End With
End With
End Sub

أرجو أن ينجح معك هذه المرة... وإلا قم باستبدال نسخة إكسيل 2007 بأخرى مثل إصدار 2010 أو 2013 أو 2016 (كما ذكرت بالعلى)...

بن علية حاجي

 

تم تعديل يوليو 16, 2017 بواسطه بن علية حاجي

[سمير نجار]

وعليكم السلام ورحمة الله وبركاته

بارك الله فيك استاذي الكريم

الكود يعمل بشكل جيد

وقد قمت بالتعديل ليظهر تنسيق تاريخ وتنسيق فواصل ارقام سواء في حدث الفورم او في حدث التكست بوكس

كل الشكر لك استاذي الكريم بن علية حاجي

تنسيق تاريخ في عمود ليست بوكس.rar

[محمد عبدالسلام]

جزاك الله كل الخير ..........  ماشاء الله