نايف - م

شكرا جزيلا للأستجابة لم ينجح الأمر

شكرا أخي ياسر تكست بوكس على الفورم و هذا اسم الفورم ( formula_value )

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

السلام عليكم ما هو السطر الذي أحدد بموجبه تنسيق الكتابة في تكست بوكس محاذا لليمين مع مسافة بادئة = 5 formula_value.TextBox1.Font.Name = arial formula_value.TextBox1.Font.Size = 14 formula_value.TextBox1.TextAlign = fmTextAlignRight

طيب في طريقة لفرز البيانات في الليست بوكس و تكون البيانات تواريخ

السلام عليكم لفرز البيانات في الليست بوكس متعدد الأعمدة نستخدم هذا الكود هنا الفرز للعمود رقم ( 4 ) Dim i As Long Dim j As Long Dim sTemp As String Dim sTemp2 As String Dim sTemp3 As String Dim sTemp4 As String Dim sTemp5 As String Dim LbList As Variant LbList = Me.ListBox1.List For i = LBound(LbList, 1) To UBound(LbList, 1) For j = i + 1 To UBound(LbList, 1) '-------------------------------------------------------------------- ' C,a'E^N~E^i'E` E`a"C,A' U'a'i` C,a'U'a~?I" C,a'E"C,a"i` If LbList(i, 3) > LbList(j, 3) Then sTemp = LbList(i, 0) LbList(i, 0) = LbList(j, 0) LbList(j, 0) = sTemp sTemp2 = LbList(i, 1) LbList(i, 1) = LbList(j, 1) LbList(j, 1) = sTemp2 sTemp3 = LbList(i, 2) LbList(i, 2) = LbList(j, 2) LbList(j, 2) = sTemp3 sTemp4 = LbList(i, 3) LbList(i, 3) = LbList(j, 3) LbList(j, 3) = sTemp4 sTemp5 = LbList(i, 4) LbList(i, 4) = LbList(j, 4) LbList(j, 4) = sTemp5 sTemp6 = LbList(i, 5) LbList(i, 5) = LbList(j, 5) LbList(j, 5) = sTemp6 End If Next j Next i Me.ListBox1.Clear Me.ListBox1.List = LbList المشكلة اذا كانت البيانات في العمود المفروز = تاريخ ( منسق على شكل يوم \ شهر \ سنة ) - لان الفرز سيتم حسب اليوم فقط السؤال : كيف يمكن جعل الفرز حسب اليوم ثم الشهر ثم السنة

وين المشكلة لا يمكن أرفاق ملف !!!

يا أخوة هذا الكود من المنتدى و هو لتصغير اليوسرفورم Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Private Const GWL_STYLE As Long = (-16) Private Const WS_SYSMENU As Long = &H80000 Private Const WS_MINIMIZEBOX As Long = &H20000 Private Const WS_MAXIMIZEBOX As Long = &H10000 Private Const SW_SHOWMAXIMIZED = 3 Private Sub UserForm_Activate() Dim lFormHandle As Long, lStyle As Long lFormHandle = FindWindow("ThunderDFrame", Me.Caption) lStyle = GetWindowLong(lFormHandle, GWL_STYLE) lStyle = lStyle Or WS_SYSMENU lStyle = lStyle Or WS_MINIMIZEBOX lStyle = lStyle Or WS_MAXIMIZEBOX SetWindowLong lFormHandle, GWL_STYLE, (lStyle) DrawMenuBar lFormHandle End Sub Private Sub CommandButton1_Click() Unload Me End Sub يتم التصغير للزاوية السفلية اليسرى من الشاشة هل يمكن تغيير هذه الزاوية بحيث يتم تصغير اليوسرفورم لأعلى الشاشة و شكرا

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

أريد أن يكون في الكومبوبوكس عامودين استخدمت With ComboBox3 .ColumnCount = 2 .ColumnWidths = "100;100" .ColumnHeads = True endrow = Sheets("list").Range("A1").End(xlDown).Row .AddItem Sheets("list").Range("A" & endrow, ("B1")) End With و لم ينجح الأمر البيانات موجودة في A - B أعرف أنه يمكن تحديد العامودين على الشكل التالي .rowsorce لكن هكذا لا تكون مرنة list.rar

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

لآلآلآلآلآلآلآلآلآلآلآلآلآلآلآلآلآلآلآلآلآلآلآلآلآ رأيك ما بيزعل آسف أنت أستاذ كبير و خدماتك ألنا ما ممكن ننساها أنا آسف ما تزعلش رجاء

يا سيدي عملية جدا - لأنو الأرقام بتظهر برسالة منفصلة عن الورقة وإذا في مجال بيكون شكرا ما في مجال كمان شكرا

يعني ما فيني قول غير أنجاز رائع لكن أعوذ بالله من لكن ليش مو النتائج ب نافذة مثل الكود الأول يعني MSGbox أي كان أفضل

هذا البرنامج من أبداع المنتدى أنا أستخدمه كثيرا هذه نسخته الأولى عندما وصلت عدد الكلمات فيه ل 136000 كلمة - طبعا لأنه قاموس كاد البرنامج أن يتوقف عن العمل فهو يستغرق 10 دقائق للبحث عن كلمة هل هناك حل قاموسك الشخصي.rar

أستاذي الكريم ياسر يمكن ترتيب الأرقام ثم تنفيذ الكود لكن الترتيب يكون تصاعدي في عمود آخر يحوي الباركود للدواء الأخ الكريم سليم سأقوم بالتجريب و لأخبارك شكرا لك

الأخوة الكرام هل يمكن تفعيل خاصية ألتفاف النص في الليست بوكس بحيث إذا كان النص طويل يظهر كاملا

أخي الكريم أنا جربت الملف وهو شغال نمام و النتائج رائعة و حلوة شكرا أخي ياسر

أخوتي هل يمكن أن أجعل النص الطويل يلتف بالكومبوبوكس أو الليست بوكس بحيث تظهر البيانات كلها

جميل شكرا لك

شكرا أخي الكريم تمام نفذت الخطوات و مشي الحال برنامجك كثير حلو - شكرا ممكن شوية شرح : للفكرة برنامج الدفريز أو التجميد

قمت قبل فترة بتحميل برنامج تعليم اللغة الأنكليزية من الموقع English learning for k.g & primaray school by mokhtar شغلته أصبحت كل ملفات الأكسيل التي تفتح بعد ذلك ناطقة عجزت عن أيقاف النطق و زر أمر : خلايا التكلم - أيقاف تكلم الخلايا لا يستجيب ما هو الحل

سؤال للأخ شوقي كيف تجعل المؤشر يومض هكذا عند التوقف على زر الأمر شكرا

شكرا للأبداع المتجدد

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