KHMB

السلام عليكم ورحمة الله تم التعديل جــــــرًب ملاحظــــــــة / عندما تختار السعر المناسب ثم موافق : 1- إذا السعر الجديد لم يختلف عن السعر القديم اللي بالمخزن وبعد ظهور الرسالة ان السعر نفس السعر السابق فلم يتم أي تعديل علي السعر اللي بالمخزن لانة نفسة لم يتغير بعد ذلك لازم تضغط زر تسجيل لكي يتم ترحيل السعر والكمية في شيت المشتريات فقط . 2 - اما إذا اختلف السعر فسيظهر لك مربع الحوار والذي ستقوم بإختيار السعر 1 او 2 او 3 هنا بعد الاختيار : أ - أولا / تلقائيا يتم تعديل السعر بالمخزن في عامود سعر الشراء بالكيلو ب - ثانيا لكي يتم تسجيل السعر المختار والكمية إلي شيت المشتريات لابد وان تضغط علي زر تسجيل. اخوك في الله / أبو الحسن والحسين ادارة المحلKHMB.rar

طيب ابشر إن شاء الله بالتوفيق الله يبارك لكم بالنسبة للطريقة بالبرنامج فهي في ردي السابق بعد الخــــــــــــــــــــــــــــــــــــــط ------------------------------------------------------------------------------------------------------------------------------------ لكنني انا فقط احتسبت الطريقة التي امامي وهي فعلا لاتعطيك المتوسط الصحيـــح وغير سليمـــــــــــــــــــــــــــــة. ممكن تعطيك 90% علي حسب الحركة .والطريقة عملتها كالتالي : جعلت الكود يأخذ : 1 - الكمية التي بالمخزن ويضربها بالسعر اللي بالمخزن 2 - واضرب الكمية الجديدة في السعر الجديد ثم اجمع المبالغ واقسمها علي الكميات وحتى هنا لامشكلة إذا فعلا تم شراء ما بالمخزن بنفس السعر. بقية الملاحظات تقريبا هي فعلا موجودة حسب طلبك لكن كمان سيتم متابعتها لاحقا. فننتظر احد الاخوان المتمكنيين في المجالين سوى محاسبيا او برمجيا او الاثنين معا فالكل مكمل لبعض وهم كثير مثل محمد الريفي والاخ ضاحي والاح سليم حاصبيا وهناك الكثير اعرفهم من خلال أعمالهم لكن لاتحضرني هذه اللحظة أسماءهم.

السلام عليكم ورحمة الله بالنسبة لمتوسط السعر يحتسب كالتالي: مثال فعلي : اشتريت 50 كيلو سكر بسعر الكيلو 3 ريال 50 * 3 = 150 اشتريت 100 كيلو سكر بسعر الكيلو 4 ريال 100 * 4 = 400 اشتريت 200 كيلوا سكر بسعر الكيلو 2.50 ريال 200 * 2.50 = 500 فمتوسط السعر : 1- إجمالي الكمية = 50 + 100 + 200 = 350 كيلو 2- إجمالي مبلغ الكميات المشتراه 150 + 400 + 500 = 1050 ريال يقسم إجمالي المبلغ علي إجمالي الكمية 1050 / 350 = 3 ريال متوسط السعر 3 ريال فعليا لكن محاسبيا متوسط السعر يدخل فيها حركة المبيعات فلها حسبه أخرى وتحتاج لكيفية التسجيل الفعلي للمشتريات وكذلك المبيعات . ------------------------------------------------------------------------------------------------------------------------------------ لكنني انا فقط احتسبت الطريقة التي امامي وهي فعلا لاتعطيك المتوسط الصحيـــح وغير سليمـــــــــــــــــــــــــــــة. والطريقة عملتها كالتالي : جعلت الكود يأخذ : 1 - الكمية التي بالمخزن ويضربها بالسعر اللي بالمخزن 2 - واضرب الكمية الجديدة في السعر الجديد ثم اجمع المبالغ واقسمها علي الكميات وحتى هنا لامشكلة إذا فعلا تم شراء ما بالمخزن بنفس السعر. بقية الملاحظات تقريبا هي فعلا موجودة حسب طلبك لكن كمان سيتم متابعتها لاحقا. فننتظر احد الاخوان المتمكنيين في المجالين سوى محاسبيا او برمجيا او الاثنين معا فالكل مكمل لبعض وهم كثير مثل محمد الريفي والاخ ضاحي والاح سليم حاصبيا وهناك الكثير اعرفهم من خلال أعمالهم لكن لاتحضرني هذه اللحظة أسماءهم.

