الجموعي

استاذ عبد الباري البنا جزاك الله كل خير وجعله الله في ميزان حسناتك تحية كبيرة لكل الشعب الفلسطيني الأبي اللهم أحفظهم ونجهم من كيد العدو السافر وإسمحلي على هذه المساعدة البسيطه وهو فكرة نوعا ما في تغذية القائمة المنسدلة بمدى ديناميكي انا إخترت من إدارة الأسماء المسمى الوظيفي =OFFSET('بيانات اساسية'!$B$2;;;COUNTA('بيانات اساسية'!$B$2:$B$900);1)

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

الله يسلمك ...........جزاكم الله خير بالنسبة لسؤالك يمكنك تغيير الخاصية KeepScrollBarsVisible الى الخيار 0 (fmScrollBarsNone) اثناء التصميم تحياتي بارك الله فيك أستاذي العلامة القديرعلى هذه المساعدة ياريت إضافة للكود ماهي الطريقة لتغيير تكست بوكس إلى كمبوبوكس بخاصية إدارة الأسماء كما فعلت في ملفك كود بحث وتعديل مرن اريد كود سهل وسلس بعيد عند تلك الأكواد المعقدة مثلا في العمود الثالث في الفورم اريد ان يظهر كمبوبوكس مكان تكست بوكس وهكذا حسب إختياري للعمود جزاكم الله خيرا اذا كان هناك تعليق على الخلية سيقوم باضافة قائمة Private Sub UserForm_Activate() Dim Sh As Worksheet Dim txt As MSForms.Control Dim LastCol As Integer, i As Integer Set Sh = ThisWorkbook.Sheets(1) LastCol = Sh.Cells(2, Sh.Columns.Count).End(xlToLeft).Column MyTop = 10 For i = 1 To LastCol If Not Sh.Cells(2, i).Comment Is Nothing Then Set txt = Frame1.Controls.Add("Forms.Combobox.1", "MyTxt" & i) Else Set txt = Frame1.Controls.Add("Forms.TextBox.1", "MyTxt" & i) End If With txt .Move 20, MyTop, 114, 24 .Text = Sh.Cells(2, i) .SpecialEffect = fmSpecialEffectSunken .TextAlign = fmTextAlignCenter .BackColor = &HFFFFFF End With MyTop = MyTop + 30 Next Me.Frame1.ScrollHeight = MyTop End Sub المرفق 2003 ما شاء الله جزاك الله خيرا لكن ما هي الطريقة التي نغذي بها القائمة انا حاولت بهذا الكود ونجح معي الأمر قمت بإدراج تعليق في العمود الخامس وأضفت هذا الكود للفورم ياريت تعديل ليصبح الإختيار مرن كما فعلت عند إدراج تعليق يدرج كمبوبوكس For i = 5 To 5 Me.Controls("MyTxt" & i).RowSource = "MyRange" Next

تم المطلوب + تنسيق الأرقام في الفورم وبالنسبة للتكست بوكس ذات اللون البرتقالي هل تريد ترحيل مبلغها إلى شيت Fournisseurs ابتداء من الخلية H9 حسب كل مورد ديون الموردين.rar

لم أفهمك جيدا

أخي تفضل ما طلبت فورم الادخال.rar

أخي الحبيب بارك الله فيك على المرور بالنسبة للترحيل فيه العديد من المواضيع الخاصة بالترحيل في المنتدى وأخرها سلسلة علمني كيف أصطاد الترحيل للأستاذ / حسام وسبق أن طرحت موضوع الترحيل بخاصية TAG +إضافة في نفس الموضوع للأستاذ القدير/ إبن مصر بالنسبة للمقارنة وضح لي بمثال لأساعدك

تفضل المرفق به مثال واحد للتوضيح وهكذا مع بقية الأكواد نسخ لصق للكود ComboBox-Exemple.rar

تم تعديل بسيط في الفورم وهو عند إختيار إسم المور لا تظهر قيمة التكست بوكس باللون البرتقالي تظهر في حالة إختيارك لنوع السلعة من الليست بوكس + إرجاع ترتيب السلع في شيت Stocks Originale5.rar

شكرا على التوضيح بالنسبة لسؤالك لكن لماذا قمت بتغيير ترتيب السلع في شيت Stocks حيث يجب أن تكون مرتبة حسب الترقيم الموجود في العمود الأول فقط للتأكد من المبالغ بحيث من مبالغ السلع الخاصة ب المورد CECI ولإرجاعها كما سبق كل ما عليك فعله هو الوقوف على الخلية A11 من تبويب بيانات إضفط على إستفسار أخر لماذا كل هذه الفورمات في الملف؟ في الفورم الذي تريد التعديل عليه أرى ان معظم الأكواد لا علاقة لها بالفورم؟ في إدارة الأسماء ما دور تلك النطاقات ؟ في الفورم الذي تريد التعديل عليه أرى ان تلك النطاقات لا علاقة لها بالفورم؟

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

