بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 24 ينا, 2020 in all areas
-
4 points
-
3 points
-
السلام عليكم اذا كانت الحقول بالجداول متشابهة يمكن ذلك عن طريق عمل استعلام تحديث عن طريق تصميم الاستعلام او استعلام التحديث بالكود عملت لك ملف مرفق / استعلام تحديث بشرط /اعلمنا النتائج يمكن كذلك تحديث كل الحقول دفعة واحدة بدون شرط تحياتي استعلام تحديث.rar3 points
-
3 points
-
2 points
-
2 points
-
الشكر لله ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم والشكر موصول لاخى خالد جزاهم الله خيرا والحمدلله الذى بنعمته تتم الصالحات ولست بملك ولا شىء فاننى طالب علم مبتدىء مثلك بل اقل فمازلت احبو على طريق العلم واياكم اخى الفاضل تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق2 points
-
جرب هذا الكود Option Explicit Sub find_min() Dim F As Worksheet, i%, k% Dim lr, arr(1 To 8) Dim m%: m = 1 Dim st$ Set F = Sheets("Feuil2") lr = F.Cells(Rows.Count, "i").End(3).Row If lr < 9 Then Exit Sub F.Cells(9, "AG").Resize(lr).ClearContents For i = 9 To 30 Step 3 arr(m) = i m = m + 1 Next For k = 9 To lr For i = 1 To UBound(arr) If F.Cells(k, arr(i)) = F.Cells(k, "AF") Then st = st & F.Cells(2, arr(i) - 1) & ";" End If Next F.Cells(k, "AG") = Mid(st, 1, Len(st) - 1) st = vbNullString Next Erase arr: Set F = Nothing End Sub الملف مرفق مع زر لنتفذ الكود find_min.xlsm2 points
-
2 points
-
اخي العزيز Ayman Effat لانك لم تضع قيمة بالحقل غير المنظم انت تركته فارغا انا عملت القيمة الافتراضية للحقل Calculate = صفر كل ماعليك هو تغيير القيمة حسب ماتريد وسيتم تحديث الجدولين تحياتي استعلام تحديث.rar اخي العزيز @عبد اللطيف سلوم انا استخدم اكسس 2010 (32 bit) والملف يعمل بصورة طبيعية جدا استعلام تحديث.accdb اخي @Ayman Effat ارفق لنا ملف لغرض التعديل عليه اختصارا للوقت2 points
-
2 points
-
اخى الفاضل @moopsiop وعليكم السلام اخى خالد لا تستاذن فنحن الذين نستاذنكم بالمشاركم فنتعلم منكم اخى العزيز جزاك الله خيرا مثال اخى اخالد افضل واقصر فالتعديل ضع الكود التالى فى حدث بعد التحديث وغير ما يلزم من اسماء الحقول والجدول الحقل = رقم الهويه الجدول = TABLE1 ID = اسم الحقل فالنموذج وانتبه هنا الاسم ممكن لعلك قد تكون غيرت الاسم بخلاف مصدر التحكم وهذا اذا كان حقل رقم الهويه نوع بياناته رقم Private Sub ID_AfterUpdate() If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]=[ID]")) Then MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه" DoCmd.CancelEvent Me.Undo End If End Sub اذا كان نوع بيانات الحقل نصى ضع الكود التالى مع اتباع نفس التعليمات السابقه Private Sub ID_AfterUpdate() If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]='" & [ID] & "'")) Then MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه" DoCmd.CancelEvent Me.Undo End If End Sub ان لم تستطع التعديل فارفق مثالك ليتم التعديل عليه اخى الفاضل تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق2 points
-
السلام عليكم بعد اذن اساتذتنا الكرام عملت لك ملف اتمنى ان يكون المطلوب تحياتي Database1.rar2 points
-
بارك الله فيك أخي ابو بسمله على ما تفدمه لاخوانك في المنتدى و اتمنى لك الصحة و التوفيق . و بنسبة موضوع الأخ السائل ،على ما فهمت انه يريد فتح نموذج من frm_Search من داخل نماذج متعددة مثل fr1 , frm2 , frm3 ، مثلاً لو فتح نموذج frm_Search من داخل نموذج frm1 و بعد انهاء عمله في نموذج frm_Search و اغلاقه يفتح له نموذج frm1 و هكذا و باختصار عند اغلاق نموذج frm_Search بذهب الى حيث أتى🤤 و المثال : frm.accdb2 points
-
2 points
-
عليكم السلام ورحمة الله وبركاته تم تعديل مادة اللغة العربية في شهادات نصف العام أما بالنسبة للأوائل لم أرى خطأ في الترتيب شاهد المرفق ثانية(1).rar2 points
-
وعليكم السلام ورحمه الله وبركاته اخى الفاضل فضلا لاامرا ارفق مثال لما تريد ارفق لك مثال عالسريع وعلى قد حالى لما فهمته منك فى حال كانت النماذج منبثق =لا وكذلك شكلى او مشروط = لا frm1 ; frm2 فى حال كانت النماذج منبثق =نعم وكذلك شكلى او مشروط = نعم frm3; frm4 ارجو ان يكون فى ذلك مساعدتك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق frm.accdb2 points
-
السلام عليكم عند الطباعة -خصائص الطباعة- تختار "احتواء كل الأعمدة في صفحة واحدة" (مهما كان عرض الأعمدة)... (هوامش اليمين واليسار يمكن تكون 0) بن علية حاجي BOOK2-3.xlsx2 points
-
2 points
-
عليك السلام ورحمة الله وبركاته يجب أن تكون إعدادات الصفحة نسبة الضبط 100 % وبعد ذلك تنسق الأعمدة كما تشاء وتحديد الخلايا المراد العمل عليها وتضغط كيلك يمين بالماوس وتختر تنسيق ومنها اختر محاذاة ثم احتواء مناسب جرب هذا BOOK3-3.rar2 points
-
وعليكم السلام عليك فقط بضبط معادلة VLOOKUP فتاريخ الدفعة الأولى 11 وليس 10 , وبناءا عليه يجب عليك مراجعة باقى المعادلات =IF(D12<1,"",VLOOKUP($G$7,ادخال!$A$5:$AX$1005,11,FALSE)) المالية2020.xlsm2 points
-
2 points
-
مبارك الترقية عن جدارة واستحقاق واعانك الله ووفقك للمسؤلية الجديدة التى انت جدير بالفعل على تحملها2 points
-
2 points
-
2 points
-
وعليكم السلام-وطالما انك لم تقم برفع ملف-فكان عليك استخدام خاصية البحث قبل رفع المشاركة فهناك العديد من الموضوعات التى تخص طلبك ومنها : ربط يوزر فورم بخلية في الشيت اختفاء ملف الاكسل عن عمل كود لاظهار اليوزرفورم2 points
-
تفضل Sub exit_end() For Each w In Application.Workbooks w.Save Next w Application.Quit End Sub وهذا كود أخر ايضا يلبى طلبك Sub testSave() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True Application.Quit End Sub2 points
-
تفضل هذا هو الكود Sub clear() kk = MsgBox("هل تريد مسح البيانات ؟", vbYesNo) If kk = vbYes Then Range("b11:C300").ClearContents Range("J11:k300").ClearContents End If End Sub برنامج التنسيق تعديل14.xlsm2 points
-
1 point
-
كل الشكر والتقدير لكم اساتذتي الكرام ... الاستاذ ابو بسمله اني جداً اعتذر لعدم ارفاقي مثال والاستاذ Abu Farid اشكرك على دعمك لطلبي...تحياتي لكم جميعاً تم حل المشكلة1 point
-
وهذا التعديل لتحديث المخزن بالقيمه بالنموذج + القيمه بالجدول اذا كان بالجدول 5 + 5 بالنموذج = 10 فانتظار تعليقك او شرح اكثر للمطلوب ان لم يكن اى التعديلات المرفقه مناسبه لطلبك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تعديل المادة.accdb1 point
-
استبدل السطر حيث يوجد خطأ في الكود بهذه الــ 3 سطور If st <> vbNullString Then F.Cells(k, "AG") = Mid(st, 1, Len(st) - 1) End If1 point
-
ما رائيك اخى الفاضل امير باختصار الكود الى الكود الرائع لاستاذنا جعفر @jjafferr جزاه الله خيرا هو وجميع اساتذتنا الافاضل الذين تعلمنا ونتعلم منهم كل يوم وفى حدث قبل التحديث Private Sub Itemcode_BeforeUpdate(Cancel As Integer) On Error Resume Next LN = DLookup("[itemCode] & '|' & [NameItem] & '|' & [الوحدة] & '|' & [سعر الشراء] ", "المواد", "[itemCode]='" & [itemCode] & "'") If IsNull(LN) Then MsgBox " كود_الصنف_المدخل غير صحيح", vbCritical, "مراقب حركة الادخالات" DoCmd.CancelEvent Else X = Split(LN, "|") Me.[itemName] = X(1) Me.[الوحدة] = X(2) Me.[سعر الشراء] = X(3) End If End Sub تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق1 point
-
1 point
-
جرب هذا الماكرو Option Explicit Sub test_mamoun() Dim sh1 As Worksheet Dim sh2 As Worksheet Dim lr1, lr2, x Application.ScreenUpdating = False Set sh1 = Sheets("ترحيل مصروفات") Set sh2 = Sheets("مصروفات") For x = 7 To 17 If sh1.Cells(x, "b") = "" Then go to 1 lr2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1 sh2.Range("a" & lr2).Resize(1, 3).Value = sh1.Cells(x, "b").Resize(1, 3).Value sh2.Range("d" & lr2).Value = sh1.Cells(x, "f").Value sh2.Range("f" & lr2).Value = sh1.Cells(x, "o").Value sh2.Range("g" & lr2).Value = sh1.Cells(x, "q").Value sh2.Range("h" & lr2).Value = sh1.Cells(x, "s").Value sh2.Range("i" & lr2).Value = sh1.Cells(x, "v").Value sh2.Range("j" & lr2).Value = sh1.[l2] sh2.Range("k" & lr2).Value = sh1.Cells(x, "y").Value 1:Next Application.ScreenUpdating = True End Sub1 point
-
1 point
-
تفضل أخي @مازن الحسيني وأعلمنا بالنتيجة ..... مثال.rar1 point
-
1 point
-
1 point
-
1 point
-
بارك الله فيك استاذى الكريم دائما وابدا الفضل علينا جميعا فضل الله ومن بعده اساتذتنا الهمام امثال استاذنا العظيم الأستاذ سليم حاصبيا بارك الله فيه وجزاه الله كل خير وبارك الله فى اولاده ووسع الله فى رزقه1 point
-
1 point
-
1 point
-
لو ممكن رفع ملفك لتدارك الخطأ الذى يحدث معك ومحاولة حله ان شاء الله بارك الله فيك وهل قمت بعمل الفورم وتسمية صفحة من الملف بإسم Main أم لا ؟1 point
-
اهلا بك اخى الكريم فى المنتدى تفضل هذا الملف لعله يفيدك تعبئة الكومبوبوكس بأسماء أوراق العمل Fill ComboBox With Sheets Names .xlsm1 point
-
وعليكم السلام وهذا المفترض ان يتم بالفعل ولكن عليك اولا اكمال كل المعادلات المطلوبة فى صفحة Main وهى الصفحة التى تأخذ منها الفورمة لنسخ الصفحات الجديدة بارك الله فيك1 point
-
1 point
-
تفضل استاذى الكريم طبعا بعد اذن استاذى الكبير ابراهيم رسالة تحذير عند ادخال بيانات في عمود معين في جدول بعد ادخال نص معين.xlsm1 point
-
1 point
-
ممتاز استاذ ابراهيم بارك الله فيك1 point