سؤال عن كيفية تطبيق عكس المعادلة فيvba

[• صلاح الدين الجزائري •]

السلام عليكم

 

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

انا اخواني اريد ان اخلي المعادلة دائما تمشي بالعكس [في VBA ] مثلا 

مثلا انا عندي معادلة: Selection.EntireColumn.Hidden = True

اريدها انا لما تكون مطبقة بـ True ،، اريد ان اعكسها بـ false، والعكس

وانا اريد من هذا السؤال بالضبط، هو اني لما اصبح في شهر معين [ مثلا اكتوبر ] 

يختفو لي الشهور الماضية، ولما يصبح الشهر جانفي، اريد من كل الشهور القادمة بالضهور

ولكن انا لما اقدم تاريخ الحاسوب مثلا الى ماي[ هنا تضهر الاشهر من ماي الى ديسمبر ] ولما ؤأخره الى

افريل اريد من افريل الضهور، 

ان شاء الله تكونو فهمتوني

test.rar

[ياسر خليل أبو البراء]

أخي الكريم صلاح

إليك رابط الموضوع التالي فيه حل لمشكلتك إن شاء الله

الرابط من هنا

تقبل تحياتي

[أبو حنــــين]

Private Sub Workbook_Open()

    Dim sh As Worksheet, M As Byte
    Set sh = Sheets("sData")
    With sh

On Error GoTo 1
M = Format(Date, "m")
.Columns("C:N").Hidden = False
.Range(Cells(1, 3), Cells(1, Val(M) + 1)).EntireColumn.Hidden = True
1
    End With
    
End Sub

جرب هذا الكود

[ياسر خليل أبو البراء]

أخي الحبيب أبو حنين

لقد اعتمدت في الكود المقدم على تحديد الشهر الحالي فقط ..وأعتقد أن صاحب الموضوع سيكتب القيمة بنفسه في الخلية A1 ... الأمر يرجع لصاحب الموضوع في هذه الحالة

بارك الله فيك وجزاك الله خيراً

 

[أبو حنــــين]

بالفعل أخي ياسر

و لقد اطلعت للتو على ردك و اعتقد جازما انه هو الرد المناسب

التسرع في بعض الأحيان يورط صاحبه

تحياتي ... جزاك الله خيرا

[ياسر خليل أبو البراء]

أخي الغالي أبو حنين

قد أكون أنا المخطيء في فهم المطلوب ..حيث لم يوضح السائل بشكل تام كيفية أن يكون الأمر ..

وفي النهاية الكل يقدم حللو حسب فهمه ، وبالطبع أكوادك رائعة ومفيدة جداً وأعتقد أنها ستفي بالغرض

والعبرة ليست في الموضوع فقط بل من الاستفادة من الأكواد بشكل عام في موضوعات أخرى خصوصاً لمن يتابع عملية التعلم ويريد أن يتعلم كيفية التعامل مع محرر الأكواد والبرمجة بشكل عام

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

جرب هذا الماكرو

Sub Hide_Show()
If Range("A1").Value = 4 Then
Range("C1:E1").EntireColumn.Hidden = Not (Range("C1:E1").EntireColumn.Hidden)
End If
End Sub

 

[• صلاح الدين الجزائري •]

شكرا لكم اخواني الاعزاء على الرد :)

[ياسر خليل أبو البراء]

أخي الكريم صلاح

لم تحدد أي الإجابات قد أدى الغرض بالنسبة إليك ..ألم تقرأ الردود ووجدت أننا في حيرة من طلبك ولا ندري بالضبط ما المقصود من طلبك في المشاركة الأولى ؟؟

وكل اجتهد فأنا اعتمدت على القيمة المدخلة في الخلية A1 وأخي العزيز أبو حنين اعتمد على الشهر الحالي حسب التاريخ وأخونا سليم قد اعتمد على قيمة الخلية A1 تساوي 4 في الكود الذي قدمه

أرجو الإيضاح حتى ولو حلت المسألة