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

اساتذتى الافاضل فى هذا الصرح العلمى كما تعلمت منكم ابتكار ما هو جديد ومفيد دائما أقدم لكم اليوم تقويم يمكن من خلاله تحويل التاريخ من ميلادى الى هجرى والعكس لاى سنه من السنين يعنى هيكون تقويم الكترونى على شاشة جهازك دون الحاجه الى تقويم ورقى على مكتبك أقدمه لكم صدقه جاريه على روح المغفور له بأذن الله استاذى / عماد الدين الحسامى لا تنسوا الفقيد من صالح دعائكم اسال الله تعالى ان يتغمده بواسع رحمته تقبلوا تحياتى اخوكم وتلميذكم / حسام تقويم الصقر.zip

اتبع الخطوات التالية سوف تقوم بإلغاء التكرارات في شيت مستقل 1- تحديد النطاق المراد حذف تكراراته 2- أختيار Data من شريط الأدوات 3- إختيار Remove Duplicate 4- إزالة علامة الصح 5- إختيار العمود فقط المراد حذف تكراراته 6- Ok ومبروك عليك حذف التكرارات وبعد ذلك إستخدم معادلة SumIF لتحقيق طلبك من الشيت الذي فيه كافة البيانات بدون تكرار وهي معادلة كالتالي المجال النصي .. وهو كافة النطاقات التي من الممكن وجود فيها الشرط الشرط نفسه .. وهو القيمة المطلوب جمعها إن وجدت في المجال النصي المجال الرقمي .. وهو بمجرد وجود الشرط في المجال النصي يقوم المجال الرقمي بجمع القيم تلقائياً تحياتي لك أخي الكريم Test.rar

بعد اذن الأساتذة الكرام تفضل الملف التالي : https://app.box.com/s/u36b81zd0oh7rxrlo3gvzfqupm9f2q7x

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

أخي الحبيب حسام جعل الله عملك في ميزان حسناتك يوم القيامة وجزيت خيراً على هذه اللفتة الطيبة .. ويا ريت لي رجاء عندك ابقى اعمل لي موضوع زي كدا وخلي لي صدقة جارية عندما يتوفاني الله (وإن شاء الله يكون لك نصيب منها) ..أخوك ساعتها هيكون مزنوق (أيوا والله مزنوق) ..ربنا يفك زنقتك لو فكيت زنقتي تقبل تحياتي

من المفترض يعني انه كود ترحيل بيانات دا يوزر فورم في كام تكست بوكس وكومبوكس وزرارين كل العمليه زرار بيرحل البيانات من التكست والكومبوكس الى الشيت في خلايا متحددة وزرار بيخرج من اليوزر فورم واي خدعة ومعاك مثال سريع كدا مرفق للموضوع دا وبلاش الكلام المبهم دا ابقي اشرح طلبك عشان نقدر نساعدك وياريت تغيير اسم الظهور في المنتدى للغة العربية لسهولة التعامل ولان اللغة العربية هي هويتنا ولابد من الحفاظ عليها ومرحب بيك في منتدى اوفيسنا بين اخوانك Book1.rar

اثراءً للموضوع و بعد اذن اخي محمد الريفي طريقة ثانية Test salim.zip

ماشاء الله عليك استاذ عمرو جزاكم الله خيرا ولتسمح لى بهذه المعادلة صفيف طلابد من الضغط بعد الانتهاء على ctrl+shift+enter =IFERROR(INDEX($A$3:$A$50;MATCH(0;COUNTIF($D$2:D2;$A$3:$A$50);0));"") test44.rar

استاذى الحبيب ابويوسف الاستاذ / زيزو العجوز الاستاذ / ياسر العربى الاستاذ / Peace-man جزاكم الله خيرا على مروركم العطر تقبلوا تحياتى

بارك الله فيك جعله الله فى ميزان حسناتك رحم الله استاذنا الكبير عماد الدين الحسامى

اخى الحبيب السلام عليكم ورحمة الله اليك الملف المطلوب احتساب مخصصات الشهادة.rar

أتمنى أن يكون هذا طلبك .. بالتوفيق لك احتساب مخصصات الشهادة.rar

