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

اخي من قال ان رقم السند يتم جمعه تم حفظ الملف ل2003 ليعمل عندك وتم مراعاة عدم ترحيل الصفر تحياتي ضرائب جديد2015.rar

رابعاً:- التعامل مع خصائص الـ ComboBox فى لغة البرمجه فى الدرس قبل السابق عرفنا ازاى نتحكم فى خصائص ComboBox من شاشة الخصائص اثناء عملية التصميم فماذا لو حبينا نتحكم فى خصائص ComboBox ولكن من خلال الاكواد وليس من شاشة الخصائص فى مرحله التصميم هنبدأ على طول بمثال عملى ونشرح عليه اضغط دبل كليك على اى مكان فاضى فى الفورم وهندخل محرر اكواد الفورم ونعمل كود فى حدث فتح الفورم اتبع الصوره هتلاقى الصوره دى فى المكان المظلل باللون الاحمر هنا موضوع كتابه الاكواد ولكتابة اى كود خاص بأى عنصر تحكم فى الفورم يكون على الشكل التالى الخاصيه ( Back Color):- زى ما قلنا قبل كدا ان هذه الخاصيه تتيح للمستخدم تغيير لون خلفية للـ ComboBox عايزين نكتب فى المربع الاحمر كود يجعل لون خلفية الكمبوبوكس (سماوى ) عند فتح الفورم لو حضرتك محترف كتابة انجلش كويس على الكيبورد وسريع خلاص لا تهتم بالقائمة المساعده للخصائص اللى بيعرضها الفيجوال بيسك واكتب انت بنفس سطر الكود ناخد مثال اخر عن الخاصيه ( Back Style):- ناخد مثال اخر عن الخاصيه ( Row Source ):- ComboBox1.RowSource = "A1: b5" سطر الكود زى ما هو ظاهر تم كتابة اسم العنصر ثم . ثم اسم الخاصيه ثم = ثم المدى المراد اظهاره فى الكمبوبوكس ( المدى تم كتابته بين اقواس تنصيص " المدى " وهذه الاقواس كما قلنا انها تكتب من خلال الضغط على شيفت + حرف ط بالعربى ) ناخد مثال اخر عن الخاصيه ( Column Heads ):- ComboBox1.ColumnHeads = True سطر الكود زى ما هو ظاهر تم كتابة اسم العنصر ثم . ثم اسم الخاصيه ثم = ثم نوع الخاصيه اما True أو false وكذالك لباقى الخصائص الخاصه باى عنصر تحكم على الفورم هذا هو الكود بشكله النهائى على الاربع خصائص السابقه Private Sub UserForm_Initialize() ComboBox1.BackColor = 15849925 ComboBox1.BackStyle = fmBackStyleOpaque ComboBox1.RowSource = "A1: b5" ComboBox1.ColumnHeads = True End Sub هل يمكن ايضا كتابة الكود بشكل ابسط نعم يوجد طريقه اخرى من خلال استخدام With وطبعا لازم نقفل With بـ End with ويكون بداية سطر الكود هو . ثم اسم الخاصيه ثم = ثم نوع أو قيمة النتيجة شاهد الكود كالتالى Private Sub UserForm_Initialize() With ComboBox1 .BackColor = 15849925 .BackStyle = fmBackStyleOpaque .RowSource = "A1: b5" .ColumnHeads = True End With End Sub أنا عايزك تجرب باقى الخصائص بنفسك ولو صدفك اى مشكله لا تتردد انك تراسلنى تابعونا

الأعضاء الأعزاء أسعد الله أوقاتكم بكل خير فيما يلي الدرس الأول من دورة "إكسيل 2013 المستوى المتقدم" بعنوان: التنسيق الشرطي المتقدم (المعتمد على المعادلات) سيتم نشر باقي الدروس تباعاً في هذا الموضوع بالإضافة الى نشر كل درس في موضوع مستقل خاص به لسهولة الوصول الى كافة الدروس... فانتظرونا ***ملاحظات*****... ملاحظة 1/ المتطلب السابق لهذه الدورة: معرفة جيدة باستخدام برنامج اكسيل ويمكن لمن أحب الرجوع لدورتنا السابقة "مهارات استخدام برنامج اكسيل 2013 " والتي نشرح فيها أساسيات ومبادئ برنامج الاكسيل. سوف تجدون رابطها في الرابط التالي: ملاحظة 2/ ملف التمارين الخاص بهذا الدرس موجود في الرابط التالي: http://www.4shared.com/file/NNsDhqPQce/1-_conditional_formatting_form.html ملاحظة 3/ لا تنسوا الاشتراك في قناتنا على اليوتيوب حتى يصلكم كل ما هو جديد أولا بأول ملاحظة 4/ لايك و شير x الخير حتى تعم الفائدة دمتم بخير أخوكم م/نضال الشامي Google+ Twitter

