عبدالله باقشير قام بنشر يوليو 17, 2012 قام بنشر يوليو 17, 2012 السلام عليكم وشهركم مبارك وكل عام وانتم بخير استخدام ثابت نصي كصفيف ذو بعدين هذا الثابت النصي Private Const tList As String = """ عربي""" & "," & 26 & "," & 22 & ";" & _ """رياضيات""" & "," & 35 & "," & 31 & ";" & _ """ دراسات""" & "," & 44 & "," & 40 & ";" & _ """ انجليزى""" & "," & 53 & "," & 49 & ";" & _ """ علوم""" & "," & 64 & "," & 60 & ";" & _ """ مجموع""" & "," & 65 & "," & 70 & ";" & _ """ دين""" & "," & 82 & "," & 78 يتم تحويله الى صفيف بهذا السطر xArray = Evaluate("{" & tList & "}") شاهدوا المرفق 2003 2007 ثابت نصي كصفيف.rar
أبو ردينة قام بنشر يوليو 17, 2012 قام بنشر يوليو 17, 2012 بارك الله فيك أستاذنا الحبيب جاري التعلم و لي عودة بالسؤال إن شاء الله لأستزيد
رجب جاويش قام بنشر يوليو 17, 2012 قام بنشر يوليو 17, 2012 أستاذى الحبيب / عبد الله باقشير فكرة جميلة ورائعة وقد استغرق الأمر وقتا لاستيعاب كل جزء فى الكود وقمت بالتدريب على الفكرة بعمل فكرة مشابهة لكن عن طريق متغير من النوع variant كما فى الكود التالى Sub ragab() Dim test As Variant test = """عربى""" & "," & 30 & "," & 40 & ";" & """انجليزى""" & "," & 40 & "," & 50 & "" ghada_array = Evaluate("{" & test & "}") Range("A1").Resize(UBound(ghada_array, 1), UBound(ghada_array, 2)) = ghada_array End Sub وهو موضح فى المرفق ولكن لى طلب صغير أستاذى الحبيب حتى يتعمق الفهم وهو القاء المزيد من الضوء على دالة evaluate فى هذا الكود وأيضا وظيفتها عموما فى vba 3.rar
عبدالله باقشير قام بنشر يوليو 17, 2012 الكاتب قام بنشر يوليو 17, 2012 السلام عليكم الاخ الفاضل / ابو ردينه -----حفظه الله بارك الله فيك أستاذنا الحبيب جاري التعلم و لي عودة بالسؤال إن شاء الله لأستزيد وبارك فيك وحفظك من كل مكروه تقبل تحياتي وشكري
عبدالله باقشير قام بنشر يوليو 17, 2012 الكاتب قام بنشر يوليو 17, 2012 السلام عليكم اخي الحبيب / رجب حفظك ربي احيانا نحتاج في الاكواد الى ثوابت معية سيتم الاعتماد عليها في تشغيل الكود وقد تكون هذه المعلومات عبارة عن جدول بسيط في الملف وستعمل كود لاخذ بياناته هذا جعلته نموذج لاستخدام ثابت نصي بدلا من الجدول اللي في الملف اما بالنسبة Evaluate شاهد الرابط اداه http://msdn.microsof...office.11).aspx تقبل تحياتي وشكري
رجب جاويش قام بنشر يوليو 17, 2012 قام بنشر يوليو 17, 2012 أستاذى الحبيب / عبد الله باقشير جزاك الله كل خير أستاذى الحبيب على هذا الفيض الجميل من المعلومات القيمة جعله الله فى ميزان حسناتك وكل عام وأنتم بخير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.