أ / محمد صالح

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

هناك العديد من البدائل لموقع MIT App Inventor التي يمكنك استخدامها لإنشاء تطبيقات الأندرويد بسهولة. إليك بعض الخيارات:
Thunkable: منصة قوية تعتمد على السحب والإفلات لإنشاء التطبيقات. تم تطويرها بواسطة مهندسين من MIT App Inventor1.
AppyBuilder: منصة أخرى تعتمد على السحب والإفلات، مشابهة لـ App Inventor وتوفر ميزات إضافية.
Bubble: أداة لإنشاء تطبيقات الويب بدون برمجة، يمكن استخدامها لإنشاء تطبيقات متقدمة بواجهة مستخدم مخصصة.
بالتوفيق

تفضل أخي الكريم
تم استعمال نفس فكرة اليومي والخصم في نفس يوم تاريخ البداية مع اختلاف الشهور
بالتوفيق
خصم يومي أو شهري تلقائي .xlsx

جرب هذا الكود في أحداث المصنف 
Private Sub Workbook_SheetActivate(ByVal Sh As Object) ShowScrollBar End Sub أو يمكنك وضع كود showscrollbars في هذا الحدث مباشرة بدون تسميته باسم خاص
بالتوفيق

قد تحتاج إلى التأكد من أنك تستخدم أحدث إصدار من Microsoft 365، حيث أن هذه الدالة متاحة في Excel لـ Microsoft 3651.
وإذا كنت مصريا ولك أبناء في التعليم فيمكنك استعمال البريد الموحد الخاص بهم في تفعيل أوفيس 365
بالتوفيق

يمكنك استعمال هذا الكود في النسخ
Private Sub CommandButton19_Click() Dim clipboard As Object Set clipboard = New MSForms.DataObject clipboard.SetText TextBox1.Text clipboard.PutInClipboard End Sub وهذا كود اللصق
Private Sub CommandButton20_Click() Dim clipboard As Object Set clipboard = New MSForms.DataObject clipboard.GetFromClipboard TextBox6.Text = clipboard.GetText End Sub تأكد من أنك قد أضفت مكتبة “Microsoft Forms 2.0 Object Library” إلى مشروعك لتتمكن من استخدام الكائن DataObject.
بالتوفيق

جرب استعمال هذا الكود
For Each cell In range("a2:a10000") cell.Value = "'" & cell.Value Next cell بالتوفيق

وعليكم السلام ورحمة الله وبركاته،
نعم، يمكن القيام بذلك باستخدام VBA في Excel. إليك كود VBA الذي يمكنك استخدامه لتقسيم البيانات إلى ملفات منفصلة كل 30 صف:
افتح ملف Excel واضغط على Alt + F11 لفتح محرر VBA. أدخل الكود التالي في وحدة جديدة:   Sub SplitDataIntoFiles() Dim ws As Worksheet Dim newWs As Worksheet Dim wb As Workbook Dim newWb As Workbook Dim lastRow As Long Dim i As Long Dim j As Long Dim filePath As String Set ws = ThisWorkbook.Sheets("Sheet1") ' تأكد من أن اسم الورقة صحيح lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row filePath = ThisWorkbook.Path & "\" j = 1 For i = 1 To lastRow Step 30 Set newWb = Workbooks.Add Set newWs = newWb.Sheets(1) ws.Rows(i & ":" & i + 29).Copy Destination:=newWs.Rows(1) newWb.SaveAs filePath & "Data_" & j & ".xlsx" newWb.Close SaveChanges:=False j = j + 1 Next i MsgBox "تم تقسيم البيانات بنجاح!",,"mr-mas.com" End Sub قم بتعديل اسم الورقة في السطر Set ws = ThisWorkbook.Sheets("Sheet1") إذا كان مختلفًا. اضغط على F5 لتشغيل الكود. سيقوم هذا الكود بتقسيم البيانات إلى ملفات منفصلة كل 30 صف وحفظها في نفس مسار الملف الأصلي.
بالتوفيق

إجابتي بدون رؤية الملفات؛ لأني على الهاتف حاليا.
المعادلة هي مجرد معادلة بحث عن الرقم الموجود في الخلية m12  وجلب القيم من العمود الثالث في النطاق المسمى prod
للوصول إلى النطاقات المسماة من تبويب معادلات formulas ثم إدارة الأسماء name manager 
بالتوفيق 