السلام عليكم ورحمة الله تفضل اخي محمد KHMB ورقة بحث.rar

السلام عليكم ورحمة الله اخي هذه الرسالة تقول لايمكن انتقال التركيز الي الكائن (اللي هو زر التسجيل) لانه اما غير مرئي او عدم تفعيل الخاصية (تمكين Enabled ) او ان هذا النوع لايقبل الإنتقال أي (التركيز Focus ) وبالفعل قمت بإغلاق خاصية التمكين لهذا الزر (تسجيل) عندمحاولاتي في عمل الأسعار تم تصحيح ذلك آسف لإزعاجك. التعديل الأخير : بعد إدخال السعر : 1 - إذا هو نفس السعر الموجود في المخزن لم يقم بأي إجراء بخصوص السعر فقط تأتيك (رسالة نفس السعر السابق) انهي الرسالة يالضغط علي زر موافق ثم اضغط زر تسجيل سيقوم بتسجيل الكمية والسعر في المشتريات. 2 - إذا إختلف السعر سيظهر لك مربع حوار فية: 1- السعر القديم 35 2- السعر الجديد 40 3- متوسط السعر 35.81 سيقوم الكود : أ - يتعديل السعر السابق فقط في المخزن وليس إضافة ب - ستم ترحيل إسم الصنف والكمية والسعر ويضيفها في المشتريات. إذا فيه أي شي غير واضح او لم استطيع توضيحة فأبشر في خدمتك بقدر المستطاع. ادارة المحلKHMB.rar

السلام عليكم ورحمة الله تفضل اخي عبدالرحمن يقوم بتعـديــــــــــــــــــــــــــل السعر بالكيلو وإضافة الكمية الجديدة إلي رصيد الصنف بالمخزن في صفحة المخزن ادارة المحلKHMB.rar

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

السلام عليكم ورحمة الله اخي عبدالرحمن بالنسبة للرسالة اعتقد انها من نوع إصدار الاكسل انا اعمل علي Office 2013 64 Bit ما ادري أي إصدار تعمل علية 2003 او عندك Office 2013 لكن بنظام 32 bit او غيرة تأكد بالنسبة لطلبك يعتبر هذا تعديل وليس إضافة والأفضل ان ييتم التسجيل في كل مرة لكي تعرف وتتابع السعر بعدة فترة طويلة تقدر تتتبع تغيير السعر وتواريخه وانا بحاول اعمل تغيير انه يعدل علي السعر القديم بس اعطني فرصه طال عمرك

السلام عليكم ورحمة الله يا اخي حتى في مسمىات الشيتات باللغة الفرنسية فعند تنشيط الفورم يتم إسناد الشيتات إلي الكمبو ماعدا الـ Total General وكنت اريد إضافة الشيت المخفي Donnees لكي لايتم حذفها بالخطأ لكن ماقبل الاسم معي بسبب اللغة هذا أولا . Private Sub UserForm_Initialize() ComboBox1.Clear For Each x In Sheets If x.Name <> "Total Général" And x.Name <> "Donnees" Then ComboBox1.AddItem x.Name Next End Sub حاول توقف هذه الجزئية المحددة بين الخطين من الكود وجرب Private Sub CommandButton1_Click() Dim C As Range Dim Fir Application.DisplayAlerts = False If Sheets.Count > 1 And ComboBox1.Value <> "" Then On Error Resume Next With ActiveSheet.Columns(4) Set C = .Find(ComboBox1, LookIn:=xlValues) If Not C Is Nothing Then Fir = C.Address '********************************************************* ' Do ' C.EntireRow.Delete ' Set C = .FindNext(C) ' Loop While Not C Is Nothing And C.Address <> Fir '********************************************************** End If End With Sheets(ComboBox1.Value).Delete Application.Calculate End If Application.DisplayAlerts = True UserForm_Initialize End Sub

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

