هل بالامكان فى قاعده if تنفيذ مهمتين اذا تحقق شرط معين بالاكواد

[عادل ابوزيد]

الاخوه العزاء

هل يمكن بتحقق شرط معين وليكن ان تكون الخلية a1= 5 ان يقوم البرنامج باخفاء العمود g وان يكون امر unhide.. فى قائمة window غير فعال

مع العلم ان سطر امر unhide.. هو

Windows.Application.CommandBars("worksheet menu bar").Controls("window").Controls("unhide...").Enabled = False

وسطر امر اخفاء العمود هو

If Sheets("sheet1").Range("a1").Value ="5" Then Sheets("sheet1").Columns("g").EntireColumn.Hidden = True

ولكم جزيل الشكر

[خالد الشاعر]

استاذ admbrk

هذا الامر unhide.. فى قائمة window غير فعال

يوجد به مشكلة غير صحيح

اما الباقى شغال و هكذا الكود

Private Sub Worksheet_Activate()

If Sheets("sheet1").Range("a1").Value = "5" Then

Windows.Application.CommandBars("worksheet menu bar").Controls("window").Controls("unhide...").Enabled = False

Columns("g").EntireColumn.Hidden = True

End If

End Sub

[خالد الشاعر]

استاذ admbrk

تم تغير امر الغاء Unhide بماكرو اخر

برجاء تجربة الملف و تغير القيمة فى خلية A1 من رقم 5 او لا شى

ارجو يكون المطلوب

Book1.rar

[عادل ابوزيد]

الاخ العزيز khhanna

مبدئياَ اعجز عن ايجاد كلمات للتعبير عن شكرى وامتنانى لك

إلا اننى ارجو منك لقلة فهمى ان تشرح لى الكود حيث اننى فهمت منه انه يقوم باخفاء العمود g فقط ولكن لا افهم ما يحدث بعد ذلك

ثانياً : قاعدة if else حسب فهمى تستخدم عن تنفيذ امر بناء على شرط معين واذا لم يتحقق هذا الشرط يتم تنفيذ الامر الأخر إلا ان المطلوب تنفيذ الشرطين معاً بتحقق الشرط

لك منى كل الحب والتقدير

[الـعيدروس]

السلام عليكم

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

بالامكان اختصار الكود بهذا الشكل

Private Sub Worksheet_Change(ByVal Target As Range)

If Sheets("sheet1").Range("a1").Value = "5" Then

  Columns("g").EntireColumn.Hidden = True

   Application.CommandBars.FindControl(ID:=887).Enabled = False

Else

   Columns("g").EntireColumn.Hidden = False

   Application.CommandBars.FindControl(ID:=887).Enabled = True

End If

End Sub

[عادل ابوزيد]

السلام عليكم احبتى فى الله

ممكن شرح للسطر

Application.CommandBars.FindControl(ID:=887).Enabled = False

[الـعيدروس]

السلام عليكم

هذا الامر FindControl معامل يبحث في اوامر قوائم الاكسل

كل امر له رقم مابين القوسين (ID:=887)

887 = كلمة اظهار في ري كلك على اي عمود

Enabled = False في حالة False = تفعيل و True = الغاء الامر

وهذا الكود من مشاركه سابقة

يعطيك مهام كل رقم في هذا الامر ID FindControl في العمود "B

"

Public Sub Com_All()

Dim R&, Ro%, E%

On Error Resume Next

With Application

	    .ScreenUpdating = False

	    .EnableEvents = False

Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 3)).ClearContents

Range("A1:C1") = Array("تسلسل الرقم", "ايدي الامر", "نوعه المسمى")

R = 2

For Ro = 1 To 12500

Cells(R, 1) = Application.CommandBars.FindControl(ID:=Ro).Type

Cells(R, 2) = Application.CommandBars.FindControl(ID:=Ro).ID '***

Cells(R, 3) = Application.CommandBars.FindControl(ID:=Ro).Caption

R = R + 1

Next

E = Range("A20000").End(xlUp).Row

With Range("C2:C" & E)

   .VerticalAlignment = xlRight

   .HorizontalAlignment = xlRight

End With

For I = E To 2 Step -1

If Range("A" & I).Value = "" Then Range("A" & I).EntireRow.Delete

Next

   .EnableEvents = True

   .ScreenUpdating = True

End With

End Sub

[خالد الشاعر]

استاذ عباد

كود ممتاز

تسلم ايدك و جزاك الله كل خير

[عادل ابوزيد]

استاذى غانا

بعد تقديم التحية والاحترام

تسلم الايادى على هذا الكود والشرح الوافى

إلا ان لى رجاء وهو الاجابه على الشق الثانى من السؤال وهو

هل يمكن تحقيق شرطين معا إلا تحقق شرط معين بمعنى اذا كان خلية مثلاً a1=1 يتحقق 00000 و 00000 اى مثلاً يختفى العمود h و تكون قيمة الخليه h100 = 50

[الـعيدروس]

السلام عليكم

هذا ماتريده

With Sheets("sheet1")

If .Range("a1").Value = "5" And .Range("h100").Value = 100 Then

' تنفيذ الامر اذا تحققت الشرطين مع بعض وإلا لن ينفذ الامر

End If

End With

[عادل ابوزيد]

استاذى عباد ،، والاخوة الكرام

بعد تقديم وافر التحية والاحترام

الكود الذى اشرتم اليه يعنى بتحقق الشرطين معاً سينفذ الامر .... ولكن المطلوب هو

تحقق شرط معين يقوم بتنفيذ امرين دفعة واحدة

ارجو ان تكون الفكرة وصلت

ولك منى كل الحب والتقدير

[الـعيدروس]

السلام عليكم

الاخ الفاضل admbrk

مابين IF و End IF

حط اي امر سوف ينفذ

مثلا

Sub Test_A()

If Range("H100").Value = 5 Then

Columns("g").EntireColumn.Hidden = True

Range("H100").Value = 100

' ضع اي امر حينفذ

'

'

'

End If

End Sub

[عادل ابوزيد]

استاذى الفاضل عباد

بعد تقديم وافر التحية والاحترام وقبلها تحية الاسلام

هذا ما طلبت ولك منى كل الحب والاحترام