بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Posts
4467 -
تاريخ الانضمام
-
Days Won
195
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أ / محمد صالح
-
كود نسخ عدد ناتج عن حساب عدد الاسطر في ملف اكسل
أ / محمد صالح replied to seddiki_adz's topic in منتدى الاكسيل Excel
لن تحصل على شيء لأن العمود Q فارغ للعلم الدالة cells تستعمل في التعامل مع النطاقات مثلها مثل range ولكن الفرق أن range نقدم لها اسم النطاق مثلا range("c5").value = "Mas" هذا الكود يقوم بكتابة Mas في الخلية C5 ويمكن استعمال cells لنفس الغرض cells(5, 3).value = "Mas" حيث أن 5 هو رقم الصف و3 هو رقم العمود فعند كتابتك رقم 17 في خانة العمود فأنت تقصد العمود Q بالتوفيق -
الانتقال لاول خلية فارغة في العمود C موجود في الملف عند تنشيط ورقة العمل data أو عند الضغط على السهم الأزرق بالأعلى
-
كود نسخ عدد ناتج عن حساب عدد الاسطر في ملف اكسل
أ / محمد صالح replied to seddiki_adz's topic in منتدى الاكسيل Excel
تفضل هذا مطلوبك الثاني Sub tar7eel() For n = 2 To Cells(Rows.Count, 9).End(xlUp).Row If Range("i" & n).Value = Range("d2").Value Then Range("j" & n).Value = Range("e2").Value Next n End Sub بالتوفيق -
كود نسخ عدد ناتج عن حساب عدد الاسطر في ملف اكسل
أ / محمد صالح replied to seddiki_adz's topic in منتدى الاكسيل Excel
حسب فهمي للمطلوب يمكنك استعمال الإجراء التالي وربطه بزر أو شكل أو صورة Sub tar7eel() Range("j2").Value = Range("e2").Value End Sub ومتى تريد تحديث قيمة J2 يتم الضغط على الزر وتنفيذ الإجراء -
كود نسخ عدد ناتج عن حساب عدد الاسطر في ملف اكسل
أ / محمد صالح replied to seddiki_adz's topic in منتدى الاكسيل Excel
الفيمة الموجودة قي E2 ناتجة عن حساب أكبر قيمة في المدى من A3:A1000 وهي 18 حاليا =MAX(A3:A1000) وإذا كنبنا في J2 هذه المعادلة =E2 فسيظهر نفس الرقم 18 هذا شرح بالتفصيل لما قمت أنا بعمله حاليا ما المطلوب بالتفصيل ؟ -
كود نسخ عدد ناتج عن حساب عدد الاسطر في ملف اكسل
أ / محمد صالح replied to seddiki_adz's topic in منتدى الاكسيل Excel
رغم أنه أي تحديث في الخلية E2 سيتم تغييره في الخلية J2 ما زال المطلوب غير واضح لي -
تفضل أخي الكريم يمكنك كتابة الشيتات التي لا ترغب في ظهورها في المصفوفة arr مع إحاطة الاسم بعلامتي تنصيص واستعمال الفاصلة للفصل بين الأسماء وبعضها في هذا الكود تم استثناء sheet1 & sheet2 Dim ws As Worksheet, arr As Variant arr = Array("Sheet1", "Sheet2") For Each ws In Worksheets If UBound(Filter(arr, ws.Name)) = -1 Then ComboBox1.AddItem ws.Name Next ws بالتوفيق
-
كود نسخ عدد ناتج عن حساب عدد الاسطر في ملف اكسل
أ / محمد صالح replied to seddiki_adz's topic in منتدى الاكسيل Excel
المطلوب غير واضح لي ولكن ربما تقصد أن تكتب في الخلية J2 =E2 ليظهر نفس الرقم الموجود في E2 -
كتابة معادلة او كود لحساب ضريبة الرواتب
أ / محمد صالح replied to talal baghdadi's topic in منتدى الاكسيل Excel
فعلا كلامك صحيح نتيجة لجعل الرقم يساوي 30000 في الشرط تفضل هذا تعديل للمعادلة حتى تعمل من الشريحة الأولى للثامنة فقط يلزمك نسخ المعادلة أفقيا ثم رأسيا لجميع الموظفين بالتوفيق ضريبة الرواتب2.xlsx -
كتابة معادلة او كود لحساب ضريبة الرواتب
أ / محمد صالح replied to talal baghdadi's topic in منتدى الاكسيل Excel
ما المشكلة؟ -
كتابة معادلة او كود لحساب ضريبة الرواتب
أ / محمد صالح replied to talal baghdadi's topic in منتدى الاكسيل Excel
حسب فهمي للمطلوب تم إضافة معادلات حتى الشريحة الثامنة ولكن الذي جذب انتباهي عدم خصم ضريبة الموظف من الراتب مع الموظف الثاني في الخلية F7 إن شاء الله يكون هو المطلوب ضريبة الرواتب1.xlsx -
يفضل أن تبدأ في تصميم ملفك وتسمي فيه الشيتات كما ترغب وتنسق صفحة سجل القيد كما تشاء وترفق ملفك للتعديل عليه ثم تعرض هنا ما المطلوب بمنتهى التفصيل حتى يمكن للجميع مساعدتك
-
كمبوبوكس فيه اسماء الشيتات الملونه بلون احمر فقط
أ / محمد صالح replied to Saadrafic's topic in منتدى الاكسيل Excel
بعد إذن أخي الكريم سليم لعرض الشيتات الملونة باللون الأحمر فقط يمكنك تغيير الشرط الخاص بلون الشيت من If col Then إلى If col = RGB(255, 0, 0) Then وبالنسبة لعمل قائمة منسدلة للشيتات باللون الأزرق يمكنك استعمال نفس الكود مع تغيير اسم الكومبوبوكس وكود اللون If col = RGB(0, 0, 255) Then بالتوفيق -
المعادلة تعمل 100% وتناسب المرفق في مشاركتك الأولى رجاء مراجعة الخلايا F3 & F5 ستجد أنها تجلب bin1 & bin2 حسب قيمة الخلية F2 بالتوفيق Classeur2022.xlsx
-
يمكنك وضع هذه المعادلة في الخلية F3 =INDEX(H:H,MATCH($F$2,D:D,0)) وهذه في الخلية F5 =INDEX(I:I,MATCH($F$2,D:D,0)) وهي تعني البحث في العمود H في الصف الذي يطابق فيه العمود D مع قيمة الخلية F2 بالتوفيق
-
اظهار ال TEXT بدلاً من اظهار ال Vlaue
أ / محمد صالح replied to Ali994m's topic in منتدى الاكسيل Excel
بعد إذن أخي الكريم عبد الفتاح ربما يكون هذا هو المطلوب Private Sub CommandButton1_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp) MsgBox Format(LR, """S21-""00#") End Sub -
حسب فهمي للمطلوب تم إضافة عمود فارغ بعد العميل رقم 14 حتى تنتظم معادلات أرقام الأعمدة تم إضافة كود لجلب جميع أسماء العملاء وأرقامهم في العمود A & B تم وضع معادلة للبحث في قائمة العملاء هذه حتى لا نحتاج سوى رقم العميل ويظهر اسمه مباشرة تم وضع كود في حدث تغيير الخلية A2 وكتابة رقم العميل يتم تحديث قائمة العملاء ثم الانتقال إلى الخلية الخاصة باسم العميل بالتوفيق حسابات العملاء الجديد.xlsb
-
للأسف ما يظهر في الوورد هو الأصح لأن تنسيق الأرقام في الإكسل 00 لم يظهر الكسر لذلك يمكنك تعديل معادلة الشهر إلى =INT(I2*7.5/30+MOD(H2*3,12)) بأن تشمل دالة int العملية الحسابية كلها وكذلك تعديل معادلة اليوم إلى =INT(J2*0.25+MOD(I2*7.5,30)) بالتوفيق
-
عملية الطرح من محتوى خلية واحدة في عمود كامل
أ / محمد صالح replied to نسورالجو's topic in منتدى الاكسيل Excel
تفضل هذا هو المطلوب بإذن الله معادلة بسيطة جدا يمكنك التوصل إليها ضع في L2 المعادلة التالية ثم اسحب المعادلة لأسفل =J2+K2-SUMIF(A:A,I2,B:B) وتعني جمع الخلية k2 مع J2 مع طرح مجموع المستهلك في نفس التاريخ الموجود في I2 بدالة sumif بالتوفيق -
المعادلات المستعملة هي mod & int وهناتجها رقم صحيح بدون علامات عشرية ربما لو أرفقت الملفين الوورد والاكسل المستعملين في دمج المراسلات لعرفنا موضع المشكلة
-
لا أدري ما سبب تكرار المواضيع حسب فهمي للمطلوب تم تعديل الكود ليقوم بنفس الترحيل حتى لو أكثر من صف يمكن وضع هذا الكود في مودبول جديد Sub tarheel() lr = Range("a4").End(xlDown).Row Set Sh = Sheets.Add With ActiveSheet .Move after:=Sheets(Sheets.Count) .Name = Sheets.Count - 1 .Range("A1:P12").Borders.Weight = xlMedium .Range("A1:P12").HorizontalAlignment = xlCenter With .Cells(1).Resize(1, 16) .Value = Array("ITEM NUMBER", "ITEM DESC", "QUANTITY", "UNIT PRICE", "TOTAL", "WHSE", "ACOUNT CODE", "BUSINESS UNIT", "DEPARTMENT", "WORK CENTER", "FLOCK", "ÚÏÏ ÇáØÈÇáí", "æÒä ÇáØÈíáÉ ", "ÚÏÏ 0.9", "", "ÚÏÏ 1.34") .Interior.ColorIndex = 53 .Font.Bold = True .Font.Color = vbWhite End With Dim sh1 As Worksheet Set sh1 = Sheets("main") For n = 5 To lr lr2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range("A" & lr2) = sh1.Range("E" & n).Value .Range("C" & lr2) = sh1.Range("f" & n).Value .Range("D" & lr2) = sh1.Range("E" & n).Value .Range("F" & lr2 & ":K" & lr2).Value = Array("DAT010", "1141000022", "JP-PROD.", "JP-WIPDP", "JP-WIPWC", "Flock_4") .Range("N" & lr2) = sh1.Range("c" & n).Value .Range("P" & lr2) = sh1.Range("a" & n).Value + sh1.Range("b" & n).Value .Columns("A:P").EntireColumn.AutoFit Next n End With End Sub مع حذف الكود في حدث عند تغيير قيم الشيت main مع ربط الزر بالماكرو الجديد tarheel بالتوفيق
-
كلامك صحيح أنا أستعمل التعبير في الاستعلام والتقرير بدلا من الحقل المحسوب في الجدول ولكن هذا ما يبحث عنه الأخ صاحب السؤال بالتوفيق
-
عملية الطرح من محتوى خلية واحدة في عمود كامل
أ / محمد صالح replied to نسورالجو's topic in منتدى الاكسيل Excel
يفضل إرفاق ملفك وتوضيح المطلوب أكثر من ذلك حسب فهمي للمطلوب في الملف والمختلف تماما عن المذكور في المشاركة إليك هذا المرفق بالتوفيق متابعة الأرصدة والاستهلاك.xls -
أقترح عمل حقل المسلسل الطبيعي ونوع بياناته autonumber ثم إضافة حقل محسوب في الجدول ونضع هذا في التعبير الخاص به "E" & 10000+[FileNo] حيث FileNo هو حقل المسلسل الطبيعي