السام عليكم ورحمة الله صحيح لان البحث يبحث في العمود AD والام في العمود AE وهذان العمودان مخفيان هي غير كامله

السلام عليكم ورحمة الله اخي عبدالرحمن المطلوب إيضاح الاتي : 1- إسترجاع السعر من أي شيت المشتريات او من المخزون 2- هل السعر الذي تريد الاعتماد علية سعر الكيلو او سعر القرام طبعا اكيد الصح سعر القرام لانك لو بعت كمية بالقرام حيحسب السعر بالكيو لو اعتمدت سعر الكيلو وهذا خطأ.

السلام عليكم ورحمة الله طرح خلية من خلية بالكود.rar

السلام عليكم ورحمة الله اخي أبو عبدالرحمن اللي فهمت من الموضوع انك تريد مدى القائمة المنسدلة بكل الأسماء اللي في بيانات الجنسية وتم عمل مدى القائمة حتى مليون لكن الملاحظ ان الأسماء الموجودة في بيانات الجنسية غير موجودة في الصفحات الأخرى فاول ماتختار أي اسم من القائمة تجد ان المعلومات التي بصفحة بيانات الجنسية تظهر لك اما المعلومات من الصفحات الاخرى لاتظهر لك حتى تضيف الاسم ويكون مطابق للاسم الذي بصفحة بيانات الجنسية فهو المعيار للبحث. جرب تختار إسم موجود في صفحة بيانات الجنسية وتضيفه في جميع الصفحات الأخرى ثم ترجع لصفحة البحث واختار ذلك الإسم ستجد ظهور كل المعلومات التي بجميع الصفحات . هناك إسم موجود في كل الصفحات هو / احمد خضير عباس عبد الهزيماوي ما ادري هل هذا ماكنت تريده . مرفق ملف بعد عمل مدى القائمة المنسدلة حتى مليون ملاحظة / طريقة زيادة المدى أولا / اختار خلية القائمة المنسدلة التي هي الخلية B3 أي نشطها ثانيا / ثم من شريط الاوفيس تختار بيانات ثم تختار التحقق من الصحة وتكتب المعادلة التالية : ='بيانات الجنسية'!$B$2:$B$1000000 ومن هن تستطيع زيادة او نقص المدى بدل الـمليون 1,000,000 غير إلي المدى الذي تريد. حاولت ارفع الملف تأتي لي رسالة غير مسموح لك برفع ملف بهذا الحجم مسموح لك بهذه المساحة 1003.52 كيلو بايت. الملف حجمة كبير ممكن ليس فعليا ولكن هناك أسباب كثيره ما ادري علي العموم الشرح كافي.

السلام عليكم ورحمة الله تفضل الملف مثال جاهز كل ماعليك ان تنسق الخلايا من K9:K33 حسب ما شرحت لك اعلاة في الصورة المرفقة بعد ذلك فقط كل وصلت أي من احدى هذه الخلايا بالانتـــر او الضغط بالفارة تلقائيا سيضع لم التاريخ والوقت تنسيق تاريخ ووقت خلايا محددة.rar

السلام عليكم ورحمة الله هل تبغاة علي خلية معينة او كامل عمود معين ...... (وضًـح ) ....... الموضوع بسيط

