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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





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

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



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

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


 
 

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


 
 

ليصبح بالتنسيق التالي : 11.10.2011


 
 

أي بدون ادخال ( / ) (.)


 
 

والشكر لكم جميعاً smile





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

أثارت هذه المشاركة إعجاب: حسين مامون، احمد محمد سعيد،



09-03-2020 07:29 مساء
مشاهدة مشاركة منفردة [2]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 498
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3836
الاعجاب : 75
 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 مرات التحميل :(5)
الحجم :(24.285) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil، Yasser Elaraby، حسين مامون، احمد محمد سعيد، عبدالله فتحى،



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




10-03-2020 11:45 صباحا
مشاهدة مشاركة منفردة [4]
احمد محمد سعيد
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 09-03-2020
رقم العضوية : 18466
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 3-3-1983
قوة السمعة : 14
الاعجاب : 2
 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

أثارت هذه المشاركة إعجاب: YasserKhalil، عبدالله فتحى،



10-03-2020 01:11 مساء
مشاهدة مشاركة منفردة [5]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 498
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3836
الاعجاب : 75
 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 مرات التحميل :(3)
الحجم :(26.038) KB


أثارت هذه المشاركة إعجاب: عبدالله فتحى،



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

أثارت هذه المشاركة إعجاب: عبدالله فتحى،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
هل يوجد طريقة أفضل وأسرع لتحميل الملفات من المنتدى؟ مهند محسن
3 1017 مهند محسن
هل يوجد طريقة اعرف بها حجم كل شيت لوحدة في الملف ابوعلي الحبيب
5 818 YasserKhalil
هل يوجد طريقة لكشف التكرار في اكثر من ورقة عمل؟ mohammad excel
2 629 YasserKhalil

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


 







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

الساعة الآن 06:27 صباحا

أعلن هنا
أعلن هنا
أعلن هنا