الجموعي

تفضل اخي المطلوب بحث معدل.rar

إستعمل الدالة PRODUCT =PRODUCT(C8:D8)

تفضل اخي بحث.rar

جربالكود التالي Sub Print_Out() Dim x As Integer x = Sheets("ورقة2").Range("A4").Text Sheets("ورقة2").Select ActiveWindow.SelectedSheets.printout From:=1, To:=x End Sub معذرة استاذي الكريم لم انتبه لردك

عن طريق المعادلة LEN وعملية الفرز من الأكبرإلى الأصغر sort by len character length.rar

أخي الكريم انا اريد التنقل بين الصفحات عن طريق الفورم لم اجده في الملف الذي ارفقته شاهد المرفق الذي ارفقته لك بالنسبة للمخزون أريده تلقائيا يعمل مع كلتا الورقتين انا قمت بجعل كل ورقه تخصم من المخزون مثال عدد كمية الحليب في المخزون 20 عند خصم كمية 5 من الورقه الأولى يصبح في المخزون 15 وعند خصم كمية5 من الورقة الثانية يصبح المتبقي من المخزون من الحليب 10 وهكذا مع باقي السلع وعند إضافة ورقة جديدة

أنا أستخدم اوفيس 2016 معدلة خصم من مخزون اوفيس 2003.rar

بارك الله فيك اخي ماهي هذه الرسالة؟ تفضل نسخة اوفيس 2003 خصم من مخزون اوفيس 2003.rar

في إنتظار خبراء الاكواد

الف مبروك عودة ميمونة لهذا الصرح العظيم

يارك الله فيك أخي على هذا الحل بالمعادلات وجزاك الله خيرا قمت بإضافة ورقة جديدة وأريد عند إدخال البيانات للورقة الثانية data2 يتم الخصم تلقائيا وهكذا مع إضافة كل ورقة جديدة خصم من مخزون.rar

أين أنتم يا أساتذتي الكرام

عن طريقة المعادلة OFFSET =OFFSET($A$6;-(ROW(A1)-1);0)

طريقة تصوير الشاشة من الكمبيوتر بدون برنامج من لوحة المفاتيح طبعا كلنا بتظهر لنا مشكلة في برنامج او على الجهاز او نحتاج نعمل شروحات للبرامج او الدورات من جهازنا من اجل ذلك راح اعرفكم اسهل طريقة لتصوير الشاشة بدون برامج إليكم الخطوات : 1) نفتح البرنامج الإكسل او اي شئ نحتاج تصويره على الشاشة 2) من لوحة المفاتيح نضغط علي زر print scrn موجود في اعلى لوحة المفاتيح 3) نقوم بفتح برنامج الرسام من قائمة إبدأ إبدأ > البرامج > الملحقات > الرسام start > program > accessories > paint 4) بعد فتح البرنامج من قائمة edit نختار past 5) لقص جزء من الصورة نختار اداة التحديد الموجودة في الجانب ثم نقوم برسم مربع علي المكان المراد قصه ثم نضغط عليه كليك يمين و نختار cut ثم من قائمة file نختار new ثم من قائمة edit نختار past سنجد الجزء المقطوع ظهر على برنامج الرسام 6) بعد ذلك نحفظ الصورة من قائمة file > save as 7) نختار مكان حفظ الصورة علي جهازنا و اسم الصورة و صيغة الصورة الافضل اختيار png لانها اعلى جودة في الصور المحفوظة من هذا البرنامج ثم نقوم برفع الصور علي المنتدى من خلال مركز الرفع بكل سهولة تستخدم هذه الطريقة لعمل الشروحات او عرض المشاكل التي تواجهنا علي الكمبيوتر

عن طريق المعادلة INDEX =INDEX($A$1:$A$6;ROWS($A$1:$A$6)-ROWS($A$1:$A2)+1)

أرجو إرفاق رسالة الخطأ بالضغط على زر Debug ستجدها مظلله باللون الاصفر

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

بالنسبة لكود جلب الصورة اليك الكود التالي Private Sub CommandButton2_Click() Dim strFileName As String strFileName = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select a File", MultiSelect:=False) If strFileName = "False" Then MsgBox "File Not Selected!" Else Me.Image1.Picture = LoadPicture(strFileName) End If End Sub

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