السلام عليكم ورحمة الله اخي أبو عبدالرحمن اين الأسماء ضع حتى أسماء وهمية مثل إسم 1 - إسم 2 ......الخ

السلام عليكم ورحمة الله هذا يكون من تنسيق الخلية اشر علي الخلية المطلوبة ثم R.Click واختار تنسيق الخلايا حدد التاريخ ثم اختار مخصص ثم في مربع النوع ابحث عن مايناسبك من المعروض او قم بكتابتة يدويا أي في مربع النوع (الشكل المستطيل افقياً)وكتب dd/mm/yyyy ثم فراغ(مسطره واحدة) ثم hh:mm الساعات والدقائق وإذا تريد إضافة الثواني hh:mm:ss هذا يعرض الساعة 24 وإذا تبغاه 12 ساعة hh:mm ثم فراغ (مسطره) ثم PM/AM والنتيجة النهائية dd/mm/yyyy hh:mm نظام 24 ساعة dd/mm/yyyy hh:mm PM/AM نظام 12 ساعة وهذه صورة ان شاء الله تظهر

السلام عليكم ورحمة الله نعم اخي لازم وأي كود معمول بنظام 32 بت لن يعمل معك نهائيا إلا بإضافة كلمة او الحروف PtrSafe بعد الإعلان الخاص أي بعد كلمة Declare ولازم تفتح محرر الاكواد لكي تعدل علية.

السلام عليكم ورحمة الله آمين جزاك الله خير اخي المهندس ياسر

السلام عليكم ورحمة الله بعد إذن اخي الأستاذ علي العيدروس والذي سبق وان دلني علي الحل جزاه الله خيرا الاكواد ادناة ضع هذه الكلمة PtrSafe بعد كل كلمة Declare لاحظها موجودة .إن شاء الله تكون هي المشكله Private Declare PtrSafe Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long Private Declare PtrSafe Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare PtrSafe Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare PtrSafe Function SearchTreeForFile Lib "imagehlp.dll" (ByVal sFileRoot As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Boolean Private Declare PtrSafe Function LockWindowUpdate Lib "User32" (ByVal hWnd As Long) As Long Private Declare PtrSafe Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

السلام عليكم ورحمة الله جزاك الله خير اخي طارق

السلام عليكم ورحمة الله اخي سعد بارك الله فيك وجزاك الله خير

السلام عليكم ورحمة الله إرجاع القيم للكمبو هي مثل التكست في المرق وهو المثال المرسل لك سابقا في الإستعلام او المعاينة فقط تم إضافة كمبوبكس تحت كل تكست بوكس واضف تحت كل كود للتكست مثلة للكمبو إن شاء الله واضح ومرفق لك المثال المذكور بملف إكسل Private Sub ComboBox1_Change() On Error Resume Next Dim x, R As Variant x = ComboBox1.Value * 1 R = WorksheetFunction.Match(x, Range("Numbers"), 0) + 1 ComboBox3.Value = Feuil1.Cells(R, "B").Value TextBox11.Text = Feuil1.Cells(R, "B").Value ComboBox4.Value = Feuil1.Cells(R, "C").Value TextBox12.Text = Feuil1.Cells(R, "C").Value ComboBox5.Value = Feuil1.Cells(R, "D").Value TextBox13.Text = Feuil1.Cells(R, "D").Value ComboBox7.Text = Feuil1.Cells(R, "E").Value TextBox11.Text = Feuil1.Cells(R, "E").Value ComboBox8.Value = Feuil1.Cells(R, "F").Value TextBox14.Text = Feuil1.Cells(R, "F").Value ComboBox9.Value = Feuil1.Cells(R, "G").Value TextBox15.Text = Feuil1.Cells(R, "G").Value ComboBox6.Value = Feuil1.Cells(R, "H").Value TextBox16.Text = Feuil1.Cells(R, "H").Value End Sub Two Frame.rar

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