طلب مساعدة في listbox + تحويل الاكسيل الى ملف تنفيذي

[adelalmalki]

السلام عليكم , اشكر جميع الاساتذه في هذا الصرح المثمر 

وجزاكم الله كل خير ,, 

انا لدي listbox واحتاج منه ان يظهر لي الخلايا التي بها بيانات اما الخلايا الفارغة ( لا اريدها ان تظهر في الليست بوكس ) 

وايضاً احتاج طريقه تحويل ملف اكسيل ( يحتوي على اكثر من يوزر فورم ) , الى ملف تنفيذي + تسطيب 

وعند الخروج من البرنامج يقوم بحذف جميع الادخالات 

مع العلم قد قمت بتجربة اكثر من طريقه ولم تفد ومنها برنامج extoexe

واعتذر جداً على كثرة الاستفسارات  3> .

[abouelhassan]

جرب هذا الشرح اخى

شرح بالمعادلات عمل قائمة مطاطية لاتحتوى على فراغات.xlsx

[abouelhassan]

طريقة اخرى شرح الاستاذ ياسر خليل ابوالبراء حفظه الله

نقوم بتحديد النطاق المطلوب ، ومن التبويب Home نختار Format as Table  ونختار أي نمط من أنماط الجدول

ستظهر لك نافذة فيها النطاق الذي قمت بتحديده ، وهذه النافذة فائدتها تحويل النطاق لجدول

الآن حدد الخلية المطلوب إنشاء قائمة منسدلة فيها  ، ثم ننتقل للتبويب Data ثم ننقر Data Validation ثم من الحقل المسمى Allow نختار List ، وفي الحقل المسمى Source سنكتب المعادلة

=INDIRECT("Table1[Names]")

 

[adelalmalki]

شكراً للاساتذه على المساعدة , تم ارفاق مثال  

حيث ان الليست بوكس في اليوزر فورم , تظهر جميع الخلايا المحددة ( سواء بها بيانات ام لا ) 

والمطلوب هو جعل الليست بوكس يظهر الخلايا التي يوجد بها بيانات فقط 

 

وشكراً 

المصنف1.xlsm

[الرائد77]

تفضل

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

[عبدالله الصاري]

تم تحويل ملف الاستاذ الفاضل رائد الى ملف تنفيذي بدون تسطيب

المصنف1.rar

[adelalmalki]

تسلم ايديكم اساتذتي ، الله يعطيكم العافيه سيتم التجربه بإذن الله على الملف الاساسي 

وايضاً ياليت استاذ عبدالله ، تشرحلنا طريقه تحويل الملف الى exe , وارغب في ان يكون الملف نتصفحه فقط على اليوزر فورم ولا اريد الشيتات 

[عبدالله الصاري]

التحويل بواسطة برنامج VB6 نسخة خفيفة حوالي 30 ميقا وتعلمتها من المنتدي ويوجد شرح مفصل للطريقة بالمنتدى  للاستاذ ياسر العربي حيث قام بشرح تفصيلي لربط الاكسل بالفيجوال بيسك والتحكم بملف الاكسل عن طريقه واما التحويل الى EXEفهي ميزة موجودة بالفيجول بيسك. 

https://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/

تحياتي 

[عبدالله الصاري]

تفضل استاذنا الفاضل ولا تنس  قراءة شرح الاستاذ ياسر العربي

https://www.mediafire.com/file/0cpcrr2gf6wg6r3/VB6setup-generic.exe/file

[abouelhassan]

شكر وتقدير واحترام من اخيك استاذ عبدالله الصاري

[adelalmalki]

شكرا جزيلا استاذ عبدالله