الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استفسار بخصوص اخفاء او اظهار اعمدة عند التصدير لاكسل

بدأه morad2012 في 21 نوفمبر 2013 · 6 رد · 645 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

 

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

 

::

 

تجاوزنا والحمد لله قضية التصدير من الاكسس لاكسل وذلك بفضل الله أولاً ثم بمجهود بعض الاخوة في هذا الصرح الرائع

 

وأخص بالذكر استاذتنا الدكتورة (زهرة) ادامها الله،،، والاستاذ الغالي على قلوبنا جعفر حفظه الله ورعاه

 

سؤال:

 

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

 

بمعنى : اريد تصدير خمس مواد دراسية من اكسس الى اكسل موزعة على الاعمدة A1 ,B1 C1 D1 E1

 

كيف اخفي عمود C1 اذا كان لدي اربعة مواد دراسية للتصدير اريد توزيعها على A1 B1 D1 E1

 

خلاصة الموضوع: اريد الكود البرمجي لاخفاء عمود في قالب الاكسل المعد للتصدير واظهاره حسب الحاجة

 

::

 

تحياتي

اذا دعتـــك قدرتك على ظلـــم الناس   فتذكر قدرة الله عليــــــك

#2

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

 

حياك الله اخي مراد :)

 

السؤال:

هل تريد برنامج الاكسس ان لا يرسل بيانات C1 ، ويرسل البيانات الباقية ويوزعها على A1 B1 D1 E1

او

تريد برنامج الاكسل ان يخفي C1 ؟

 

 

جعفر

1
#3

تحياتي لك اخي جعفر ،،،

 

اتمنى ان تكون بصحة وعافية ،،،

 

اريد اخفاء c1  من قالب الاكسل المعد للتصدير 

 

::

 

تحياتي 

تم تعديل هذه المشاركة بواسطة morad2012 في 21 نوفمبر 2013 في 11:09

اذا دعتـــك قدرتك على ظلـــم الناس   فتذكر قدرة الله عليــــــك

#4

تفضل اخي :)

 

استخدمت برنامجك السابق :)

 

في النموذج اختار الاعمدة التي تريد اخفائها ، ثم اكبس زر Export to Excel :

 

post-273849-0-88577700-1385025717_thumb.

 

وهذا الكود يقوم بالاخفاء:

 

'hide columns
If Me.chk_A = -1 Then
xls.Columns("A:A").EntireColumn.Hidden = True
End If

If Me.chk_B = -1 Then
xls.Columns("B:B").EntireColumn.Hidden = True
End If

If Me.chk_C = -1 Then
xls.Columns("C:C").EntireColumn.Hidden = True
End If

If Me.chk_D = -1 Then
xls.Columns("D:D").EntireColumn.Hidden = True
End If

If Me.chk_E = -1 Then
xls.Columns("E:E").EntireColumn.Hidden = True
End If

 

 

جعفر

Export To Excel.zip

2
#5

استاذي الفاضل جعفر حفظك الله ورعاك

 

يبدو والعلم عند الله ان هذه الطريقة ستفي بالغرض ،،، لست في البيت للتجربة 

 

لكن أحببت أن أشكرك لحظة ما رأيت ردك

 

سأوافيك بالنتيجة بعد التجربة ان شاء الله

 

الف شكر لشخصك الطيب

 

تحياتي

 

+1

اذا دعتـــك قدرتك على ظلـــم الناس   فتذكر قدرة الله عليــــــك

#6

بارك الله فيك اخي جعفر على سرعة ردك وحلك الشافي

 

هو المطلوب 

 

+1

 

تحياتي

اذا دعتـــك قدرتك على ظلـــم الناس   فتذكر قدرة الله عليــــــك

#7

حياك الله :)

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…