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

فكرتي إليكم هي عمل كاشير للمبيعات بأزرار معرفة بصور الأصناف .. الفكرة طبعا غير مكتملة لكثرة تطرق كثير من الأعضاء بفورم الترحيل.. ولكن الهدف هي تغيير نمط التفكير والانطلاق بطريقة مميزة ومألوفة للمبيعات.. أترككم مع الملف. ملاحظة: لتعديل الكميات والحذف دبل كليك على الصنف. بانتظار آراءكم وتقبلوا تحياتي القلبية testcasheir.rar

السلام عليكم ورحمة الله وبركاته إليك الحل بثلاثة طرق مقتبس من بعض علماء الإكسيل الكرام جزاهم الله خيراً الطريقة الأولى بواسطة الدالة VLOOKUP كما يلي: =VLOOKUP(C4;$I$3:$J$6;2;1) الطريقة الثانية بواسطة الدالة INDEX مع MATCH كما يلي: =INDEX($J$3:$J$6;MATCH(C4;$I$3:$I$6;1)) الطريقة الثالثة بواسطة الدالة IF كما يلي: =IF(C4>=$I$6;$J$6;IF(C4>=$I$5;$J$5;IF(C4>=$I$4;$J$4))) لا فضل لي بذلك بل لمن علمني والدال على الخير كفاعله والسلام عليكم ورحمة الله وبركاته منذر محمد.rar

سؤال جميل ! تفضل ومشاركة مع اخي نور Private Sub text1_Change() If Right(text1.Text, 1) <> "_" Then MsgBox ("hi") End Sub

أخى الغالى عبدالعزيز بارك الله فيك شفانا و شفاكم الله من كل سقم أخى محمود كود ادراج الصورة يعمل عندى بلا أخطاء و هو بالفعل كما طليت اضغط فى الفورم على صورة هيفتح Browser حدد الصورة ثم Open لاحظ أنه مش أى صورة يمكن ادراجها الصورة المفضلة تكون بامتداد jpg ( تم اضافة سطر على الكود لتلافى الأخطاء المحتملة ) اليك التعديل الخاص بحساب السن عند الوفاة و حساب المدة بعد الوفاة تحياتى تاريخ الميلاد من القومى والسن عند الوفاة والمدة بعد الوفاة وادراج صورة.rar

اثراءً للموضوع يمكن استعمال هذه المعادلة البسيطة (عدد العمال في الخلية A2) =CHOOSE(IF($A2<7,1,IF($A2<20,2,3)),5,20,100)

هذا الكود اخي عبدالله للفكرة اعلاه : xpath = "a\b\c\d" ypath = CurrentProject.Path & "\" For Each d In Split(xpath, "\") ypath = ypath & d & "\" MkDir ypath Next حيث xpath مجلداتك المراد انشاؤها ! بالتوفيق

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

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

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

برنامج محاسبة كامل من تصميمي يرجى ابداء الرأي علما أني أحضر نسخة مستودعية أوسع منه https://drive.google.com/open?id=0Bwr7KBsDeEkUY01kOW1NMjBxZEU

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام على اشرف المرسلين سيدنا محمد وعلى اله وأصحابه اجمعين بفضل الله وكرمة انتهيت من تطوير برنامج المصروفات الاصدار الثالث . وقد تم هذا التطوير بناء على رغبة الكثيرون والجديد فيه -زيادة عدد الحسابات الى 100 حسابات وزيادة عدد حركات التسجيل الى الضعف - امكانية عرض تقرير مصروفات لقسم معين ولفتره معينه - امكانية عرض تقرير سنوي - عمل نسخة احتياطيه للبرنامج تم عمل حماية للملف حفاظا على المعادلات والصيغ من التلف والباسورد 12345 ارجو من كل من يستفاد من هذا البرنامج نشره ومشاركته للجميع فزكاة العلم نشره الاصدارت السابقه الاول والثانى على على هذا الرابط http://www.officena.net/ib/index.php?showtopic=54319&hl= برنامج المصروفات الاصدار الثالث.rar

