نجوم المشاركات

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

استاذي العزيز اشكرك من اعماق قلبي وبكل عبارات الشكر والامتنان جزاك الله الف خير وكيف اقوم بطباعه فاتورة للعميل من نفس المصنف

استاذي العزيز حاليا اعمل على الجوال سارفق الملف المره القادمة ان شاء الله شكرا لك

تفضل اخى الكريم ولتثبيت اى خلية كما تطلب عليك بتحديد الخلية ثم الضغط على f4 لتصيح رقم الخلية بين علامتين الدولار كما ترى بالملف $ مثال.xls

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

جرب هذا الماكرو Option Explicit Sub Transfere() Dim X, y Dim old_val1#, New_vaL1# Dim old_val2#, New_vaL2# Dim i% i = 3 Dim k% Do Until Sheets("Sheet2").Range("b" & i) = "" X = Application.Match(Sheets("Sheet2").Range("b" & i), Sheets("sheet1").Range("B:B"), 0) New_vaL1 = Sheets("Sheet2").Range("b" & i).Offset(, 1) New_vaL2 = Sheets("Sheet2").Range("b" & i).Offset(, 2) y = Application.Match(Sheets("sheet2").Range("c1"), Sheets("sheet1").Rows("1"), 0) old_val1 = Sheets("sheet1").Cells(X, y): old_val2 = Sheets("sheet1").Cells(X, y + 1) Sheets("sheet1").Cells(X, y) = old_val1 + New_vaL1 Sheets("sheet1").Cells(X, y + 1) = old_val2 + New_vaL2 i = i + 1 Loop End Sub الملف مرفق Salim_Magazine.xlsm

معذرة استاذى الكريم حاولت الفتح بعد الضغط على شفت كما اوضحت استاذى ولكن لم يفتح ايضا معى البرنامج

ممكن تحذف فاصلة ، ثم تكتبها مرة ثانية ، فيطلع لك الخيارات 🙂 تفضل ، هذا الكود لفتح النموذج في وضع ورقة بيانات DoCmd.OpenForm "frmReturnedbyCus", acFormDS, , "[CusID]=" & Combo2 جعفر

رجاء جرب هذا الكود بدلا عن الكود السابق: Private Sub MSComm1_OnComm() On Error Resume Next If MSComm1.CommEvent = comEvReceive Then Label5.Caption = Val(Mid(MSComm1.Input, 3)) End If 'MSComm1 MSComm1.InBufferCount = 0 End Sub جعفر

السلام عليكم حاليا لا يوجد دالة في الإكسيل تقوم بما تريده... يمكن استعمال دالة SUM مرة واحدة مع النطاقين (العمودين) بإسباق النطاق الثاني (المطروح) بالإشارة "-" ثم تأكيد المعادلة بـ CTRL+SHIFT+ENTER (معادلة صفيف) مثال: إذا أردنا طرح مجموع قيم العمود B من مجموع قيم العمود A تكون المعادلة كالتالي: {=SUM(A:A;-B:B)} أو يمكن استحداث دالة بواسطة كود يقوم بهذه العملية... بن علية حاجي

وعليكم السلام 🙂 كان المفروض انك تعمل نسخ من مشاركتي السابقة ، ولصق في الكود بدلا عن الكود السابق الموجود في نموذجك ، ولكنك اخذت من هذا شوي ومن هذا شوي جعفر

بعد إذن الأستاذ سليم الملف يجب حفظه بصيغة Excel Marco Enabled Workbook حتى يظل الماكرو في الملف وقم بتجربة هذا الماكرو ربما يفي بالغرض Sub a() Range("I6:L27").Select Selection.ClearContents Range("B6:E26").Select Selection.Copy Range("I6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("K6:K26") _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("I6:I26") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet2").Sort .SetRange Range("I6:L26") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("H5").Select End Sub

https://ram-e-shop.com/product/kit-arduino-uno/ https://ram-e-shop.com/product/kit-m2-1relay/

وعليكم السلام 🙂 انا استعمل هذه الطريقة: mySQL = "insert into T1" mySQL = mySQL & " ([a],,[c],[d],[e],[f],[g],[h],,[j],[k]) values('" mySQL = mySQL & " & " & rs.Fields(1) & "', '" mySQL = mySQL & " & " & rs.Fields(2) & "', '" mySQL = mySQL & " & " & rs.Fields(3) & "', '" mySQL = mySQL & " & " & rs.Fields(4) & "', '" mySQL = mySQL & " & " & rs.Fields(5) & "', '" mySQL = mySQL & " & " & rs.Fields(6) & "', '" mySQL = mySQL & " & " & rs.Fields(7) & "', '" mySQL = mySQL & " & " & rs.Fields(8) & "', '" mySQL = mySQL & " & " & rs.Fields(9) & "', '" mySQL = mySQL & " & " & rs.Fields(10) & "', '" mySQL = mySQL & " & " & rs.Fields(0) & "')" DoCmd.RunSQL mySQL جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 معظم الاعضاء يقرأون السؤال، وعلى اثره يرون مقدرتهم على الاجابة على السؤال، اما اذا يتطلب الموضوع ان انزل المرفق لأعرف السؤال، فـ 99.9% من الوقت ، انا لا انزل المرفق، وانتقل للموضوع التالي والآن نرجع الى سؤالك: بما انه لا يمكننا التأكد من نتائج برنامجك ، لأنه مربوط بميزان ، لذلك من الصعب الاجابة على السؤال !! لذلك، فالنجعل البرنامج يخبرنا بما يراه، وعليه نرى الطريقة الاصح لضبط الجواب 🙂 استعمل هذا الكود بدل الكود الذي ارفقته (هو نفس كودك، ولكن بتنسيق، وبه اوامر طباعة النتائج الى ملف MSComm_Listening.txt في نفس مجلد برنامجك) : Private Sub MSComm1_OnComm() On Error Resume Next Dim c As Variant Dim n As Integer Dim File_Path As String File_Path = Application.CurrentProject.Path & "\MSComm_Listening.txt" Open File_Path For Output As #1 If MSComm1.CommEvent = comEvReceive Then If comEvEOF Then MSComm1.InputLen = 1 Do While MSComm1.Input = "0" MSComm1.InputLen = 8 c = MSComm1.Input c1 = "" Print #1, "Do c=" & c & vbTab & "len(c)=" & Len(c) Print #1, For i = 1 To Len(c) cut = Mid(c, i, 1) Print #1, "For cut=" & cut If (IsNumeric(cut)) Or (cut = ".") Then Print #1, "Old c1=" & c1 c1 = c1 & cut Print #1, "New c1=" & c1 End If Next i Print #1, Label5.Caption = Val(c1) Print #1, "Val(c1) =" & Val(c1) Loop End If 'comEvEOF End If 'MSComm1 MSComm1.InBufferCount = 0 Close #1 End Sub . ثم قم بعمل الوزن بالطريقة الطبيعية ، ثم ارفق لنا ملف MSComm_Listening.txt ، واخبرنا كم يجب ان تكون النتيجة الصحيحة 🙂 جعفر

لا يمكن شرحه بالدقة لأنه موضوع في ورقة أكسل فعندما ينفذ على الورقة يتم شرحة بالتفصيل لكن عموما السطر الأول RR يتم فيه إيجاد آخر سطر فيه كتابة في الورقة ثم يتم نسخ المحتويات في الخلية A إلى الخلية S يتم النسخ إلى السطر رقم 11 فما بعده تحياتي