أسامة البراوى

السلام عليكم جرب استبدال كود زر التعديل بالكود التالى Dim i As Integer LR = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To LR If Sheet1.Cells(i, 1) = Val(TextBox2) Then Sheet1.Cells(i, 2) = Me.Controls("TextBox3") Sheet1.Cells(i, 4) = Me.Controls("TextBox4") Sheet1.Cells(i, 9) = Me.Controls("TextBox5") Sheet1.Cells(i, 7) = Me.Controls("TextBox6") End If Next ListBox1.Clear TextBox1_Change Me.CommandButton1.Visible = False

السلام عليكم جرب اضافة الكود التالى فى الفورم Private Sub TextBox1_Change() If IsDate(Me.TextBox1.Text) Then TextBox2.Text = DateToTxt1(TextBox1) TextBox3.Text = DateToTxt2(TextBox1) TextBox4.Text = DateToTxt3(TextBox1) End If End Sub

الرجاء ارفاق الملف ليتسنى لنا افادتك بالمعادلة المطلوبة

السلام عليكم الاخ العزيز حسام حاولت اجرب الملف على جهازى ولا يعمل لانه يتطلب اوفيس 2007 وانا عندى 2010 واود الاطلاع عليه اتمنى ارفاق نسخة مفكوكة منه

السلام عليكم Calendar Control قد لا تنزل مع بعض اصدارات الأوفيس مثل اوفيس 2010 لكن يمكن الاستعاضة عنها باحد الادوالت التالية Microsoft Date and Time Picker Control 6.0 Microsoft Month View Control 6.0

السلام عليكم أخى العزيز الصقر .... شرحك جميل ... استمر وثق ان العبرة ليست بكثرة الردود بل على العكس فأنا أتمنى ان يكون الموضوعات التى تتناول الشرح مثل موضوعك متتالية بدون تعليقات ويكفى ان يضع متابعيك نقطة إعجاب فقط الا اذا كان يسأل عن نقطة معينة فى الشرح مثل المشاركة رقم 9 ..... وفى هذة الحالة فقط يمكن ان ترد عليه قبل البدء فى الشرح التالى وسيفيد تسلسل الموضوعات بدون قصائد الشكر فى استفادة كل متعلم يبدأ الموضوع ثم يتابع قراءة باقى الشرح متصلا بدون ان تقطعه التعليقات اتمنى منك الاستمرار لكى يستفيد الجميع .... فالمبتدئ سيجد ضالته اما الذى يعلم مسبقا سيزيد معلوماته ويعززها

السلام عليكم طلبك بسيط .... (لكن يجب التأكد اولا من ازالة بادئة التنظيف اللى كنا اضفناها مسبقا) ثم تعديل العداد كما يلى واضافة السطر الثانى .... حيث يقوم بفحص التكست بوكس حتى يصل الى اول تكست بوكس فاضى لكى يملأ البيانات. 1: H = H + 1 if Me.Controls("a" & H).Value <>"" then GoTo 1

كدة جميل ارجو يكون الموضوع اتغطى عندك وتسجل انه مجاب وياريت تبلغ حد من الادارة يشيل المواضع المتكررة الخاصة بنفس الطلب

السلام عليكم بالنسبة لرأس الجدول انا حاولت برمجيا ادخل الصفين ولم يجدى .... اكتفى بسطر واحد اما بالنسبة لكمية البيانات اللى بتتكلم عليها فهى كبيرة جدا على ملف ورد واحد .... امكانياته لا تسمح وهيبقى تقيل وممل فى التعامل ممكن تنقل كل 500 سطر من الجدول فى ملف وده بيكون احسن لبرنامج الورد.