أخي الكريم قمت بتعديل على الملف لكن هذه النقطة لم أفهما المبلغ 76250 خاص بسلعة Boite Alimentation P55 المبلغ 51100خاص بسلعة Flash Disque 4 GB Verbatim* عند جمع هذه السلع تعطينا المبلغ127350 هل عند الترحيل المبلغ المدفوع والمبلغ المتبقي إلى شيت Fournisseur خاص بالسلعه ام ماذا لأنه عند إختيار سلعة ما وعند الضغط على ترحيل سيم ترحيل مبلغ المدفوع ومبلغ المتبقي للسلعة التي اخترتها ولو قمت بإختيار سلعة أخرة سيتم حذف المبلغ الخاص بالسلعة الأولى وتغييره بمبلغ سلعة ثانية أرجو توضيح هذه النقطه

السلام عليكم ورحمة الله تعالى وبركاته بعد إذن الأستاذ / إبراهيم أبو ليلة تفضل الملف لعله المطلوب تم التعديل أيضا على كود تغذية الكمبوبوكس وتغذيته بمدى ديناميكي ينقص المطلوب - نزع اللون الأحمر من السطر المتعلق بالسلعة لتي تم تسديد ثمنها أي هنا السطر 21 في إنتظار تعديل من طرف الأستاذ إبراهيم أبو ليله Originale5.rar

السلام عليكم ورحمة الله تعالى وبركاته أحبائي وأساتذتي الأفاضل أقدم لك هذه التجميعية البسيطه ليستفيد بها المبتدئ والمحترف تجمعية تحت عنوان تغذية القائمة المنسدلة خاصة بالفورم (ComboBox) بمدى ديناميكي أولا: نقوم بإنشاء فورم وندرج به قائمة منسدلة (ComboBox1) ثانيا : نفتح محرر الاكواد View Code) ثالثا: من نافذه المحرر نختر حدث بداية التشغيل الفورم UserForm_Initialize Private Sub UserForm_Initialize() End Sub نقوم بوضع المتغير التالي الخاص بتحديد ورقة العمل وهم أمر مهم جدا Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select End Sub نأتي الأن إلى الأكواد الخاصة بتغذية القائمة المنسدلة ملاحظه جميع الأكواد الخاصة بالتغذية أنا إخترت العمود الأول وبداية التغذية من الخلية A2 ولكم حرية التغيير الكود رقم 1 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Range("A2", Range("A" & Rows.Count).End(xlUp)).Name = "Dynamic" Me.ComboBox1.RowSource = "Dynamic" End Sub الكود رقم 2 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.RowSource = Range("B2", Range("B65536").End(xlUp)).Address End Sub الكود رقم 3 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.RowSource = ("A2:A") & ws.Cells(Rows.Count, "A").End(xlUp).Row End Sub الكود رقم 4 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.List = Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value End Sub الكود رقم 5 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim FR As Integer, LR As Integer With ws LR = .Range("A2").End(xlDown).Row For FR = 2 To LR Me.ComboBox1.AddItem .Range("A" & FR) Next FR End With End Sub الكود رقم 6 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim R As Integer With ws For R = 2 To .Range("A" & .Rows.Count).End(xlUp).Row If .Range("A" & R) <> "" Then Me.ComboBox1.AddItem .Range("A" & R) End If Next R End With End Sub الكود رقم 7 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim LR As Long LR = ws.Cells(Rows.Count, "A").End(xlUp).Row myList = ws.Range("A2:" & "A" & LR) Me.ComboBox1.List = myList End Sub الكود رقم 8 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim LR As Long LR = ws.Range("A" & Rows.Count).End(xlUp).Row Set myList = ws.Range("A2:A" & LR) Me.ComboBox1.List = myList.Value End Sub الكود رقم 9 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim LR As Long With ComboBox1 LR = ws.Cells(Rows.Count, 1).End(xlUp).Row .List = ws.Range(ws.Cells(2, 1), ws.Cells(LR, 1)).Value End With End Sub الكود رقم 10 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim myList As Range For Each myList In ws.Range("A2").SpecialCells(xlConstants) With Me.ComboBox1 .AddItem myList.Value .List(.ListCount - 1, 1) = myList.Offset(0, 1).Value End With Next End Sub الكود رقم 11 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim i As Integer, iMin As Integer, iMax As Integer iMin = 2: iMax = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row For i = iMin To iMax ComboBox1.List = Range(Cells(iMin, 1), Cells(iMax, 1)).Value Next i End Sub الكود رقم 12 من إدارة الأسماء نختر جديد الإسم انت حر فيما تختار أنا إخترت MyRange في خانة يشير إلى نقوم بوضع هذه المعادلة =OFFSET(Sheet1!$A$2;;;COUNTA(Sheet1!$A$2:$A$10000);1) في الفورم نقوم بوضع الكود التالي Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.RowSource = "Myrange" End Sub الكود رقم 13 كود تغذية القائمة المنسدلة بدون فراغات Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim cell As Range With ws For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row) If Not IsEmpty(cell) Then ComboBox1.AddItem cell.Value Next cell End With End Sub الكود رقم 14 كود تغذية القائمة المنسدلة بدون فراغات وبدون تكرار Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim I As Integer Dim Valeurs As Variant Dim sDic As Object Set sDic = CreateObject("Scripting.Dictionary") With ws Valeurs = .Range("A2:A100").Value For I = LBound(Valeurs) To UBound(Valeurs) If Not IsEmpty(Valeurs(I, 1)) Then sDic(Valeurs(I, 1)) = "" Next I End With If IsArray(Valeurs) Then Me.ComboBox1.List = sDic.keys End Sub وفي الأخير أتمنى هذه التجمعية المتواضعة أن تفيدكم أعرف أن أستاذي القدير حيزعل مني لأني لم أقم بوضع هذه الاكواد في تجمعية مكتبه المنتدى ووضعها في موضوع منفصل حتى يكون هذا الموضوع مرجعا لكل من يريد التعلم بأبسط الطرق أستاذي القدير وحقك عليا تقبلو تحياتي لا تنسونا بخالص دعائكم

