أبو وليد قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 السلام عليكم ورحمة الله وبركاته مساء الخير لدي خليه مصدرها خارجي انترنت نتيجتها = التاريخ 2015/12/02 ارغب في معادله في خليه أخرى تكون نتيجتها = 20151202 بارك الله فيكم رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 ارفق مثال وشرح مبسط وان شاء الله خير رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 هذا المرفق Book1.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 استخدم الدالة المعرفه التاليه Public Function f(N) Dim S As String S = Split(Replace(N, "/", ""), " ")(1) f = S End Function واستدعيها كالتالي =f(A1) 1 رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 بعد التنفيذ يعطين خطأ كما في المرفق Book1.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 جرب هذه المعادلة (اذا كانت الخلية المطلوبة A1) =TEXT(A1,"yyyymmdd") رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 9 دقائق مضت, سليم حاصبيا said: جرب هذه المعادلة (اذا كانت الخلية المطلوبة A1) =TEXT(A1,"yyyymmdd") لم تنجح رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 حتى تنجح المعادلة يجب ان يكون تنسيق الخلية A1 تاريخ و لبس نص رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 6 دقائق مضت, سليم حاصبيا said: حتى تنجح المعادلة يجب ان يكون تنسيق الخلية A1 تاريخ و لبس نص نعم تنسيقه تاريخ ولكن يعطيني نفس الخلية بدون تغيير رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 جرب هذا الشيء form_date.zip رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 12 دقائق مضت, سليم حاصبيا said: جرب هذا الشيء form_date.zip الف شكر عزيري الخلية المطلوب تحويلها مرتبطة من مصدر خارجي وتكون هكذا التاريخ 2015/12/02 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 لم تقم بإضافة كود الدالة ؟ شاهد المرفق ملفك وبه الكود Book1_111.rar رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 3 دقائق مضت, الـعيدروس said: لم تقم بإضافة كود الدالة ؟ شاهد المرفق ملفك وبه الكود Book1_111.rar 100% وفقك الله رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 5, 2015 الكاتب مشاركة قام بنشر ديسمبر 5, 2015 في ٢١/٠٢/١٤٣٧ ٠٧:٢٤:٥٢, الـعيدروس said: استخدم الدالة المعرفه التاليه Public Function f(N) Dim S As String S = Split(Replace(N, "/", ""), " ")(1) f = S End Function واستدعيها كالتالي =f(A1) ممكن لله يسعدك تشرح لي الكود للرغبة في الاستفادة منه في أمور أخرى رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 5, 2015 مشاركة قام بنشر ديسمبر 5, 2015 اتمنى يكون الشرح واضح رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 5, 2015 الكاتب مشاركة قام بنشر ديسمبر 5, 2015 36 دقائق مضت, الـعيدروس said: اتمنى يكون الشرح واضح يعني اذا كنت أبغى الناتج 2015/12/03 يكون الكود Public Function f(N) Dim S As String S = Split f = S End Function رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 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 بواسطه الـعيدروس رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 5, 2015 الكاتب مشاركة قام بنشر ديسمبر 5, 2015 الله يوفقك ويرزقك في الدنيا والآخرة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.