أ / محمد صالح

في هذه الحالة ستطول المعادلة قليلا =C3*D3*SUM(1,IF(G3<>"",-1*G3,0),IF(H3<>"",H3,0)) بالتوفيق

يمكنك استخدام عمود واحد للخصم والإضافة الخصم بالسالب والإضافة بالموجب واستعمال هذه المعادلة =C3*D3*(1+G3) بالتوفيق معادلة.xlsx

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

أبسط هذه الطرق استعمال دالة 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) بالتوفيق

هذه مجموعة من الخطوط يمكنك تحميلها وتثبيتها في ويندوز واستعمالها في الاكسل أو الاكسس أو اي برنامج من برامج ميكروسوفت Code 128 Code 39 UPC-E QR Postnet UPC/ EAN I2of5 Intelligent Mail بالتوفيق

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

يمكنك استعمال هذه المعادلة في الخلية G19 مع سحبها لأسفل =IF(D19="","",VLOOKUP($B$2,المقسطون!$B$27:$N$62,6,0)) بالتوفيق

يمكنك البحث في فيس بوس عن (كنترول رجب جاويش) برنامج جميل لصديق محترم

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

يمكنك استخدام هذه المعادلة في الخلية C13 =MOD(SUM(C5:C12),1000) وهذه المعادلة في الخلية D13 =SUM(D5:D12,INT(SUM(C5:C12)/1000)) بالتوفيق

يفضل إرفاق ملف وتوضيح المطلوب بمنتهى الدقة

إن شاء الله تفيدك هذه النتائج https://www.officena.net/ib/search/?q=البحث بمجرد&quick=1&type=forums_topic&nodes=135&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

أإذا كان فهمي للمطلوب صحيحا يمكنك وضع هذه المعادلة في الخلية C19 مع سحبها يسارا =LEN($B$19)-LEN(SUBSTITUTE($B$19,C18,"")) بالتوفيق

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

بعد إذن الإخوة المشاركين حسب فهمي للمطلوب يمكنك استعمال هذه المعادلة لعرض عوامل العدد في أول 100 رقم =IFERROR(SMALL(IF(IF(ROW($A$1:$A$100)*$E$1/$G$1=INT(ROW($A$1:$A$100)*$E$1/$G$1),ROW($A$1:$A$100),"")<>"",ROW($A$1:$A$100),""),ROW(A1)),"") مع سحبها لأسفل وهذا التطبيق على ملفك بالتوفيق للجميع

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

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

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

يمكنك تجربة هذه المعادلة =SUM((B13>0),(E5>0),(G16>0),(L10>0),(N14>0),(P5>0)) بالتوفيق

ربما لو ارفقت ملفا يمكن أن يساعد في الوصول للسبب لأن الطبيعي أن يبحث حتى وإن كان الملف محميا كما قلت سابقا وفقنا الله جميعا لكل ما يحبه ويرضاه

يمكنك استخدام هذه المعادلة =if(mod(a1,4)=0,29,"") على اعتبار أن رقم السنة فقط مكتوب في الخلية A1 وإذا كان المكتوب تاريخا كاملا يمكنك إرجاع السنة فقط بدالة Year =if(mod(year(a1),4)=0,29,"") بالتوفيق

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

بارك الله لك

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

عليكم السلام ورحمة الله وبركاته يمكنك تعديل الاجراء liste إلى هذا Sub Liste() Dim ws As Worksheet, Rng As Range, tmp As String, combval As String, lr As Integer, x As Long Set ws = ThisWorkbook.Worksheets("BD") '===============Remplir les N° dans la Liste AFT==================== lr = ws.Range("A" & Rows.Count).End(xlUp).Row Set Rng = ws.Range("A2:A" & lr) Me.ComboBox1.Clear Me.ComboBox1.List = Rng.Value '===============Trouver le N° AFT Maximal======================== For x = WorksheetFunction.Min(Rng) To WorksheetFunction.Max(Rng) + 1 If IsError(Application.Match(Val(x), Rng, 0)) Then tmp = tmp & IIf(tmp = Empty, Empty, "-") & x If combval = "" Then combval = x Me.ComboBox1.AddItem x End If End If Next x Me.ComboBox1.Value = combval Me.Label1.Caption = tmp End Sub بالتوفيق