الله يسلمك ...........جزاكم الله خير بالنسبة لسؤالك يمكنك تغيير الخاصية KeepScrollBarsVisible الى الخيار 0 (fmScrollBarsNone) اثناء التصميم تحياتي بارك الله فيك أستاذي العلامة القديرعلى هذه المساعدة ياريت إضافة للكود ماهي الطريقة لتغيير تكست بوكس إلى كمبوبوكس بخاصية إدارة الأسماء كما فعلت في ملفك كود بحث وتعديل مرن اريد كود سهل وسلس بعيد عند تلك الأكواد المعقدة مثلا في العمود الثالث في الفورم اريد ان يظهر كمبوبوكس مكان تكست بوكس وهكذا حسب إختياري للعمود

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

معذرة أستاذي كان الخطأ من عندي لأني لم أحذف هذا السطر من الكود عندما أدرجت الكود المعدل من طرفك Me.Frame1.ScrollHeight = (Sh.Columns.Count * 2) وبذلك هنالك تعرض في الكود فعلا هو المطلوب وجزاك الله كل الخير أستاذي ماهي الطريقة لتغيير تكست بوكس إلى كمبوبوكس بخاصية إدارة الأسماء مثلا في العمود الثالث في الفووم اريد ان يظهر كمبوبوكس مكان تكست بوكس وهكذا

جربت الكود وليس هذا ما أريده إفتراضي الفرام هو بيانات 11 عمود بمعنى عند ظهور بيانات 11 عمود في الفرام لا يظهر السكرول بار وعند إضافة عمود أخر يظهر السكرول بار ويبقى عند أخر بيانات

بعد إن الأستاذ القدير / ياسير خليل وإثراء للموضوع تفضل الكود التالي اسم المجلد الجديد من قيمة الخلية A1 Sub CreateFolders() CreateObject("shell.application").Namespace("C:").NewFolder Range("A1").Value End Sub

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

السلام عليكم ورحمة الله تعالى وبركاته أساتذي الكرام هل من طريقة في التحكم في Scroll Bars الخاص Frame بمدى ديناميكي المطلوب في المرفق FrameScrollBars.rar

حل رائع جدا أستاذي الفاضل بارك الله فيك ودي وتقديري

فعلا هو المطلوب نوع التنسيقات ( حدود - نوع خط كام.- حجم خط كام ) هل هناك طريقة أخرى من غير طريقة النسخ واللصق في الكود

استاذي الفاضل / حسام بارك الله فيك على الشرح الرائع جعلها الله في موازين حسناتك

استاذي الفاضل أريد تنسيق الصف الثاني مثال Range("A2:H2").Select به تنسيقات عند إضافة بيانات جديدة في I2 أقوم بإضافة العمود I2 في الكود السابق Range("A2:I2").Select وهكذا مع بقية الأعمدة Range("A2:J2").Select Range("A2:K2").Select أريد تعديل على الكود بمجرد إضافة بيانات عمود للفورم يتم التنسيق تلقائيا عند الترحيل