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





تبديل بيانات

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



04-12-2017 12:35 صباحا
coking
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-09-2017
رقم العضوية : 498
المشاركات : 67
الجنس : ذكر
تاريخ الميلاد : 1-3-1956
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 33
الاعجاب : 10
 offline 
السلام عليكم ورحمة الله وبركاتة أساتذتي الكرام
إذا أردت إدخال صنف يكون موجودا مسبقا أرجو إعطائي رسالة "هل تريد إستبدال ذلك الصنف" نعم أم لا
و|إذا إخترت نعم يحل الصنف الجديد محل القديم في الليست بوكس وأيضا في الشيت
أتمني أن أكون قد أوضحت طلبي
تقبلوا تحياتي وإحترامي
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تبديل.zip   تحميل zip مرات التحميل :(3)
الحجم :(481.588) KB





04-12-2017 08:01 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 155
قوة السمعة : 4944
الاعجاب : 1405
 offline 
look/images/icons/i1.gif تبديل بيانات
أخي الكريم 
بعد الإطلاع على الملف لم أفهم المطلوب على الإطلاق

المفترض تحديد ورقة العمل المطلوب التعامل معها حيث يوجد 4 ورقات عمل .. كما يجب تحديد اسم الفورم المطلوب التعامل معه توفيراً للوقت والجهد .. ما اسم الفورم وما هو شكل النتائج المتوقعة

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




04-12-2017 04:20 مساء
مشاهدة مشاركة منفردة [2]
coking
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-09-2017
رقم العضوية : 498
المشاركات : 67
الجنس : ذكر
تاريخ الميلاد : 1-3-1956
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 33
الاعجاب : 10
 offline 
look/images/icons/i1.gif تبديل بيانات
السلام عليكم ورحمة الله وبركاته
شكرا أستاذ ياسر على اهتمامك
أولا : يوجد ثلاث ورقات عمل وفي الورقة الثالثة توجد الداتا 
ثانيا: لا يوجد سوى فورم واحد واسمه "Prices"
ثالثا: النتائج المتوقعه هي عندما أدخل صنف جديد وأضغط زر إضافة ويكون هذا الصنف موجود مسبقا أرجو أن تظهر لي رسالة "هذا الصنف موجود هل تريد إستبداله؟" نعم أو لا فإذا إخترت نعم يمحو الصنف القديم ويدخل الجديد مكانه في الليست بوكس وكذلك في ورقة رقم 3 علما بأنني قد أقف على أي ورقة وليست الورقة الثالثة
رابعا: قد إختزلت كثيرا من الأكواد حتى يكون الملف واضح
أرجو أن تتقبل تحياتي واحترامي
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  تبديل.zip   تحميل zip مرات التحميل :(5)
الحجم :(334.144) KB





04-12-2017 08:22 مساء
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 365
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 8
قوة السمعة : 934
الاعجاب : 340
 offline 
look/images/icons/i1.gif تبديل بيانات
تفضل بعد اذن اخى ومعلمى العزيز ياسر خليل 

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

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

ولا تقلق في حالة اضافة اى صنف جديد او تعديل صنف تحدث الكمبوبوكس بيناتها بنفسها 
Private Sub CMB1_Click()
    Dim ws      As Worksheet
    Dim lr      As Long
    Dim result  As Integer
    Dim x       As Range
    Dim r       As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet3")

    For Each x In ws.Range("a2:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row)
         If x.Value = Me.TB1.Value Then
              result = MsgBox("ÇáÕäÝ ãæÌæÏ ãä ÞÈá åá ÊÑíÏ ÊÚÏíá ÓÚÑ ÇáÕäÝ", vbYesNo)
              If result = vbYes Then
'                   x.Value = Me.TB1.Value
                   x.Offset(, 1) = Me.TB2.Value
                   TB1 = ""
                   TB2 = ""
                   lr = ws.Cells(Rows.Count, "A").End(xlUp).Row
                   Set r = ws.Range("A2:b" & lr)
                   Me.CB1.List = r.Cells.Value
                   MsgBox "Êã ÇáÊÚÏíá"
                   Exit Sub 'åäÇ íÞæã ÈÊÚÏíá Çæá ÎáíÉ ãÊØÇÈÞÉ ÝÞØ æÈÚÏ ÐÇáß íäåì ÇáÇÏÎÇá áæ áÛíÊå íÛíÑ ÌãíÚ ÇáÇÕäÇÝ Çáì ÈäÝÓ ÇáÇÓã áäÝÓ ÇáÓÚÑ
              End If
         End If
         Next x
    lastRow = Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Row + 1
    Sheets("Sheet3").Range("A" & lastRow) = Me.Controls("TB1").Value
    Sheets("Sheet3").Range("B" & lastRow) = Me.Controls("TB2").Value
    TB1 = ""
    TB2 = ""
    lr = ws.Cells(Rows.Count, "A").End(xlUp).Row
    Set r = ws.Range("A2:b" & lr)
    Me.CB1.List = r.Cells.Value
     MsgBox "Êã ÇáÊÑÍíá"
End Sub


وقمت بنفس التعديل للكمبوبوكس في حدث فتح الفورم
Private Sub UserForm_Initialize()
On Error Resume Next
Call RemoveTitleBar(Me)
Dim hwnd As Long, Style As Long
Dim ws As Worksheet, rng As Range
Dim r As Range
hwnd = FindWindow(vbNullString, Me.Caption)
Style = GetWindowLong(hwnd, -16) And Not &HC00000
SetWindowLong hwnd, -16, Style
DrawMenuBar hwnd
'----------------------------------------------------------
Set ws = ThisWorkbook.Worksheets("Sheet3")
    lr = ws.Cells(Rows.Count, "A").End(xlUp).Row
    Set r = ws.Range("A2:b" & lr)
    Me.CB1.List = r.Cells.Value
End Sub


وفي النهاية مرفق ملف العمل المعدل 

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

 
 
 
  تبديل (1).zip   تحميل zip مرات التحميل :(13)
الحجم :(264.282) KB


أثارت هذه المشاركة إعجاب: malik، YasserKhalil،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



04-12-2017 10:33 مساء
مشاهدة مشاركة منفردة [4]
coking
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-09-2017
رقم العضوية : 498
المشاركات : 67
الجنس : ذكر
تاريخ الميلاد : 1-3-1956
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 33
الاعجاب : 10
 offline 
look/images/icons/i1.gif تبديل بيانات
استاذي الفاضل / محمود أبو الدهب
شكرا جزيلا لك ولكن الملف المرسل لا أستطيع تسجيله عندي
هل أطمع أن تعيد إرسالة بصيغة أخرى ؟
تقبل تحياتي واحترامي
 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
التعديل وتبديل تكست بوكس بعمل ازراراوبشن بوتن للاختيار وعمل كالوندر لاختيار تاريخ ميلاد malik
0 37 malik
مسح محتوى خلية و تبديلها بمعادلة صلاح الصغير
7 114 YasserKhalil

الكلمات الدلالية
تبديل ، بيانات ،


 







الساعة الآن 08:27 صباحا