عبد الفتاح كيرة

بعد إذن الأساتذة =DATE(YEAR(A1);MONTH(A1)+14;DAY(A1)) نفس معادلة الأخ طارق لكن معادلة الأخ طارق بها + زائدة

أخى أمير راجع هذا الموضوع مؤقتا حتى أجد الوقت لذلك إن شاء الله http://www.officena.net/ib/index.php?showtopic=34833

تقصد كود ؟ الكود يعمل أكثر من عملين بكثير [a2] = 9 Sheets(2).Select

كهذا Range("6:11 ,15:17,20:25,30:33,37:41").EntireRow.Hidden = True

استخدم هذا الكود Range("f:k ,n:s,v:aa,ad:ai,al:aq").EntireColumn.Hidden = True

لعمل ذلك يجب إرجاع كل الأكواد التى حذفت " أقصد المعادلات "

الحل بطريقة سهلة جدا الجداول المحورية شاهد الصورة kemas22.zip

قيمة أستاذ بن علية

لعله هذا =(A1-INT(A1))*100

عليك معرفة مكان هذه الأكواد فى مشروع فيجوال بيسك لا أثر لوجودها فى الصفحة إلا من خلال نتائجها يمكنك الذهاب للماكرو الذى ينفذ عمليات الطرح و الجمع بضغط alt + f11

تقصد معادلات ؟ الكود التالى Dim myrng As Range Dim cl As Range Set myrng = ActiveSheet.Cells.CurrentRegion For Each cl In myrng If cl.HasFormula Then cl = cl.Value End If Next cl امسح المعادلات و إبقاء القيمkemas.zip

الكود التالى لإخفاء الورقة Sub hido() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name = "ورقة1" Then ws.Visible = xlSheetHidden End If Next ws End Sub وهذا لإظهاره مع المطالبة بكلة السر 123 Sub showo() Dim ws As Worksheet If InputBox(" your pass") = "123" Then For Each ws In ThisWorkbook.Worksheets If ws.Name = "ورقة1" Then ws.Visible = xlSheetVisible End If Next ws End If End Sub المرفق كود إظهار و إخفاء أوراق العمل بكلمة سر - kemas.rar

فى بداية الكود أضف السطر التالى If InputBox(" your pass") = "123" Then وقبل end sub أضف end if ليصبح الكود Sub ãÇßÑæ1() ' ' ãÇßÑæ1 ãÇßÑæ ' ÇáãÇßÑæ ãÓÌá ý11/01/2011 ÈæÇÓØÉ ýUSER ' ' If InputBox(" your pass") = "123" Then Range("C3:H17").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone With Selection.Interior .ColorIndex = 36 .Pattern = xlSolid End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge End If End Sub

أنا جربت ذلك و لم ينجح معى ============= عفوا فى المحاولة الثانية نجح

أخى مراد اكتب المسميات الوظيفية كما تريدها بالترتيب فى أحد الأوراق قم بتسمية النطاق الذى فيه المسميات و ليكن " مسميات " فى خصائص الفورم توجد خاصية row sourse اكتب بجوارها =مسميات شاهد تسلسل الإدراج داخل القائمة وحسب المسمياتkemas.zip

أخى لا علم لى بهذا ننتظر أحد الإخوة يجيبنا لدى شيت مشابه

الحل تأمين الخلايا التى بها معادلات فقط و اختيار عدم تحديدها حاول تحديد خلية من خلايا عمود الاسم ولاحظ المعادلاتkemas2.zip

طبعا لأن تغيير قيمة الزر هو تغيير فى البيانات

حاجة جميلة أخانا بارك الله فيك المهم أنها صنعة يديك بارك الله فيك

جزاك الله خيرا أستاذنا خبور ونفع بك المسلمين

اترك مسافة واحدة بعد كل رقم و قبل كل شرطة

أخى الفاضل الجدول المحورى ينفعك جدا يمكنك الحصول على كل ما تريد يمكنك تغيير اسم العميل يمكنك تغيير التاريخ انظر الصورة و المرفق ولا معادلات ولا أكواد كلاهما سيثقل ملفك الامريكيةkemas.zip

آسف أستاذ عادل اختلف التاريخ فى النسخة العربية عن الإنجليزية عفوا للخطأ

ممتازة جدا لو راجعت تاريخ يناير 2011

شكرا على الحل الذكر بارك الله فيك