2saad قام بنشر سبتمبر 28, 2023 مشاركة قام بنشر سبتمبر 28, 2023 اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق مكون من 4 اوراق عمل ( كي جي1 - كي جي2 - 1 - 2 ) في الورقة الأولي ( كي جي1 ) يوجد فورم ادخال بيانات هل يمكن تطبيقه علي كل اوراق العمل بفورم واحد يعني لو ممكن نعمل كومبو بوكس ( ComboBox ) داخل الفورم يحوي جميع اوراق العمل الاربعة ونختار منه ارجو المساعدةمحمد 4.xlsm رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر سبتمبر 29, 2023 مشاركة قام بنشر سبتمبر 29, 2023 (معدل) وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي سعد تم تنفيد دالك مع بعض التحسينات البسيطة على الاكواد Private Sub UserForm_Initialize() Dim A, B, C, D Set WSData = ActiveSheet rngData = ActiveSheet.ListObjects(1).Name A = [Tableau1]: B = [Tableau2]: C = [Tableau3]: D = [Tableau4] Colonnes = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) Tbl = Range(rngData).Value Rng = UBound(Tbl, 2) Me.ListBox2.List = Tbl Me.ListBox2.ColumnCount = Rng ListBox2.ColumnWidths = "50;65;180;80;75;75;65;80;60;35;40" Transférer Me.ListBox1.Visible = False Me.Show_file.Caption = "إظهار ملف العمل" NbLigne = [Tableau1].Rows.Count + [Tableau2].Rows.Count + [Tableau3].Rows.Count + [Tableau4].Rows.Count If Me.ComboBox1.Value = Empty Then Counter.Caption = "المجموع" & " / " & NbLigne Else Counter.Caption = Me.ComboBox1.Text & " / " & ListBox2.ListCount + 0 End Sub تم تعديل سبتمبر 29, 2023 بواسطه محمد هشام. 1 رابط هذا التعليق شارك More sharing options...
2saad قام بنشر سبتمبر 29, 2023 الكاتب مشاركة قام بنشر سبتمبر 29, 2023 شكرا جزيلا استاذنا الفاضل وبارك الله فيك معلش أنا مش عارف اطبق الكود علي الملف المرفق رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر سبتمبر 29, 2023 أفضل إجابة مشاركة قام بنشر سبتمبر 29, 2023 (معدل) تفضل اخي سعد محمد_2.xlsm تم تعديل سبتمبر 29, 2023 بواسطه محمد هشام. 2 رابط هذا التعليق شارك More sharing options...
2saad قام بنشر سبتمبر 29, 2023 الكاتب مشاركة قام بنشر سبتمبر 29, 2023 بارك الله فيك وجعله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان