أ / محمد صالح

عليكم السلام جرب هذه المعادلة في أي عمود في الصف الثاني ونسخها لأسفل =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

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

هذه معادلة بحث عادية لماذا تجعلها مصغوفات بالضغط على Ctrl+shift+enter يلزمك تقليل عدد صفوف البحث بتبديل رقم 1048576 إلى 1000 مثلا إذا كانت صفوف بياناتك أقل من الف صف او اكبر من عدد صفوف البيانات لديك بقليل بالتوفيق

أو يمكنك تعديل الكود ليتناسب مع 64bit # if vba7 then declare ptrsafe function.... # else declare function... # end if لاحظ وضع ptrsafe قبل function بالتوفيق

عليكم السلام ورحمة الله وبركاته يمكنك استعمال هذه المعادلة في L6 =IF(H6>0,VLOOKUP(C6,$T$5:$AI$100,MATCH(B6,$T$5:$AI$5,0),0),0) وهذه المعادلة في N6 =IF(AND(H6>0,OR(S6="ض نقل",S6="نقل")),VLOOKUP(C6,$T$5:$AI$100,MATCH(B6,$T$5:$AI$5,0)+1,0),0) لاحظ استعمال match لجلب ؤقم العمود بدلالة رقم أمر التوريد بالتوفيق

يمكنك الاستفادة من هذا الموضوع بالنسبة للبحث بمجرد كتابة حرف بالتوفيق

المشكلة في كلمة تماما يمكنك نسخ الجدول إلى الاكسل وإعادة تنسيقه من جديد بما يتناسب مع إمكانيات الاكسل بالتوفيق