أبو وليد قام بنشر ديسمبر 3, 2015 قام بنشر ديسمبر 3, 2015 السلام عليكم ورحمة الله وبركاته مساء الخير لدي خليه مصدرها خارجي انترنت نتيجتها = التاريخ 2015/12/02 ارغب في معادله في خليه أخرى تكون نتيجتها = 20151202 بارك الله فيكم
الـعيدروس قام بنشر ديسمبر 3, 2015 قام بنشر ديسمبر 3, 2015 استخدم الدالة المعرفه التاليه Public Function f(N) Dim S As String S = Split(Replace(N, "/", ""), " ")(1) f = S End Function واستدعيها كالتالي =f(A1) 1
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب قام بنشر ديسمبر 3, 2015 بعد التنفيذ يعطين خطأ كما في المرفق Book1.rar
سليم حاصبيا قام بنشر ديسمبر 3, 2015 قام بنشر ديسمبر 3, 2015 جرب هذه المعادلة (اذا كانت الخلية المطلوبة A1) =TEXT(A1,"yyyymmdd")
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب قام بنشر ديسمبر 3, 2015 في 3/12/2015 at 17:25, سليم حاصبيا said: جرب هذه المعادلة (اذا كانت الخلية المطلوبة A1) =TEXT(A1,"yyyymmdd") Expand لم تنجح
سليم حاصبيا قام بنشر ديسمبر 3, 2015 قام بنشر ديسمبر 3, 2015 حتى تنجح المعادلة يجب ان يكون تنسيق الخلية A1 تاريخ و لبس نص
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب قام بنشر ديسمبر 3, 2015 في 3/12/2015 at 17:57, سليم حاصبيا said: حتى تنجح المعادلة يجب ان يكون تنسيق الخلية A1 تاريخ و لبس نص Expand نعم تنسيقه تاريخ ولكن يعطيني نفس الخلية بدون تغيير
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب قام بنشر ديسمبر 3, 2015 في 3/12/2015 at 18:21, سليم حاصبيا said: جرب هذا الشيء form_date.zip Expand الف شكر عزيري الخلية المطلوب تحويلها مرتبطة من مصدر خارجي وتكون هكذا التاريخ 2015/12/02
الـعيدروس قام بنشر ديسمبر 3, 2015 قام بنشر ديسمبر 3, 2015 لم تقم بإضافة كود الدالة ؟ شاهد المرفق ملفك وبه الكود Book1_111.rar
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب قام بنشر ديسمبر 3, 2015 في 3/12/2015 at 19:47, الـعيدروس said: لم تقم بإضافة كود الدالة ؟ شاهد المرفق ملفك وبه الكود Book1_111.rar Expand 100% وفقك الله
أبو وليد قام بنشر ديسمبر 5, 2015 الكاتب قام بنشر ديسمبر 5, 2015 في 3/12/2015 at 16:24, الـعيدروس said: استخدم الدالة المعرفه التاليه Public Function f(N) Dim S As String S = Split(Replace(N, "/", ""), " ")(1) f = S End Function واستدعيها كالتالي =f(A1) Expand ممكن لله يسعدك تشرح لي الكود للرغبة في الاستفادة منه في أمور أخرى
أبو وليد قام بنشر ديسمبر 5, 2015 الكاتب قام بنشر ديسمبر 5, 2015 في 5/12/2015 at 02:07, الـعيدروس said: اتمنى يكون الشرح واضح Expand يعني اذا كنت أبغى الناتج 2015/12/03 يكون الكود Public Function f(N) Dim S As String S = Split f = S End Function
الـعيدروس قام بنشر ديسمبر 5, 2015 قام بنشر ديسمبر 5, 2015 (معدل) لم تضع الشرط لدالة Split Public Function f(N) Dim S As String S = Split f = S End Function هكذا انت تركت الاداة بلا شغل ؟ لم تعطيها اي شيء عشان تعرف عمل الدالة او اي داله اخرى من دوال VBA تكتب اولاً VBA ثم دوت اي نقطة . ستظهر لك قائمة بدوال VBA انت طبعا بتكتب الدالة Split ثم تضغط علامة فتح قوس ( ستظهر لك معطيات الدالة التي تدرجها كي تعطيك مخرجات بمعنى "كي تقوم بعملها " ولاحظ المعطيات التي عليها [] اي هذا ليس اجباري مجرد اختياري ان اردت استخدامه اما الذي بدون الـ [] اجباري وان لم تكتبه ستعطيك الدالة رسالة خطأ ؟ الاول "Expression" القيمة التي تريد الدالة العمل عليها التي هيا "N" = الخلية الثاني "Delimiter" وهو الشرط الذي تريد الدالة تبحث عنه في السلسلة النصيه الذي هو " " المسافه الثالث "Limit As Long" اذا اعطيناه 0 سيعطيك الناتج كلمة "التاريخ" واذا اعطيناه 1 سيعطيك الناتج "215/12/03" عرفت عمل الشرط الثالث ايه ؟ اما الرابع "Compare" نستخدمه في حالة المقارنة بين سلسلة نصية لم نستخدمه في الذي نريد عمله ونلاحظ ان عليه [] اي اختياري وليس اجباري الخلاصه سيكون التعديل كالتالي S = VBA.Split(N, " ")(1) لتعطينى الناتج "2015/12/03" تم تعديل ديسمبر 5, 2015 بواسطه الـعيدروس
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.