الصـقر قام بنشر أكتوبر 21, 2015 قام بنشر أكتوبر 21, 2015 (معدل) الاخوة الكرام فى هذا الصرح العظيم بناء على طلب للاخ " المارد العراقى " على هذا الرابط http://www.officena.net/ib/topic/64162-موضوع-خاص-بالردود-والاستفسارات-واسئله-اختبارات-على-شروحات-الفورم-سلسلة-علمنى-كيف-اصطاد/?do=findComment&comment=418485 قمت بعمل طلبه وحبيت يكون فى موضوع مستقل حتى تعم الفائده ويكون سهل فى الوصول اليه من خلال البحث فيما بعد الطلب كان السلام عليكمأستاذ عندي 3 (textbox) الاول يحتوي على تاريخ اليوم والثاني يحتوي تاريخ الشهر والثالث تاريخ السنه بالميلاديو عندي تكست رابع اريد ان اجعل التاريخ في التكست الرابع يمثل تاريخ التكست الثلاثه السابقه ولكن بالهجري بأستخدام اليوزر فورم دون الرجوع او استخدام الخلايا في الاكسل على سبيل المثال التكست الاول يساوي 22 الي هو اليوم ولثاني يساوي 2 الي هو الشهر والثالث يساوي 2000 كيف اجعل التكست الرابع يساوي ( 18 / 11 /1420) الي هوه التاريخ الهجري لتلك السنه بواسطة vba فقط دون استخدام خلايا الاكسل ؟؟ مرفق ملف به ما تريد الملف الاول تحويل التاريخ من يوم وشهر وسنة تحويل التاريخ من ميلادى الى هجرى على الفورم.zip الملف الثانى تحويل التاريخ بنفس التكست تحويل التاريخ من ميلادى الى هجرى على الفورم - Copy.zip تقبلوا تحياتى تم تعديل أكتوبر 21, 2015 بواسطه الصـقر 6
عبد العزيز البسكري قام بنشر أكتوبر 21, 2015 قام بنشر أكتوبر 21, 2015 السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير و المحترم " الصّقر " على الاضافة المميّزة و اللمسة الجديدة الرّائعة .. و الحقيقة أعمالك كلّها قمة الرّوعة روعة صاحبها .. جزاك الله خيرًا و زادها بميزان حسناتك و زادك من علمه و فضله .. فقط لو سمحت أستاذذنا الغالي هل من الممكن جعل الكتابة في التاكست بوكس المحوّل إليه تلقائية .. بمعنى بمجرّد إدخال التاريخ الميلادي أو الهجري .. يُكتب التاريخ تلقائيا .. ألف شكر مسبّقًا فائق إحتراماتي 1
الصـقر قام بنشر أكتوبر 21, 2015 الكاتب قام بنشر أكتوبر 21, 2015 اخى الحبيب زيزو الغالى مشكور على مرورك العطر بص يا عم زيزو الملف الاول انت بدخل اليوم ثم الشهر ثم السنه بمجرد انتهاء من كتابه السنه يتم اظهار التاريخ بالهجرى فى التكست الاخضر ( ودا كان طلب الاخ مارد) اما الملف الثانى بتكتب التاريخ الميلادى فى التكست وبمجرد الانتهاء والخروج بانتر يتم تحويل التاريخ الى هجرى بنفس التكست يعنى اللى بتطلبه موجود اصلا جرب مره تانية تقبل تحياتى 1
عبد العزيز البسكري قام بنشر أكتوبر 21, 2015 قام بنشر أكتوبر 21, 2015 السلام عليكم و رحمة الله و بركاته بارك الله فيك على الكلمات الطيّبة يا طيّب .. و هو ما قمت به أستاذي العزيز " الصّقر " لكن الكتابة لم تظهر إلاّ بعد الضغط داخل التاكست بوكس فائق إحتراماتي 1
الصـقر قام بنشر أكتوبر 21, 2015 الكاتب قام بنشر أكتوبر 21, 2015 (معدل) يا غالى مجرد تكتب السنه وتضغط انتر هيكتب التاريخ بالهجرى فى التكست الاخضر جرب وعلمنى تم تعديل أكتوبر 21, 2015 بواسطه الصـقر 1
عبد العزيز البسكري قام بنشر أكتوبر 21, 2015 قام بنشر أكتوبر 21, 2015 يا غالى مجرد تكتب السنه وتضغط انتر هيكتب التاريخ بالهجرى فى التكست الاخضر مثلا جرب وعلمنى تمام التّمام ..تسلم يا غالي .. معذرة على عدم الفهم و عدم التركيز .. صدّقني دخلت المنتدى بمجرّد خروجي لساعة الاستراحة بين الدواميّن و دوشة التّلاميذ مازالت برأسي .. 1
محمد الريفى قام بنشر أكتوبر 21, 2015 قام بنشر أكتوبر 21, 2015 اخى فى الله الاستاذ حسام تسلم ايدك ربنا يبارك فيك 1
الصـقر قام بنشر أكتوبر 21, 2015 الكاتب قام بنشر أكتوبر 21, 2015 اخى وحبيبى واستاذى محمد الريفى سلمت من كل مكروه وفيك بارك شاكر مرورك العطر تقبل تحياتى
ياسر خليل أبو البراء قام بنشر أكتوبر 21, 2015 قام بنشر أكتوبر 21, 2015 متميز أخي الحبيب حسام على فكرة بدأت أطلع على موضوع الفورم وبندم إني مكنتش متابع من البداية بصراحة شرح فوق الوصف ..بارك الله لنا فيك وزادك علماً وحلماً 2
الصـقر قام بنشر أكتوبر 21, 2015 الكاتب قام بنشر أكتوبر 21, 2015 اخى الحبيب والغالى ابوالبراء مرورك هو الاروع ومشاركتك هى المميزه يا فاكهه المنتدى وبخصوص الشرح ده اللى اتعلمناه منكم يا ابوالبراء بس اهم شئ متغبش عننا تانى وخلينا فى بالك يا كبير تقبل تحياتى 2
المارد العراقي قام بنشر أكتوبر 29, 2015 قام بنشر أكتوبر 29, 2015 السلام عليكم شكراً على الاجابه وكانت في غاية الروعه ولكن عندي سؤوال حول هذا السطر الذي ورد في الكود ("h = Format(DateSerial(y, m, d), "0 ماذا يعني رقم الصفر ؟؟؟؟؟؟؟ وسؤال اخر:- هل يمكن عمل قائمه مسندله في VBA تكون عباره عن اسماء الاشهر دون كتابة هذه الاسماء في (ARRAY) ويمكن للفيجول بسك ان يتعرف على الاسماء بأنها تواريخ بحيث لو كتبت رقم 1 في TEXTBOX يضهر أسم الشهر ولو اخترت أسم الشهرمن القائمه مثلاً كانون الثاني يظهر رقم الشهر (1) في TEXTBOX ؟؟بحيث يكون ذلك تلقائياً دون تعريف الرقم 1 على انه يساوي شهر كانون الثاني ؟؟؟
الصـقر قام بنشر أكتوبر 29, 2015 الكاتب قام بنشر أكتوبر 29, 2015 (معدل) اخى الكريم اسف جدا نظر لضيق وقتى لانى بالدوام جرب هذا الحل 0 يعنى اجعل تنسيق التاريخ رقم يعنى تاريخ اليوم على سبيل المثال 29-10-2015م هذا التاريخ كرقم يساوى 42306 ------------------------------------------------- بالنسبه لطلبك الثانى تعبئة الكمبوبوكس بالاشهر جرب هذا الكود فى حدث الفورم Private Sub UserForm_Initialize() For i = 1 To 12 ComboBox1.AddItem Format(DateSerial(2015, i, 1), "mmmm") Next i End Sub ----------------------------------------------------------------------- الطريقه الاخرى وهذا الكود لو حبيت يكون للكمبوبوكس عدد 2 عمود عمود فيه اسماء الشهور واخر فيه ارقام الشهور Private Sub UserForm_Initialize() With ComboBox1 For i = 1 To 12 .AddItem Format(DateSerial(2015, i, 1), "mmmm") .List(.ListCount - 1, 1) = Format(DateSerial(2015, i, 1), "mm") Next i End With End Sub وضع هذا الكود ايضا Private Sub ComboBox1_Change() TextBox1.Value = ComboBox1.Value End Sub ومتنساش فى الخاصيه Bound Column للكمبوبوكس توضع رقم 2 وايضا الخاصيه Column count للكمبوبوكس توضع رقم 2 انصحك تراجع شروحات الفورم ستستفيد اعذرنى لضيق وقتى كنت عايز ارفق لك فورم عليه التضبيق تقبل تحياتى تم تعديل أكتوبر 29, 2015 بواسطه الصـقر 1
المارد العراقي قام بنشر أكتوبر 30, 2015 قام بنشر أكتوبر 30, 2015 احسنت وبارك الله فيك وجزاك خير الجزاءولا داعي لارفاق الفورم فالمعادله تكفي
الردود الموصى بها