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

السلام عليكم ورحمة الله تعالى وبركاته اجندة مواعيد الكترونية حتى يأخذ كل ذى حق حقه المرفق مثال أجنبى تم التعديل عليه وتم استخدام افكار وأكواد من المنتدى تخص الاستاذ @أبو آدم جزاه الله خيرا وتم اضافة بعد التعديلات من العبد الفقير الى الله والتى كانت تناسبنى وقت التعديل على المرفق وتم اضافة وتطوير المرور بين الاشهر والسنوات ملاحظة هامة : تم تحديث التكويد الخاص بدوال الـ API ليدعم العمل على النواتان 32x , 64x ولكن لن استطيع التجربة فى الوقت الحالى للنواة 32x برجاء من يقوم بتجربة المرفق يذكر أصدار نواة الأوفيس الخاص بجهازه وبالأخص من يملك النواة 32x Outlook Style Calendar.mdb

وعليكم السلام-انتبه من فضلك فطلبك تكرر كثيراً , كان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك

السلام عليكم ورحمة الله وبركاته الاستاذ علي كما تفضل الاستاذ حسونة حسين إلى عمل الاكواد بطريقة سليمة - وانا اضم صوتي إليه فالاعمدة الغير مظللة تختفي وتظهر بعد الطباعة واذا كان هناك شيء اخر فضلا قم بارسال ثورة توضح مشكللتك

السلام عليكم و رحمة الله اخى الكريم مشكلتك الوحيدة هى تحديد النطاقات المرجو العمل عليها و لذلك ستكون المعادلة الاولى هكذا =IF(B3="";"";SUMIF(ALL!$B$3:$B$1127;B3;ALL!$C$3:$C$1127)/COUNTIF(ALL!$B$3:$B$1127;B3)) و المعادلة الثانية هكذا =IF(B3="";"";SUMIF(ALL!$B$3:$B$1127;B3;ALL!$D$3:$D$1127)/COUNTIF(ALL!$B$3:$B$1127;B3)) هذا و الله اعلى و اعلم

Change this line to suit you If Target.Column = 2 Or Target.Column = 4 Or Target.Column = 6 Then

شاهد هذا موضوع أدناه ⬇️ رائع جدا وان شاء الله يفيدك

وعليكم السلام ورحمة الله تعالى وبركاته arr = SH.Range("A5:H" & SH.Cells(Rows.Count, 1).End(xlUp).Row).Value2

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اهدى هذا الشيت الى منتدى اوفيسنا واساتذته الذين تعلمنا على ايديهم واهديه الى مهندس المنتدى مهندس طارق محمود الذى لم يبخل على فى تقديم الحلول والمساعدات ، وحقيقة وجودى فى منتدى اوفيسنا يعد تكريما لى وشرف الشيت سهل الاستخدام ولا يحتاج الى شرح يوجد ايقونة باسم الصور اذا حبيت تضيف صورة للطالب وبجوار زر الصور زر اخر لمعاينة الصورة ان حبيت تعمل معاينة للصور 1795607452_.xlsm

طيب جرب كده Database1.mdb

Peace be upon you. Put the following code in worksheet module (Sheet2) Right-click on Sheet2 > View Code > Paste the following macro Private Sub Worksheet_Change(ByVal Target As Range) Const sRow As Long = 9, sTargetCell As String = "F10" Dim x, a, ws As Worksheet, sh As Worksheet, lr As Long If Target.Address = "$F$8" Then Set ws = Sheet1: Set sh = Sheet2 With sh.Range(sTargetCell) .Resize(Rows.Count - .Row + 1).ClearContents End With If Target.Value = Empty Then Exit Sub lr = ws.Cells(Rows.Count, 1).End(xlUp).Row If lr < sRow + 1 Then MsgBox "No Data In Sheet1", vbExclamation: Exit Sub x = Application.Match(Target.Value, ws.Rows(sRow), 0) If IsError(x) Then MsgBox "Subject Not Found In Sheet1", vbExclamation: Exit Sub a = ws.Range(ws.Cells(sRow + 1, x), ws.Cells(lr, x)).Value sh.Range(sTargetCell).Resize(UBound(a, 1), UBound(a, 2)).Value = a End If End Sub

