أكاديمية الصقر للتدريب
FBConnect

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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

Preview




فورم ادخال

بعد محاولتى لعمل الفورم قد نجحت فى انجاز بعض منه ولم أتمكن من انجاز الاعمال الاخرى ينقصنى اختيار الحالة من ComboBox1 وا ..



26-08-2017 09:14 مساء
طائع
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 193
المشاركات : 46
الجنس : ذكر
تاريخ الميلاد : 10-5-1978
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 68
الاعجاب : 0
 offline 

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

المرفق بعد المحاولة

 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
 
  فورم ادخال.rar   تحميل rar مرات التحميل :(13)
الحجم :(257.727) KB





26-08-2017 09:52 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif فورم ادخال
السلام عليكم أخي الكريم طائع
تفضل الكود التالي .. قم بوضعه في حدث الفورم
Option Explicit

Private Sub UserForm_Initialize()
    Dim ws      As Worksheet
    Dim a       As Variant
    Dim b       As Variant
    Dim i       As Long

    Set ws = Worksheets("ادخال مستلزمات")
    a = ws.Range("A3:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value

    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(a)
            If Not IsEmpty(a(i, 1)) Then b = .Item(a(i, 1))
        Next i
        ComboBox1.List = .keys
    End With
End Sub

Private Sub ComboBox1_Change()
    Dim ws      As Worksheet
    Dim r       As Variant
    
    Set ws = Worksheets("ادخال مستلزمات")
    If ComboBox1.Value = "" Then TextBox1.Enabled = True: TextBox2.Enabled = True: Exit Sub
    
    TextBox1.Value = ComboBox1.Value
    TextBox1.Enabled = False
    r = Application.Match(ComboBox1.Value, ws.Columns(1), 0)
    If IsNumeric(r) Then TextBox2.Value = ws.Cells(r, 2).Value: TextBox2.Enabled = False
End Sub

Private Sub Label8_Click()
    Dim ws      As Worksheet
    Dim r       As Variant
    Dim c       As Long
    Dim i       As Long

    Set ws = Worksheets("ادخال مستلزمات")

    If ComboBox1.Value <> "" Then
        r = Application.Match(ComboBox1.Value, ws.Columns(1), 0)
        If Not IsNumeric(r) Then Exit Sub
        c = ws.Cells(r, "IJ").End(xlToLeft).Column + 1
        
        For i = 3 To 6
            ws.Cells(r, c + i - 3).Value = Me.Controls("TextBox" & i).Value
        Next i
    Else
        r = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        For i = 1 To 6
            ws.Cells(r, i).Value = Me.Controls("TextBox" & i).Value
        Next i
    End If
    Reset_UserForm_Controls
End Sub

Private Sub Label9_Click()
    End
End Sub

Sub Reset_UserForm_Controls()
    Dim c       As Control

    For Each c In Me.Controls
        Select Case TypeName(c)
        Case "TextBox"
            c.Text = vbNullString
        Case "ListBox", "ComboBox"
            c.ListIndex = -1
        End Select
    Next c

    Me.TextBox1.SetFocus
End Sub




26-08-2017 11:57 مساء
مشاهدة مشاركة منفردة [2]
طائع
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 193
المشاركات : 46
الجنس : ذكر
تاريخ الميلاد : 10-5-1978
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 68
الاعجاب : 0
 offline 
look/images/icons/i1.gif فورم ادخال
يالك من بارع وسريع فهم الاعضاء وما تجول به خواطرهم أدام الله عمرك أخى ياسر وجعله فى ميزان حسناتك 
شىء بسيط لو أمكن اريد text box المستلزم يصبح ComboBox  لقائمة مستلزمات يتم الاختيار منها وأيضا السعر كذلك يأتيان من ورقة أخرى  وأيضا التاريخ يأتى بتاريخ اللحظة التى فتح فيها الفورم لادخال بيانات


تم تحرير المشاركة بواسطة :طائع
بتاريخ:27-08-2017 12:13 صباحا





27-08-2017 12:06 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif فورم ادخال
بارك الله فيك أخي الكريم طائع
هل تريد تحويل التكست بوكس الموجود لكومبوبوكس .. وأين هي قائمة المستلزمات ؟ يفضل إرفاق ملف به كافة الأمور واضحة بحيث يستطيع الأخوة الكرام تقديم المساعدة المطلوبة ..




27-08-2017 12:21 صباحا
مشاهدة مشاركة منفردة [4]
طائع
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 193
المشاركات : 46
الجنس : ذكر
تاريخ الميلاد : 10-5-1978
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 68
الاعجاب : 0
 offline 
look/images/icons/i1.gif فورم ادخال
الاعمدة الملونة باللون الاصفر هم عمود اسماء المستلزمات  وعمود سعر البيع اللذان اريدهما كومبوبوكس بدلا من تكست بوكس
تكست بوكس التاريخ الذى اريده يجلب تاريخ فتح الفورم 
اليك المرفق بمخزن المستلزمات
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  فورم ادخال.rar   تحميل rar مرات التحميل :(6)
الحجم :(263.043) KB





27-08-2017 07:41 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif فورم ادخال
السلام عليكم أخي العزيز طائع
الموضوع كما تعلم لطلب واحد فقط وبعد الإطلاع على المرفق وجدت الطلب مختلف تماماً عن الطلب الأصلي للموضوع ، لذا الرجاء طرح موضوع جديد ، وإن شاء الله أحاول تجهيز حل لك الآن
وسيتم حذف المشاركات الأخيرة من الموضوع ... أرجو تفهم الأمر
حيث أن المنتدى جديد ونريد أن يكون هناك نظام ثابت في التعامل يسهل عملية البحث فيما بعد .. وهذا سيوفر وقت وجهد كبير
أما طرح العديد من الطلبات في الموضوع الواحد فهذا غير مقبول .. وأعتذر عن ذلك وأرجو تفهم الأمر




27-08-2017 03:20 مساء
مشاهدة مشاركة منفردة [6]
طائع
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 193
المشاركات : 46
الجنس : ذكر
تاريخ الميلاد : 10-5-1978
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 68
الاعجاب : 0
 offline 
look/images/icons/i1.gif فورم ادخال
عزيزى ابوالبراء انا لم أطلب طلبات أخرى غير موضوع المشاركة أردت فقط تحويل التكست بوكس الى كومبوبوكس ومن قائمة 
ملحوظة بسيطة بعد وضع الكود الذى نشرته حضرتك وجدت ثقل فى تنفيذ الادخال فى الفورم يأخذ وقت طويل فى الادخال ويعمل على تهنيج البرنامج والجهاز معا فلو تكرمت حل مشكلة الثقل فى الفورم هذه وتحويل التكست الى كومبوبوكس 
تقبل تحياتى




27-08-2017 04:05 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif فورم ادخال
 أخي الكريم طائع لا أعلم سبب ثقل الملف لديك لكن يبدو لي أن المعادلات الموجودة هي السبب .. راجع الملف بشكل جيد لتتوصل لسبب ثقل الملف
جرب الملف التالي .. وحاول في أي موضوع تطرحه تكون محدد الهدف لأنني عملت على الملف في أكثر من جزئية وهذا يستغرق وقت وقد لا يكون متوفر بشكل كبير
 
 
 
  فورم-ادخال.rar   تحميل rar مرات التحميل :(28)
الحجم :(263.463) KB





27-08-2017 04:20 مساء
مشاهدة مشاركة منفردة [8]
طائع
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 193
المشاركات : 46
الجنس : ذكر
تاريخ الميلاد : 10-5-1978
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 68
الاعجاب : 0
 offline 
look/images/icons/i1.gif فورم ادخال
تم المطلوب 
اشكرك على جهدك وتعبك معى  ينقصنى تكست التاريخ فى الفورم يأتى بتاريخ اليوم 
تحياتى استاذى




27-08-2017 09:17 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif فورم ادخال
بالنسبة للتاريخ أخي العزيز طائع نستخدم الدالة Date
يمكنك أن تقوم بذلك بنفسك ...تشير إلى الأداة بهذا الشكل وليكن اسم الأداة textbox2 (حسب اسم الأداة) ثم تضع نقطة ثم تكتب كلمة Value ثم علامة يساوي ثم تضع دالة التاريخ Date ..






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
هديتى 2019_برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه Galal ELGammal
274 9869 Fadel
ساعة رقمية داخل فورم abouelhassan
6 105 haithamsalah82
فورم كيفية انشاء مربع بحث مثل جوجل بالاكسل مجدى يونس
2 49 YasserKhalil
فورم ترحيل بيانات واستدعاء وحفظ صور مجدى يونس
8 1164 مجدى يونس
مساعدة في فورم شرائح معاشات فاطيمة الحاج
7 121 فاطيمة الحاج

الكلمات الدلالية
لا يوجد كلمات دلالية ..


 








اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:42 مساء

أعلن هنا
أعلن هنا
أعلن هنا