نجوم المشاركات

السلام عليكم ورحمة الله وبركاته البغض منا قد يرغب فى ازالة التنسيق الشرطى عن خلية أو نطاق لسبب ما مع ازالة أو ابقاء آثاره من تنسيقات مثل لون الخلايا و لون و حجم الخط .... الخ و بإذن الله تعالى سأعرض عليكم ــ اخوتى ــ كودين يؤديان هذه المهمة الأول : يقوم بازالة التنسيق الشرطى مع ازالة آثاره من نطاق محدد : Sub RemovingCFandEffects() ' Removing Conditional Formats and the Effects Dim Rng As Range Set Rng = Sheets("Sheet1").Range("A1:C10") Application.ScreenUpdating = False Rng.FormatConditions.Delete Application.ScreenUpdating = True MsgBox ("The Conditional Formats in The Range " & Rng.Address & vbCrLf & " has been Removed and The Effects") End Sub الثانى : يقوم بازالة التنسيق الشرطى من نطاق محدد مع ابقاء آثاره من تنسيقات كما هى أو بعبارة أخرى تحويل التنسيقات الشرطية الى تنسيقات عادية : Sub RemovingCFbutNotEffects() ' Removing Conditional Formats but not the Effects Dim Rng As Range, C As Range Set Rng = Sheets("Sheet1").Range("A1:C10") Application.ScreenUpdating = False For Each C In Rng ' Rng.SpecialCells(xlCellTypeAllFormatConditions) With C .Interior.Color = .DisplayFormat.Interior.Color .Font.FontStyle = .DisplayFormat.Font.FontStyle .Font.Color = .DisplayFormat.Font.Color .FormatConditions.Delete End With Next Application.ScreenUpdating = True MsgBox ("The Conditional Formats in the Range " & Rng.Address & vbCrLf & "has been removed but Not the Effects ") End Sub أتمنى أن يكون موضوعا سهلا وخفيفا ونافعا لكم ... تقبل الله منا و منكم صالح الأعمال والسلام عليكم ورحمة الله وبركاته Removing Conditional Formats.rar

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير " الصّقر " على الشّرح الكافي و الشّافي .. و بعد إذنك طبعًا .. حاولت إضافة محاولة بسيطة لتقريب الفكرة أكثر بجميع ملفاته المستقبلية للأخ الكريم " محمد عبد السّلام " .. التاكست بوكس بملفك تسمّى بهذا الاسم : إذن بكل أكواد ملفك يجب عليك تسميتها بهذا الاسم : فائق إحتراماتي fatorrr.rar

