adelalmalki قام بنشر يونيو 18, 2020 مشاركة قام بنشر يونيو 18, 2020 السلام عليكم , اشكر جميع الاساتذه في هذا الصرح المثمر وجزاكم الله كل خير ,, انا لدي listbox واحتاج منه ان يظهر لي الخلايا التي بها بيانات اما الخلايا الفارغة ( لا اريدها ان تظهر في الليست بوكس ) وايضاً احتاج طريقه تحويل ملف اكسيل ( يحتوي على اكثر من يوزر فورم ) , الى ملف تنفيذي + تسطيب وعند الخروج من البرنامج يقوم بحذف جميع الادخالات مع العلم قد قمت بتجربة اكثر من طريقه ولم تفد ومنها برنامج extoexe واعتذر جداً على كثرة الاستفسارات 3> . رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 18, 2020 مشاركة قام بنشر يونيو 18, 2020 جرب هذا الشرح اخى شرح بالمعادلات عمل قائمة مطاطية لاتحتوى على فراغات.xlsx 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 18, 2020 مشاركة قام بنشر يونيو 18, 2020 طريقة اخرى شرح الاستاذ ياسر خليل ابوالبراء حفظه الله نقوم بتحديد النطاق المطلوب ، ومن التبويب Home نختار Format as Table ونختار أي نمط من أنماط الجدول ستظهر لك نافذة فيها النطاق الذي قمت بتحديده ، وهذه النافذة فائدتها تحويل النطاق لجدول الآن حدد الخلية المطلوب إنشاء قائمة منسدلة فيها ، ثم ننتقل للتبويب Data ثم ننقر Data Validation ثم من الحقل المسمى Allow نختار List ، وفي الحقل المسمى Source سنكتب المعادلة =INDIRECT("Table1[Names]") 1 رابط هذا التعليق شارك More sharing options...
adelalmalki قام بنشر يونيو 18, 2020 الكاتب مشاركة قام بنشر يونيو 18, 2020 شكراً للاساتذه على المساعدة , تم ارفاق مثال حيث ان الليست بوكس في اليوزر فورم , تظهر جميع الخلايا المحددة ( سواء بها بيانات ام لا ) والمطلوب هو جعل الليست بوكس يظهر الخلايا التي يوجد بها بيانات فقط وشكراً المصنف1.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة الرائد77 قام بنشر يونيو 18, 2020 أفضل إجابة مشاركة قام بنشر يونيو 18, 2020 تفضل Private Sub UserForm_Initialize() ThisWorkbook.Sheets("sheet1").Visible = True ThisWorkbook.Sheets("sheet1").Select Me.ListBox1.ColumnCount = 5 lrw = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row For i = 3 To lrw If Cells(i, 1) <> "" Then With ListBox1 .AddItem (Cells(i, 1)) .Column(1, .ListCount - 1) = Cells(i, 2) .Column(2, .ListCount - 1) = Cells(i, 3) .Column(3, .ListCount - 1) = Cells(i, 4) .Column(4, .ListCount - 1) = Cells(i, 5) End With End If Next End Sub المصنف1.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
عبدالله الصاري قام بنشر يونيو 18, 2020 مشاركة قام بنشر يونيو 18, 2020 تم تحويل ملف الاستاذ الفاضل رائد الى ملف تنفيذي بدون تسطيب المصنف1.rar 1 1 رابط هذا التعليق شارك More sharing options...
adelalmalki قام بنشر يونيو 18, 2020 الكاتب مشاركة قام بنشر يونيو 18, 2020 تسلم ايديكم اساتذتي ، الله يعطيكم العافيه سيتم التجربه بإذن الله على الملف الاساسي وايضاً ياليت استاذ عبدالله ، تشرحلنا طريقه تحويل الملف الى exe , وارغب في ان يكون الملف نتصفحه فقط على اليوزر فورم ولا اريد الشيتات رابط هذا التعليق شارك More sharing options...
عبدالله الصاري قام بنشر يونيو 19, 2020 مشاركة قام بنشر يونيو 19, 2020 التحويل بواسطة برنامج VB6 نسخة خفيفة حوالي 30 ميقا وتعلمتها من المنتدي ويوجد شرح مفصل للطريقة بالمنتدى للاستاذ ياسر العربي حيث قام بشرح تفصيلي لربط الاكسل بالفيجوال بيسك والتحكم بملف الاكسل عن طريقه واما التحويل الى EXEفهي ميزة موجودة بالفيجول بيسك. https://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/ تحياتي 3 رابط هذا التعليق شارك More sharing options...
عبدالله الصاري قام بنشر يونيو 20, 2020 مشاركة قام بنشر يونيو 20, 2020 تفضل استاذنا الفاضل ولا تنس قراءة شرح الاستاذ ياسر العربي https://www.mediafire.com/file/0cpcrr2gf6wg6r3/VB6setup-generic.exe/file 3 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 20, 2020 مشاركة قام بنشر يونيو 20, 2020 شكر وتقدير واحترام من اخيك استاذ عبدالله الصاري 2 رابط هذا التعليق شارك More sharing options...
adelalmalki قام بنشر يونيو 20, 2020 الكاتب مشاركة قام بنشر يونيو 20, 2020 شكرا جزيلا استاذ عبدالله 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.