-
Posts
703 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
1
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو الجموعي
-
- الملف به مشكلة برقم الصنف (وهى - انا عندى اكتر من 120 صنف وعند القيام بادخال رقم الصنف من الفورم يظهر لى 57 صنف فقط ) تم حلها نموذج فاتورة بالفورم_2.rar
-
هل هذا ما تقصدهنموذج نقل عاملين الى فروع المنشأه - Copy.rar
-
اخي الكريم قمت بإضافة أكواد خاصه بتنسيق ظهور التاريخ فوجهتني هذه المشكله الملف في المرفق نموذج لشهادة مدرسية+طباعة.rar
-
شعار لمصرنا الحبيبة
الجموعي replied to محمد ابو البـراء's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
اللهم أمين وجميع بلاد المسلمين -
هل من طريقة لعرض القائمة الأفقية ( صف ) في ComboBox2
الجموعي replied to الجموعي's topic in منتدى الاكسيل Excel
شرح ممتاز اخي إبراهيم بارك الله فيك وفي مساعيك النبيله تقبل تحياتي -
أخي الكريم لو اردت إضافة السنة الحالية للكود هذا الكود Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Year(Now()) أو إذا اردت ان تظهر السنة في ليبل لوحدها قم بإضافة ليبل وادرج هذا الكود Me.Label1.Caption = Year(Now()) وإذ اردت ايضا ان يظهر اسم الملف بالامتداد الخاص به Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - x)
-
نعم أخي الكريم بارك الله فيك ربي يحفظك
-
أخي حماده عمر كود ممتاز أنا إستعملت هذا الكود يؤدي نفس الطريقه Private Sub ComboBox1_Change() Me.ComboBox2.Clear On Error Resume Next For h = 2 To 11 Me.Controls("TEXTBOX" & h).Value = "" Next Me.ComboBox2.Value = "" If Me.ComboBox1.Value = "" Then: Exit Sub Sheets(ComboBox1.Value).Select Call HMA End Sub Sub HMA() With ComboBox2 For I = 1 To 50 If Not IsEmpty(Cells(2, I)) Then ComboBox2.AddItem Cells(2, I) Next End With End Sub Private Sub CommandButton1_Click() Sheets(ComboBox1.Text).Select With ActiveSheet For Each c In Range(Cells(2, 1), Cells(2, 256)) If c = ComboBox2.Value Then c.Select '"ÌÏæá" & " " & "" Then c.Select Next End With End Sub Private Sub UserForm_Activate() ComboBox1.Clear For T = 1 To ThisWorkbook.Sheets.Count R = Sheets(T).Name ComboBox1.AddItem R Next End Sub
-
أخي الكريم هل هذا ما تقصده أنا سويت إنتقال تلقائي للصفحات في الكمبوبوكس 1 وفي الكمبوبوكس2 اسماء الجدول وعند إختيار احد الجداول فيتلك الصفحة عند الضغط على زر go مباشرة ينتقل بك للجدول المختارفورم.rar
-
هل من طريقة لعرض القائمة الأفقية ( صف ) في ComboBox2
الجموعي replied to الجموعي's topic in منتدى الاكسيل Excel
أساتذتي الفضلاء لو تكرمتم لي بشرح هذا الكود Lr = Cells(Rows.Count, "A").End(xlUp).Row If Me.ComboBox1.Value = "" Then: Exit Sub If Me.ComboBox1.Value = "جدول1" Then For r = 1 To 9 Sheet1.Cells(Lr + 1, r).Value = Me.Controls("TEXTBOX" & r) Next End If LR1 = Cells(Rows.Count, "J").End(xlUp).Row If Me.ComboBox1.Value = "جدول2" Then For rr = 1 To 9 Sheet1.Cells(LR1 + 1, rr).Offset(0, 9) = Me.Controls("TEXTBOX" & rr) Next End If LR2 = Cells(Rows.Count, "S").End(xlUp).Row If Me.ComboBox1.Value = "جدول3" Then For rr = 1 To 9 Sheet1.Cells(LR2 + 1, rr).Offset(0, 18) = Me.Controls("TEXTBOX" & rr) Next End If LR3 = Cells(Rows.Count, "AB").End(xlUp).Row If Me.ComboBox1.Value = "جدول4" Then For rr = 1 To 9 Sheet1.Cells(LR3 + 1, rr).Offset(0, 27) = Me.Controls("TEXTBOX" & rr) Next End If ComboBox1_Change -
أجل هذا ما قصدته لكن عند البحث القائمة المنسدلة تعمل اريدها لا تعمل مثلا تجد القيمة وعند الضغط عليها تجد الفراغ هل من طريقة لتجريب هذا الكود Me.ComboBox3.Locked = True أو Me.ComboBox3.Enabled = True
-
أخي الكريم بعد الإطلاع على الملف عليك أولا بترتيب بيانات شيت دخول الأقراص وشيت خروج الأقراص مثلا في الشيت 1 رقم اذن الدخول تاريخ الدخول لحساب العميل ماركة 1 2013-10-31 حامد ابو سالم القمة وفي الشيت 2 1 2013-11-19 اسامة جمال الطهوى أرجو منك ترتيب البيانات ليسهل علينا مساعدتك
-
-
هل من طريقة لعرض القائمة الأفقية ( صف ) في ComboBox2
الجموعي replied to الجموعي's topic in منتدى الاكسيل Excel
شكرا لك على سعه صدرك إحترامي وتقديري -
شكرا للتوضيح مزال عندي إستفسار واحد أنا اريد عمل كمبوبوكس جديد مكان التكست بوكس 6 به البيانات التالية ثالثة أداب وعلوم إنسانية ثالثة أداب وعلوم شرعية ثالثة علوم طبيعه وحياه ثالثة تسيير وإقتصاد ثالثة محاسبة بحيث عند إضافة رقم تسجيل جديد البيانات ترحل إلى الشيت وهذا لمساعدتي في عدم كتابة هذه الشعب وعند البحث تظهر البيانات من الشيت فقط
-
بارك الله فيك أريد تغيير القيمة التي تظهر في التكست بوكس 2 هي تظهر هكذا 10/10/1985 وأنا اريدها 10-10-1985
-
هل من طريقة لعرض القائمة الأفقية ( صف ) في ComboBox2
الجموعي replied to الجموعي's topic in منتدى الاكسيل Excel
أستاذ إبراهيم بارك الله فيك وجزاك الله الجنة أعرف اني تعبتك معي منذ مشاركتي للمنتدى -
شرح ممتاز أخي إبراهيم بعد فهم الكود قمت بتطبيقه على التكست بوكس 8 Me.TextBox8.Value = Application.WorksheetFunction.Max(Range("g3:g" & LR)) تاريخ الخروج: في التكست بوكس ظهرت أرقام أخرى
-
شكرا جزيلا وبارك الله فيك ربي يحفظك هل تكرمت لي بشرح هذا الكود Me.TextBox7.Value = Application.WorksheetFunction.Max(Range("a3:a" & LR)) + 1 Me.TextBox5.Value = ActiveSheet.Name + 1 & "/" & ActiveSheet.Name
-
هل من طريقة لعرض القائمة الأفقية ( صف ) في ComboBox2
الجموعي replied to الجموعي's topic in منتدى الاكسيل Excel
تسلم أخي إبراهيم مزالت بيانات الجدول 4 غير سليمه البيانات تدخل في الشيت لكن في الليست بوكس لا تظهر هل لاحظت ذلك -
ماشاء الله عليك هل لي ان اعرف كيف سويت ذلك؟
-
هل من طريقة لعرض القائمة الأفقية ( صف ) في ComboBox2
الجموعي replied to الجموعي's topic in منتدى الاكسيل Excel
أخي إبراهيم ها هو الملف ومعه صور تبين المشكلة بالنسبة للبيانات التي تظهر في الليست بوكس تظهر من معكوسه أريدها من اليمين لليسار مثل البيانات في الجدول في الشيت label-SS.rar -
هل من طريقة لعرض القائمة الأفقية ( صف ) في ComboBox2
الجموعي replied to الجموعي's topic in منتدى الاكسيل Excel
في الجدول 1 عند ترحيل البيانات وجدت خطا والمتمثل في تم إدراج البيانات في الصف 10 والصف 5.6.7.8.9 كلها فارغة بلنسبة للبيانات التي تظهر في الليست بوكس تظهر من معكوسه أريدها من اليمين لليسار مثل البيانات في الجدول -
هل من طريقة لعرض القائمة الأفقية ( صف ) في ComboBox2
الجموعي replied to الجموعي's topic in منتدى الاكسيل Excel
هكذا كفيت ووفيت أخي عمر وفي هذا الكود توجد الجداول 3 فقط كيف أضيف كود جدول 4 Private Sub CommandButton1_Click() Lr = Cells(Rows.Count, "A").End(xlUp).Row If Me.ComboBox1.Value = "" Then: Exit Sub If Me.ComboBox1.Value = "ÌÏæá1" Then For R = 1 To 9 Sheet1.Cells(Lr + 1, R).Value = Me.Controls("TEXTBOX" & R) Next End If LR1 = Cells(Rows.Count, "J").End(xlUp).Row If Me.ComboBox1.Value = "ÌÏæá2" Then For RR = 1 To 9 Sheet1.Cells(LR1 + 1, RR).Offset(0, 9) = Me.Controls("TEXTBOX" & RR) Next End If LR2 = Cells(Rows.Count, "S").End(xlUp).Row If Me.ComboBox1.Value = "ÌÏæá3" Then For RR = 1 To 9 Sheet1.Cells(LR2, RR).Offset(0, 18) = Me.Controls("TEXTBOX" & RR) Next End If ComboBox1_Change End Sub قمت بإضافة الكود التالي هل هذه البيانات صحيحة If Me.ComboBox1.Value = "ÌÏæá4" Then For RR = 1 To 9 Sheet1.Cells(LR2, RR).Offset(0, 27) = Me.Controls("TEXTBOX" & RR) Next End If وبالنسبة للبيانات التي تظهر في الليست بوكس تظهر من معكوسه أريدها من اليمين لليسار مثل البيانات في الجدول