ثالثا :- التعرف على خصائص الــ Frame من شاشة الخصائص اثناء عملية التصميم لمشاهدة خصائص الــ Frame شاهد الصوره التاليه وهذه صوره مكبره لخصائص الفريم هنمسك اهم الخصائص والاكثر شيوعا فى الاستخدام ونبدا نشرح بالتفصيل الخاصيه (Name) :- Name هو اسم الـ Frame المستخدم فى الاكواد وعند انشاء اى Frameيقوم الفيجوال بيسك بأعطاء اسم افتراضى له Frame1واذا قمنا بعمل Frame ثانى فأن الفيجوال بيسك يعطى له اسم افتراضى Frame2 وانا افضل عدم تغيير اسماء Frameالافتراضيه التى عرفها الفيجوال بيسك فعندما نريد كتابه كود خاص بالعنصر Frame فيجب علينا الالتزام بالاسم الموجود فى الخاصيه Name --------------------------------------------------------------------------------------------------------------------------- الخاصيه ( Back Color):- هذه الخاصيه تتيح للمستخدم تغيير لون خلفية الـ Frame على اليسار يوجد سهم اضغط عليه ستظهر لك قائمة يمكنك من خلالها اختيار اللون المناسب كما يحلو لك لا نحتاج الى ارفاق صوره للتوضيح لانه نفس الشرح اللى عملناه قبل كدا فى شرح الليبل والتكس بوكس والكمبوبوكس --------------------------------------------------------------------------------------------------------------------------- الخاصيه ( Border Color):- هذه الخاصيه تتيح للمستخدم تغيير لون حدود الـ Frame على اليسار يوجد سهم اضغط عليه ستظهر لك قائمة يمكنك من خلالها اختيار اللون المناسب كما يحلو لك --------------------------------------------------------------------------------------------------------------------------- الخاصيه ( Caption ):- هذه الخاصيه تتيح للمستخدم كتابة عنوان للـــ Frame --------------------------------------------------------------------------------------------------------------------------- الخاصيه ( Enabled ):- هذه الخاصيه تحمل خيارين true و False عند اختيارك true سوف يكون الــ Frame والعناصر بداخله متاحه امام المستخدم عند عمل الفورم وهو الاختيار الافتراضى للفيجوال عند اختيارك False سوف يكون الــ Frame والعناصر بداخله غير متاحه امام المستخدم عند عمل الفورم يعنى هيكون محمى --------------------------------------------------------------------------------------------------------------------------- الخاصيه ( Font ):- هذه الخاصيه تتيح للمستخدم تغيير نوع وحجم وسماكة الخط لعنوان الـ Frame ( الذى يتم كتابته بالخاصيه Caption ) على اليسار يوجد سهم اضغط عليه ستظهر لك قائمة يمكنك من خلالها اختيار نوع وحجم وسماكة الخط كما يحلو لك --------------------------------------------------------------------------------------------------------------------------- الخاصيه ( ForeColor ):- هذه الخاصيه تتيح للمستخدم لون الخط لعنوان الـ Frame ( الذى يتم كتابته بالخاصيه Caption ) ------------------------------------------------------------------------------------------------------------------------ الخاصيه ( Height ):- هذه الخاصيه تتيح للمستخدم التحكم فى ارتفاع الـ Frame فيمكنك أما من خلال التصميم السحب بالماوس للاسفل لتحديد الارتفاع للـ Frameأو كتابة رقم للارتفاع فى الخاصيه Height ------------------------------------------------------------------------------------------------------------------------ الخاصيه ( Left ):- هذه الخاصيه تتيح للمستخدم التحكم فى بعد الـ Frame عن الضلع الايسر من الفورم ------------------------------------------------------------------------------------------------------------------------ الخاصيه ( Top ):- هذه الخاصيه تتيح للمستخدم التحكم فى بعد الـ Frame عن الضلع الاعلى من الفورم ------------------------------------------------------------------------------------------------------------------------ الخاصيه ( Width ):- هذه الخاصيه تتيح للمستخدم التحكم فى عرض الـ Frame فيمكنك أما من خلال التصميم السحب بالماوس يميناً أو يساراً لتحديد عرض الـ Frameأو كتابة رقم للعرض فى الخاصيه Width ------------------------------------------------------------------------------------------------------------------------ الخاصيه ( Visible ):- وهذه الخاصيه تتيح للمستخدم التحكم فى ظهور او عدم ظهور الــ Frame عند عرض الفورم وعند الضغط على السهم المجاور لها ستجد لها خيارين True و False عندد اختيار True سوف يظهر الـ Frame على الفورم عند فتحه ( وهذا هو الخيار الافتراضى من الفيجوال بيسك ) وعند اختيار False ٍسوف يختفى الـ Frame على الفورم عند فتحه يعنى هيكون غير ظاهر ومخفى لا يراه المستخدم ------------------------------------------------------------------------------------------------------------------------ الخاصيه ( ٍِSpecial Effect ):- هذه الخاصيه للـ Frame تعطى اشكال مبهره ومميزه للـ Frame على اليسار ستجد سهم اضغط عليه ستظهر لك قائمة وبها خمس خيارات جرب الخيارات ثم اختر الشكل المناسب لذوقك ------------------------------------------------------------------------------------------------------------------------ الخاصيه ( ٍِScrollBars ):- هذه الخاصيه من أهم الخصائص للـ Frame لانها تتيح للمستخدم عمل سكرول بار رأسى أو أفقى أو رأسى وأفقى أو بدون سكرول بار نهائيا شاهد الصوره التاليه الاختيار الاول : - fmScrollBarsNone وهو الاختيار الافتراضى للفيجوال وهو جعل الـ Frame بدون سكرول بار لا رأسى ولا أوفقى الاختيار الثانى:- fmScrollBarsHorizontal وهو جعل الـ Frame باسكرول بار افقى الاختيار الثالث:- fmScrollBarsVertical وهو جعل الـ Frame باسكرول بار راسى الاختيار الرابع:- fmScrollBarsBoth وهو جعل الـ Frame باسكرول بار رأسى و أفقى ( الاتنين معا ) ------------------------------------------------------------------------------------------------------------------------ الخاصيه ( ٍِScrollHeight ):- عند اختيارك من الخاصيه ScrollBars الاختيار الثالث fmScrollBarsVertical أو الاختيار الرابع fmScrollBarsBoth فيجب تحديد ارتفاع الاسكرول بار بكتابة رقم فى الخاصيه ScrollHeight ------------------------------------------------------------------------------------------------------------------------ الخاصيه ( ٍِScrollWidth ):- عند اختيارك من الخاصيه ScrollBars الاختيار الثانى fmScrollBarsVertical أو الاختيار الرابع fmScrollBarsBoth فيجب تحديد عرض الاسكرول بار بكتابة رقم فى الخاصيه ScrollWidth ------------------------------------------------------------------------------------------------------------------------ الخاصيه ( ٍِScrollLeft ):- هذه الخاصيه مرتبطه بالخاصيه ScrollWidth تتيح لنا تحديد كم يبعد الاسكرول بار الافقى عن عن الضلع الايسر للفريم عند فتح الفورم ------------------------------------------------------------------------------------------------------------------------ الخاصيه ( ٍِScrollTop ):- هذه الخاصيه مرتبطه بالخاصيه ScrollHeight فهى تتيح لنا تحديد كم يبعد الاسكرول بار الراسىعن عن الضلع الاعلى للفريم عند فتح الفورم ------------------------------------------------------------------------------------------------------------------------ طبعا انا عارف ان الخاصيه ScrollWidth & ScrollLeft & ScrollHeight & ScrollTop غير واضحه لكم لذالك هنقوم بشرح مثال عملى حتى تتضح لنا الصوره كامله عن هذه الخصائص فى عمل اسكرول بار والتحكم فيه مثال 1 :- عمل اسكرول بار رأسى والتحكم فى شريط التمرير فى هذه الصوره نريد عما اسكرول بار رأسى للفريم شاهد اول خطوه لماذا لم يظهر شريط التمريرداخل الاسكرول بار ؟؟؟؟؟ سامع ياسر العربى بيرد عليا وبيقول لان الخاصيه ScrollHeight = 0 هقوله برافوووووووووو طيب يالا نكتب رقم ارتفاع الاسكرول بار وليكن 100 الترجمه الحرفيه لكلمة ScrollHeight تعنى ارتفاع شريط التمرير شاهد الصوره بعد ما نكتب رقم ارتفاع الاسكرول ارتفاعه =100 للاسف يا عم ياسر كتبنا ارتفاعه 100 ومازال لا يوجد شريط تمرير ترى ما السبب ؟؟ رد عليا الاخ عبدالعزيز البسكرى قاعد صاحى معانا ومركز وقال لان ارتفاع الفريم فى الخاصيه Height = 270 وارتفاع شريط التمرير 100 برافووووو فأرتفاع الفريم اكبر من ارتفاع شريط التمرير لذالك لا يظهر الفايده من شريط التمرير الوصول الى المساحه اللى اكبر من ارتفاع الفريم نفسة لانها غير ظاهره فتعالو نكتب ارتفاع شريط التمرير وليكن 270 ونشوف ايه اللى هيحصل شاهد الصوره شاهد الصوره ارتفاع الفريم يساوى ارتفاع شريط التمرير = 270 لذالك ظهر شريط التمرير لكن لما تيجى تحركه مفيش مساحه مساحه هيتحرك فيها جرب تضغط على السهم اللى بالاعلى او الاسهم اللى بالاسفل اللى موجود بالاسكرول بار ستجد ان الشريط لا يتحرك لانه مساوى للفريم بالارتفاع فمش قادر يتحرك مفيش مساحه يتحرك فيها طيب تعالو نكتب ارتفاع شريط التمرير وليكن 300 ونشوف ايه اللى هيحصل شاهد الصوره طيب كدا عرفنا ازاى نعمل اسكرول بار راسى من الخاصيه ScrollBars وذالك من خلال اختيار fmScrollBarsVertical وعرفنا ايضا ازاى نتحكم فى ارتفاع الشريط من الخاصيه ScrollHeight عايزين نعرف ازاى نتحكم فى موضوع الشريط عند فتح الفورم يعنى فين تكون بدايته هنا تاتى اهمية الخاصيه ScrollTop تعالو نشوف الصوره دى كدا انتهينا من المثال الاول وعرفنا ازاى نعمل اسكرول بار رأسى ونتحكم فى ارتفاع شريط التمرير وكمان نتحكم فى بداية الشريط عند فتح الفورم ---------------------------------------------------------------------------------------------------------------- مثال 2 :- عمل اسكرول بار أفقى والتحكم فى شريط التمرير فى هذه الصوره نريد عما اسكرول بار رأسى للفريم شاهد اول خطوه لماذا لم يظهر شريط التمريرداخل الاسكرول بار ؟؟؟؟؟ سامع ابويوسف بيرد عليا وبيقول لان الخاصيه ScrollWidth = 0 هقوله برافوووووووووو طيب يالا نكتب رقم ارتفاع الاسكرول بار وليكن 200 الترجمه الحرفيه لكلمة ScrollWidth تعنى عرض شريط التمرير شاهد الصوره بعد ما نكتب رقم العرض للاسكرول عرضه = 200 للاسف يا ابويوسف كتبنا عرض 200 ومازال لا يوجد شريط تمرير ترى ما السبب ؟؟ رد عليا الاخ ابوالبراء قاعد صاحى معانا ومركز وقال لان عرض الفريم فى الخاصيه Width = 360 وعرض شريط التمرير 200 برافووووو فعرض الفريم اكبر من عرض شريط التمرير لذالك لا يظهر الفايده من شريط التمرير الوصول الى المساحه اللى اكبر من عرض الفريم نفسة لانها غير ظاهره فتعالو نكتب عرض شريط التمرير وليكن 360 ونشوف ايه اللى هيحصل شاهد الصوره شاهد الصوره عرض الفريم يساوى عرض شريط التمرير = 360 لذالك ظهر شريط التمرير لكن لما تيجى تحركه مفيش مساحه مساحه هيتحرك فيها جرب تضغط على السهم اللى بالايمن او الاسهم اللى بالايسر اللى موجود بالاسكرول بار ستجد ان الشريط لا يتحرك لانه مساوى للفريم بالعرض فمش قادر يتحرك مفيش مساحه يتحرك فيها طيب تعالو نكتب عرض شريط التمرير وليكن 450 ونشوف ايه اللى هيحصل شاهد الصوره طيب كدا عرفنا ازاى نعمل اسكرول بار افقى من الخاصيه ScrollBars وذالك من خلال اختيار fmScrollBarsHorizontal وعرفنا ايضا ازاى نتحكم فى ارتفاع الشريط من الخاصيه ScrollWidth عايزين نعرف ازاى نتحكم فى موضوع الشريط عند فتح الفورم يعنى فين تكون بدايته هنا تاتى اهمية الخاصيه ScrollLeft تعالو نشوف الصوره دى كدا انتهينا من المثال الثانى وعرفنا ازاى نعمل اسكرول بار افقى ونتحكم فى عرض شريط التمرير وكمان نتحكم فى بداية الشريط عند فتح الفورم ---------------------------------------------------------------------------------------------------------------- محلوظه مهمه جدا : انا شرحت على الصوره التاليه وهى كما نرى لا تحتاج عمل اسكرول بار لان كافه العناصر اللى بالفريم ظاهره وعرض الفريم مناسب لها لذالك انصح بأنه لا نلجأ لعمل سكرول بار سواء افقى او راسى او الاتنين معا الا اذا كان العناصر بالفريم كتيره وانا مش عايز اكبر حجم الفريم حتى لا يأخذ مساحه على الفورم فوقتها نلجأ للاسكرول بار **************************************************************************************** الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن التعامل مع خصائص الــ Frame فى لغة البرمجه انتظرونا تقبلوا تحياتى