السلام عليكم شكراً لأستاذنا الحبيب محمد على أمرين أولاً: وقبل كل شيء على المبادرة والمسارعة لمساعدة طلاب العلم أمثالنا ثانياً: على المعادلة التي تفتح آفاقاً أمامنا لاستخدامات متعددة. كما أطلب من إخي الذي تشرفنا بانتسابه لمنتدانا الكريم تغيير اسمه إلى العربية - ليس كما قال أخي ياسر فحسب - بل لأن العربية أمنا ونتشرّف بها وبرنا بوالدينا يطالبنا بوضعها على رؤسنا فالجنة تحت أقدام الأمهات. يكفينا فخراً أن ننطق بلغة سيد البشر الذي أنزل عليه (قرءاناً عربياً غير ذي عوج)...أم أنه لكم رأي آخر... تقبلوا تحياتي..

اتفضل اخى الكريم ضع هذه المعادلة فى التحقق من الصحة =OFFSET($B$1:$B$17;MATCH($E$2;$A$1:$A$17;0)-1;;COUNTIF($A$1:$A$17;$E$2)) حمل الملف المرفق New Microsoft Excel Worksheet (2).rar

تفضل يا أستاذ أبو أمين الملف معدل https://app.box.com/s/lp1z6e0ownqlc2yfpfwlmd7szeb71x0o

السلام عليكم اخي ياسر هذا المرفق رفعته مره اخرى اضفت تعديلات بسيطه امل ان يعمل معك Kh_Srech_Al_#.rar

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

السلام عليكم ورحمة الله وبركاته ( موضوع مفيد جدا لكل مديرى المبيعات والمديرين الماليين والمحاسبين). ------------------------------------------------------------------------------ توافرات لديك بيانات من قائمة الدخل عن مبيعات الفترات السابقه والمطلوب التنبؤ بالمبيعات المستقبليه . الداله FORCAST والداله TREND وظيفة هذه الدول هى التوقع مثلا مبيعات مصروفات انتاج ..................الخ التبؤات المستقبليه.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله بدايةً من هذا الموضوع لن أقوم بإرفاق ملفات في الموضوع وسأترك لكم التطبيق العملي بأنفسكم (حتى نتطور) ... كفانا ملفات مرفقة جاهزة فرأيي أن الملفات المرفقة الجاهزة تبعث على الكسل بشكل كبير .. كل ما يقوم به العضو هو تحميل الملف المرفق ثم تجربته ولو تيسر له الأمر قليلاً لألقى نظرة على العمل وعلى الأكواد الموجودة ..وقلما تجد من يدرس الملف المرفق بهدف التعلم من ثم .. فهذا الموضوع موجه لمن يريد ويرغب بالتعلم وليس لمن يريد الملفات الجاهزة .. سأقوم إن شاء ربي بسرد الخطوات ببساطة شديدة يفهمها الجميع (المبتديء قبل المحترف) نبدأ على بركة الله افتح ملف إكسيل جديد (خطوة صعبة بس أنا عارف إن 90% هيقدر على الخطوة دي ) احفظ الملف الجديد بامتداد xlsm أو Excel Macro-Enabled .. لمعرفة المزيد يمكنك الإطلاع على موضوع (بداية الطريق لإنقاذ الغريق) روح لمحرر الاكواد عن طريق Alt + F11 وأدرج موديول جديد من خلال القائمة Insert ثم الأمر Module الصق الكود التالي في الموديول #If VBA7 Then Public Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long #Else Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long #End If Sub PlayWavFile(WavFileName As String, Wait As Boolean) If Dir(WavFileName) = "" Then Exit Sub If Wait Then sndPlaySound WavFileName, 0 Else sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel(CellAddress As String) Dim SoundFileName As String SoundFileName = "" On Error Resume Next SoundFileName = Range(CellAddress).Comment.Text On Error GoTo If SoundFileName = "" Then Exit Sub If InStr(1, SoundFileName, Chr(10)) > 0 Then SoundFileName = Left(SoundFileName, InStr(1, SoundFileName, Chr(10)) - 1) End If PlayWavFile SoundFileName, False End Sub هرفق ملف صوتي بامتداد WAV للتطبيق عليه .. الملف باسم TestWAV فك الضغط عن الملف المضغوط هتلافي اسم الملف TestWAV اعمل عليه كليك يمين ثم الأمر Properties أي خصائص روح للتبويب Security (بس اوعى بتوع الأمن يقفشوك) ..المهم هتلاقي سطر بهذا الشكل (مسار الملف الصوتي) C:\Users\Future\Desktop\TestWAV.wav دا هيكون شكل المسار للملف ..طبعاً هيختلف من جهاز لجهاز آخر .. المهم انسخ سطر المسار ده الخطوة التالية ..شوف أي خلية تريد أن يعمل الصوت عند تحديدها ليكن الخلية G7 (أصلي بحب رقم 7 والعمود G هو العمود السابع وفي نفس الوقت الصف السابع .. متدقش على كلامي) كليك يمين على الخلية (بزر الماوس الأيمن يا حاج أيمن .. شايف واحد بيبص على الماوس مفيش مشكلة المهم يعرف يطبق) اختر الأمر Insert Comment أي إدراج تعليق ، ممكن تلاقي كلام امسحه وخلي التعليق فاضي ، وأخيراً ضع المسار اللي نسخته من شوية عن طريق Ctrl + V أي لصق المنسوخ .. لحد هنا بس خلاص الخطوة التالية : روح اعمل كليك يمين على اسم ورقة العمل النشطة اللي فيها الخلية الهدف G7 المطلوب تشغيل الملف الصوتي عند تحديدها كليك يمين على اسم ورقة العمل ثم اختر الأمر View Code والصق الكود التالي في حدث ورقة العمل Private Sub Worksheet_SelectionChange(ByVal Target As Range) PlaySoundNotesInExcel (Target.Address) End Sub سؤال أخير . هل العمل سيكون على خلية واحدة فقط ؟؟ الإجابة : لا ..براحتك ...كل ما عليك بعد كدا لو عايز تشغل الملف الصوتي أو أي ملف صوتي آخر ..إنك تاخد المسار وتروح للخلية وتدرج تعليق وفي التعليق تضع مسار الملف الصوتي المراد تشغيله وبس خلاص أرجو أن يكون الشرح سهل وبسيط وسلس ... ويكون التطبيق فيه مشاكل (أيوا فيه مشاكل عشان يكون فيه استفسارات ونتعلم) دمتم على طاعة الله كان معكم أخوكم أبو البراء من منتدى أوفيسنا حمل الملف من هنا

