أبو وليد قام بنشر ديسمبر 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 9 دقائق مضت, سليم حاصبيا said: جرب هذه المعادلة (اذا كانت الخلية المطلوبة A1) =TEXT(A1,"yyyymmdd") لم تنجح
سليم حاصبيا قام بنشر ديسمبر 3, 2015 قام بنشر ديسمبر 3, 2015 حتى تنجح المعادلة يجب ان يكون تنسيق الخلية A1 تاريخ و لبس نص
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب قام بنشر ديسمبر 3, 2015 6 دقائق مضت, سليم حاصبيا said: حتى تنجح المعادلة يجب ان يكون تنسيق الخلية A1 تاريخ و لبس نص نعم تنسيقه تاريخ ولكن يعطيني نفس الخلية بدون تغيير
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب قام بنشر ديسمبر 3, 2015 12 دقائق مضت, سليم حاصبيا said: جرب هذا الشيء form_date.zip الف شكر عزيري الخلية المطلوب تحويلها مرتبطة من مصدر خارجي وتكون هكذا التاريخ 2015/12/02
الـعيدروس قام بنشر ديسمبر 3, 2015 قام بنشر ديسمبر 3, 2015 لم تقم بإضافة كود الدالة ؟ شاهد المرفق ملفك وبه الكود Book1_111.rar
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب قام بنشر ديسمبر 3, 2015 3 دقائق مضت, الـعيدروس said: لم تقم بإضافة كود الدالة ؟ شاهد المرفق ملفك وبه الكود Book1_111.rar 100% وفقك الله
أبو وليد قام بنشر ديسمبر 5, 2015 الكاتب قام بنشر ديسمبر 5, 2015 في ٢١/٠٢/١٤٣٧ ٠٧:٢٤:٥٢, الـعيدروس said: استخدم الدالة المعرفه التاليه Public Function f(N) Dim S As String S = Split(Replace(N, "/", ""), " ")(1) f = S End Function واستدعيها كالتالي =f(A1) ممكن لله يسعدك تشرح لي الكود للرغبة في الاستفادة منه في أمور أخرى
أبو وليد قام بنشر ديسمبر 5, 2015 الكاتب قام بنشر ديسمبر 5, 2015 36 دقائق مضت, الـعيدروس said: اتمنى يكون الشرح واضح يعني اذا كنت أبغى الناتج 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.