يمكنك وضع تاريخ نهاية التقييم في العمود E والتقييم في العمود F
واستعمال هذه المعادلة في العمود C إلى
=IF(TODAY()<=E2,F2,1) بالتوفيق

عليكم السلام ورحمة الله وبركاته
حتى يعمل الكود تلقائيا يجب ربطه بحدث مثل تغيير التحديد أو تغيير محتوى الشيت
وهذا الكود في حدث تغيير محتوى الشيت
Private Sub Worksheet_Change(ByVal Target As Range) Rows("1:16").EntireRow.Hidden = 0 For r = 1 To 16 If Range("b" & r).Value = 0 Then Rows(r & ":" & r).EntireRow.Hidden = True End If Next r End Sub بالتوفيق للجميع

يمكنك الاستفادة من هذه المواضيع
https://www.officena.net/ib/search/?q=سجل غياب&quick=1&type=forums_topic&nodes=135&updated_after=any&sortby=relevancy&search_and_or=and
في تنفيذ برنامجك
وإذا وقفت في نقطة أو اثنتين يمكنك طرحها  في موضوع جديد
مع توضيح المطلوب بمنتهى التفصيل
بالتوفيق

كتابة اسم الشيت بها احتمالات للخطأ
الأفضل اختيار الاسم من قائمة بأسماء الشيتات
ساعتها يمكنك استخدام أمر فتح الشيت
Sheets(Range("a1").Text).Activate بالتوفيق

لعرض آخر 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 بالتوفيق

يمكن بطرق كثيرة
اسهلها البحث والاستبدال CTRL+H
ثم تكتب في مربع البحث العملة ومربع الاستبدال يترك فارغا
ثم استبدال الكل replace all
بالتوفيق 
 

إذا كان المطلوب تصدير جميع أوراق العمل الى ملف 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 بالتوفيق

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

كثيرا ما نحتاج لتصميم عرض تقديمي تفاعلي
يمكن العرض من التفاعل مع المستخدم
فإذا اختار المستخدم اختيار يقوم البرنامج بإجراء معين
وهكذا
وهذه مجموعة من ملفات الشرح بالصوت والصورة لكيفية عمل عرض تقديمي تفاعلي
حجم الملف 71.7 ميجا بايت
ولا تنسوا أخاكم / محمد صالح من صالح دعائكم
والآن مع التحميل
http://www.mediafire.com/download.php?mjmmiyzmwyg

عليكم السلام
عكس دالة power هي دالة log
=log(30,2) ربما تعطي كسورا
ولأنك تريد أن تتغير 30 إلى رقم أكبر يمكنك جبر كسر الرقم لأعلى ceiling مثلا
بالتوفيق

عليمن السلام ورحمة الله وبركاته
ربما تفيد هذه الموضوعات
Showing results for 'جدارات' in content posted in منتدى الاكسيل Excel . - أوفيسنا (officena.net)
بالتوفيق

يمكنك تجربة هذه الدالة المعرفة
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
بالتوفيق 

تقريبا قام أحد المستخدمين بحذف أعمدة
حركت خلية العدد الكلي للأسماء من Z2 إلى U2
يمكنك تغيير هذا السطر في الكود
Loop While ActiveCell.Value <= Range("Z2").Value إلى
Loop While ActiveCell.Value <= Range("U2").Value بالتوفيق

أخي الكريم
طلبك هذا يدل على احتياجك لتعلم أساسيات الاكسل
يمكنك استخدام هذه المعادلة
=MAX(A2:C2) بالتوفيق 

يمطنط استخدام هذه المعادلة في الخلية Q2
=SUMIFS(tr_acc[عدد النقل],tr_acc[رقم الوش],N5,tr_acc[التاريخ],M5) بالوفيق

يمكنك وضع قائمة الشيتات في عمود وليكن P مثلا
ثم استعمال هذه المعادلة للحصول على مجموع التأمينات في العمود K من جميع الشيتات المكتوبة في القائمة
=SUMPRODUCT(SUMIFS(INDIRECT("'"&$P$1:$P$5&"'!"&"k5:k1000"),INDIRECT("'"&$P$1:$P$5&"'!"&"b5:b1000"),$D$2)) حيث أن اسماء الشيتات في النطاق P1:P5 واسم الموظف في D2
ويمكنك تطويع المعادلة للحصول على مجموع أي عمود مثل عمود التأمينات K
بالتوفيق