اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أ / محمد صالح

أوفيسنا
  • Posts

    4,357
  • تاريخ الانضمام

  • Days Won

    185

Community Answers

  1. أ / محمد صالح's post in تعديل تاريخ تلقائي was marked as the answer   
    يمكنك الاستفادة من هذه المواضيع
    https://www.officena.net/ib/search/?q=سجل غياب&quick=1&type=forums_topic&nodes=135&updated_after=any&sortby=relevancy&search_and_or=and
    في تنفيذ برنامجك
    وإذا وقفت في نقطة أو اثنتين يمكنك طرحها  في موضوع جديد
    مع توضيح المطلوب بمنتهى التفصيل
    بالتوفيق
  2. أ / محمد صالح's post in اريد كود لفتح شيت بناء على قيمة خلية was marked as the answer   
    كتابة اسم الشيت بها احتمالات للخطأ
    الأفضل اختيار الاسم من قائمة بأسماء الشيتات
    ساعتها يمكنك استخدام أمر فتح الشيت
    Sheets(Range("a1").Text).Activate بالتوفيق
  3. أ / محمد صالح's post in اضافة لليست فيو was marked as the answer   
    لعرض آخر 20 ضف يمكنك تغيير هذا السطر في الاجراء showdata
    For frw = 4 To last إلى
    For frw = last - 19 To last ولخذف الصف المطلوب
    Private Sub CommandButton1_Click() If MsgBox("Are you sure you want to delete this item?", vbYesNo, "Confirm Delete") = vbYes Then Rows(ListView1.SelectedItem.ListSubItems(1).Text + 3).EntireRow.Delete showdata End If MsgBox "Done by mr-mas.com" End Sub بالتوفيق
  4. أ / محمد صالح's post in حذف علامة العملة من خلية أو عمود محدد؟ was marked as the answer   
    يمكن بطرق كثيرة
    اسهلها البحث والاستبدال CTRL+H
    ثم تكتب في مربع البحث العملة ومربع الاستبدال يترك فارغا
    ثم استبدال الكل replace all
    بالتوفيق 
     
  5. أ / محمد صالح's post in كود لتصدير عددة صفحات ل PDF was marked as the answer   
    إذا كان المطلوب تصدير جميع أوراق العمل الى ملف pdf واحد يمكنك استعمال هذا الكود
    Sub exportAllSheetToPdf() Dim sh As Worksheet, savpath As String For Each sh In ActiveWorkbook.Worksheets Worksheets(sh.Name).Select False Next sh savePath = "C:\Users\hp\Downloads\moh-selmy\power Q.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Sheets(1).Select MsgBox "Done by mr-mas.com" End Sub وإذا كان المطلوب صفحات محددة يمكن استعمال هذا الكود مع كتابة اسماء الشيتات المطلوب تصديرها في المصفوفة
    Sub exportSomeSheetsToPdf() Dim savpath As String ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select savePath = "C:\Users\hp\Downloads\moh-selmy\power Q.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True MsgBox "Done by mr-mas.com" End Sub بالتوفيق
  6. أ / محمد صالح's post in تجميع الرقم الصحيح مع الكسر في خليتين was marked as the answer   
    تم حل هذا الموضوع قبل ذلك 
    إن شاء الله يفيدك هذا الموضوع
    مع فارق الألف درهم يساوي واحد دينار
    والمائة قرش تساوي واحد جنيه
    بالتوفيق 
     
  7. أ / محمد صالح's post in دورة في vba الباوربوينت was marked as the answer   
    كثيرا ما نحتاج لتصميم عرض تقديمي تفاعلي
    يمكن العرض من التفاعل مع المستخدم
    فإذا اختار المستخدم اختيار يقوم البرنامج بإجراء معين
    وهكذا
    وهذه مجموعة من ملفات الشرح بالصوت والصورة لكيفية عمل عرض تقديمي تفاعلي
    حجم الملف 71.7 ميجا بايت
    ولا تنسوا أخاكم / محمد صالح من صالح دعائكم
    والآن مع التحميل
    http://www.mediafire.com/download.php?mjmmiyzmwyg

  8. أ / محمد صالح's post in استخراج قيمة الاوس ^ التى تعطى الرقم 30 أو كبر وليس اقل was marked as the answer   
    عليكم السلام
    عكس دالة power هي دالة log
    =log(30,2) ربما تعطي كسورا
    ولأنك تريد أن تتغير 30 إلى رقم أكبر يمكنك جبر كسر الرقم لأعلى ceiling مثلا
    بالتوفيق
  9. أ / محمد صالح's post in كنترول جدارات تجاري was marked as the answer   
    عليمن السلام ورحمة الله وبركاته
    ربما تفيد هذه الموضوعات
    Showing results for 'جدارات' in content posted in منتدى الاكسيل Excel . - أوفيسنا (officena.net)
    بالتوفيق
  10. أ / محمد صالح's post in كيف أضيف معادلة من أوفيس 365 إلى أفيس2016 was marked as the answer   
    يمكنك تجربة هذه الدالة المعرفة
    Function FILTER_AK(Where, Criteria, Optional If_Empty) As Variant Dim Data, Result Dim i As Long, j As Long, k As Long 'Create space for the output (same size as input cells) With Application.Caller i = .Rows.Count j = .Columns.Count End With 'Clear ReDim Result(1 To i, 1 To j) For i = 1 To UBound(Result) For j = 1 To UBound(Result, 2) Result(i, j) = "" Next Next 'Count the rows to show For i = 1 To UBound(Criteria) If Criteria(i, 1) Then j = j + 1 Next 'Empty? If j < 1 Then If IsMissing(If_Empty) Then Result(1, 1) = CVErr(xlErrNull) Else Result(1, 1) = If_Empty End If GoTo ExitPoint End If 'Get all data Data = Where.Value 'Copy the rows to show For i = 1 To UBound(Data) If Criteria(i, 1) Then k = k + 1 For j = 1 To UBound(Data, 2) Result(k, j) = Data(i, j) Next End If Next 'Return the result ExitPoint: FILTER_AK = Result End Function استخدامها مثل الدالة filter في اوفيس 365 مع فارق الضغط على Ctrl+shift+enter
    بالتوفيق 
  11. أ / محمد صالح's post in خطاء في الطباعة معادلة ميكرو was marked as the answer   
    تقريبا قام أحد المستخدمين بحذف أعمدة
    حركت خلية العدد الكلي للأسماء من Z2 إلى U2
    يمكنك تغيير هذا السطر في الكود
    Loop While ActiveCell.Value <= Range("Z2").Value إلى
    Loop While ActiveCell.Value <= Range("U2").Value بالتوفيق
  12. أ / محمد صالح's post in الاعلى درجة was marked as the answer   
    أخي الكريم
    طلبك هذا يدل على احتياجك لتعلم أساسيات الاكسل
    يمكنك استخدام هذه المعادلة
    =MAX(A2:C2) بالتوفيق 
  13. أ / محمد صالح's post in حساب اجمال كمية وعدد النقل لسيارة في نفس التاريخ was marked as the answer   
    يمطنط استخدام هذه المعادلة في الخلية Q2
    =SUMIFS(tr_acc[عدد النقل],tr_acc[رقم الوش],N5,tr_acc[التاريخ],M5) بالوفيق
  14. أ / محمد صالح's post in جمع عمود بشرط في جميع الشيتات was marked as the answer   
    يمكنك وضع قائمة الشيتات في عمود وليكن P مثلا
    ثم استعمال هذه المعادلة للحصول على مجموع التأمينات في العمود K من جميع الشيتات المكتوبة في القائمة
    =SUMPRODUCT(SUMIFS(INDIRECT("'"&$P$1:$P$5&"'!"&"k5:k1000"),INDIRECT("'"&$P$1:$P$5&"'!"&"b5:b1000"),$D$2)) حيث أن اسماء الشيتات في النطاق P1:P5 واسم الموظف في D2
    ويمكنك تطويع المعادلة للحصول على مجموع أي عمود مثل عمود التأمينات K
    بالتوفيق
  15. أ / محمد صالح's post in هل يوجد ملف اكسل انشاء QR code was marked as the answer   
    أبسط هذه الطرق استعمال دالة image
    =IMAGE("https://quickchart.io/qr?size=100&text="&A2) خيث A2 هي الخلية التي بها النص المراد تحويله
    ولمن ليس لديه دالة image يمكن استخدام هذه الدالة المعرفة
    Function masqr(mytext As String) Dim URL As String, myrng As Range, myshp As Shape Set myrng = Application.Caller URL = "https://quickchart.io/qr?size=100&text=" & mytext On Error Resume Next ActiveSheet.Pictures("myqr" & myrng.Address(False, False)).Delete ActiveSheet.Pictures.Insert(URL).Select Set myshp = Selection.ShapeRange.Item(1) myshp.Placement = xlMoveAndSize With myshp .LockAspectRatio = msoFalse .Name = "myqr" & myrng.Address(False, False) .Left = myrng.Left .Top = myrng.Top End With masqr = "" End Function وطريقة استخدامها 
    =masqr(A2) بالتوفيق
  16. أ / محمد صالح's post in تقسيم الرقم على عدد الشهور والايام was marked as the answer   
    عليكم السلام
    رغم كلامنا السابق في ضرورة إرفاق ملفك وتوضيح المطلوب فيه 
    على العموم
    بمكنك استعمال هذا الكود
    Me.TextBox2.Value = Int(Me.TextBox1.Value / 30) Me.TextBox3.Value = Me.TextBox1.Value Mod 30 تضعه في أي اجراء أو حدث
    بالتوفيق
  17. أ / محمد صالح's post in تحويل ما يزيد عن 1000 من الدراهم الي الدينار was marked as the answer   
    يمكنك استخدام هذه المعادلة في الخلية C13
    =MOD(SUM(C5:C12),1000) وهذه المعادلة في الخلية D13
    =SUM(D5:D12,INT(SUM(C5:C12)/1000)) بالتوفيق 
  18. أ / محمد صالح's post in محتاج ملف كنترول اعدادي للعام 2024 was marked as the answer   
    يمكنك البحث في فيس بوس عن (كنترول رجب جاويش)
    برنامج جميل لصديق محترم
  19. أ / محمد صالح's post in نقل الاسماء بدون تكرار حسب الشروط واعطاء كود لكل حالة was marked as the answer   
    استكمالا لجهود الزملاء الأعزاء
    إذا كان لديك أوفيس 2021 أو 365 يمكنك وضع هذه المعادلة في I2
    =UNIQUE($B$2:$D$16) أو يمكنك تعديل الإجراء المقدم من أخينا @محي الدين ابو البشر إلى
    Sub test() Dim a, T As String, i& a = Sheets("aaa").Cells(1).CurrentRegion With CreateObject("scripting.dictionary") For i = 2 To UBound(a) T = a(i, 2) & a(i, 3) & a(i, 4) If Not .exists(T) Then .Add T, Array(.Count + 1, a(i, 2), a(i, 3), a(i, 4)) End If Next i Sheets("aaa").Cells(2, 9).Resize(.Count, UBound(a, 2)) = Application.Index(.items, 0, 0) End With End Sub ولوضع كود لكل مادة في العمود الأول
    يمكنك وضع هذه المعادلة في الخلية A2 مع سحبها لأسفل
    =IFERROR(INDEX(M$2:M$8,MATCH(B2&C2&D2,J$2:J$8&K$2:K$8&L$2:L$8,0))-1+COUNTIFS(B$2:B2,B2,C$2:C2,C2,D$2:D2,D2),"") بالتوفيق للجميع
  20. أ / محمد صالح's post in مشكلة الهايبر لينك was marked as the answer   
    ربما يفيدك عمل إصلاح للأوفيس repair
    من لوحة التحكم ثم الغاء تثبيت البرامج
    ثم تختار إصلاح وليس إلغاء تثبيت 
    بالتوفيق 
  21. أ / محمد صالح's post in المطلوب ترتيب عمود بنفس قيم عمود اخر اسماء رباعية واسماء ثلاثية was marked as the answer   
    ربما يفيدك هذا الموضوع
    بالتوفيق
  22. أ / محمد صالح's post in سؤال : صور was marked as the answer   
    أعتقد لو رتبت ملفات المجلد حسب الاسم ستحصل على ما تريد
    الاسماء العربية قبل أو بعد اسماء الملفات الانجليزية
    وبعدها التحديد والنسخ
    بالتوفيق
  23. أ / محمد صالح's post in تفعيل البحث في عمود بيانات في جميع الصفحات المؤمنة was marked as the answer   
    أعتقد تأمين الخلايا في الصفحات لا يمنع البحث فيها
    إلا إذا ألغيت تحديد الخلايا المؤمنة في شاشة الحماية

    لذا يجب وضع علامة صح بجانب الاختيار الأول 
    select locked cells / تحديد الخلايا المؤمنة
    حتى يمكن البحث في الصفحة رغم الحماية
    بالتوفيق
  24. أ / محمد صالح's post in ما اسم الخط لتحويل الاسم الى باركود وكيو آر was marked as the answer   
    هذه مجموعة من الخطوط يمكنك تحميلها وتثبيتها في ويندوز واستعمالها في الاكسل أو الاكسس أو اي برنامج من برامج ميكروسوفت 
    Code 128 Code 39 UPC-E QR Postnet UPC/ EAN I2of5 Intelligent Mail بالتوفيق 
  25. أ / محمد صالح's post in ضبط تواريخ بداية الشهر ونهايته was marked as the answer   
    يمكنك استعمال هذه المعادلة في C8
    =IFERROR(IF(WEEKDAY(DATE(C2,B2,1),1)=6,DATE($C$2,$B$2,1)+2,IF(WEEKDAY(DATE(C2,B2,1),1)=7,DATE($C$2,$B$2,1)+1,DATE($C$2,$B$2,1))),"") وهذه في C9 وما تحتها
    =IFERROR(IF(IF(WEEKDAY(C8+1,1)=6,C8+3,C8+1)<=EOMONTH($C$8,0),IF(WEEKDAY(C8+1,1)=6,C8+3,C8+1),""),"") بالتوفيق
×
×
  • اضف...

Important Information