السلام عليكم لاختصار الكود... مش لازم تحط العداد ده الاول ... سيبه ينقل ولما العدد يعدى 11 يبلغه انه تم نقل 11 سجل فقط For Ii = 0 To ListBox1.ListCount - 1 H = 0 For I = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(I) = True Then H = H + 1 If H1 > 11 Then MsgBox "لقد تم نقل بيانات 11سطر فقط (اقصى عدد يمكن اختياره)": Exit Sub Me.Controls("a" & H).Value = ListBox1.List(I, 0) Me.Controls("b" & H).Value = ListBox1.List(I, 1) Me.Controls("c" & H).Value = ListBox1.List(I, 2) Me.Controls("d" & H).Value = ListBox1.List(I, 3) End If Next I

السلام عليكم اخى العزيز "مستخدم جديد" كيف لك ان تحس بالعطش وانت محاط بانهار من العلم وقد وصلت الى احدها بأنضمامك الى هذا المنتدى.... يوجد هنا العديد من الدورات التدريبية ومنها مثلا هذه الدورة للاستاذ المبدع ياسر خليل http://www.officena.net/ib/topic/56941-افتح-الباب-وادخل-لعالم-البرمجة-متخافوش-يا-أحباب-من-اللي-ورا-الباب/ وايضا للاستاذ محمود الشريف http://www.officena.net/ib/topic/56000-دروس-فى-vba-excel-_-نتعلم-معا-برمجه-اكسل/ كما يوجد كتاب الاستاذ خالد الرشيدى http://www.officena.net/ib/topic/51244-لاول-مره-على-الانترنت-كتاب-تعلم-لغه-ال-vba-باللغه-العربيه-إكسيل/ والعديد من شروحات الساتذة الاجلاء فى هذا المنتدى كما يوجد العديد من الشروحات بالفيديو داخل المنتدى وخارجة مثل https://www.youtube.com/watch?v=Cu4OCw8AYpE&feature=youtu.be&list=PLD51C931E56D8DA96 (من خارج الموقع) انت بس مد ايدك وأبدا التصفح من الموضيع اللى عندك دى واشرب من العلم ما تشاء ولما تبدأ تشتغل هتلاقينا كلنا بنساعدك

السلام عليكم اتفضل الحل ... بالتعديل الاتى 1- التكست بوكس الاصلية كانت مش مترقمة بالترتيب ... اعدت ترقيمها 2- اضفت جزء من الكود لتنظيف التكست بوكس قبل البدء فى ملئها 3- الخطأ البرمجى اللى كان عندك انك كنت بتستعمل نفس المتغير الى بيعبر عن السطر اللى انت مختاره من الليست بوكس فى ترقيم التكست بوكس .... يعنى لو انت مختار اول سطر مثلا ... ده رقمه 0 ... كان هايدور على textbox0 وطبعا مش لاقيه .. وده اول خطأ .. اما لو كان اختر 1، 5، .... كان ها يكتب فى textbox1 , textbox5 وها يترك الباقى فاضى , والحل هنا فى تخصيص متغير جديد حسب تحقق شرط الاختيار TRS LIST.rar

مش واضح بالنسبة لى يعنى ايه زدت المدى عدل ثم ضع مثال لما تريد

السلام عليكم ضيف السطر ده فى نهاية الكود doc.ActiveWindow.Selection.Tables(1).Rows(1).HeadingFormat = True لكى يصبح الكود النهائى كالتالى Sub Ashraf() Dim rng As Range Dim app As New Word.Application Dim doc As New Document Dim t As Word.Range Set app = CreateObject("word.application") Set doc = app.Documents.Add Set rng = Range("A1").CurrentRegion Set t = doc.Content rng.Copy t.Paste app.Visible = True doc.Activate doc.ActiveWindow.Selection.Tables(1).Rows(1).HeadingFormat = True End Sub على فكرة.... قبل مانسى انا اسمى اسامة البراوى ...... مش البرماوى

اخي العزيز ابو سليمان الحل المرفق بمعلوميه الاحداثيات اما اذا كنت تريد حساب المساحة عن طريق الاطوال فيجب عليك تقسيم الاشكال الي مثلثات. ثم حساب مساحة كل مثلث علي حده وتجميعها بعد ذلك مثلا ابعاد الحوش الذي تتكلم عنه ينقصها قياس احد اقطاره. ثم تقوم بحساب مساحة كل مثلث عن طريق المعادلة التالية. مساحة المثلث = الجذر التربيعي ل ح * (ح-س)*(ح-ص)*(ح-ع) حيث س، ص، ع هي اطوال اضلاع المثلث و ح هي نصف محيط المثلث (س+ص+ع)/2