استعمل المعادلة IFERROR انظر الى المثال المرفق Use IFERROR.zip

جرب هذا الملف القائمة المنسدلةتستجيب لاي تعديل او زيادة في البيانات قائمه منسدله مطاطة.zip

السلام عليكم بعد إذن إخوانى الافاضل الاستاذ القدير / ابو خليل والاستاذ القدير / احمد يعقوب والاستاذ القدير / ياسر العربى وبعد هذه الحلول الرائغة اسمحوا لى بهذة الاضافة على الاخ / ناصر ان يضع كود التنسيق لآخى القدير الحاج / احمد يعقوب فى بداية كود استدعاء البيانات ليتم استدعاؤها على النحو المطلوب ليصبح الكود هكذا Sub MACRO1() 'äÓÎ ÊäÓíÞ æÑÞÉ 2 Çáì ßá ÇæÑÇÞ ÇáãáÝ Dim RN1 As Range, SH, ER ' Sheets("æÑÞÉ2").Select Sheets("æÑÞÉ2").Range("A9:J9").Copy For SH = 2 To Sheets.Count ER = Sheets(SH).UsedRange.Rows.Count Set RN1 = Sheets(SH).Range("A8:J" & ER) RN1.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False RN1.PasteSpecial Paste:=xlPasteColumnWidths Next SH Application.CutCopyMode = False End Sub Sub test() Dim Col As New Collection, Arr, i As Long, J As Long On Error Resume Next Arr = Sheet1.Range("A7:J" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row).Value For i = 2 To UBound(Arr, 1) For J = 2 To UBound(Arr, 2) Col.Add Key:=J & Chr(2) & Arr(i, 1), Item:=Arr(i, J) Next J Next i With Sheet2.Range("A7:J" & Sheet2.Cells(Rows.Count, "A").End(xlUp).Row) Arr = .Value For i = 2 To UBound(Arr, 1) For J = 2 To UBound(Arr, 2) Arr(i, J) = Col(J & Chr(2) & Arr(i, 1)) Next J Next i .Value = Arr End With End Sub Sub Bring_Data() Dim i As Long Dim K As Long Dim LastRow As Integer Dim SourceSheet As Worksheet Set SourceSheet = ThisWorkbook.Sheets("sheet3") LastRow = SourceSheet.Range("e" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False Range("E7").Select K = 0 For i = 8 To LastRow + 8 Step 20 SourceSheet.Range("E" & i & ":V" & i + 19).Copy Range("A" & K + i).Select ActiveSheet.Paste K = K + 7 Next Application.ScreenUpdating = True End Sub Sub Clear_Data() Dim LastRow As Integer LastRow = Range("a" & Rows.Count).End(xlUp).Row Range("A8:V" & LastRow).Clear End Sub Sub Clear_Sheet2_Data() Dim LastRow As Integer LastRow = Sheet2.Range("a" & Rows.Count).End(xlUp).Row Sheet2.Range("B8:J" & LastRow).Clear End Sub Sub Call_All() Dim myConfirm myConfirm = MsgBox("åá ÊÑíÏ äÓÎ ÇáÊäÓíÞÇÊ", vbYesNo) If myConfirm = vbYes Then MACRO1 myConfirm = MsgBox("åá ÊÑíÏ ÇÓÊÏÚÇÁ ÇáÈíÇäÇÊ", vbYesNo) If myConfirm = vbYes Then test myConfirm = "" myConfirm = MsgBox(" åá ÊÑíÏ ÊÑÍíá ÇáÈíÇäÇÊ", vbYesNo) If myConfirm = vbYes Then Sheet5.Select Bring_Data Sheet2.Select End If myConfirm = "" myConfirm = MsgBox("åá ÊÑíÏ ãÓÍ ãÍÊæíÇÊ äØÇÞ ÇáÈíÇäÇÊ", vbYesNo) If myConfirm = vbYes Then Clear_Sheet2_Data myConfirm = "" myConfirm = MsgBox("åá ÊÑíÏ ÇáÈÏÁ Ýì äÞá ÇáÈíÇäÇÊ áØÈÇÚÉ ÇáßÔæÝ", vbYesNo) If myConfirm = vbYes Then StartTimer End Sub أرجو أن أكون قد وفقت فى تقديم مايصبوا اليه أخى الفاضل ناصر المصرى تقبلوا جميعا وافر احترامى وجزاكم الله خيرا

السّلام عليكم و رحمة الله و بركاته و هنا أُؤكّد أستاذي القدير و أخي المحترم " حسام " على ما ذكرتَهُ أنتَ بسلسلة شروحاتك .. باستحسانك تسمية الأشياء بمسمّياتها أنا معك بهذا الطّرح و هذا الطلب .. و هذا أمر مهم يجب الوقوف عليه أو حتى المطالبة به مستقبلاً .. هذا منتدى تعليمي بالدرجة الأولى و الأخيرة .. تقوم أنتَ بتسمية التاكست بوكس حسب هواك مثلا " حمامَة " أجيء أنا لفتح الملف لأتعلّم منه و أستفيد من أكواده كمبتديء .. يضيع كل وقتي في البحث عن ماهية هذه " الحمامة " هل هي حمامة فعلاً .. هل هي تاكست بوكس أم ليبل أم كومبوبوكس أم ليست بوكس .... هل طارتْ أم حطّتْ بينما عندما نسمي الكائنات بأسمائها الافتراضية ... مباشرة سأذهب إلى التاكست بوكس أتمنى أنّ الفكرة وصلت .. على كل حال هذه ليست فكرتي بل هي فكرة ألأخ الغالي و الأستاذ الحبيب " الصقر " فائق إحتراماتي

السّلام عليكم و رحمة الله و بركاته الأستاذ القدير و الأخ الغالي " محمّد حسن المحمّد " سأخرج من الموضوع قليلاً لأقول لك : و الله و الله و الله .. أنت أحد أولئك الأشخاص الذّين أتمنّى و أدعو الله مخلصًا أن أتعرّف عليهم عن قرب .. كم تمنيت أنّك مثلاً مقيم بجنبي أو جاري ... أو .. أو .. بارك الله فيك على التّشجيع الطيّب و الكلمات الطيّبة .. أحسن الله إليك مثلما تحسن إلينا دومًا بكلماتك الشّذيّة فائق إحتراماتي لشخصك المحترم السّلام عليكم و رحمة الله و بركاته " حسام عيسى " ألف شكر يا غالي على الكلمات الطيّبة من انسان أكثر من طيّب و صلت لك و نفذ رصيد إعجاباتي .. سأمنحها لك حينَ ميْسرة بإذن الله فائق إحتراماتي لشخصك المحترم

تفضل استاذى الفاضل هذا هو الكود المستخدم Private Sub UserForm_Initialize() TextFind.SetFocus End Sub اعتذر منك حاولت رفع الملف لكن للاسف يبدو فى مشكله فى رفع الملفات

اغرى امرؤ يوما غلاما جاهلا ...... بنقوده كيما ينال به ضرر قال ائتني بفؤاد أمك يا فتى ...... ولك الجواهر والدراهم والدرر فمضى وأغمد خنجرا في صدرها ..... والقلب أخرجه وعاد على الأثر لكنه من فرط سرعته هوى ........ فتدحرج القلب المضرج إذ عثر ناداه قلب الأم وهو معفر ...... ولدي حبيبي هل أصابك من ضرر؟؟؟؟ فكأن هذا الصوت رغم حنوه ...... غضب السماء على الغلام قد انهمر فارتد نحو القلب يغسله بما ...... لم يأتها أحد سواه من البشر واستل خنجره ليطعن نفسه ...... طعنا فيبقى عبرة لمن اعتبر ويقول يا قلب انتقم مني ولا ...... تغفر فإن جريمتي لا تغتفر ناداه قلب الأم كف يدا ولا ...... تذبح فؤادي مرتين على الأثر :( :( :(

حدد اي خلية من العامود E يجب ان تكون لغة الكيبورد اجنبية مع الاستمرار بالضغط على Alt اضغط على حرف O ثم الحرف D يظهر لك مربع حواري اختر منه Custom و سوف ترى ماذا فعلت

الصفر لا يظهر فقط في العامود E بعد الاذن من اخي ياسر العربي المعادلة التي اخي ياسر وضعتها تضغ فراغاً اذا كانت الخلية التي تقابلها في العامود A فارغة مما ينعكس سلباً على المعادلات اللاحقة اذا كنت مرتبطة بهذه المعادلة (لا تستطيع الحمع مثلاً) show_hide_zero.zip

بعد اذن الغاليين بقي نفترض ان الراجل عاوز خلايا فاضية وخلايا فيها صفار بقي نعمل ايه رخامة بقي وانا رخم نشتغل بحبيبة الغاليين IF New Microsoft Office Excel Worksheet.rar

أخي الكريم وائل .. بعد إذن أخي وحبيبي في الله زيزو العجوز

بسم الله الرحمن الرحيم دروس فى VBA Excel هذه الدروس نتيجة جهد مستفاد من شروحات وأعمال السادة أساتذة منتديات أوفيسنا أسأل الله عز وجل لهم أن تكون فى ميزان حسناتهم http://www.officena.net/ib/index.php الدرس الأول قبل أن نبدأ، دعونا نتأكد من أن الأدوات التي نحتاجها موجودة. إذا كنت تستخدم ( Excel 2007) أو إصدار أعلى click ". Office button, then click Excel Options بالاسفل سيتم إضافة علامة تبويب جديدة وهى Developer سوف نحتاج فى العمل مع التعليمات البرمجية ل VBA ، محرر، يتم تثبيته بشكل افتراضى. يمكنك فتحه عن طريق الضغط على تركيبة مفتاح الاختصار " Alt+ F11 ": او انقر على الشكل المشار له بالسهم بالصورة السابقة انتهى الدرس الأول مرفق ملف PDF يرجى ان كان هناك أى استفسار يكون فى مضمون الدرس حتى لا يتم التشتيت وتقبلوا منى وافر الإحترام والتقدير الدرس 1VBA Excel.rar

برجاء المساعدة عند تحويل التقرير الى اكسل يتم التحويل ولكن لاتظهر العناوين التي في رأس الصفحة بالكامل كما هي في تقرير اكسس بمعنى اخر اريد ان يظهر صفين من اعلى في ملف اكسل كما في تقرير اكسس صف للعناوين وصف للبيانات اسفل هذه العناوين Salary.rar

السلام عليكم ورحمة الله وبركاته أحبائى وأساتذتى ومعلمينى وأعضاء هذا الصرح العلمى العظيم أقدم لكم اليوم موضوع كود لجعل اللغة العربية في العامود الاول و اللغة الإنجليزية في العامود الثاني كثيراً ما نحتاج في أعمالنا التنقل ما بين اللغتين العربية و الإنجليزية فنجد أنفسنا بحاجة لإستخدم مفاتيح الإختصار Ctrl+Shift من جهة اليمين للتحويل للغة العربية Ctrl+Shift من جهة الشمال للتحويل للغة الإنجليزية و لكن في الإكسيل يمكننا الإعتماد على الكودين الأتيين للقيام بهذه العملية الكود الأول يوضع بــ Modules : Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Sub ChaingeLanguage(KBLang As String) Dim pwszKLID As String Select Case KBLang Case "Arabic" pwszKLID = "00000401" Case "English" pwszKLID = "00000409" End Select LoadKeyboardLayout pwszKLID, 1 End Sub والكود الثانى يوضع فى حدث الشيت : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then ChaingeLanguage "Arabic" Else ChaingeLanguage "English" End If End Sub كود لجعل اللغة العربية في العامود الاول و اللغة الإنجليزية في العامود الثاني.rar

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

جزاكم الله خيرا وجعله الله في ميزان حسناتكم واشكرك جدا للاهتمام واطيب التمنيات لك وللزملاء

لعل احد الاخوه يوافيكم بالرد الان وان لم يكن فسوافيكم بالرد غدا عند العوده من العمل حيث يوجد لدى هناك اكسس 2010 فسوف ارى المطلوب واوافيكم به ان شاء الله تعالى بالتوفيق اخوانى الكرام

وعليكم السلام ورحمة الله وبركاته اشكرك جدا للاهتمام الاختيار يظهر كما في الصورة وهو غير نشط لا استطيع تغيرة

اخى الكريم اسلام اخى الكريم عادل فى الصوره المرفقه من قبلك موضح بها انك مختار نفس الخيار وهو Exoort data with formatting and layout فهل ظبط معاك اخى عادل ام لا

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

السّلام عليكم و رحمة الله و بركاته أستاذي الغالي " ياسر العربي " .. و تبقى حلولك دائمًا أكثر دقّة من محاولات الحلول لدينا بارك الله فيك على تدخّلاتك المميّزة و المفيدة و التي تحل كثير من مشاكلنا المعقّدة جزاك الله خيرًا و زادك من علمه و فضله فائق إحتراماتي سيّدي الفاضل

يا جماعة الخير ..محدش يعرف رقم تليفون علاء رسلان أو يقدر يتواصل معاه ...

الله عليك أخى الحبيب الغالى / عبد العزيز رائــــــــــــــــــــــــــــع جدا جزاك الله خيرا

لقد سبقتني اخي الغالي عبد العزيز وكنت سأرفق نصك المتحرك هذا ولكن دائما ما اتأخر جزاك الله كل الخير اما بالنسبة للعمل علي الفورم التاني والعمل في نفس الوقت علي الشيت يرجى تطبيق مثلما قال اخي عبد العزيز حدد الشيت الثاني واختار show modal=False

حبيبى الغالى على قلبى أستاذى ومعلمى القدير / ياسر خليل ألف ألف شكر على كلماتك الرائعة وتشجيعك الدائم لى وأعزرنى أخى الحبيب لا أدرى أن الموضوع مكرر من قبل فأنا أحاول جاهدا البحث عن كل ماهو مفيد وجديد لهذا المنتدى العظيم الذى أكن له كل إحترام وتقدير وأقر له بالجميل فأنا تعلمت منه الكثير والكثير وما زلت أتعلم من أساتذة هذا الصرح العلمى الهائل وبعدين أنا مقدرش أزعل من أخويا ربنا يديم المعزة والأخوة بيننا تقبل خالص تحياتى وتقديرى

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

الأخوين والأساتذة الكرام أ / حسام عيسى وأ/ عبد العزيز زادكم الله من علمه وفضلة بارك الله فيكم

السلام عليكم - اسعد الله أوقاتكم : الزملاء المحاسبون – الأساتذة المحترمون مرفق ملف اكسل يحوي برنامجين عن احتساب نسب التحليل المالي والتحليل المقارن ( النسب الرئيسية والهامة فقط ) مع استخلاص تفسير لكل نسبة البرامج تحتوي معادلات بسيطة جدا – والغاية هي كيفية استثمار الاكسل في استخلاص نسب التحليل المالي الفكرة بالأصل لاساتذتي: ( عبد الله المدني + محمد فوزي سلام ) / + ياسرالحافظ البرامج تحتوي النسب الرئيسية ويمكن للمستثمر إضافة النسب التي تلزم لعمل مؤسسته حيث أرفقت ملف وورد بمعظم نسب التحليل المالي مع شروحات وتفسيرات وفقكم الله ياسر الحافظ " ابو الحارث " تحليل مالي اكسل.rar

السلام عليكم ورحمه الله وبركاته اخواني هل من طريقه اتلافي بها ظهور علامات الخطأ في المعادلات واخص بالذكر #DIV/0!

مشاركة بجوار حل أخي الكريم أحمد الفلاحجي حيث عند إدراج رقم في حقل Quantity بالنموذج الفرعي سيتم خصم الرقم المدرج من الكمية الموجودة بالمخزن وأيضا أضفت في النموذج الرئيسي فكرة عمل الكود من خلال زر خصم وإضافة للكميات بشكل مباشر تحياتي للجميع new-----edit.rar

أخى الكريم عند تصدير التقرير واختيار تصدير لاكسل فى خانه جمب الزر تصدير اسمها حفظ التنسيق علم عليها وسيتم استخراج التقرير كما هو بالاكسيس ان شاء الله بالتوفيق

اتفضل اخى محاوله منى لعلها تفى بالغرض بعد ماتخلص اضغط على زر التحديث up_new.rar

السّلام عليكم و رحمة الله و بركاته أخي الكريم " أبو أحمد 17475 " .. هل من الممكن التّوضيح أكثر لما تريد عمله .. لتسهيل المهمّة للإخوة الأفاضل مَن يريد منهم المساعدة : 1 - كلمة المرور غير موجودة حسب توجيهات المنتدى بالموضوع المثبّت أعلاه 2 - عند فتح الملف نجد طلبًا آخرًا غير ما ذكرته بموضوعك فائق إحتراماتي

يا عم حمدى طيب وفين هو اليست بوكس ؟ يرجى ارفاق ملف وتوضيح المطلوب بالتفصيل ولازم يكون فى بيانات تقبل تحياتى

السلام عليكم ورحمة الله وبركاته الحمد لله رب العالمين الذين جعل لنا قلوباً تأتلف...فالإنسان قبل العلم بأدبه وأخلاقه وأنا لمست منك كل ذلك بل أنا مدين لك بالكثير وكما قيل: صاحب الفضل لاينسى لأهل الفضل فضلهم فأنتم أهل فضل عليّ ...أخي الحبيب عبد العزيز وأخي الحبيب الصقر معلمنا الذي نكنّ له كل تقدير واحترام الله أكرم الأكرمين وأرحم الراحمين ..إن لم يجمعنا بالدنيا فأدعوه أن يجمعنا بمستقر رحمته ....آمين ..والسلام عليكم

ارفق مثال عملي لما تريد كما الملف عندك وحط بيانات وهميه ليتم التطبيق عليه مع شرح مبسط تحياتي

السّلام عليكم و رحمة الله و بركاته ألف شكر على المبادرة الطيّبة و الإثراء الممتاز بارك الله فيك أستاذي الفاضل و أخي الغالي " أنس دروبي " على الملف الرّائع و المميّز الذّي فعلاً لم أنتبه إليه من قبل .. جزاك الله خيرًا عزيزي المحترم .. و جعل كل حرف ممّا تقدّمه بألف حسنة فائق إحتراماتي اشخصك الكريم

السلام عليكم ضع هذه المعادله فى التحقق من الصحه =OFFSET($A$6;;;COUNTA(A:A)-1) قائمه منسدله.rar

يا حى يا قيوم اصلح لى شأنى كله ولا تكلنى الى نفسى طرفة عين

استاذي الفاضل .. الحل .. في العمود R انت استخدمت الداليه =IF(Q5>0,ROUND(S5/Q5,2),"") استخدامك لداله التقريب استخدام غير موفق لانك تريد قيم دقيقه . لا تقم بالتقريب انا فقط عدل علي المعادلات بأستخدام الارقام بعد العلامه العشريه بدلا من رقمين ب 100 رقم =IF(Q5>0,ROUND(S5/Q5,100),"") اعد كل معدلاتك التي استخدمت بيها الداله ، تقبلوا مروري .. Correct balance equation SS .rar

ألف شكر .. بارك الله فيك لمرورك العطر فائق إحتراماتي السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذي القدير " مختار حسين محمود " على المرور العطر و الكلمات الطيّبة لا ينكر الجميل إلاّ جاحد .. و أنت أحد الذين لهم فضل كبير .. كبير جدًّا .. في جعلي أعشق الاكسل بارك الله فيك .. جزاك الله خيرًا و زادك من علمه و فضله فائق إحتراماتي السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذي القدير " ياسر خليل أبو البراء " على الكلمات الطيّبة و المشجّعة مرورك العطر أضفى لموضوعي معنى أكثر .. و قيمةً أكبر كيف لا .. و أنت أحد أولئك الذين أدين لهم بالكثير نظير ما قدّموه لي و لغيري في سبيل بناء هذا الصّرح التّعليمي الكبير .. بتنوير معلوماتنا و تنوير منتدياتنا بكل سخاء و عطاء بارك الله فيك .. جزاك الله خيرُا و جعل كل حرف ممّا تقدّمه لنا بألف حسنة فائق إحتراماتي

هذا ما فعله اخي الغالي سليم له كل الشكر

أستاذي وأخي الحبيب ياسر خليل أبو البراء الذي ساعدني وشد من أزري ياسر خليل أبو البراء الذي تشرفت بالتتلمذ على يديه وما زلت طالبا ..أشكرك جزيل الشكر وأرجو الله أن يجعلني عند حسن ظنكم بي والسلام عليكم أستاذي الكريم أنس الذي أتفاءل بمستقبل واعد له أشكركم على حسن ظنكم وكلماتكم الطيبة التي تبعث في النفس الرغبة في المضي قدما كطالب للعلم على أيدي علماء الإكسل الكرام والسلام عليكم

دا طلع في حد رخم تاني غيري اهو خلاص ياعم انا ارفق ليك الدروس كهدايا مني ياعم ولو نسيت اني ارفق يبقي كانك مسمعتش مني البوقين دول ماشي ياحبي اه لا توعد وانت فرحان - لا تقرر وانت غضبان خليها معلقة كدا

اخى الحبيب والغالى ياسر والله موضوع Pdf ده بقى مهمة اللى لازمه الشرح انا والله ماعندى نسخه من الشرح انا بشرح مباشرة على الموقع فى مره النور قطع بدون حفظ ورجعت عملت اعاده للشرح مره اخرة كله والله وعلى قلبى زى العسل لان اللى عايز يعمل شئ وعند اصرار هيعمله وانا عايز اقدم شئ واللى عايز يتعلم هيعرف ازاى يحتفظ بالدرس ويستفيد منه دا لو كان لازمه لكن اوعدك ان شاء الله بعد الانتهاء من الشروحات نعمله كتاب الكترونى بأذن الله وطبعا ده مش هيكون لوحدى هيكون بهمتكم معانا تقبل تحياتى

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

سلمت يداك اخي كمال ان كلمة عمل رائع تعني الاجحاف بحقك ولا تكفي لوصف مجهودك فعلا انه مجهود جبار وعمل اكثر من رائع اخي كمال لو تكرمت فلي ملاحظة صغيرة وهي خاصية البحث حيث ان التركيز يعود الى مربع البحث وبالتالي لا يمكن كتابة اكثر من حرف وعلى كل الاحوال برنامج كامل والكمال لله وما شاء الله عليك وعلى عملك جعلة الله في ميزان حسناتك وجزاك الله الف خير