السلام عليكم و رحمة الله و بركاته اولا : الاساتذة الكرام ارجو المعذرة ان كان العنوان لا يعبر عن المحتوى ثانيا : كم اشتقت الى هذا المنتدى العظيم و الله ما غبت الى مشاغل فى العمل ثالثا : العمل كله فى الاعمدة التالية dr dq dp و المعادلة هنا تعتمد فى تنفيذها على رقم الشهر فاذا كان رقم الشهر 1 فهى معادلة معينة اما اذا كان رقم الشهر ليس 1 فيتم استرجاع قيمة معينة من عمود ko ko kn حسب الشهر الحالى - 1 اى الشهر السابق مباشرة و الملف تم ترتيبه حسب السنة الميلادية و هنا تكون المعادلة منطقية لان السنة الميلادية من 1 الى 12 اى تصاعدية و السؤال هنا ماذا لو تم العمل بالسنة المالية اى من 7 الى 6 فكيف تكون المعادلة فى الاعمدة dr dq dp و عذرا للاطالة اليوزر : صلاح الباس : 24229197 محرر الاكواد : 24229197 salah 2015_2.rar

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

عمل رائع جزاك الله خيرا

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

جرب هذا الكود Sub extract_data() Dim x, i, lr As Integer Dim My_sheet As Worksheet Dim Source_sheet As Worksheet Set Source_sheet = Sheets("البيانات") Set My_sheet = Sheets("ارقام الجلوس") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual My_sheet.Columns(2).ClearContents My_sheet.Columns(5).ClearContents lr = My_sheet.Cells(Rows.Count, 1).End(3).Row x = 1 For i = 2 To lr My_sheet.Range("b" & x).Resize(5, 1) = Application.WorksheetFunction.Transpose(Source_sheet.Range("a" & i).Resize(1, 5)) My_sheet.Range("b" & x + 4).NumberFormat = "m/d/yyyy" My_sheet.Range("e" & x).Resize(5, 1) = Application.WorksheetFunction.Transpose(Source_sheet.Range("a" & i + 1).Resize(1, 5)) My_sheet.Range("e" & x + 4).NumberFormat = "m/d/yyyy" i = i + 1 x = x + 6 Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

اخبار التجربة اخ محمد !؟! تحياتي

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

السّلام عليكم و رحمة الله و بركاته حلول مميّزة و ممتازة .. تفي بالغرض طولاً و عرضًا ..بارك الله فيك أستاذنا القدير " محمّد حسن المحمّد " جزاك الله خيرًا و زادها بميزان حسناتك فائق إحتراماتي

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

وهل الفورمات التي بداخل الملف يتم تحريكها ؟؟؟؟؟؟!!!!

ترتيب جميل و جهد واضح ... جاري الفحص ...

كنترول متكامل للتيرمين الاول والثاني لاغلى احبه منتداي الغالي واهله : يتم الضغط على زر البيانات الاساسيه : وكتابه البيانات الاساسيه لهذا العام من اسم مدرسة وعام وخلافه : ثم اختيار الصف من خانه اختر الصف اولا : ثم ادخال بيانات التلاميذ ولا يهم سواء كانت تم ابجدتها ام لا فهو فى المرحله القادمه يقوم بعمليه الابجده : بعد ذلك يتم الضغط على زر ارقام الجلوس : ويتم كتابه اول رقم جلوس مطلوب والضغط على الزر فيقوم هنا بادخال ارقام الجلوس تلقائيا لجميع الطلاب مع ملاحظه انه يقوم بعمليه الابجده لاسماء الطلاب تلقائيا هنا م : وبعد ارقام الجلوس يتم وضع عدد الطلاب فى كل لجنه ويقوم البرنامج تلقائيا بتوزيع الطلاب على اللجان بعد ذلك رصد ملف الانجاز حيث ستجد اسماء الطلاب موجوده تلقائيا فيه وتقوم برصد الدرجات : وكذلك العملى : وكذلك الدرجات على الارقام السريه التى سبق ادخالها يدويا من زر ارقام الجلوس واللجان : وبعد ذلك طبع النتائج : والبرنامج مصمم ليقبل الصفين الاول والثانى الاعدادى معا فى آن واحد : اى تختار الصف ثم تنفذ الاوامر التى تريدها عليه : وكذلك اختر الفصل الدراسى سواء الاول او الثانى ليكون العمل كله على هذا الفصل الدراسى الذى تختاره : اعتقد ان هذا ملخص سريع وعاجل للغايه : وبالتجربه قد تكتشف المزيد سواء ايجابيا او سلبيا mojahed xp دعواتكم الصادقة a005.rar

