أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





هل يوجد طريقة ادخال التاريخ بدون ( / ) او (.)؟؟؟

السلام عليكم ورحمة الله وبركاته أخواني و اخواتي، هل يوجد طريقة لإدخال التاريخ في خلية الاكسل بالشكل التالي : 11102011 ل ..



09-03-2020 04:06 مساء
احمد محمد سعيد
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 09-03-2020
رقم العضوية : 18466
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 3-3-1983
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
 offline 

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

أخواني و اخواتي، هل يوجد طريقة لإدخال التاريخ في خلية الاكسل بالشكل التالي : 11102011
 ليصبح بالتنسيق التالي : 11.10.2011 أي بدون ادخال ( / ) (.) والشكر لكم جميعاً smile
 

09-03-2020 05:53 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif هل يوجد طريقة ادخال التاريخ بدون ( / ) او (.)؟؟؟
وعليكم السلام أخي الكريم
يمكن وضع كود في حدث ورقة العمل بحيث تحدد نطاق الخلايا المراد التعامل معها وفي الكود تتأكد أولاً من أن طول السلسلة النصية من 8 وأنها أرقام ثم بعد التأكد تقوم باستخدام دالة MID لوضع الفواصل المناسبة والمطلوبة حسب اختيارك ..

09-03-2020 07:29 مساء
مشاهدة مشاركة منفردة [2]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif هل يوجد طريقة ادخال التاريخ بدون ( / ) او (.)؟؟؟
جرب هذا الملف
الكود

Option Explicit
Function Salim_To_Date(Rg As Range)
 Dim Obj As Object, Mth As Object, i%, x
 Set Obj = CreateObject("Vbscript.Regexp")
 Obj.Pattern = "(\d{2})(\d{2})(\d{4})"
 If Obj.Test(Rg) Then
      Set Mth = Obj.Execute(Rg)
          For i = 0 To Mth(0).SubMatches.Count - 1
           x = x & Mth(0).SubMatches(i) & "."
          Next i
      Salim_To_Date = Left(x, Len(x) - 1)
    Else
      Salim_To_Date = "Error"
 End If
 Set Obj = Nothing: Set Mth = Nothing
End Function


الملف مرفق
 
 
  text_to_date.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(24.285) KB


10-03-2020 11:43 صباحا
مشاهدة مشاركة منفردة [3]
احمد محمد سعيد
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 09-03-2020
رقم العضوية : 18466
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 3-3-1983
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
 offline 
look/images/icons/i1.gif هل يوجد طريقة ادخال التاريخ بدون ( / ) او (.)؟؟؟
شكرا للاخ salim على المجهود المبذول  وللاخ  YasserKhalil
طلبي كان ان تدخل ارقام على الخلية 10032020 ويتم الاستبدال بنفس الخلية 
 

10-03-2020 11:45 صباحا
مشاهدة مشاركة منفردة [4]
احمد محمد سعيد
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 09-03-2020
رقم العضوية : 18466
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 3-3-1983
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
 offline 
look/images/icons/i1.gif هل يوجد طريقة ادخال التاريخ بدون ( / ) او (.)؟؟؟
في احد المنتديات االعربية وجدت هذ الكود ولكن لم اعرف كيف ادرجه في VBA 
هل يمكنكم مساعدتي بادراجه في ملف اكسل واعادة رفعه
الكود يعتمد على تسمية نطاق التاريخ باسم Date

آمل ان يفي بالغرض

 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim DateStr As String

On Error GoTo EndMacro

If Application.Intersect(Target, Range("date")) Is Nothing Then

    Exit Sub

End If

If Target.Cells.Count > 1 Then

    Exit Sub

End If

If Target.Value = "" Then

    Exit Sub

End If

Application.EnableEvents = False

With Target

If .HasFormula = False Then

    Select Case Len(.Formula)

        Case 4

            DateStr = Left(.Formula, 1) & "/" & _

            Mid(.Formula, 2, 1) & "/" & Right(.Formula, 2)

        Case 5

            DateStr = Left(.Formula, 1) & "/" & _

                Mid(.Formula, 2, 2) & "/" & Right(.Formula, 2)

        Case 6

            DateStr = Left(.Formula, 2) & "/" & _

                Mid(.Formula, 3, 2) & "/" & Right(.Formula, 2)

        Case 7

            DateStr = Left(.Formula, 1) & "/" & _

                Mid(.Formula, 2, 2) & "/" & Right(.Formula, 4)

        Case 8

            DateStr = Left(.Formula, 2) & "/" & _

                Mid(.Formula, 3, 2) & "/" & Right(.Formula, 4)

        Case Else

            Err.Raise 0

    End Select

    .Formula = DateValue(DateStr)

End If

End With

Application.EnableEvents = True

Exit Sub

EndMacro:

MsgBox "You did not enter a valid date."

Application.EnableEvents = True

End Sub

10-03-2020 01:11 مساء
مشاهدة مشاركة منفردة [5]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif هل يوجد طريقة ادخال التاريخ بدون ( / ) او (.)؟؟؟
جرب هذا الكود في حدث الصفحة

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim My_date
If Target.Column = 1 And Target.Count = 1 Then
  My_date = Salim_To_Date(Target)
  Target = IIf(My_date = "Error", Target, My_date)
End If
Application.EnableEvents = True

End Sub

الملف مرفق
 
 
  Auto_text_to_date.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(26.038) KB


10-03-2020 01:24 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif هل يوجد طريقة ادخال التاريخ بدون ( / ) او (.)؟؟؟
يمكنك تجربة الكود الذي أدرجته في حدث ورقة العمل عن طريق عمل كليك يمين على اسم ورقة العمل ثم تختار View Code ثم تقوم بلصق الكود .. 
لا تنسى أن تقوم بتسمية الخلية باسم معرف date كما هو مدرج بالكود ولكن سيتم التعامل مع هذه الخلية فقط ..




الكلمات الدلالية
طريقة ، ادخال ، التاريخ ، بدون ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 01:07 مساء