السلام عليكم تفضل اخي شاهد هذا الحل بالتوفيق ### (1).rar

أستاذ محمد الريفي أنت مبدع وبارك الله فيك وفعلا إستفدت من المعادلة شكرا لحضرتك وجعله الله في ميزان حسناتك :)

تفضل اخي الكريم Hotel.rar

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

شكرا لكم جميعا وشكر خاص للأخ جعفر ويا ريت تزودنا بالشرح كيفية عمل ذلك ، جزاك الله خيرا

الاخ الحبيب والاستاذ / محمد الريفى جزاكم الله خيرا لمروركم العطر تقبل تحياتى

تسلم ايدك ياريس جزاكم الله خيرا كثيرا

اللهم ارحمه وارحم موتانا واجعله في ميزان حسناته وحسناتك

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

السلام عليكم هل تقصد هكذا Book1.rar

السلام عليكم ورحمة الله ارجو ان يكون هذا ماتقصده رغم خلو الملف من اى بيانات حسابات البناء.rar

السلام عليكم يرحم والديك - اشكرك

جرب الآن المشكلة ليست عندي ربما في النت البطيء show_names_1_2_by letters.zip

هذه الصورة مرفقة بعد تعديل الكود حيب ما شرحه الأخ جعفر الطريبق . فقط قفت بتعديل بسيط هنا في السطر الثالث Private Sub UserForm_Initialize() Label11.Caption = Label11.Caption & " " & DayNameArabic(Now()) Label2.Caption = DayNameArabic(Now()) Label3.Caption = Format(Now(), "dd") Label4.Caption = Format(Now(), "mm") Label5.Caption = Format(Now(), "yyyy") Label6.Caption = Format(DHijri(Now()), "dd") Label7.Caption = HijriMonth(Format(DHijri(Now), "mm")) Label8.Caption = Format(DHijri(Now()), "yyyy") End Sub لست املك في الأخير سوى الإعجاب بكل هذه القدرات وأسأل الله سبحانه أن يوفقنا حميعا إلى ما يحب و يرضى . سأقوم في المرة القادمة بشرح برنامجي الذي أنا بصدد إتمامه والذي أدعو الله أن ينفع به مسلمي فرنسا .

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