السلام عليكم شباب في الرابط التالي http://www.officena.net/ib/topic/61847-تعديل-على-كود-حفظ-مكان-الصورة/?do=findComment&comment=399928 استعملت الكود التالي: Dim Image_Path As String '1 Image_Path = Application.currentProject.Path '2 Image_Path = Image_Path & "\photo\" 'if the photo Dir dose not exist, creat it If Dir(Image_Path, vbDirectory) = "" Then MkDir Image_Path End If '3 Image_Path = Image_Path & "\" & [ID] & "\" 'if the [id] Dir dose not exist, creat it If Dir(Image_Path, vbDirectory) = "" Then MkDir Image_Path End If وهنا قبل ان أنشأ المجلد الجديد ، يتأكد الكود بوجوده ، فان لم يكن موجودأ ، فانه يستحدثه ، وإن كان موجودا لا يفعل شئ (طبعا لم اكن اريد المستخدم ان يرى اي رسالة هنا) ، وتلاحظ ان عمل المجلدات هو بالتسلسل ، ومن خلال نفس مجلد البرنامج ، هكذا: -1- مجلد البرنامج (الموجود ، لذلك لم اقم بعمل شئ له) ، -2- مجلد الصور photo (واذا لم يكن موجودا ، فسيستحدثه البرنامج) ، والذي هو بداخل مجلد البرنامج ، ومجلد الصور photo هذا سيُستحدث مرة واحدة فقط ، -3- مجلد ID (واذا لم يكن موجودا ، فسيستحدثه البرنامج) ، والذي هو بداخل مجلد الصور photo ، وهناك عدة مجلدات بحسب قيمة ID ، داخل مجلد الصور photo. جعفر

وهذا مثال بعد التعديل بكود معلمنا الاستاذ ابو خليل اممم للعلم تم اضافة بعد الاكواد مثلا 1- لعدم اضافة اى لغة غير موجوده فى الكمبوكس او تجاهل اختيار احد الغتين الوجودتين الان 2- كود لازرار " نسخ - قص - لصق - مسح " التى لم اكن اعلمها وبحثت عنها فوضعتها لتعم الفائدة وايضا قمت بارفاق قاعدة البيانات بتنسيق 2000-2003 حتى يتثنى للكل الاستفادة _updateعن اللغات.rar

اخى الفاضل الملف لم يتم تغييره ما زال على 2007

السلام عليكم ورحمة الله تفضل اخي اظن اني فهمت ماتريد إن شاء الله يكون المطلوب جرب وإذا فيه اي ملاحظة اشرحها بالتفصيل. اخيك في الله / أبو الحسن والحسين ادارة المحلKHMB.rar

خصائص الورقة - تنسيق واكتب في التنسيق yyyy/mm/dd or dd/mm/yyyy علي حسب ما تريده خصائص مربع النص المخصص للتاريخ

جرب هذا لملف Chidren.zip

جرب هذا الملف معلومات الاسرةsalim.zip

