mhareek قام بنشر يوليو 20, 2008 قام بنشر يوليو 20, 2008 هل من الممكن استخدام نفس الز لاظهار بينات معينة واستخدام نفس الظر لاخفاءها مرة اخرى
هادى محمد المامون سالم قام بنشر يوليو 20, 2008 قام بنشر يوليو 20, 2008 هل من الممكن استخدام نفس الز لاظهار بينات معينة واستخدام نفس الظر لاخفاءها مرة اخرى بسم الله الرحمن الرحيم يمكتك بأستخدام داله IF مرفق ملف كنموذج السلام عليكم Hide.rar
قصي قام بنشر يوليو 20, 2008 قام بنشر يوليو 20, 2008 شكرا للاستاذ هادي كيف يمكن اخفاء اعمدة مختلفة معينة واظهارها ؟ الزر لايقبل الضغط عليه يمين كيف تم ذلك وكيفية قبول الزر الضغط عليه يمينا ؟ وشكرا
h63 قام بنشر يوليو 20, 2008 قام بنشر يوليو 20, 2008 السلام عليكم الاخ الفاضل /قصى وبعد اذن استاذنا / هادى سالم سؤالك هذا اتعبنى كثيرا فمنذ فترة سالت نفسى نفس السؤال ووجد الحل فوجب على قوله انظر رايت كليك لاختيار لاظهار شريط الادوات اختر مربع ادوات التحكم - سيظهر لك شريط اضغط على اول زر فيه وهو وضع التصميم الان اصبح الزر ملك يديك افعل كما شئت وعلى حد علمى فهو يسمى سكربت والله اعلم وهناك العديد من الاوامر الجميلة التى ينفذها هذا الزر فعندى منها عدد قليل اذا اردتها واذا كان احد يمتلك من هذه الاوامر المزيد ياريت تزويدنا بها هشام
قصي قام بنشر يوليو 21, 2008 قام بنشر يوليو 21, 2008 شكرا للاخ هشام العديد من الاوامر الجميلة التى ينفذها هذا الزر نريدها يا اخي الفاضل كيف يمكن اخفاء اعمدة مختلفة معينة واظهارها ؟ ومازال السؤال مطروحا
ابو اسامة العينبوسي قام بنشر يوليو 21, 2008 قام بنشر يوليو 21, 2008 (معدل) السلام عليكم اليك حل اخفاء العمود A و هو نفس طريقة عمل الاخ هادى سالم Private Sub CommandButton2_Click() If CommandButton2.Caption = "ÃÎÝÇÁ ÇáÚãæÏ A" Then Columns("A").Hidden = True CommandButton2.Caption = "ÃÙåÇÑ ÇáÚãæÏ A" Else Columns("A").Hidden = False CommandButton2.Caption = "ÃÎÝÇÁ ÇáÚãæÏ A" End If End Sub الرجاء زياره هذا الرابط http://www.officena.net/ib/index.php?showtopic=24793 Show_Hid.rar Hide.rar تم تعديل يوليو 21, 2008 بواسطه ابو اسامة العينبوسي
ابو اسامة العينبوسي قام بنشر يوليو 21, 2008 قام بنشر يوليو 21, 2008 السلام عليكم الحروف العربيه في الكود اعلاه تظهر على شكل رموز عند ادراجها في صفحه المنتدى لا اعلم السبب
mhareek قام بنشر يوليو 21, 2008 الكاتب قام بنشر يوليو 21, 2008 (معدل) الف شكر اخى اسامة على سرعة الرد جزاك الله خيرا والف شكر لاخوانى الذين تفاعلوا مع المشاركة الف الف شكر تم تعديل يوليو 21, 2008 بواسطه mhareek
قصي قام بنشر يوليو 21, 2008 قام بنشر يوليو 21, 2008 اشكرك اشكرك وادعو الله ان يوفقك ويلهمك الصواب اخي الفاضل الاعمدة التي اريد اخفاءها E & G & C وفي نفس وقت اخفائهم يظهر عمود F & A & D
ابو اسامة العينبوسي قام بنشر يوليو 21, 2008 قام بنشر يوليو 21, 2008 Private Sub CommandButton2_Click() Range("A:A,F:F,D:D").Select Selection.EntireColumn.Hidden = False If CommandButton2.Caption = "أخفاء الاعمدة A&f&d" Then Range("E:E,G:G,C:C").Select Selection.EntireColumn.Hidden = True CommandButton2.Caption = "أظهار الاعمدة E&G&C" Else Range("E:E,G:G,C:C").Select Selection.EntireColumn.Hidden = False Range("A:A,F:F,D:D").Select Selection.EntireColumn.Hidden = True CommandButton2.Caption = "أخفاء الاعمدة A&f&d" End If End Sub
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.