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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





تعدل كواد

تعديل كواد التالي تعدل كواد If f = o Then Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets For Each f In ws.Ra ..



21-08-2019 06:07 صباحا
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 82
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 48
الاعجاب : 13
 offline 

تعديل كواد التالي
تعدل كواد
If f = o Then
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
For Each f In ws.Range("a2:a1000")
ws.Select
f.Select
Exit For
Next f
Next ws
Dim Name As String
Name = i*nputBox("ادخل رقم التجاري", "اختصارات")
Me.TextBox1.Value = Name
Name = i*nputBox("ادخل اسم الأمر", "اختصارات")
CommandButton1.Caption = Name
If TextBox1.Value = f Then
Me.TextBox1.Value = ws
Else
x = MsgBox("لايوجد هذه الصنف", , "خظأ")
End If
End If






21-08-2019 08:31 صباحا
مشاهدة مشاركة منفردة [1]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8656
الاعجاب : 465
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعدل كواد
اخي الكريم
بعض مواضيعك نوعا ما مبهمه ومش معروف المطلوب ايه مع اني شايف الاكواد بسيطة وسهله لاي عضو يقدر يحلها المشكلة تكمن في توضيح الفكرة والمطلوب
حاول بقدر الامكان ايصال المطلوب بطريقة سلسة ومبسطة 
رفع مثال مع شرح للمطلوب
وشكرا

أثارت هذه المشاركة إعجاب: احمد 9598،


توقيع :Yasser Elaraby
663013020



21-08-2019 09:05 صباحا
مشاهدة مشاركة منفردة [2]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 82
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 48
الاعجاب : 13
 offline 
look/images/icons/i1.gif تعدل كواد
في الخليه a =1
في الفورم تكس بكس والامر
في كواد في الزر يغير اسم الزر ويكتب قيمة في التكس بوكس
بس عايز اعمل شرط لو ان قيمة التكس بوكس = الخليه a 
معاش يظهر الرساله يعني لما اظغط يظهر القيمة الخليه a





21-08-2019 07:07 مساء
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعدل كواد
يا استاذ احمد عند التويضح يجب عمل الاتى
1- ضع ملف به بعض البيانات
2- ضع الفورم الى هتشتغل عليه 
3- ضع شرح بالشيتاو الفورم للى حابه
4- يجب توضيح مثلا هل الفورم  فاتورة تبحث عن صنف في مخزن بالشيت ام ماذا 
وغيره وغبره بعد توضيحك لازل الطلب مبهم ولا انا او غيرى فهمه 

وصراحتا تعب استنتج وارد ويطلع الرد غلط وضح طلبك تجده
تحياتى
 

أثارت هذه المشاركة إعجاب: احمد 9598،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

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


21-08-2019 07:12 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعدل كواد
ثانيا كام مرة اقول لحضرتك ازاى ترفق الكود وبعتلك رابط موضوع لشرح الامر ولرابع مرة مبترفقوش صح 


ده اخر تنبيه للنقطة دى والا اى خطا في توضيح الكود سيتم حذف الموضوع 
وده الكود الخاص بك بعد التعديل
 If f = o Then
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
For Each f In ws.Range("a2:a1000")
ws.Select
f.Select
Exit For
Next f
Next ws
Dim Name As String
Name = InputBox("ادخل رقم التجاري", "اختصارات")
Me.TextBox1.Value = Name
Name = InputBox("ادخل اسم الأمر", "اختصارات")
CommandButton1.Caption = Name
If TextBox1.Value = f Then
Me.TextBox1.Value = ws
Else
x = MsgBox("لايوجد هذه الصنف", , "خظأ")
End If
End If


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



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

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


22-08-2019 02:21 صباحا
مشاهدة مشاركة منفردة [5]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 82
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 48
الاعجاب : 13
 offline 
look/images/icons/i1.gif تعدل كواد
إليك المرافق مع شرح طلب

 
 
  Backup of Backup of Backup of Backup of 5المصنف1.xls   تحميل xls مرات التحميل :(1)
الحجم :(50.176) KB






22-08-2019 06:04 صباحا
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعدل كواد
ضع الكود التالى في زر CommandButton25

Private Sub CommandButton25_Click()
Dim DATA       As Worksheet
Dim Name       As String
Dim myArray    As Variant
Dim lr             As Long
Dim rw             As Long
Dim X              As Long

    
Set DATA = Worksheets("المخزن")

Name = InputBox("ادخل رقم التجاري", "اختصارات")
Me.TextBox1.Value = Name

' لاسم الزر والافتراضى اسمه مسجل بشيت المخزن الخلية f1
If DATA.Range("f1").Value = "" Then
    Name = InputBox("ادخل اسم الأمر", "اختصارات")
    CommandButton25.Caption = Name
    DATA.Range("f1").Value = Name
End If
' مصفوفة للبحث عما اذا كان الصنف بالمخزن
lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row    'اخر صف به بيانات
myArray = DATA.Range("a2:a" & lr)
  For X = 1 To LBound(myArray)
      If myArray(X, 1) = Me.TextBox1.Text Then
         rw = 1
         Exit For
      End If
  Next X
If rw <> 1 Then
   MsgBox "لايوجد هذه الصنف", , "خظأ"
   Exit Sub
End If

End Sub


وخليك عرف بردو سرحك مش واضح
 

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


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

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




الكلمات الدلالية
تعدل ، كواد ،


 







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



الساعة الآن 08:20 مساء

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