جرب الكود التالى حدد النطاق المراد تصويره ثم الخلية لوضع الصوره بجوارها Option Explicit Sub paste_Picture() Dim UserRange As Range, OutputRange As Range Dim MyPrompt As String, MyTitle As String MyPrompt = "Select the range you would like to capture." MyTitle = "User Input Required" On Error Resume Next Set UserRange = Application.InputBox(Prompt:=MyPrompt, Title:=MyTitle, Default:=ActiveCell.Address, Type:=8) If UserRange Is Nothing Then End On Error GoTo 0 UserRange.CopyPicture MyPrompt = "Select the range on which you would like to paste." MyTitle = "User Input Required" On Error Resume Next Set OutputRange = Application.InputBox(Prompt:=MyPrompt, Title:=MyTitle, Default:=ActiveCell.Address, Type:=8) If OutputRange Is Nothing Then End On Error GoTo 0 OutputRange.PasteSpecial Selection.Formula = UserRange.Address End Sub

جرب هذا الملف قائيمة منسدلة اخفاء عمودsalim.zip

بعد إذن لااساتذة الكرام و حتى لا يتغير التاريخ بعد غلق الملف تم فتحه من جديد و لتسجيل وقت الادخال بالخلية لأول مرة و بطريقة ثابتة اقترح هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" Or Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("b2:b100")) Is Nothing Then If Target(1, 0).Value = "" Then Target(1, 0).Value = Time End If End If End Sub

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

اولا اضبط لغة الكتابة في خصائص مربع النص = النظام ثم الصق هذه الجمل داخل محرر النموذج باعتبار combo هو مربع التحرير ورقم واحد هو قيمة المربع ويمثل اللغة الانجليزية و 2 يمثل اللغة العربية Option Compare Database Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Sub combo_AfterUpdate() If combo.Value = 1 Then Call LoadKeyboardLayout("00000409", 1) ElseIf combo.Value = 2 Then Call LoadKeyboardLayout("00000401", 1) End If End Sub لا حظ انه يمكنك اضافة العديد من اللغات

السلام عليكم ورحمة الله وبركاته .. حياك الله اخي كرار ... انت قمت بتغيير اغلب مسميات الحقول والذي يعتمد عليه الكود الذي قام به الأستاذ جعفر ... هنا مثال Set rst = CurrentDb.OpenRecordset("Select * From sh Order By tash") جملة select في الريكورد ست تختار من الجدول sh وانت قمت بتغييره الى tb_sh كذلك tash انت قمت بتغييرها إلى تاريخ الوصل .. وهكذا .. ما عليك فعله هو احد امرين .. 1-تغيير المسميات في الكود بما يتناسب مع مسميات الحقول لديك .. 2- إرجاع تسميات حقول الجداول الى ماكانت عليه .. بإمكانك ارجاعها الى ماكانت عليه مع الإستعانه بالتسمية التوضيحية للحقل ... لكي تظهر باللغة العربية .. اما اسم الحقل نفسه فأنصحك بأن يكون باللغة الإنجليزية .. اتمنى اني افدتك .. وفقنا الله واياك ..

السلام عليكم اتفضل استاذنا معادلة صفيف =IFERROR( INDEX($A$2:$D$902; MATCH(SMALL(IF(($A$2:$A$902>=$G$1)*($A$2:$A$902<=$G$2);ROW($A$2:$A$902);"");ROW($A1));ROW($A$2:$A$902);0); COLUMN(A$1)); "") ابايوسف.rar

لعله المطلوب ذكر اثنثى.zip

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

السلام عليكم ورحمة الله وبركاته بعد اذن الجميع من أساتذة المنتدى ممكن أن نجعل القيمة الافتراضية لهذا الحقل هي تاريخ اليوم ويمكن التعديل بكتابة date() امام القيمة الافتراضية للحقل

السلام عليكم بالنسبة للتاريخ : فكأنك تريد كتابة تاريخ اليوم لان السؤال المتبادر ما الشهر والسنة التي تريد ان تدرجها تلقائيا ؟ ان كان جوابك هو : المطلوب ادخال تاريخ اليوم الحالي فاكتب الكلمة التالية في حدث بعد التحديث للحقل الذي يسبق حقل التاريخ textDate=Date() باعتبار ان textDate هو حقل التاريخ النتيجة سيتم كتابة التاريخ الحالي في حقل التاريخ ويمكنك بعدها التعديل ايضا

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

