محمدنور قام بنشر أبريل 29, 2021 مشاركة قام بنشر أبريل 29, 2021 السلام عليكم ورحمة الله وبركاته رمضانكم مبارك اريد طلب بسيط جدا اريد طريقه اذا كتبت في الخليه A1 رقم (3) يظهر لي الخلايا B1و c1 وD1 واذا كتبت رقم 4 يظهر لي الخلايا بنفس عدد الرقم الموجود وهكذا. شكرا لكم مقدما .... عنوان مخالف جداً ... تـــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 29, 2021 مشاركة قام بنشر أبريل 29, 2021 كيف تريد ان يظهر في خلية واجدة محتويات 3 حلايا ادرج مثالاً عمّا تريد رابط هذا التعليق شارك More sharing options...
محمدنور قام بنشر أبريل 29, 2021 الكاتب مشاركة قام بنشر أبريل 29, 2021 اريد ان تكون جميع الاعمده مخفيه الا العمود Aهو فقط الظاهر . وعند كتابة اي رقم في اي خلية من خلايا العمود A يتم عمل إظهار عدد خلايا مساوي للعدد الموجود في الخليه A ويكون الاظهار أفقي رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أبريل 29, 2021 أفضل إجابة مشاركة قام بنشر أبريل 29, 2021 جرب هذا الكود Option Explicit Sub hid_all() Dim My_num As Single Dim Col As Single Col = Application.Columns.Count Range("B1").Resize(, Col - 1).Columns.Hidden = True If Val(Range("A1")) <= 0 Then My_num = 1 Else My_num = Int(Range("A1")) End If Range("A1") = My_num Range("A1").Resize(, My_num).Columns.Hidden = False End Sub '++++++++++++++++++++++ Sub show_all() Dim Col As Single Col = Application.Columns.Count Range("b1").Resize(, Col - 1).Columns.Hidden = False End Sub الملف مرفق Show_hide_colomns.xlsm 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان