أ / محمد صالح

جرب أن تضع هذه المعادلة في الخلية B3 =IF(A3<=100,A3*1.5,IF(A3<=150,150+(A3-100)*2,IF(A3<=200,250+(A3-150)*5,500+(A3-200)*6))) على افتراض أن الأكثر من 200 ب 6 وطبعا ال 150 عبارة عن 100 في 1.5 وطبعا 250 عبارة عن 150 + ( 50 في 2) وطبعا ال 500 عبارة عن 250 + (50 في 5) بالتوفيق

يلزمك القراءة عن المراجع المطلقة والمراجع النسبية جرب استعمال =$A$1-A4 سيتم تثبيت A1 بالتوفيق

يمكنك إضافة خيارات اللغة إلى شريط الوصول السريع ملف --- خيارات --- تخصيص شريط الوصول السريع file - options - quick access toolbar أوامر غير موجودة في الشريط commands not in the ribbon هيارات اللغة options language إضافة add ok كما بالصورة بالتوفيق

جرب استعمال هذا الكود في حدث تغيير محتويات الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then If Target.Value = "done" Then Target.Offset(0, 2).Value = Target.Offset(0, 1).Value Target.Offset(0, 4).Value = Date End If End If End Sub بالتوفيق

عليكم السلام يمكنك فتح الملف ثم النقر فوق "ملف" و"فحص المصنف" File - Inspect Workbook وأصلح ما تجده من عيوب سيفتح معك بصورة طبيعية بعدها إن شاء الله بالتوفيق

عليكم السلام جرب هذه المعادلة في أي عمود في الصف الثاني ونسخها لأسفل =IF(INDIRECT(IF(ISODD(ROW()),"A","B")&INT(ROW()/2)+1)="","فارغ",INDIRECT(IF(ISODD(ROW()),"A","B")&INT(ROW()/2)+1)) بالتوفيق

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

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

هذا ملفك بعد تنفيذ التعليمات الواردة في المشاركة السابقة وطبعا طريقة تحديد الانتقال بعد انتر في الخيارات معروفة ملف -- خيارات -- متقدم ثم تختار يمين كما بالصورة Example.xlsm

عليكم السلام جرب استخدام هذا الكود بعد تحديد الخلايا التي يراد وضع ارتباط تشعبي لها Sub AddHypaerlinks() Dim cl As Range Dim myPath As String, fileName As String myPath = "C:\Users\civat\Desktop\New folder\" 'SET TO WHERE THE FILES ARE LOCATED For Each cl In Selection If Len(cl) > 0 Then fileName = myPath & cl.Value & "*.docx" 'IF THE FILE EXISTS THEN If Len(Dir(fileName)) <> 0 Then ActiveSheet.Hyperlinks.Add cl, myPath & Dir(fileName) End If Next End Sub بالتوفيق

حسب فهمي للمطلوب طبعا بعد جعل جميع خلايا الشيت مؤمنة ومخفية locked & hidden ما عدا الخلايا المسموح بالكتابة فيها (بحذف علامة الصح بجوار locked & hidden ) من التبويب الأخير لنافذة تنسيق الخلايا (protection حماية ) ثم اثناء حماية الشيت من تبويب مراجعة review قم بإلغاء تحديد الخلايا المؤمنة (الملونة باللون الأصفر في الصورة التالية) بالتوفيق

إن شاء الله يفيدك هذا الملف نموذج بسيط لاختيار الوقت مثل اختيار التاريخ بالتوفيق time picker.xlsb

عملية البحث طبيعية ولا مشكلة في الكود ويرجع سبب الحصول على أرقام أخرى أن عملية البحث غير مطابقة وإنما باللواصق (ما قبلها وما بعدها) "*" & Me.TextBox1 & "*" فلو بحثنا عن الرقم 2 يجلب لنا 2 و 12 و 22 و 25 و 32 وهكذا وإذا أردنا أن يكون البحث عن الأرقام مطابقا يجب إضافة شرط لمعيار البحث باستبدال السطر الثاني إلى هذا السطر clé = IIf(Me.combobox1.Value = "الرقم" Or Me.combobox1.Value = "عدد الحروف" Or Me.combobox1.Value = "عدد الكلمات", Me.TextBox1, "*" & Me.TextBox1 & "*"): n = 0 بالتوفيق

عليكم السلام يمكنك وضع هذه المعادلة في الخلية F3 =(SUM(B3,E3)-SUM(A3,D3))*24 بالتوفيق

أخي الكريم يجب كتابة المطلوب بالتفصيل الممل حتى يفهم الجميع ويساعدوك

من الواضح أن إجراء التمكين غير موجود والذي يسمى enableply لذلك يمكنك استعمال هذين الاجرائين للتعطيل Private Sub Workbook_Open() Application.CommandBars("Ply").Enabled = False End Sub للتمكين Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Ply").Enabled = True End Sub بالتوفيق

يمكنك استعمال هذه المعادلة في B3 =WORKDAY.INTL(A3-1,D3,16) بالتوفيق

المشكلة ليست في الكود المشكلة في تنسيق الخلية ونوع التقويم

جرب هذه المعادلة =IF(M4*0.0199<1.99,1.99,IF(M4*0.0199>=0.299*F4,0.299*F4,M4*0.0199)) على اعتبار أن قيمة الصفقة هي الخلية F4 بالتوفيق

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

يمكنك تجربة هذه المحاولة بالمعادلات بدلا من تصدير النتائج في شيت جديد يمكنك كتابة مصطلح البحث والحصول على النتائج في شيت النتائج أهم شيء معادلة المسلسل في شيت البيانات data لأن معادلة البحث vlookup تعتمد عليها بالتوفيق فلترة نتائج البحث في شيت جديد.xls

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

بعد إذن أخي الغالي @احمد عبدالحليم يمكنك استعمال هذا الاجراء لوضع أسماء الشيتات ايا كان عددها في العمود B Sub sheetsnames() n = 4 For Each sh In ThisWorkbook.Sheets If sh.Name <> "الرئيسية" Then Range("b" & n) = sh.Name n = n + 1 End If Next sh MsgBox "ok" End Sub واستعمال هذا الكود في حدث تغيير قيمة الخلايا في شيت الرئيسية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then Range("C4:C12").Formula = "=VLOOKUP($B$2,INDIRECT(""'""&B4&""'!a2:b10000""),2,0)" Range("C4:C12").Value = Range("C4:C12").Value End If End Sub بالتوفيق

بدلا من الكود الخاص بنسخ 32بت فقط ويكون السطر مكتوب باللون الأحمر تضع هذا السطر بعد elde وتضع نفس السطر بعد غضافة ptrsafe قبل function بعد if vba7

نظام جهازي يستعمل الفاصلة بين أجزاء المعادلة ربما يكون جهازك يستعمل الفاصلة المنقوطة