أ / محمد صالح

وفقنا الله جميعا لكل خير

أعتقد وضع اليوم في تنسيق خانة التاريخ يغني عن استعمال عمود إضافي لليوم وإذا كان لابد منه يمكن استعمال هذه المعادلة في الخلية A4 =IF(B4="","",TEXT(B4,"dddd")) بالتوفيق

جميعا بإذن الله 👍✌

يمكنك استعمال الأشكال التلقائية في رسم الدوائر من تبويب إدراج insert ثم أشكال shapes ثم شكل بيضاوي oval ثم نضغط مع السحب بزاوية مع الضغط على زر shift لرسم الدائرة وبعدها يتم الكتابة داخلها ثم نسخ الشكل الناتج وتعديل الرقم بالتوفيق

يمكنك استعمال هذا الكود عند تغيير كومبوكس2 Private Sub ComboBox2_Change() Dim i As Long, lastrow As Long, ws As Worksheet Set ws = Sheets("بيان") lastrow = ws.Range("e" & Rows.Count).End(xlUp).Row Me.TextBox1.Value = "" For i = 2 To lastrow If Me.ComboBox2.Value = ws.Cells(i, "e") And Evaluate("=EDATE(" & CDbl(CDate(Me.ComboBox1.Value)) & ",-1)") = CDate(ws.Cells(i, "d")) Then Me.TextBox1.Value = ws.Cells(i, "g").Value End If Next i End Sub ولا تنس أن تحذف الخلايا التي بها الشرح في الصف 12 و 13 بالتوفيق

لكي يتم وضع الصورة في النموذج يجب أن يتم استعراض الملفات وتحديدها فلماذا نريد طباعتها بعد وضعها في النموذج الأولى طباعتها من مسارها الأصلي إلا إذا كان مصدر الصورة ليس على الجهاز والهدف هو استخراجها مرة أخرى على كل حال يمكنك استعمال هذا الكود في الزر Private Sub CommandButton1_Click() Dim image_path image_path = CreateObject("scripting.filesystemobject").GetSpecialFolder(2).Path & "\mas.bmp" SavePicture Image1.Picture, image_path If MsgBox("هل تريد طباعة الصورة الآن؟", vbYesNo) = vbNo Then Exit Sub Call apiShellExecute(Application.hwnd, "print", image_path, vbNullString, vbNullString, 0) End Sub بالتوفيق

يمكنك استعمال برنامج advanced office password recovery

المطلوب غير واضع لي لكن حسب فهمي للمطلوب يمكن استعمال هذه المعادلة في الخلية D18 =VLOOKUP(C18,A$4:K$15,10,1) وهي معادلة بحث عادية جدا يعرفها من يعلم أساسيات معادلات الاكسل لدرجة أني لم أكن أتوقع أن يكون هذا هو المطلوب بالتوفيق

الاسم البرمجي للشيت المستعمل هو sheet10 ومن الظاهر في الصورة لا يوجد لديك شيت اسمه البرمجي sheet10 يظهر في الصورة sheet4 أو ورقة1 بالتوفيق

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

يمكنك استعمال هذه المعادلة =IF(DAY(TODAY())=1,1,1+(DAY(TODAY())-1)*5) بالتوفيق

لتحويل أي معادلة إلى كود يمكنك استعمال هذه الطريقة [Cell reference] = Evaluate("=Cell formula") وفي حالتك [i13] = Evaluate("=INDEX($D$5:$I$9,MATCH(D13,$C$5:$C$9,0),MATCH(F13,$D$4:$H$4,0))") وطريقة استدعائه بزر أمر مرتبط بإجراء sub به هذا الكود أو في حدث تغيير خلايا ورقة العمل worksheet_change وبالنسبة للتنفيذ من الأكسس على نفس هذا الشيت بعد تصديره مثلا نستعمل قبل evaluate اسم كائن تطبيق الاكسل مثال sh.Range("i13").value = Xlapp.Evaluate("=INDEX($D$5:$I$9,MATCH(D13,$C$5:$C$9,0),MATCH(F13,$D$4:$H$4,0))") بالتوفيق

من الواضح في نص الملف أنه تم تغيير امتداده إلى xls * والصواب أن يكون امتداد الملف csv * مع مراعاة نظام الجهاز في فاصلة القوائم هل هي الفاصلة المنقوطة ( ; ) كما في الملف أو الفاصلة فقط ( , ) واستعمال البحث والاستبدال لتغيير الفاصلة المنقوطة حسب إعدادات جهازك في أي محرر نصوص مثل notepad بالتوفيق

جميعا بإذن الله

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

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

الأمر بسيط جدا * صمم شكل صفحة الطباعة وحدد أماكن الخانات عليها أولا * ويمكنك استعمال الدالة index مع match للبحث عن النتائج وهذه المواضيع تشرح استعمال الدالتين في البحث لمن لا يعرف ولكن يريد أن يتعلم وأقترح عليك أن يكون البحث برقم المسلسل لتسريع البحث بدلا من كتابة 14 رقما بالتوفيق

آمين ولك مثلها إن شاء الله

يمكنك استعمال هذه المعادلة في الخلية A7 =IF(B7="","",COUNTIF(B$7:B7,"<>")) وتعني إذا كانت خلية القيمة فارغة تكن فارغة وإلا فيعد خلايا القيمة المكتوبة حتى الآن بالتوفيق

جميعا بإذن الله تعالى

الحمد لله الذي بنعمته تتم الصالحات

جميعا بإذن الله قراءة الموضوعات السابقة في المنتدى تجيب عن كثير من تساؤلاتنا إن شاء الله تجد المطلوب الأول في هذا الموضوع

الشكر لله الذي وفقنا

تم اختبار الملف ولا يوجد أكواد تمنع الكتابة وتمت الكتابة بأي عدد حروف ولا يوجد مشكلة ربما تكون المشكلة من خطأ في إعدادات الاكسل لذا يفضل عمل إصلاح repair لبرامج الأوفيس من لوحة التحكم ثم إلغاء تثبيت البرامج uninstall programs ثم تحديد الأوفيس ولكن الضغط على إصلاح وليس إلغاء التثبيت بالتوفيق

إذا أردت معرفة السبب فعليك بإرفاق الملف أو الشيت الذي به المشكلة فربما يكون السبب كود vba