بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
4,357 -
تاريخ الانضمام
-
Days Won
185
Community Answers
-
أ / محمد صالح'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
في تنفيذ برنامجك
وإذا وقفت في نقطة أو اثنتين يمكنك طرحها في موضوع جديد
مع توضيح المطلوب بمنتهى التفصيل
بالتوفيق
-
أ / محمد صالح's post in اريد كود لفتح شيت بناء على قيمة خلية was marked as the answer
كتابة اسم الشيت بها احتمالات للخطأ
الأفضل اختيار الاسم من قائمة بأسماء الشيتات
ساعتها يمكنك استخدام أمر فتح الشيت
Sheets(Range("a1").Text).Activate بالتوفيق
-
أ / محمد صالح'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 بالتوفيق
-
أ / محمد صالح's post in حذف علامة العملة من خلية أو عمود محدد؟ was marked as the answer
يمكن بطرق كثيرة
اسهلها البحث والاستبدال CTRL+H
ثم تكتب في مربع البحث العملة ومربع الاستبدال يترك فارغا
ثم استبدال الكل replace all
بالتوفيق
-
أ / محمد صالح'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 بالتوفيق
-
أ / محمد صالح's post in تجميع الرقم الصحيح مع الكسر في خليتين was marked as the answer
تم حل هذا الموضوع قبل ذلك
إن شاء الله يفيدك هذا الموضوع
مع فارق الألف درهم يساوي واحد دينار
والمائة قرش تساوي واحد جنيه
بالتوفيق
-
أ / محمد صالح's post in دورة في vba الباوربوينت was marked as the answer
كثيرا ما نحتاج لتصميم عرض تقديمي تفاعلي
يمكن العرض من التفاعل مع المستخدم
فإذا اختار المستخدم اختيار يقوم البرنامج بإجراء معين
وهكذا
وهذه مجموعة من ملفات الشرح بالصوت والصورة لكيفية عمل عرض تقديمي تفاعلي
حجم الملف 71.7 ميجا بايت
ولا تنسوا أخاكم / محمد صالح من صالح دعائكم
والآن مع التحميل
http://www.mediafire.com/download.php?mjmmiyzmwyg
-
أ / محمد صالح's post in استخراج قيمة الاوس ^ التى تعطى الرقم 30 أو كبر وليس اقل was marked as the answer
عليكم السلام
عكس دالة power هي دالة log
=log(30,2) ربما تعطي كسورا
ولأنك تريد أن تتغير 30 إلى رقم أكبر يمكنك جبر كسر الرقم لأعلى ceiling مثلا
بالتوفيق
-
أ / محمد صالح's post in كنترول جدارات تجاري was marked as the answer
عليمن السلام ورحمة الله وبركاته
ربما تفيد هذه الموضوعات
Showing results for 'جدارات' in content posted in منتدى الاكسيل Excel . - أوفيسنا (officena.net)
بالتوفيق
-
أ / محمد صالح'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
بالتوفيق
-
أ / محمد صالح's post in خطاء في الطباعة معادلة ميكرو was marked as the answer
تقريبا قام أحد المستخدمين بحذف أعمدة
حركت خلية العدد الكلي للأسماء من Z2 إلى U2
يمكنك تغيير هذا السطر في الكود
Loop While ActiveCell.Value <= Range("Z2").Value إلى
Loop While ActiveCell.Value <= Range("U2").Value بالتوفيق
-
أ / محمد صالح's post in الاعلى درجة was marked as the answer
أخي الكريم
طلبك هذا يدل على احتياجك لتعلم أساسيات الاكسل
يمكنك استخدام هذه المعادلة
=MAX(A2:C2) بالتوفيق
-
أ / محمد صالح's post in حساب اجمال كمية وعدد النقل لسيارة في نفس التاريخ was marked as the answer
يمطنط استخدام هذه المعادلة في الخلية Q2
=SUMIFS(tr_acc[عدد النقل],tr_acc[رقم الوش],N5,tr_acc[التاريخ],M5) بالوفيق
-
أ / محمد صالح'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
بالتوفيق
-
أ / محمد صالح'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) بالتوفيق
-
أ / محمد صالح's post in تقسيم الرقم على عدد الشهور والايام was marked as the answer
عليكم السلام
رغم كلامنا السابق في ضرورة إرفاق ملفك وتوضيح المطلوب فيه
على العموم
بمكنك استعمال هذا الكود
Me.TextBox2.Value = Int(Me.TextBox1.Value / 30) Me.TextBox3.Value = Me.TextBox1.Value Mod 30 تضعه في أي اجراء أو حدث
بالتوفيق
-
أ / محمد صالح's post in تحويل ما يزيد عن 1000 من الدراهم الي الدينار was marked as the answer
يمكنك استخدام هذه المعادلة في الخلية C13
=MOD(SUM(C5:C12),1000) وهذه المعادلة في الخلية D13
=SUM(D5:D12,INT(SUM(C5:C12)/1000)) بالتوفيق
-
أ / محمد صالح's post in محتاج ملف كنترول اعدادي للعام 2024 was marked as the answer
يمكنك البحث في فيس بوس عن (كنترول رجب جاويش)
برنامج جميل لصديق محترم
-
أ / محمد صالح'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),"") بالتوفيق للجميع
-
أ / محمد صالح's post in مشكلة الهايبر لينك was marked as the answer
ربما يفيدك عمل إصلاح للأوفيس repair
من لوحة التحكم ثم الغاء تثبيت البرامج
ثم تختار إصلاح وليس إلغاء تثبيت
بالتوفيق
-
أ / محمد صالح's post in المطلوب ترتيب عمود بنفس قيم عمود اخر اسماء رباعية واسماء ثلاثية was marked as the answer
ربما يفيدك هذا الموضوع
بالتوفيق
-
أ / محمد صالح's post in سؤال : صور was marked as the answer
أعتقد لو رتبت ملفات المجلد حسب الاسم ستحصل على ما تريد
الاسماء العربية قبل أو بعد اسماء الملفات الانجليزية
وبعدها التحديد والنسخ
بالتوفيق
-
أ / محمد صالح's post in تفعيل البحث في عمود بيانات في جميع الصفحات المؤمنة was marked as the answer
أعتقد تأمين الخلايا في الصفحات لا يمنع البحث فيها
إلا إذا ألغيت تحديد الخلايا المؤمنة في شاشة الحماية
لذا يجب وضع علامة صح بجانب الاختيار الأول
select locked cells / تحديد الخلايا المؤمنة
حتى يمكن البحث في الصفحة رغم الحماية
بالتوفيق
-
أ / محمد صالح's post in ما اسم الخط لتحويل الاسم الى باركود وكيو آر was marked as the answer
هذه مجموعة من الخطوط يمكنك تحميلها وتثبيتها في ويندوز واستعمالها في الاكسل أو الاكسس أو اي برنامج من برامج ميكروسوفت
Code 128 Code 39 UPC-E QR Postnet UPC/ EAN I2of5 Intelligent Mail بالتوفيق
-
أ / محمد صالح'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),""),"") بالتوفيق