اخي العزيز ياسر.... لفد التقطت الرد قبل ان اكمله. فقد تعذر ارفاق الملف من اول مرة. المهم جرب الملف واخبرني رأيك

السلام عليكم انت شغال ايه بالضيط يا ابو سليمان ؟ ... (: الشغل المطلوب ده .... شغل مهندسين مساحة عموما هو طلبك استفزنى والحل مرفق .... لكن خد بالك من ادخال النقاط بالترتيب عكس عقارب الساعة Area Calculations.zip

السلام عليكم الحل بالملف المرفق لنقل الجدول من A1:D50 لان المدى اللى انت كاتبه فى مضوعك F1:D50949 فاضى !!!!! ولو عايز تعدل فى مكان البيانات المنقولة عدل فى السطر ده من الكود Set rnReport = wsSheet.Range("A1:D50") Export Excel Table To word.rar

السلام عليكم الحل فى هذة الحالة بسيط وهو باستخدام اداة الكاميرا وهى اداه بسيطة بتاخد صورة من اى خلية (او مجموعة خلايا ) اكسل وبنفس الابعاد والفورمات للخلية الاصلية كأنها تكست بوكس (بث مباشر ...... جرب تغير شكل ولون وحجم الفونت ..... وحتى خلفية الخلية) وهى كما بالمثال لما تغير الرقم اللى فى الخلية B1 بياخد اربع بطاقات شاملة هذا الرقم A2.rar

اخى العزيز ياسر انا موجود .ومتابع شوية .. ومتابع تحديثات الموقع لكن لم استطع المشاركة لانشغالى بالعمل والسفر

السلام عليكم مرفق مثال باستخدام التنسيق الشرطى لمجموعة من 5 اعمدة وبيتلون الصف لما تكتب فى الخمسة كلهم بالكامل .. باستخدام التنسيق الشرطى Select Color When Completed .rar

السلام عليكم جرب هذا الملف لعله يفى بالغرض الحل عبارة عن الخطوات التالية 1- تحديد قيم الخلية A من خلال Data Validation وليكن 1;2;r;b;y مثلا 2- استعمال التنسيق الشرطى على مجموعة الخلايا المراد تلوينها بدلالة A2 3- لاحظ ازالة علامة التثبيت $ من مرجع الخلية الى تشير اليها المعادلة حتى يمكنك نسخ الفورمات لاى عدد من الصفوف ترغبه بدلالة الخانة ِA فى نفس الصف Select Color.rar

أستاذ/ محمد حسن المحمد "أما إن كان هناك تنافس شريف بينك وبين الأستاذ محمد صالح المحترم" عفوا أستاذى العزيز ليست هناك منافسة بل تعاون لما يفيد الجميع فهو خبير بمجاله وانا عندى بعض العلم اود تطبيقه

السلام عليكم: لدى موضوع سابق به دالة التفقيط برجاء الاطلاع عليه فى المشاركة التالية http://www.officena.net/ib/index.php?showtopic=61867#entry399895 ارجو الاطلاع عليها لعلكم تجدوا فيها ضالتكم كما واتمنى ان برسل لى الاستاذ محمد صالح كود ال PHP المذكور لاجرب تحويله الى VBA

اخوانى الاعزاء البرنامج خطوة فقط لتسهيل التعامل مع مكتبة الاكواد لذا ارجو منكم الاستمرار فى تغذية المكتبة بما لديكم من اكواد وامثلة ، ويمكنك التأكد انها غير متكررة وارسالها حتى يتم التحديث بشكل شهرى او حتى ارسال تحديث لبعض الاكواد الموجودة مع ارفاق رقم الكود حتى اتمكن من تحديثه تعميم التحديث على الجميع