جرب عزيزي في حدث بعد التحديث: Private Sub Category_AfterUpdate() On Error Resume Next Me.cobClient.Visible = (Me.Category = "الشركات") Me.cobEmployee.Visible = (Me.Category = "العمال") Me.Category.SetFocus End Sub وفي حدث الحالي للنموذج : Private Sub Form_Current() Call Category_AfterUpdate End Sub هذه فقط للاكواد ! اما كفكرة للتصميم فيكون عمود واحد في الجدول ! سيحتوي الاسم ! وطبعا سنعرف نوعه من خلال عمود الفئة! وهنا سيكون مصدر الكمبو في النموذج جملة اس كيو ال متغيرة حسب اختيار الفئة ! هنا عزيزي حبيت افيدك بفكرة وكمعلومة اضافية ! جنبا الى انك مؤدي كما تريد وبطريقتك وهي صحيحة الى حد ما! ولكن انبهك الى انه بطريقتك ستضيف اعمدة في الحركات حسب نوع الفئة وهذا به تحدي كبير خصوصا لما يكون هناك فئة جديدة بعد اغلاق البرنامج وتسليمه للمستخدم ! هذا واتمنى ان افدتك وبالتوفيق

Private Sub Worksheet_Change(ByVal Target As Range) Dim X If Target.Address = "$A$1" Then Application.ScreenUpdating = False Application.EnableEvents = False X = [A1].Value If X <= 0 Or X = 1 Or Not IsNumeric(X) Then GoTo Skipper1 Range("A3:G3").AutoFill Destination:=Range("A3:G" & X + 2), Type:=xlFillDefault Range("A4:G" & X + 2) = Range("A4:G" & X + 2).Value Range("A" & X + 3).Resize(70000, 7) = "" Application.Goto Target End If GoTo Skipper2 Skipper1: Range("A" & 4).Resize(70000, 7) = "" Application.Goto Target Skipper2: Application.EnableEvents = True Application.ScreenUpdating = True End Sub أخي الحبيب أبو عيد بارك الله فيك وجزيت خيراً ..لما جعلت الكود في حدث تنشيط ورقة العمل وليس في حدث التغير في ورقة العمل جرب الكود بهذا الشكل عله يفي بالغرض Copy Formula In Row 3 Based On The Value In A1 Officena.rar

أهلا بيك تفضل التعديل تخفيف حجم الملف2.rar

تفضل وعفوا على الإزعاج تخفيف حجم الملف1.rar

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

السلام عليكم كل عام وانتم بخير استكمالا للموضوع الذى بدأه الاستاذ المبدع ياسر خليل فقد قمت ببرمجة نسخة مستقلة من مكتبة الاكواد (ملف تنفيذى لا يحتاج الاكسل) ومزودة بامكانيات اكبر للبحث والتصنيف بواسطة المجموعة او جزء من العنوان او الكود ... وكذلك يقوم بفتح ملفات الأمثلة المرفقة بواسطة زر يتم تفعيله اذا كان هناك ملف مرفق وكنت اتمنى ان استكمل الامثلة والاكواد لكن الوقت لم يسعفنى..... ارجو تجربته واخبارى عن اى اخطاء برمجية وسوف احاول استكمال الامثلة واضافة اكود جديدة ونشرها بعد التعديل رابط التحميل: http://www.bscenter.co/downloads/vbaforexcelcodes.rar

اكواد اكسس حمل من هنا

ما شاء الله من اول ماتابعت مشاركاتك وانا اعلم بانى امام رجل متميز جدا والان وفى كل لحظه تثبت فعلا تميزك وكرمك معنا ربنا يزيدك ويجزيك كل خير أخى تامر