عبدالفتاح في بي اكسيل
الخبراء-
Posts
738 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
5
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو عبدالفتاح في بي اكسيل
-
اريد كود ظهور رقم الصف فى الليست بوكس
عبدالفتاح في بي اكسيل replied to مصطفى احمد سلطان's topic in منتدى الاكسيل Excel
اعتقد ان هذا هو طلبك row number.xlsm -
ترحيل البيانات وفتح صفحه جديد
عبدالفتاح في بي اكسيل replied to هدي ياسمين's topic in منتدى الاكسيل Excel
اقرأي التعليق جيدا اضيفي ورقة جديدة وانظري كيف ستكون الورقة -
ترحيل البيانات وفتح صفحه جديد
عبدالفتاح في بي اكسيل replied to هدي ياسمين's topic in منتدى الاكسيل Excel
جربي هذا الملف قمت بعمل كود بمجرد اضافة ورقة سيتم انشاء جدول ونسخ بعض البيانات اريد منك ان تري ما ينقصه الجدول وضعي البيانات الناقصة الى الان اجد صعوبة في فهم بياناتك ساحاول قدر المستطاع ما امكنني مساعدتك test (2).xlsm -
المساعدة فى تقرير يومى لوحدة بيطرية
عبدالفتاح في بي اكسيل replied to waffaa_qm's topic in منتدى الاكسيل Excel
ولكن لايوجد نتائج في الملف ضعي نقاطك في نتائج على هيئة صفحات اذا اخترنا كذا كيف تكون النتيجة قد نساعدك في بعض الجزئيات وليس كلها -
ترحيل البيانات وفتح صفحه جديد
عبدالفتاح في بي اكسيل replied to هدي ياسمين's topic in منتدى الاكسيل Excel
اختي الكريمة لو تناولت كل نقطة لوحدها لوجدتي تفاعل اكثر من الاعضاء ولماذا لا تضعي النقاط على صورة نتائج عند اصدار ورقة جديدة كيف تكون بصراحة نقاط عديدة وبعضها غير واضح . -
جرب هذا الماكرو لعله يفيدك Sub ActivateWordTransferData() 'تحديد المدى كما في ورقة الاكسيل مع مراعاة اسم الورقة Worksheets("Sheet1").Range("c1:g200").Copy Dim wdapp As Object, wddoc As Object Dim strdocname As String On Error Resume Next Set wdapp = GetObject(, "Word.Application") If Err.Number = 429 Then Err.Clear Set wdapp = CreateObject("Word.Application") End If wdapp.Visible = True 'مكان ملف الوورد في الدرايف strdocname = "C:\Users\alhagag\Desktop\ww.docx" If Dir(strdocname) = "" Then MsgBox "The file " & strdocname & vbCrLf & "was not found " & vbCrLf & "C:\ww\.", vbExclamation, "The document does not exist." Exit Sub End If wdapp.Activate Set wddoc = wdapp.Documents(strdocname) If wddoc Is Nothing Then Set wddoc = wdapp.Documents.Open(strdocname) wddoc.Activate wddoc.Range.Paste wddoc.Save wdapp.Quit Set wddoc = Nothing Set wdapp = Nothing Application.CutCopyMode = False End Sub
-
عرض التاريخ فى Textbox
عبدالفتاح في بي اكسيل replied to مصطفى احمد سلطان's topic in منتدى الاكسيل Excel
بعد اذن استاذ محمد اخي مصطفى هل جربت تغيير اعدادات التاريخ من الويندوز قد تكون هي السبب مع هذا مشكلة غريبة لماذا مع الرقم 12 يجب ان تكون المشكلة بتنسيق التاريخ بالكامل عند كتابة اي يوم عموما هذه محاولة Private Sub TextBox1_AfterUpdate() Dim sdate As Date sdate = DateValue(Val(Me.TextBox1.Value) & "/" & Month(Date)) TextBox1.Value = Format(sdate, "yyyy/mm/dd") End Sub -
ملفك يجب اعادة تنسيقه خصوصا الغاء دمج الخلايا هذه الاكواد تعمل معي ان لم تعمل معك بسبب الخلايا المدمجة ثم انك ارفقت ملف دون ان توضح اي شيء هل علينا فك الغاز لحل هكذا مواضيع بعد هذه المقدمة هذاين كودين للطباعة والترحيل مع مراعة تسمية الاوراق بالانجليزي الفاتورة INVOICE والورقة المرحل اليها DATA Sub CCTO() Dim LR As Long, i As Long, cls cls = Array("a10", "b11", "b13", "b14") With Sheets("data") LR = WorksheetFunction.Max(2, .Range("A" & Rows.Count).End(xlUp).Row + 1) For i = LBound(cls) To UBound(cls) .Cells(LR, i + 1).Value = Sheets("invoice").Range(cls(i)).Value Next i End With With Sheets("INVOICE") .Range("A10").ClearContents .Range("A16:A25").ClearContents .Range("B11").ClearContents .Range("B13").ClearContents .Range("B14").ClearContents .Range("B16:B25").ClearContents End With End Sub Sub PPRINT() ActiveSheet.PageSetup.PrintArea = "$A$1:$E$31" ActiveSheet.Range("A1:E31").PrintOut End Sub
- 1 reply
-
- 1
-
جرب بنسخ جميع بياناتك في ملف جديد لعل المشكلة من الملف
-
تكرار طباعة صفوف اسفل كل ورقة من ملف اكسيل
عبدالفتاح في بي اكسيل replied to ربيع7's topic in منتدى الاكسيل Excel
غير واضح السؤال😕 -
طريقة تقسيم الخلية الى عدة خلايا
عبدالفتاح في بي اكسيل replied to Lama.m's topic in منتدى الاكسيل Excel
ارفق ملف وضع النتيجة المتوقعة حتى تجد المساعدة- 1 reply
-
- 1
-
مطلوب كود اعادة تفعيل مشاركة الملف
عبدالفتاح في بي اكسيل replied to خالد القدس's topic in منتدى الاكسيل Excel
اخي الكريم على الرغم انه ليس لدي تجربة في مشاركة الملفات ولكن من الكود لا يوجد دليل الملف الذي تم مشاركته عموما جرب هذا السطر ActiveWorkbook.SaveAs FileName, , , , , , xlShared يجب الاعلان عن متغير لدليل الملف ثم تقوم بتعيينه -
جرب هذا الملف بحث.xlsm
-
كود طباعة الخلايا المليئة فقط فى شيت اكسيل
عبدالفتاح في بي اكسيل replied to ايمن لاشين's topic in منتدى الاكسيل Excel
جرب هذا الكود كبداية Sheets("Sheet1").Range("A1:d200").Printout -
اخي الكريم انا استخدم اوفيس 2019 وقمت بمراجعة القيم في معادلتك مطابقة تماما وتعمل بدون مشاكل ساترك المجال للاساتذة الاخرين قد يجدون لك حل
-
لتجد تفاعل من الاعضاء يرجى شرح شروط هذه الدالة ما هي الشروط الواجب توافرها حتى تعطى قيم صحيحة
-
كود نسخ الارقام الي عمود اخر
عبدالفتاح في بي اكسيل replied to commandos1975's topic in منتدى الاكسيل Excel
طلب غير مفهوم على الاطلاق ولماذا وضع الارقام في مربعات نص بدل الخلايا ؟🤔 -
طلب كود ترحيل بدلالة صف وعنوان عمود
عبدالفتاح في بي اكسيل replied to فريدة العصر's topic in منتدى الاكسيل Excel
اذا كانت بياناتك قليلة فاستخدم معادلة المصفوفة بالضغط ctrl+shift+enter =IF(ISNUMBER(MATCH($A4&C$1,sheet1!$A$1:$A$7&sheet1!$B$1:$B$7,0)),"يوم المبيت","") اما اذا اردت كود فلا حاجة للحلقات التكرارية Sub ctr() With Range("B2:G6") .Formula = "=IF(ISNUMBER(MATCH($A2&B$1,SHEET1!$A$1:$A$7&SHEET1!$B$1:$B$7,0)),""يوم المبيت"","""")" .FormulaArray = .FormulaR1C1 .Formula=.value End With End Sub