اولا اعتذر عن التاخير لسا اتذكر الموضوع وانا امر على كتاباتي ! وجدت لك عزيزي طريقتين : 1. اعمل مرجع للمكتبة microsoft office object library وحسب الاصدار لديك ثم هذا الكود Application.LanguageSettings.LanguageID(msoLanguageIDUI) وهذه مرجع للغات : https://msdn.microsoft.com/en-us/goglobal/bb964664 2. عمل وحدة نمطية عامة بها : Private Const LOCALE_USER_DEFAULT = &H400 Private Const LOCALE_SNATIVELANGNAME = &H4 Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _ (ByVal Locale As Long, _ ByVal LCType As Long, _ ByVal lpLCData As String, _ ByVal cchData As Long) As Long Private Function GetInfo(ByVal lInfo As Long) As String Dim Buffer As String, Ret As String Buffer = String$(256, 0) Ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, Len(Buffer)) If Ret > 0 Then GetInfo = Left$(Buffer, Ret - 1) Else GetInfo = vbNullString End If End Function وعند اي حدث في البرنامج تعمل المناداة وكرسالة مثلا : MsgBox GetInfo(LOCALE_SNATIVELANGNAME) تحياتي اخي استاذ ابوعارف

اعزائي اليكم هذا السطرالواحد من الكود والذي يقوم بفتح مربع حوار سحب الصور من الاسكنر وحفظ الصورة في نفس مسار برنامجك الاكسس ! Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(CurrentProject.Path & "\" & InputBox("ادخل اسم الصورة") & ".jpg") تحياتي

بسم الله الرحمن الرحيم أساتذتى بالمنتدى و ألاخوة الزملاء كل عام وانتم بخير بمناسبة العام الجديد مما لا شك فيه أن الأهداء يقدم الى أغلى شخص لدى الانسان وبما انه اغلى شخص فلابد من تقديم أغلى هدية يملكها فسمحو لى ان اقدم أغلى ما املك واعز ما أملك وهو برنامج EMA الى أغلى منتدى . منتدى أوفيسنا هذا الصرح العظيم الذى شرفت بالانضمام اليه أهداء برنامج EMA برنامج EMA تم تصميمة بعمل متواصل على مدار 300 يوم بمعدل لا يقل عن 5 ساعات يوميا معظمها كان البحث والتفكير وكيفية التنفيذ فأن أحسنت فمن الله وما توفيقى الا بالله وأن أخطأت فمن نفسى والشيطان والحمد لله الذى بنعمته علينا تتم الصالحات تم رفع البرنامج بتاريخ 29-9-2014م وهذا كان الاصدار الاول من الجزء الاول للبرنامج وبعد التواصل مع الاعضاء ومشاركتى لأرائهم طلب منى بعض الاضافات الاخرى والحمد لله تم ذالك أقدم لكم الاصدار الثانى من الجزء الاول أتمنى أن يحوز اعجابكم ورضاكم البرنامج به أمكانيات وخيارات كبيرة جدا تم تصميمه على اعلى مستوى من الرقابه والتحكم فى المدخلات أنا الحمد لله عملت على برامج كبرى وهذا البرنامج عصارة خبرة محاسبية وأنتظرو منى قريباً الجزء الثانى للبرنامج (المخازن والمبيعات والمشتريات) فى نفس الملف وأخيرا وليس أخراً البرنامج بين أيديكم لا يتم فتج البرنامج الا فى الساعه 12ص أى بالليل 2015/1/1م لأنه نسخة عام 2015م ملحوظه مهمه جدا 1-يفضل تشغيل البرنامج على 2007 2-لا يتم تغيير اسم البرنامج نهائيا لانه لا يفتح عند تغيير- الاسم (EMA)فقط فى بعض الاحيان عند التنزيل يكون EMA 1 فى هذه الحالة يحذف 1 أن شاء الله نرفق لكم شرح لكيفية العمل على البرنامج اسم المستخدم / الدعم الفنى الباسورد / 123 EMA.zip

السلام عليكم ورحمة الله وبركاته إخواني الكرام أحياناً يصادفنا أن يكون حجم الملف كبير جداً مقارنةً بالبيانات الموجودة بداخل الملف .. فقررت عمل موضوع مفتوح يقوم الأعضاء باقتراح طرق لتقليل حجم الملف .. وإليكم ملف للأخ سليم حاصبيا في أحد الموضوعات ..حجم الملف أكثر من 5 ميجا العبد الفقير لله لديه كود خطير يساهم في حل المشكلة ولكن لن أقدمه الآن (كنوع من التشويق ) في انتظار مشاركاتكم القيمة والمساهمة في حل مشكلة تقابل الجميع وفقكم الله لما يحب ويرضى Last Price SALIM.rar

السلام عليكم ورحمة الله وبركاته.. الحمد لله، والصلاة والسلام على رسول الله، وعلى آله وصحبه، وسلم تسليما كثيرا. أما بعد.. الأحبة في صرحنا المبارك.. هذا برنامج لـ (المخازن والحسابات) مع فاتورة للمبيعات، وملحقات خاصة بالحسابات وأرجو أن يكون صالحاً ومفيداً لأغلب الاحتياجات. اسم المستخدم: a كلمة المرور: 123 باسوورد مسح بيانات البرنامج: 123 أوراق العمل: بدون باسوورد محرر الأكواد: بدون باسوورد ..وأسأل الله أن تكون هذه المشاركة نافعة للجميع.. ..وفقني الله وإياكم لما يحب ويرضى.. برنامج المخازن والحسابات.rar

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير ياسر خليل أبو البراء على الموضوع الهام الذي أنت بصدد طرحه ..جزاك الله خيرًا و زادها بميزان حسناتك .. و جعل كل حرف ممّا تكتبة في سبيل إنارة دربنا التعليمي بألف حسنة إن شاء الله ..أستاذي القدير هل بموضوعك القيّم هذا تقصد التقليل من الحجم الكبير للملف الطبيعي الخالي من الفيروسات ؟؟ فقط لأعرف كيف أخوض مع الخائضين .. لأنه حسب تجربتي البسيطة التي لا تقارن بكل ما تحمله هذه الكلمة من معنى بما تملكُه أنت - تبارك الله - أنّه إذا كان حجم الملف بشكله الطبيعي صغير و فجأة وجدناه كبير جدا ... فهذا معناه قد أصيب بفيروس .. وهذا ما دعا ربّما الأستاذ الفاضل سليم حاصبيا إلى التساؤل المشروع .. فائق إحترامي

الخلل أين ..فعلاً لست أدري تفقيط الدينار الجزائري.rar

السلام عليكم أما الأحرف U LR1 W t وغيرها فهي حروف أختارها أنا كما أريد ولكن لابد من إعدائها قيمة وهي تسمى (المتغيرات) وللمزيد من الشرح ادخل على الرابط الآتي http://www.officena.net/ib/topic/56941-افتح-الباب-وادخل-لعالم-البرمجة-متخافوش-يا-أحباب-من-اللي-ورا-الباب/?do=findComment&comment=361289 أما تخصوص RESIZE ادخل على الرابط الآتي http://www.officena.net/ib/topic/56933-الخاصية-resize-في-لغة-البرمجة/?do=findComment&comment=361221 تحياتي

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

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

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

جرب هذا التعديل Sub Macro3() Dim AA As Range For Each AA In Range("L10:L" & [L1000].End(xlUp).Row) If AA <> Empty Then AA.Offset(1, -6).Resize(1, 6).Copy Sheets("قوائم").Range("C" & Sheets("قوائم").[C1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues End If Next Application.CutCopyMode = False End Sub

استاذى الفاضل معتصم محمد اسال الله تعالى ان تكون بخير نحن مفتقدين فى اوفيسنا ونتمنى ان تكون بيننا فى القريب العاجل تقبل تحياتى

اخى الحبيب اليك الحل book.rar

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

الأعضاء الأعزاء أسعد الله أوقاتكم بكل خير فيما يلي الدرس الثاني من دورة "إكسيل 2013 المستوى المتقدم" بعنوان: التحقق من البيانات باستخدام المعادلات اكسيل 2013 المستوى المتقدم: الدرس الثاني (التحقق من البيانات باستخدام المعادلات) أتمنى لكم مشاهدة ممتعة ومفيدة يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html دمتم بخير أخوكم م/نضال الشامي Google+ Twitter

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

السلام عليكم أخي الحبيب إبراهيم أبو ليله المحترم: كم كنت أتمنى أن أراجع دراسة هذا الشرح الرائع والمتميز مرات ومرات تعلمنا من حضرتك أن الحلقة التكرارية تغنينا عن كتابة كل خلية حسب موقعها ضمن الكود كما أتمنى أن يكتب الكود يوماً ما بالعربية، ألا يكتب الإنكليز بلغتهم والصينيون بلغتهم والهنود أيضاً فلم لا يكون لنا استقلالنا بكل شيء فنكتب مثلاً - وهو حلم نود لو تحقق ذات يوم: تقبل تحياتي.. Sub enterdata_for1() Dim h As Integer For h = 23 To 26 Cells(h, 8) = h - 22 Next End Sub كود إدخال_بيانات_لأجل1() تعريف h كعدد صحيح لأجل h =23 إلى 26 الخلايا (h,8)=h-22 التالي نهاية الكود

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

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

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

ما شاء الله شرح أكثر من رائع ويدخل المعلومة بشكل غريب لأنك تقوم بتشريح المعادلة بشكل بسيط وجذاب أرجوك بشدة استمر في شرح معادلات أكثر على ان تكون بنفس تلك الطريقة الرائعة ولتبدأ مثلاً بشرح دالتي index ، match ومقارنتهما بدالة vlookup وأيهما افضل في البحث

أخي الكريم صلاح المصري إليك كود الاستدعاء ..يعتمد على فلترة البيانات ثم نسخ الخلايا الظاهرة في العمودين G و H Sub MultipleFilter() Dim WS As Worksheet, SH As Worksheet, RngData As Range, RngCopy As Range Set WS = Sheets("Rawdata"): Set SH = Sheets("فاتورة بيع") Set RngData = WS.Range("A6:R" & WS.Cells(Rows.Count, 1).End(xlUp).Row) Application.ScreenUpdating = False With WS .AutoFilterMode = False With .Range("A5:R5") .AutoFilter Field:=2, Criteria1:=SH.Range("I4").Value .AutoFilter Field:=3, Criteria1:=SH.Range("I5").Value .AutoFilter Field:=4, Criteria1:=SH.Range("C5").Value .AutoFilter Field:=5, Criteria1:=SH.Range("B2").Value End With Set RngCopy = Intersect(.Columns("G:H"), RngData.SpecialCells(xlCellTypeVisible)) RngCopy.Copy SH.Range("B8").PasteSpecial xlPasteValues End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

بالفعل أخي الغالي رمهان مشكور على الدالة الجميلة والرائعة ..أنت السهل الممتنع تقبل الله منا ومنكم

تفضل جعفر 231.الرصيد.accdb.zip

أخي الحبيب يرجى تغيير اسم الظهور للغة العربية جرب الكود التالي في حدث المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("Z1") = ActiveCell.Address ThisWorkbook.Save End Sub Private Sub Workbook_Open() Dim S As String S = Range("Z1").Value Application.Goto Range(S), True End Sub Test.rar

للرّفع

السلام عليكم ورحمة الله تفضل الملف وبة ماتريد فعند الضغط علي الخلية D4 طبعا تستطيع تغييرها ، سيظهر لك نموذج التقويم اختر التاريخ فسيتم انتقال التاريخ الي الخلية D4 وبالتنسيق الذي طلبتة. KHMB.rar

تم عمل الاستعلام المطلوب جرب ووافني بالنتيجة Db1.rar

نسخه مستحدثه من برنامج EMA للادارة المالية أهداء للمنتدى بعد تعديل الملاحظات التى قدمها لى الاخوة بالمنتدى EMA.zip

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

الأخوة الأعزاء السلام عليكم ورحمة الله وبركاته بالملف المرفق كود لمحاذاة الأرقام بالمنتصف ، أريد عمل زر لتشغيل / إبطال عمل الكود كالزر الموجود بالملف الثانى على سبيل المثال. خالص شكرى وتقديرى أخوكم عيد مصطفى Cash at Banks.rar Time Sheet.rar

السلام عليكم ... أقدم لكم تجربتي الأولى مع الاكسل (أيام الدراسة) ، وهو برنامج يحسب اهتلاك الأصول الثابتة بعدة طرق. قمت بإضافة هذا البرنامج في أحد المنتديات وتذكرت أني لم أضعه في منتدى أوفيسنا ، ولذلك (ومن باب أولى) يتحتم علي تقديمه لأعضاء على هذا المنتدى الرائع. البرنامج مصمم على الأوفيس 97 وقد حدثت الملف ليتماشى مع نسخة 2003 ، وكما قلت لكم فإن هذا البرنامج يمثل أول تجربة لي في التعامل مع الاكسل (يوم كنا أولاد) لذلك أرجو عدم معاتبتي على الأخطاء التي قد تجدونها فيه. :d بالتوفيق Assets.zip

برنامج فكرة الأخ حسام قمت بعمله أرجو أن يفيد ولا أستغني عن ملاحظات أساتذتي المشرفين لا أملك صلاحية لتحميله :SHY: فإذا رغب أحد الأخوة مما يملك الصلاحيات أرسلته له بالبريد لعرضه الملف هنا للتحميل