BACHA22 قام بنشر يوليو 10, 2014 مشاركة قام بنشر يوليو 10, 2014 السلام عليكم ممكن كود لإخفاء أعمدة و إظهارها إذا تحقق الشرط الشرح في المرفقات إخفاء أعمدة بشرط.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يوليو 10, 2014 مشاركة قام بنشر يوليو 10, 2014 السلام عليكم ورحمة الله أخي الكريم يمكنك وضع الكود التالي في كود حدث الورقة Feuil1 وأرجو أن يلبي طلبك... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [C10] = 1 Or [C10] = 2 Then Range("E:E,J:J").EntireColumn.Hidden = False If [C10] = 3 Then Range("E:E,J:J").EntireColumn.Hidden = True End Sub أو مختصرا : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [C10] = 3 Then Range("E:E,J:J").EntireColumn.Hidden = True _ Else: Range("E:E,J:J").EntireColumn.Hidden = False End Sub أخوك بن علية 3 رابط هذا التعليق شارك More sharing options...
المصباحي قام بنشر يوليو 10, 2014 مشاركة قام بنشر يوليو 10, 2014 عمل جميل اخي بن علية وزادك الله من علمه وبعد اذنك سارفك المرفق بالكود معدل لتعم الفائدة واخي BACHA22 انت محدد الخلية c10 وليس c11 وتم تعديل على ملفك بعد اذن اخى بن علية وفقكم الله إخفاء أعمدة بشرط.rar رابط هذا التعليق شارك More sharing options...
BACHA22 قام بنشر يوليو 10, 2014 الكاتب مشاركة قام بنشر يوليو 10, 2014 بارك الله فيكم تقبل الله منا و منكم رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر يوليو 10, 2014 مشاركة قام بنشر يوليو 10, 2014 السلام عليكم ورحمه الله وبركاته اخى واستاذنا بن عليه بارك الله فيك كود جميل ورائع والاهم انه يتسم بالبساطه نسأ الله ان يبارك لنا فى علمك تقبل تحياتى رابط هذا التعليق شارك 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.