M.NHAKAMI

السلام عليكم ممكن كود تغير لون label الى لون الخلفيه يعني بدون لون اريد وضع label فوق صوره واريد يكون بدون لون المصنف1.xlsm

هل يوحد طريقه لتصدير بيانات اكسل من شيت محدد الى فورم معد بالفيجوال استديو ٢٠١٠ انا استخدم الخاصيه Datagridview لربط الفيجوال بالاكسل لكن غي هذه الحاله يكون زر استيراد البيانات في فورم الفيجوال انا اريد زر تصدير البيانات في فورم الاكسل باستخدام محرر فيجوال الاكسل بحيث اتحكم في تصدير البيانات من الاكسل فورم الفيجوال يستخدم فقط كداتا شوب لعرض البيانات هل في طريقه لذالك

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

السلام عليكم يا يا اخواان عندي الكود التالي هل ممكن استطيع مسميات الازرار في msgbox تظهر عندي بالعربي ( نعم , لا , الغاء الامر ) اريد تغيرها الى (ارسال , استبدال, مسح) If Sheets("diff").Range("a23") = 1 Then x = MsgBox("يوجد بيانات فرسان سابقين هل تود ترحيل الفرسان التاليين ", vbYesNoCancel + vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه") If x = vbYes Then MsgBox "تم الارسال" ElseIf x = vbNo Then MsgBox "تم الاستبدال" ElseIf x = vbCancel Then MsgBox "تم المسح" End If Else MsgBox "" End If

شكرا لك الكود يعمل بشكل جيد جدا

السلام عليكم عندي الكود التالي للطباعه ' بداية كود الطباعة If Sheets("print").Range("a15").Value = 1 Then Dim ID As String Sheets("الأسماء").Visible = False Sheets("print").Visible = True ID = Sheets("print").Range("E1").Text & " " & Sheets("print").Range("B7").Text & " " & Sheets("print").Range("B8").Text & " " & Sheets("print").Range("B9").Text ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="C:\m2020\" + ID + ".Pdf", _ IgnorePrintAreas:=False, _ Openafterpublish:=False Else MsgBox "لا توجد بيانات لطباعتها" End If Application.Visible = False End Sub الكود في مشكله انا جاعل المسار مجلد M2020 ينشئه المستخدم في C وبالتعليمات كاتب للمستخدم اذا اراد الطباعه بنشئ هذا المجلد اولا المشكله اذا تم الضغط ولم ينشئ المجلد الاكسل يحدث خطأ ويغلق البرنامج اتمنى لو فيه طريقه تحسن الكود بانه اذا لم يجد المسار مايخرج من البرنامج بل ينبه المستخدم بان المسار غير موجود او تكون الطباعه في سطح المكتب بشرط انه يكون متوافق مع اي جهاز حيث ان مسار سءح المكتب يختلف من جهاز لجهاز الطلب الثاني كود نسخ مبين داخل بالبرنامج تصحيح اكواد.xlsm

شكرا لك علي

السلام عليكم عملت تطبيق بالاكسل كبير نوعا ما وانتهيت من اكواده وابياناته واريد ان ارفعه للنشر وعملت من اجل حمايته حماية الشيتات برقم وحماية المصنف واكواد الدخول عالفورم مباشره بمجرد فتح الملف واكواد اخفاء الشيتات بمجرد تنشيط الفورمات وعملت اكواد تعطيل زر x في الفورم واستبدلته بازرار لاغلاق الفورم مع الاكسل كامل سؤالي هل يوجد طريقه لتحويل الاكسيل لتطبيق exe او لحمايته باكثر مما عملت او طريقه لمنع المستخدم من الدخول على محرر الفيجوال لتعديل الاكواد يعني اريد استخدام البرنامج دون التعديل عليه

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

شكرا تتم التجربه

السلام عليكم عندي الكود التالي اريد منه اذا كان (textbox.Visible =True) فإنه اذا قيمته فارغه تاتي رساله انه لا يمكن الارسال يوجد حقول فارغه واذا الجميع به قيمه تاتي رساله تم الارسال Private Sub CommandButton1_Click() Dim D Dim Tx As Control For i = 1 To 4 If TypeOf Me.Controls(d) Is MSForms.TextBox Then Me.Controls(d) = "" MsgBox ("لا يمكن الارسال بعض الحقول فارغه ") Exit Sub End If Next MsgBox ("تم الاسال ") End Sub حاولت ان اجعل الكود بالبدايه يتعرف على الحقول الفارغه لكم لم استطع لا اعرف اين الخطأ دون قيمه.xlsm

في الحقيقه تعلمت منك الكثير جدا أخي العيدروس ممكن اعرف التالي ايش يعني Option Explicit عندي بعض الاكواد تعطلت فاذا حذف الكلمتين تفعلت ولم يتاثر الكود الذي عملته

رفعت لكم الملف اتمنى ان الكود المطلوب يكون فعال للحقول Ev_text6 الى Ev_text22 تقريبا 17 texetbox فقط تحكيم.xlsm

اخي طريقة وضع الكود اين بالفورم ام انه تعبير عن داله

عندي 20 texebox بنفس الاسم يختلف فقط الرقم اريد الكود التالي يكون حلقة تكرار حتى لا اكتبه 20 مره الكود يعني ان text لا يقبل الا ثلاثة أرقام هي 0 و4و8 كود : If Me.Ev_text6.Value <> 0 Or Me.Ev_text6.Value <> 4 Or Me.Ev_text6.Value <> 8 Then MsgBox "القيمه المدخله خاطئه" End If

سلمت يا خالي

Private Sub CommandButton2_Click() If EVAL.EV_Label1.Caption = "" Then EVAL.Ev_text6.Visible = False Else EVAL.Ev_text6.Visible = True End If end sub يا اخوان عندي الكود التالي اذا لم تكون في label قيمه يختفي textbox الكود يعمل لكن المشكله انه علامة " " بعض الاحيان عندما تحذف القيمه اللتي بداخلها يبقى في مسافه فراغ space فلا يختفي textbox هل فيه شي اجعله بدل من علامة التنصيص "" يدل على انه لا توجد قيمه

شكرا لك اخي

كيف يمكن اجعل الخليه يتغير فيها الرقم لنص محدد مثلا لو كانت الخليه A1 فيها الرقم 1 يكتب بالخليه B1 منسحب واذا ادخل رقم اخر يتغيىر النص حسب المطلوب تغيير الرقم لنص.xlsx

كيف التنقل من textbox لاخر عن طريق زر tab الخاصية tabindex تظهر في حال تصميم الفورم ولا تظهر في حال يكون textbox في نفس الشيت tab.xlsx

اخ حسن هذا المطلوب كنت ابحث عن مكان الكود والان فهمت

مساء النور عندي label وtextbox اريد كود بمجرد ان يكون الشيت اكتف يختفي textbox اذا كان label لا يوجد به نص انا استخدمت الكود If label1. Caption= "" then Textbox1. Visible = false Else Textbox1. Visible = true End if اريد الكود ان يكون في label لكن ما اعلم ايش الحدث بمجرد تكون الصفحه نشطه يتنفذ الكود برنامج_تحكيم_تجربه.xlsm

ابدعت نعم الترتيب كما اريد لكن اريد اخي ان يكون الترتيب بشكل Activate من دون زر ماكرو كل ما اضفت البيانات يتغير الترتيب مباشره الكود اين انقله اشكرك اخي جدا فرج الله همك نقلت الكود في الشيت وكان فعال جدا اشكرك Private Sub Worksheet_Change(ByVal Target As Range) Range("A23:AA1022").Activate ActiveWorkbook.Worksheets("نظام السرعه").Sort.SortFields.Clear ActiveWorkbook.Worksheets("نظام السرعه").Sort.SortFields.Add Key:=Range( _ "H23:H1023"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("نظام السرعه").Sort.SortFields.Add Key:=Range( _ "E23:E1023"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("نظام السرعه").Sort .SetRange Range("A23:AA1023") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("E10").Activate End Sub

المطلوب ترتيب القيم تنازلي من الأصغر للأكبر في عمود الترتيب حسب عمود مجموع الأخطاء فإذا تساوت قيمتان يتم ترتيب المتساون حسب الزمن الأقل ترتيب القيم.xlsm

شكرا لك ابدعت