ياسر خليل أبو البراء قام بنشر مايو 22, 2009 قام بنشر مايو 22, 2009 السلام عليكم إخواني الأحباب أسعد الله كل أوقاتكم...ودمتم على طاعة الله --------------------------------------------------- أريد كود تحويل التاريخ الميلادي إلى هجري والعكس عاشق الإكسيل 1
احمدزمان قام بنشر مايو 22, 2009 قام بنشر مايو 22, 2009 و عليكم السلام في المرفق اكتب التاريخ في الخلايا الصفراء و سوف يظهر الناتج امامة Book1.rar 1
ياسر خليل أبو البراء قام بنشر مايو 22, 2009 الكاتب قام بنشر مايو 22, 2009 أستاذ أحمد أشكرك على المرور الذي يشير إلى أنك مشغول أو مستعجل بارك الله فيك الملف المرفق لم يفي بالغرض المطلوب!! أنا أريد الكود الذي يكتب في VBE إذا كان ذلك بوسعك ثم إن المعادلة في B2 أعطت الخطأ Value ياريت أشوف ردك مرة تانية بس بشرط متكونش مستعجل المرة دي متسني على أحر من الجمر ، فياريت بسرعة وعلى مهلك خالص ... عاشق الإكسيل 2
احمدزمان قام بنشر مايو 22, 2009 قام بنشر مايو 22, 2009 السلام عليكم فياريت بسرعة وعلى مهلك خالص ... على السريع لاأعرف انه في الفيجوال يوجد كود لهذا الطلب ودمت بخير دائما 1
ياسر خليل أبو البراء قام بنشر مايو 22, 2009 الكاتب قام بنشر مايو 22, 2009 أخي أحمد عمت مساءاً يا صاحبي عثرت على ملف به الكود لكن يلزم أن يكون لديك برنامج الفجوال بيسك أو ما شابه ذلك فمن لديه خبرة في هذه اللغة فليتقدم ويحمل الملف المرفق ويفيدنا ... قد يفيد هذا الملف في التوصل إلى الكود المناسب عاشق الإكسيل
ياسر خليل أبو البراء قام بنشر مايو 22, 2009 الكاتب قام بنشر مايو 22, 2009 إليكم الملف المرفق convert_date_program.zip
احمدزمان قام بنشر مايو 22, 2009 قام بنشر مايو 22, 2009 Private Sub Command1_Click() If Option1.Value = True Then Text2.Text = ConvertDateString(Text1.Text, 1, 0, "dd/mm/yyyy") Else Text2.Text = ConvertDateString(Text1.Text, 0, 1, "dd/mm/yyyy") End If End Sub Function ConvertDateString( _ ByRef StringIn As String, _ ByRef OldCalendar As Integer, _ ByVal NewCalendar As Integer, _ ByRef NewFormat As String) As String Dim SavedCal As Integer Dim d As Date Dim s As String '// Save VBA Calendar setting to restore when finished SavedCal = Calendar '// Convert date to new calendar and format Calendar = OldCalendar ' Change to StringIn calendar d = CDate(StringIn) ' Convert from String to Date Calendar = NewCalendar ' Change to calendar of new string s = CStr(d) ' Convert to short format String ConvertDateString = Format(s, NewFormat) '// Restore VBA Calendar setting Calendar = SavedCal End Function Private Sub Command2_Click() End End Sub Private Sub Form_Load() If VBA.Calendar = vbCalGreg Then Option2.Value = True Else Option1.Value = True End If Text1.Text = Date End Sub
احمدزمان قام بنشر مايو 22, 2009 قام بنشر مايو 22, 2009 عمت مساء اعتقد انها من زمن ابو جهل احذر انها من المكروهات
ياسر خليل أبو البراء قام بنشر مايو 22, 2009 الكاتب قام بنشر مايو 22, 2009 السلام عليكم أخي أحمد أسعد الله مساءك ( هكذا لا تكون من المكروهات) كيف حالك اليوم؟؟ لو سمحت مزيد من التوضيح للكود ، إزاي وفين أكتبه ؟؟معلش أصل أنا لسه بليد في موضوع الأكواد بليد قوي عاشق الإكسيل
احمدزمان قام بنشر مايو 22, 2009 قام بنشر مايو 22, 2009 واسعد الله كل ايامك وانا تراني ابلد منك ولكن سوف اعمل محاولة غدا ان شاء الله حان وقت النوم و بـ E good night لمدرسين الإنجليزي فقط ههههههههههههههههههههه
ياسر خليل أبو البراء قام بنشر مايو 22, 2009 الكاتب قام بنشر مايو 22, 2009 لمدرسين الإنجليزي فقط خطأ في اللغة العربية!! لمدرسي الانجليزي وليس لمدرسين الانجليزي تصبح على خير وطاعة وأمان سلام Until we meet again. Goodbye عاشق الإكسيل 1
احمدزمان قام بنشر مايو 23, 2009 قام بنشر مايو 23, 2009 خطأ في اللغة العربية!!لمدرسي الانجليزي وليس لمدرسين الانجليزي خطأ لمدرسي اللغة الإنجليزية =========== اخي الحبيب الغالي ياسر كما وعدتك as i promes you حاولت و الحمد النتيجة كما تشاهدها في المرفق ConvertDate_H_M.rar
احمدزمان قام بنشر مايو 23, 2009 قام بنشر مايو 23, 2009 طبعا لا ننسا الشكر و الدعاء لصاحب الكود جزاه الله كل خير - -- - - - - - - - - هنا اضفنا عملية حفظ النتائج في نفس الورقة طيب لية من شان اذا اردنا نسخها الى اي ملف او خلية اخرى يمكننا ذلك ConvertDate_H_M.rar
ياسر خليل أبو البراء قام بنشر مايو 23, 2009 الكاتب قام بنشر مايو 23, 2009 as i promes you السلام عليكم أخي أحمد أسعد الله صباحك يبدو أنك تريد دروس في اللغة الإنجليزية أيضاً As I promise you بارك الله فيك على الملف ، سأعطيك رأيي لأني مشغول الآن عاشق الإكسيل 1
ياسر خليل أبو البراء قام بنشر مايو 23, 2009 الكاتب قام بنشر مايو 23, 2009 (معدل) أخي وحبيبي أحمد بك يعقوب الملف رائع جميل ممتاز ألا تساعدني في بناء Function بحيث تكون الدالة موجودة في الشيت وليس من خلال فورم أرجو ألا أكون (ثقيل) مع إن وزني ثقيل ... تقبل تحياتي العطرة لأحب الأعضاء إلى قلبي :fff: :fff: :fff: لو طولت أديك بوكيه ورد مش 7 وردات عاشق الإكسيل تم تعديل مايو 23, 2009 بواسطه YasserKhalil
احمدزمان قام بنشر مايو 23, 2009 قام بنشر مايو 23, 2009 يبدو أنك تريد دروس في اللغة الإنجليزية أيضاً و الله ياريت و لكن التعليم في الكبر كـ النقش على الحجر at eny way why ليه تبغة تحط كوود في الورقة اذاكان التحويل ممكن بدون كود يعني عمو اكسل ماقصر شوف الموضوع الرفق و طبقة و جرب _________.rar
سالم شباني قام بنشر مايو 23, 2009 قام بنشر مايو 23, 2009 أنا هنا يا ياسر العمل الذي أنجزه الأخ أحمد يفي بالغرض لاتكن أنانيا سلامي الحار
ياسر خليل أبو البراء قام بنشر مايو 23, 2009 الكاتب قام بنشر مايو 23, 2009 لاتكن أنانيا أحب أن أكون ذلك الشخص الذي تتحدث عنه في السعي وراء المعرفة سلامي الحار دا على أساس إن درجة الحرارة عندكم في الجزائر مرتفعة النهاردة ربنا يخليك على طاعته يا أخ سالم ، وتعيش سالم وتموت سالم وتبعث سالم..آمين الأخ أحمد يعقوب بارك الله فيك ، معلش تعبتك معايا أنا مستعد أعطيك دروس E بالمجان ( 50 جنيه للحصة الواحدة ، وبكدا أكون أكرمتك لإنك حترفض طبعاً عشان توفر فلوسك (My honey!Save your money) عاشق الإكسيل
احمدزمان قام بنشر مايو 23, 2009 قام بنشر مايو 23, 2009 أنا مستعد أعطيك دروس E بالمجان ( 50 جنيه للحصة الواحدة ، وبكدا أكون أكرمتك لإنك حترفض طبعاً عشان توفر فلوسك (My honey!Save your money) طيب ليه الغلط ده - يعني قد كدة شايفني بخيل و لا اية ياعمو انته تستاهل 1000الف جنية و اكثر كمان عنينا ليك ياباشا دنته حبيب وغالي ممكن ما اتقابلناش لا كن المحبة في الله
ياسر خليل أبو البراء قام بنشر مايو 23, 2009 الكاتب قام بنشر مايو 23, 2009 طيب ليه الغلط ده - يعني قد كدة شايفني بخيل و لا اية والله مش قصدي أغلط كل الحكاية إني حبيت أنصحك :') :') :') سامحني يا غالي مش حكررها تاني ----- إني أحبك في الله حقاً ، وأشعر أن رابط قو ي يربط بيني وبينك ، اللهم أدم حبنا فيك واجمعنا في جنتك.آمين ----- عاشق الإكسيل
احمدزمان قام بنشر مايو 24, 2009 قام بنشر مايو 24, 2009 السلام عليكم لا لا لا ياعمو انا ما زعلت بس بهظر معاك (اهظر بمعنى دعابة) المهم اول درس في اللغة الإنجليزية ابي تترجملي المهنة التالية ((مشغل خلاطة اسفلت)) مشغل Operator و الباقي عليك بجد محتاجها
ياسر خليل أبو البراء قام بنشر مايو 24, 2009 الكاتب قام بنشر مايو 24, 2009 ابي تترجملي المهنة التالية ((مشغل خلاطة اسفلت)) مشغل Operator أخي أحمد يعقوب آسف إني تأخرت عليك في الرد الإجابة هي : ASPHALT MIXTURE OPERATOR حنعتبر الحصة دي مجاني لأغلى الحبايب ------------------------ على فكرة أنا كنت باقترح إن أحد المشرفين يضع شيء أشبه بلغز يتم حله بالأكواد عشان المبتدئين اللي زيي يحاولوا ، ويكفيهم شرف المحاولة ، وذلك للنهوض بمستوانا الضحل في البرمجة بلغة البيسك عاشق الإكسيل 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.