كذالك و بنفس الطريقة يمكن اضافة يوم الأسبوع بالحروف العربية الى Label11 كالنالي ; 1- أضف دالة جديدة و لنعطيها اسم DayNameArabic Function DayNameArabic(InputDate As Date) Dim DayNumber As Integer DayNumber = Weekday(InputDate, vbSunday) Select Case DayNumber Case 1 DayNameArabic = ChrW(&H627) & ChrW(&H644) & ChrW(&H623) & ChrW(&H62D) & ChrW(&H62F) Case 2 DayNameArabic = ChrW(&H627) & ChrW(&H644) & ChrW(&H625) & ChrW(&H62B) & ChrW(&H646) & ChrW(&H64A) & ChrW(&H646) Case 3 DayNameArabic = ChrW(&H627) & ChrW(&H644) & ChrW(&H62B) & ChrW(&H644) & ChrW(&H62B) & ChrW(&H627) & ChrW(&H621) Case 4 DayNameArabic = ChrW(&H627) & ChrW(&H644) & ChrW(&H623) & ChrW(&H631) & ChrW(&H628) & ChrW(&H639) & ChrW(&H627) & ChrW(&H621) Case 5 DayNameArabic = ChrW(&H627) & ChrW(&H644) & ChrW(&H62E) & ChrW(&H645) & ChrW(&H64A) & ChrW(&H633) Case 6 DayNameArabic = ChrW(&H627) & ChrW(&H644) & ChrW(&H62C) & ChrW(&H645) & ChrW(&H639) & ChrW(&H629) Case 7 DayNameArabic = ChrW(&H627) & ChrW(&H644) & ChrW(&H633) & ChrW(&H628) & ChrW(&H62A) End Select End Function 2- ثم عدل الكود الموجود في الفورم كالنالي ; Private Sub UserForm_Initialize() Label11.Caption = Label11.Caption & " " & DayNameArabic(Now()) Label2.Caption = DayName(Now()) Label3.Caption = Format(Now(), "dd") Label4.Caption = Format(Now(), "mm") Label5.Caption = Format(Now(), "yyyy") Label6.Caption = Format(DHijri(Now()), "dd") Label7.Caption = HijriMonth(Format(DHijri(Now), "mm")) Label8.Caption = Format(DHijri(Now()), "yyyy") End Sub ملاحظة ربما تحتاج الى توسيع عرض ال Label11 بعض الشيء لكي يظهر كل النص

أخي الكريم وحيد في الخلية B2 ضع المعادلة التالية =MOD(A2/1000,1)*1000 ثم قم بسحبها وفي الخلية C2 ضع المعادلة التالية =INT(A2/1000) ثم قم بسحبها إذا صادفتك مشكلة بالمعادلة قم باستبدال الفاصلة العادية في المعادلة بفاصلة منقوطة .. تقبل تحياتي

السلام عليكم الأخ الكريم لقد أنجزت ماتريد ولكن عن طريق النموذج ورقة البيانات وأرجو أن يكون المطلوب إن شاء الله. CL_2.rar

