اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

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

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

تنسيق تاريخ في عمود ليست بوكس.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 (كما ذكرت بالعلى)...

بن علية حاجي

 

تم تعديل بواسطه بن علية حاجي
رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 1 year later...
زائر
هذا الموضوع مغلق.
×
×
  • اضف...

Important Information