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

Jasmin

02 الأعضاء
  • Posts

    79
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

9 Neutral

عن العضو Jasmin

البيانات الشخصية

  • Gender (Ar)
    أنثي
  • Job Title
    teacher

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. أخي الكريم، مجموعة الخلايا اعملها select وأطلق عليها اسم NameRange مثلاً range1 واستعمل الآتي على الزر: ممكن تشوف الملف المرفق أيضا فقط لطباعة ورقة كاملة Sub printOutRange() Range ("range1").PrintOut End Sub Print-invoice.xls
  2. ألف شكر لكم. جزاكم الرحيم كل خير واذا أضفنا عالعامود B سطر ممكن أيضا نضيف عالتعديل؟
  3. المفترض أن تكون التيجة مثل المرفقات think 2.xlsx
  4. السلام عليكم إخواني سؤالي بالنسبة لهذه الورقة كالتالي: عندي أول عامود به مجموعة من اسماء الملفات - ممكن أن يزيد أو ينقص وبالعامود الثاني أيضا مجموعة من الأسماء ممكن أن تزيد أو تنقص وأريد بالعامود الثالث أن أجمع بينهما كما هو موجود وفي حال أضفت أو أزلت أن يتغيّر المضمون، فهل هذا ممكن think.xlsx
  5. سلام إخوتي الكرام، عندي مشكلة بملفات الباوربوينت فقط العربي - عندما أفتحها تظهر وعندما أفقس على Editing تتلخبط كل الأحرف وتظهر كالمربعات أوفيس 2019 علماً أن نفس الملفات تفتح على كمبيوتر ثاني 2016
  6. شكرا لكم أنا عندي الكود أعلاه على الورقة 2 -اسمها transaction - والورقة 1 Stock2021-2022 أسندتها للمعرف fo وهي المحمية والتي أريد فتحها بالكود كما كتبتم فكيف أفعل؟ Option Explicit Dim fo As Worksheet Dim ln&, x!, s& Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 2 And Target.Column = 7 Then Application.EnableEvents = False Set fo = Sheets("Stock2021-2022") If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) <> "" Then ln = WorksheetFunction.Match(Target.Offset(0, -5), fo.Range("C:C"), 0) x = fo.Cells(ln, 5) 'Stok initial sur la feuille OldStock2021-2022 Cells(Target.Row, 3) = fo.Range("D" & ln) 'Description Cells(Target.Row, 4) = fo.Range("G" & ln) 'Prix Cells(Target.Row, 5) = x 'Stock initial s = IIf(Target.Offset(0, -1) = "Sell", -1, 1) 'sens du mouvement = 1 pour retour,-1 pour vente Cells(Target.Row, 9) = Target.Value * s + x 'Stock final fo.Range("E" & ln) = Target.Value * s + x 'Nouveau stock mis à jour Range("A" & Target.Row) = Date 'ou = Now si on veut l'horodate Else MsgBox "Saisies incomplètes.", 16 Exit Sub End If End If Application.EnableEvents = True End Sub Sub Evenement() Application.EnableEvents = True End Sub
  7. سلام اخوتي كيف يمكن حماية cells من التعديل اليدوي مع امكانية التعديل الاوتوماتيكالي
  8. أرفق لكم الطريقة كود وملف لمن أراد أن يستفيد لاحقاً وشكرا للجميع. Option Explicit Dim fo As Worksheet Dim ln&, x!, s& Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 2 And Target.Column = 7 Then Application.EnableEvents = False Set fo = Sheets("OldStock2021-2022") If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) <> "" Then ln = WorksheetFunction.Match(Target.Offset(0, -5), fo.Range ("C:C"), 0) x = fo.Cells(ln, 5) 'Stok initial sur la feuille OldStock2021-2022 Cells(Target.Row, 3) = fo.Range("D" & ln) 'Description Cells(Target.Row, 4) = fo.Range("G" & ln) 'Prix Cells(Target.Row, 5) = x 'Stock initial s = IIf(Target.Offset(0, -1) = "sell", -1, 1) 'sens du mouvement = 1 pour retour,-1 pour vente Cells(Target.Row, 9) = Target.Value * s + x 'Stock final fo.Range("E" & ln) = Target.Value * s + x 'Nouveau stock mis à jour Range("A" & Target.Row) = Date 'ou = Now si on veut l'horodate Else MsgBox "Saisies incomplètes.", 16 Exit Sub End If End If Application.EnableEvents = True End Sub Sub Evenement() Application.EnableEvents = True End Sub QuckSolution-1-.xlsm
  9. المطلوب هو كالتالي: الورقة transaction تحتوي على معلومات البضائع من الورقة old transaction المطلوب نقل الكمية NewStock من ورقة الTransaction إلى ورقة الـOld transaction عامود E -Quantity in Stock- عند كل سطر وحركة بيع Sale أو إرجاع Retrieval جديدة مرفق الملف الأصلي دون كود .. شكرا سلفا test-0-fr-a.xlsm
  10. this is the code I have I deleted the line & saved the file & retried Same result Dim tmp Private Sub Worksheet_Change(ByVal Target As Range) Dim x If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 2 And Target.Column = 7 Then Application.EnableEvents = False x = Application.Match(Target.Offset(, -5).Value, Sheets(1).Columns(3), 0) If Not IsError(x) Then If MsgBox("New Stock Will Be Updated . If OK Click 'Yes'", vbYesNo + vbQuestion) = vbYes Then Sheets(1).Cells(x, 5).Value = Target.Offset(, 2).Value Cells(Target.Row, 1).Value = Format(Date & Space(1) & Time, "dd/mm/yyyy hh:mm") Else If Not IsEmpty(tmp) Then Target.Value = tmp End If End If Application.EnableEvents = True End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 2 And Target.Column = 7 Then tmp = Target.Value End Sub
  11. I am sorry, I am a very newbie I will try to learn, but now I don't have time (btw, to comment it do I put //) Well sir I removed this line, but still same result, it's updating the current line.
  12. Thank you brother the date worked just fine But i ve tried the first row as attached - when you update the stock in the 1dt sheet, too bad the second one change too - so obviously it's not correct. test-0-fr-m.xlsm
×
×
  • اضف...

Important Information