كتابة رقم بخلية ما وظهوره بعدة خلايا

[محمدنور]

السلام عليكم ورحمة الله وبركاته رمضانكم مبارك 

اريد طلب بسيط جدا 

اريد طريقه اذا كتبت في الخليه A1 رقم (3) يظهر لي الخلايا B1و  c1 وD1

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

شكرا لكم مقدما  .... عنوان مخالف جداً ... تـــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

[سليم حاصبيا]

 كيف تريد ان يظهر في خلية واجدة  محتويات 3 حلايا 

ادرج مثالاً عمّا تريد 

[محمدنور]

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

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

ويكون الاظهار أفقي 

[سليم حاصبيا]

جرب هذا الكود

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