بالنسبة لطلبك الاول تفضل Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim I As Integer Dim Valeurs1, Valeurs2, Valeurs3 As Variant Dim sDic1, sDic2, sDic3 As Object Set sDic1 = CreateObject("Scripting.Dictionary") Set sDic2 = CreateObject("Scripting.Dictionary") Set sDic3 = CreateObject("Scripting.Dictionary") '=============================خاص بالكمبوبوكس3=============================== With ws Valeurs1 = .Range("A2:A1000").Value For I = LBound(Valeurs1) To UBound(Valeurs1) If Not IsEmpty(Valeurs1(I, 1)) Then sDic1(Valeurs1(I, 1)) = "" Next I End With If IsArray(Valeurs1) Then Me.ComboBox1.List = sDic1.keys '=============================خاص بالكمبوبوكس2=============================== With ws Valeurs2 = .Range("B2:B1000").Value For I = LBound(Valeurs2) To UBound(Valeurs2) If Not IsEmpty(Valeurs2(I, 1)) Then sDic2(Valeurs2(I, 1)) = "" Next I End With If IsArray(Valeurs2) Then Me.ComboBox2.List = sDic2.keys '=============================خاص بالكمبوبوكس3=============================== With ws Valeurs3 = .Range("C2:C1000").Value For I = LBound(Valeurs3) To UBound(Valeurs3) If Not IsEmpty(Valeurs3(I, 1)) Then sDic3(Valeurs3(I, 1)) = "" Next I End With If IsArray(Valeurs3) Then Me.ComboBox3.List = sDic3.keys End Sub

اخي تفضل المطلوب غي حدث زر الحذف قم بوضع الكود التالي Dim ws As Worksheet Dim inx As Long Set ws = ActiveSheet inx = Me.ComboBox1.ListIndex + 2 If ComboBox1.Text = "" Then MsgBox "قم اولا باختيار موظف لحذفه", vbExclamation, "حذف" Exit Sub End If Dim Q Q = MsgBox(" أنت على وشك حذف الاسم " & " ( " & ComboBox1.Text & " ) " & " من السجل ، هل تريد المواصلة ", vbCritical + vbYesNo, "تأكيد الحذف") If Q = vbYes Then ws.Cells(inx, 1).Resize(1, 3).delete Shift:=xlUp Q = MsgBox(" لقد تم حذف الموظف " & " ( " & ComboBox1.Text & " ) " & " من قاعدة البيانات ", vbInformation, "") End If وبالنسبة لتسلسل الارقام تلقائيا تفضل هده المعادلة قم بتمريرها على العمود A وعند الكتابه في العمود B يتم ادراج الرقم تلقائيا =IF(B2<>"";ROW()-1;"")

في حدت اليوزرم فورم Private Sub UserForm_Initialize() End Sub أضف هذا الكود Me.Label5.Caption = Format(Now, "hh:mm") Me.Label6.Caption = Format(Date, "yyyy/mm/dd")

بسم الله الرحمن الرحيم الاخوه الكرام بعد فترة انقطاع عن المنتدى بسبب الظروف وبعودتي الميمونة احببت أقدم لكم اليوم بمشيئة الله درس حول التحكم بحجم الفورم ===================================== الأدوات ===================================== تكست بوكس/TextBox ليبل/Lebel أو أيقونات كما في الصورة zoom_in zoom_out ===================================== الكود البرمجي ===================================== '==================================================== Private Sub UserForm_Initialize() Dim i As String i = Me.TextBox.Value If i <= 0 Or i = "" Or Not IsNumeric(i) Then i = 100 Me.Zoom = i Me.Width = 712.5 * i / 100 Me.Height = 579.75 * i / 100 End Sub '==================================================== Private Sub zoom_out_Click() If Me.Zoom <= 80 Then Exit Sub j -10 End Sub '==================================================== Private Sub zoom_in_Click() j 10 End Sub '==================================================== Private Sub j(ByVal s) Me.Zoom = Me.Zoom + s Me.Width = 712.5 * Me.Zoom / 100 Me.Height = 579.75 * Me.Zoom / 100 Me.TextBox.Value = Me.Zoom End Sub '==================================================== وفي الاخير أتمنى الفكرة نالت إعجابكم في إنتظار تجربتكم التحكم بحجم الفورم.rar

جرب المرفق أخي ان شاء الله هو المطلوب بالنسبة للكود رقم 140 في شيت codes لماذا اسم الصنف فارغ لان عند البحث بالتكست بوكسوالتراجع عن البحث البيانات في الليست بوكس تمسح ما عدا هذا الرقم قمت بكتابة اي شيء في اسم الصنف للكود 140 عمل بنجاح 2015_2_2.zip

شاهد الموضوع التالي راح يفيدك http://www.officena.net/ib/index.php?showtopic=58849&hl=