@طاهر الوليدي هكذا مثلا ؟

هناك العديد من المواقع التي توفر لك العشرات من الأيكونات .. ولكن المعتمد لدي وهو أسهلها برنامج صغير اسمه ICONS8 .. ويعمل بنظام السحب والإفلات .. يعني الأيكونة اللي تعجبك تسحبها بالماوس من البرنامج وتحطها في المجلد المطلوب 🙂 وكذلك ميزة التحكم بحجم الأيكونات .. وألوانها .. و .. و .. و .. و .. وغيرها مع إمكانية البحث .. لتحميل آخر إصدارة من البرنامج من هنا : https://icons8.com/app/windows

عمو حمدي شيل علامة الـ & من قدام الـ txt. 🙂

اين المرفق للعمل عليه لان هل الفورم هذا (single Form) أو غير ذلك وما الى ذلك .

اتفضلوا يا باش مهندسين طلبكم جاهز

👍 شكرا لك من القلب ❤️

In standard module put the following code #If Win64 Then Private Declare PtrSafe Function GetKeyboardLayout Lib "user32" (ByVal idThread As Long) As Long Private Declare PtrSafe Function Keyboard Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal ss As String, ByVal sss As Long) As LongPtr #Else Private Declare Function GetKeyboardLayout Lib "user32" (ByVal idThread As Long) As Long Private Declare Function Keyboard Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal ss As String, ByVal sss As Long) As Long #End If Public Function GetCurrentKeyboardLayout() As String GetCurrentKeyboardLayout = Hex(GetKeyboardLayout(0)) End Function Public Sub SetEnglish() Call Keyboard("00000409", 1) End Sub Public Sub SetArabic() Call Keyboard("00000401", 1) End Sub Then in worksheet module put the following code Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 2 Then If GetCurrentKeyboardLayout = "00000409" Then Exit Sub Call SetEnglish Else If GetCurrentKeyboardLayout = "00000401" Then Exit Sub Call SetArabic End If End Sub

السلام عليكم ورحمة الله وبركاته الاستاذ العزيز ابو احمد المحترم وفقكم الله وزادكم من فضله لكم وافر احترامي وتقديري

السلام عليكم جزاك الله خير لكن الcelender عتد عرض التاريخ و اليوم هنالك مشكلة التاريخ لايوافق اليوم هل من حل ؟ بارك الله في جهدك

موفق إن شاء الله

بارك الله فيك استاذ هذه النسخة جيدة جدا بحيث استجابت لتحويل حرف غ الى كلمة (غائب) وكلمة (مجاز) لم يبقى سوى شيء واحد وهو ان يترك العمود B فارغ في صفحة المسودة لوضع رقم قيد الطالب وتتحول الاسماء الى العمود C . كي تترحل جميعها الى القائمة لقد حاولت لكن لم اوفق لان الكود بطريقة جديدة لم افهم منه شيء ... ولك جزيل الشكر . لقد اتعبناك معنا ولا نعرف كيف نشكرك ربي يحفظك ويسعدك ويعافيك ويوفقك دنيا واخرة

وهنا صولات وجولات حول هذا الموضوع 🙂

السلام عليكم جرب الملف المرفق لاخفاء او اظهار المجلد مع التاكد من مسار المجلد تحياتي hide_show.accdb

اتفضل اضفت حقل جديد في الجدول باسم يوزر نيم وعند عملية تحديث او تسجيل اي سجل سيتم كتابة اسم المستخدم اللي عمل التحديث او اللي سجل السجل وهناك طريقة اخرى وهو سيعمل جدول خاص لكي تعرف من سجل السجل جديد وفي اي وقت و من قاب بعد ذلك بتعديله example.rar