السلام عليكم لو افترضنا أن التكست بوكس هو TextBox1 ضع الكود التالي في موديول الفورم Option Explicit Private Const KL_NAMELENGTH = 9 #If Win64 Then Private Declare PtrSafe Function LoadKeyboardLayoutA Lib "user32" (ByVal pwszKLID As String, ByVal flags As Long) As LongPtr Private Declare PtrSafe Function ActivateKeyboardLayoutA Lib "user32" Alias "ActivateKeyboardLayout" (ByVal HKL As LongPtr, ByVal flags As Long) As LongPtr Private Declare PtrSafe Function UnloadKeyboardLayoutA Lib "user32" Alias "UnloadKeyboardLayout" (ByVal HKL As LongPtr) As Long Private Declare PtrSafe Function GetKeyboardLayoutNameA Lib "user32" (ByVal pwszKLID As String) As Long #Else Private Declare Function LoadKeyboardLayoutA Lib "user32" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Declare Function ActivateKeyboardLayoutA Lib "user32" Alias "ActivateKeyboardLayout" (ByVal HKL As Long, ByVal flags As Long) As Long Private Declare Function UnloadKeyboardLayoutA Lib "user32" Alias "UnloadKeyboardLayout" (ByVal HKL As Long) As Long Private Declare Function GetKeyboardLayoutNameA Lib "user32" (ByVal pwszKLID As String) As Long #End If #If Win64 Then Dim HKLsystem As LongPtr, HKLarabic As LongPtr #Else Dim HKLsystem As Long, HKLarabic As Long #End If Private Sub TextBox1_Enter() ActivateKeyboardLayout HKLarabic End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ActivateKeyboardLayout HKLsystem End Sub Private Sub UserForm_Initialize() HKLsystem = LoadKeyboardLayout(GetKeyboardLCID) HKLarabic = LoadKeyboardLayout(1025) End Sub Private Sub UserForm_Terminate() ActivateKeyboardLayout HKLsystem UnloadKeyboardLayout HKLarabic End Sub Private Function GetKeyboardLCID() As Long Dim KLID As String * KL_NAMELENGTH GetKeyboardLayoutNameA KLID GetKeyboardLCID = CLng("&H" & KLID) End Function #If Win64 Then Private Function LoadKeyboardLayout(ByVal LCID As Long) As LongPtr #Else Private Function LoadKeyboardLayout(ByVal LCID As Long) As Long #End If Dim KLID As String * KL_NAMELENGTH KLID = Right(String(KL_NAMELENGTH - 1, "0") & Hex(LCID), KL_NAMELENGTH - 1) & vbNullChar LoadKeyboardLayout = LoadKeyboardLayoutA(KLID, 0) End Function #If Win64 Then Private Function UnloadKeyboardLayout(ByVal HKL As LongPtr) As Boolean #Else Private Function UnloadKeyboardLayout(ByVal HKL As Long) As Boolean #End If UnloadKeyboardLayout = UnloadKeyboardLayoutA(HKL) <> 0 End Function #If Win64 Then Private Function ActivateKeyboardLayout(ByVal HKL As LongPtr) As LongPtr #Else Private Function ActivateKeyboardLayout(ByVal HKL As Long) As Long #End If ActivateKeyboardLayout = ActivateKeyboardLayoutA(HKL, 0) DoEvents End Function

السلام عليكم ابو سليمان انظر المرفق ممكن يكون طلبك اكبر واصغر قية مع الاسم.rar

نشكر أستاذنا الجليل عادل حنفي لمساهمته معنا كما نشكر أستاذنا الفاضل محمد طاهر الذي أعاد الحق إلى نصابه ...والسلام عليكم.

نشكر أستاذنا الجليل عادل حنفي لمساهمته معنا كما نشكر أستاذنا الفاضل محمد طاهر الذي أعاد الحق إلى نصابه ...والسلام عليكم.

الآن استطيع ان اقول حمدا لله علي السلامه

الحمد لله رب العالمين الذي بنعمته تتم الصالحات الحمد لله الذي يحق الحق ويزهق الباطل. الحمد لله أن عاد الحق إلى نصابه. وفقنا الله وإياكم إلى البر والتقوى وإلى ما يصلح حالنا وقلوبنا..آمين والسلام عليكم ورحمة الله وبركاته.

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

اخى الكريم نحن نعتذر عن التاخير فلدينا ايضا مسؤلياتنا واعمالنا عموما قمنا بادراج واحدة نمطيه وصرحنا فيها عن المتغير wANum ويمكنك الاطلاع اما بالنسبه للاستعلام فيمكن فتحه من النموذج وذلك لاستدعاء الوحدة النمطيه ولارجاع المتغير الى القيمة صفر ليبدأ الترقيم شكرا لرحابة صدوركم تسلسل تلقائي جديد.rar

جرب هذا الملف ايضا للقدير استاذى سليم حاصبيا تغيير اللغة اوتوكاتيكياً.rar

السلام عليكم الاخ الحبيب A L M A I S T R O عدلت على ملف الاستاذ العلامه خبور وهذا بعد اذنه بما يتماشا مع طلبك الاليه كالتالي : أولا تحدد نوع الإمتداد ثم تضغط زر "إختار المجلد الرئيسي" بدوره يخرج مسار ملفات الاكسل من المجلدات الفرعيه للمجلد المحدد أو حتى قرص محدد ثم تحدد نوع الإمتداد مثلاً xls او xlsm او الخ ...... ورقة البحث الافتراضيه للملفات هيا الاولى و المدى الافتراضي = "A1:Z1000" واشياء اخرى اكتشفها في الملف ارجو التجربه ان وجدت اخطاء او ملاحظات انا موجود ---------------------------------- للمعلومية ...... حاول الا تبحث بقرص كامل لانه حتماً سيكون بطيئ جداً احبذ اختيار مجلد معين ---------------------------------- المرفق الاول شرح الية العمل المرفق الاخر الملف شرح_بحث.rar Kh_Srech.rar

السلام عليكم ورحمة الله وبركاته جاءت فكرة هذه المقالة بعد أن مررت بتجربة في برنامج يعمل على الشبكة واجهت خلالها مشكلة تتمثل في بطء شديد لإقلاع النماذج من المحطات الفرعية ، وحينها هب بعض إخواني لبذل يد المساعدة ، وتوزعت الحلول المقترحة بين التأكد من الأجهزة المستخدمة ، وإعداد الشبكة ، والبرامج المعترضة ذات الصلاحية وحلول أخرى في صميم البرنامج وفي النماذج خاصة .. لذا أحببت إلقاء الضوء على هذه الحلول وعرضها للرجوع إليها عند الحاجة على غرار ما قامت به السيدة سوزان هاركينز في نقاطها العشر لتسريع قاعدة البيانات الخلفية .. انظر هنا . http://translate.goo...ase/2306&anno=2 وقد قسمت هذه الحلول إلى شقين أمور مؤثرة خارج البرنامج : 1- التأكد من الأجهزة المستخدمة : كالمعالجات والذواكر وبطاقة الشبكة والأسلاك الموصلة والمقسمات فقد تكون رديئة وسرعتها متدنية . 2- طريقة إعداد الشبكة على الأجهزة المستخدمة ، وكتابة عناوين لها ثابتة يدويا 3- جدار الحماية حيث يجب جعل البرنامج من ضمن الاستثناءات 4- برامج مكافحه الفيروسات لها علاقة بالموضوع ، فيجب استثناء مجلد قاعدة البيانات من مسح برنامج مضاد الفيروسات 5- طول المسارات ، أو ما يسمى بمستوى الموقع ، كأن تكون قاعدة البيانات الخلفية داخل أكثر من نموذج فرعي . أمور مؤثرة داخل البرنامج : 6- تهيئة قاعدة البيانات للمشاركة والتحرير .: خيارات / خيارات متقدمة مشترك = نعم سجل محرر = نعم 7- " طول اسم قاعدة البيانات " يجب إعطاء قاعدة البيانات اسما مختصرا مناسبا 8- " ارتباط نموذج البداية بمصدر" فيجب أن يكون نموذج الإقلاع ( البداية ) منضما يرتبط بجدول كمصدر في القاعدة الخلفية 9- من عوامل التسريع : فتح نموذج (منضم) مخفي عند تشغيل الواجهة يعمل طول الوقت . 10- من عوامل البطء : كثرة الوحدات النمطية الثانوية في نموذج البداية هذا جهد المقل أسأل الله أن ينفع به

انا موش عارف اشكر صاحب هذا الموضوع لانها فعلا افادتنى كثيييييييييرا