الاستاذ مجدى
تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 829894
ادارة المنتدي تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 103798

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Uoou_u10


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



 
الرئيسيةالأستاذ التعليمأحدث الصورضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في الخميس يناير 01, 1970
آخر عضو مسجل Heliany فمرحبا به


 

 تعليقات على فورم بحث وتعديل واضافة بيانات

اذهب الى الأسفل 
+175
nadhir nadhir
بركات
ahmedmohamed
motalim1
mali303
almjhol
ملك النورس
taktak
محمد مانع
djamagl
ahmedabdulaziz
belgsat12
MinaSafwat
yemen205
zinousamir
omar.hosa
احمد فلاح حسن
Rghd tam
mohamed s shoman
mohamed naguib
وحيد فريد
gaberabdo
aali
sohairsaeed
hks99
محمد مبروك
أبوزياد3
01011151798
ahmed200
abushuber
Mostafa elmadawy
aboazzam
ناصر السيد محمد
Yassin
Popman1298
أحمد الشيخ خليل
على سالم
هاشم بركات
amirsokar2
سعد رفيق
أبو عمر
anes77
أحمد الدسوقى
aw_elkady
الشريف فواز
بن جلال
حراثي تواتي
mohammedmbc2
خالد0
amjad albarqawi
طحاينة
Tariq 88
fares_gsm
احمد سيد البطران
salahzien
faditraoui
عماد ابراهيم
ياسر علام
yasser2018
myabaz2000
pmwpmw
سهيل البرزنجي
بندر الحربي
sayed mhmd
amie2013
ابو الياس نبيل جمعان
حسام سعيد
alsaher1
azize
مول الخلوة
mamdouh salah
اشرف عطوة
عبدالله شتية
2018waheed
محمد صالح
abdo
sayedelbadry84
شيبوب
saria
amzahran
Ahmeddz
sakr22
زايد
mohamed reda
أم بهجت
عوض الشنيطي
marq33
alaa khashaba
haitham
Rezk Ramzy
محمد ابوالجود
Rabah
علي مالك
ahmed su
محمد ابراهيم 78
khaled bouteraa
mahde77
هاجس
احمد عباس
waheed
yousifaziz
petersmouha
HOLI TUNIS
احمد صابر
hshawki
Moohmad903
emadbaddad
EL_Naj3awy
ehabkamal
nouri287
محمد تور
khasem
lover2006
Asoomi
bahibahi
alkzzaz
faraktoz
مجردخبل
فريد وحيد
yousif
محمد مفتاح
m7md7mad
a.kawkab
مصطفى عبد العال
nasri
عبدالرحمن
احمد عاطف احمد
سمير رمضان
الكابتن
slam12
sayedhosin
ahmed sawy
ashraf_hertlion
kimods19
Hitam1987
محمود عبيد
مؤيد
3isa
hamid med
ebrahim.aeh
سعود213
Essam
eyes_mercy
لاتبخل
حمزة باشا
رائد بني سلامه
tarik
mando62
Hazim adam
k.apututa
walid
خيثر يعقوب
djtech
Shehab.egy25
محمد الشريف
aya1961991
حسين عاشور
sari alghbory
مجدى يونس
L2DEATH
fayezmanni
roushy
منير لبيب
asdzxc
ali33
azoz100
طارق الاباصيرى
ابو عماد
ahmed
reda_egypt10
salah15salah
sameh21
arsalanamin
مازن امام
ahmad hameed
179 مشترك
انتقل الى الصفحة : الصفحة السابقة  1 ... 7 ... 11, 12, 13 ... 18  الصفحة التالية
كاتب الموضوعرسالة
sayed mhmd




عدد المساهمات : 2
تاريخ التسجيل : 16/01/2018

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالسبت يناير 20, 2018 2:05 pm

السلام عليكم .. الاخ مجدي الفاضل واجهتنى مشكلة فى فورم البحث بالرقم الوظيفي للموظف لان عندي بدل ما ابحث برقم المسلسل ببحث برقم وظيفي مكون من حروف ومسافة وارقام مثل AG 001 مش بيظهر نتايج على الرغم اني لما استبدلت الارقام الوظيفية للموظفين بارقام تسلسلية زي ما حضرتك عامل أشتغل وجاب النتايج ارجو مساعدتي
الرجوع الى أعلى الصفحة اذهب الى الأسفل
sayed mhmd




عدد المساهمات : 2
تاريخ التسجيل : 16/01/2018

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالسبت يناير 20, 2018 2:17 pm

السلام عليكم
لو سمحت عندي مشكلة فى البحث فى الفورم اللى حضرتك شرحته فى الدرس الثالث لاني ببحث برقم وظيفي لموظف زي كده AG 001 يحتوي على حروف وارقام ومسافة مش بيظهر اى نتايج انما لو غيرت ارقام الموظفين بارقام عادية مسلسلة 1؛2؛ 3؛....إلخ بيظهر النتايج عادي وده مش يناسبني
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالسبت يناير 20, 2018 4:04 pm

الاخ سيد افتح موضوع جديد وارفع ملفك وطلبك بالموضوع

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
بندر الحربي




عدد المساهمات : 1
تاريخ التسجيل : 22/01/2018

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالإثنين يناير 22, 2018 1:35 pm

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




عدد المساهمات : 5
تاريخ التسجيل : 22/01/2018
العمر : 51
الموقع : عراق /بغداد

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: الدرس الرابع عشر   تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالإثنين يناير 22, 2018 7:24 pm

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




عدد المساهمات : 5
تاريخ التسجيل : 22/01/2018
العمر : 51
الموقع : عراق /بغداد

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: ملف الدرس التاسع عشر   تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالإثنين يناير 22, 2018 7:43 pm

دخلت على ملف التحميل لكنه بدا ينتقل بي من صفحة الى صفحة دون جدوى ؟؟؟!!!!



[/quote]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
سهيل البرزنجي




عدد المساهمات : 5
تاريخ التسجيل : 22/01/2018
العمر : 51
الموقع : عراق /بغداد

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالثلاثاء يناير 23, 2018 7:24 pm

السلام عليكم ورحمة الله وبركاته استاذنا الفاضل
تم العمل من قبلي على كودكم في الدرس الثالث
وقمت ببعض التعديلات التي تناسب عملي
لكن عندما عملت على زيادة الرينج الى نهاية جدول اكسل اعطاني اشعار ان هناك خطا وبحثت بشرحكم الجميل لم اجد حلا
ارجو مراجعة الموضوع وايجاد اين الخطا
وهذا الكود بعد التعديل
 وتمنياتي لك بالنجاح الدائم
()Private Sub TextBox14_Change
("وارد سري")Set sh14 = Sheets
LR = sh14.[a65536].End(xlUp).Row
(For Each cl In sh14.Range("a1:a65536" & LR
If (Val(Me.TextBox14)) = cl Then
(Me.TextBox1 = cl.Offset(0, 0
(Me.TextBox2 = cl.Offset(0, 1
(Me.TextBox3 = cl.Offset(0, 2
(Me.TextBox4 = cl.Offset(0, 3
(Me.TextBox5 = cl.Offset(0, 4
(Me.TextBox6 = cl.Offset(0, 5
(Me.TextBox7 = cl.Offset(0, 6
(Me.TextBox8 = cl.Offset(0, 7
End If
Next


عدل سابقا من قبل سهيل البرزنجي في الثلاثاء يناير 23, 2018 7:32 pm عدل 2 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
pmwpmw




عدد المساهمات : 1
تاريخ التسجيل : 24/01/2018

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالأربعاء يناير 24, 2018 2:12 pm

جزاك الله خير
الرجوع الى أعلى الصفحة اذهب الى الأسفل
سهيل البرزنجي




عدد المساهمات : 5
تاريخ التسجيل : 22/01/2018
العمر : 51
الموقع : عراق /بغداد

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالأربعاء يناير 24, 2018 11:28 pm

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


عدل سابقا من قبل سهيل البرزنجي في الأربعاء يناير 24, 2018 11:34 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
myabaz2000




عدد المساهمات : 25
تاريخ التسجيل : 12/01/2018

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالخميس يناير 25, 2018 11:10 pm

استاذ عظيم و العظمة لله
الرجوع الى أعلى الصفحة اذهب الى الأسفل
myabaz2000




عدد المساهمات : 25
تاريخ التسجيل : 12/01/2018

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالخميس يناير 25, 2018 11:32 pm

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




عدد المساهمات : 25
تاريخ التسجيل : 12/01/2018

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: استاذ جميل   تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالخميس يناير 25, 2018 11:35 pm

مجدى يونس كتب:
فورم كنترول شيت الفيديو 39

صورة الفورم

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Douuo10



للتحميل اكتب تعليق ليظهر الرابط


الرجوع الى أعلى الصفحة اذهب الى الأسفل
myabaz2000




عدد المساهمات : 25
تاريخ التسجيل : 12/01/2018

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالخميس يناير 25, 2018 11:36 pm

استاذ
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالجمعة يناير 26, 2018 8:18 am

شكرا

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
yasser2018




عدد المساهمات : 7
تاريخ التسجيل : 26/01/2018

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالجمعة يناير 26, 2018 11:20 am

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


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالجمعة يناير 26, 2018 4:12 pm

شكرا لك

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالأحد يناير 28, 2018 5:34 am

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


تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Iau_oy10

الكود
الكود:
Option Explicit

Public Declare Function FWw Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SWLg Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrMBar Lib "user32" Alias "DrawMenuBar" (ByVal hWnd As Long) As Long
Public Declare Function SLWA Lib "user32" Alias "SetLayeredWindowAttributes" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal dwFlags As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
 
Public hWnd As Long
 
Public Function Rabie_Sk(uf As Object, colors As Variant, Optional Sk As Variant = True)
    hWnd = FWw(vbNullString, uf.Caption)
    SWLg hWnd, -16, &H80080080: SWLg hWnd, -20, &H80000: DrMBar hWnd
    Select Case Sk
    Case True
        SLWA hWnd, colors, &H2, &H1
    Case False
        SLWA hWnd, colors, 50, &H2
    End Select
End Function

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالأحد يناير 28, 2018 5:56 am

الاخ سهيل
بالنسبة لسوالك الثانى لنموذج استعلام اليك الكود


الكود:

'    عدد الاعمدة
Private Const ContColmn As Integer = 6
'    تنسيق التاريخ
'Private Const DateFormt As String = "yyyy/mm/dd"

Private sRng As Range
Private sColmn


Private Sub ButtonFind_Click()
On Error Resume Next

If OptionButton1 <> True And OptionButton2 <> True Then GoTo 1
If Textbox2.Value = "" Then
[a51] = Textbox1.Value
Else
[a51] = ">" & "=" & Textbox1.Value
End If
Sheet4.Activate
ActiveSheet.Range("A:F").AutoFilter Field:=1
    Columns("A:F").Select
    Selection.ClearContents
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
If OptionButton1 = True Then
Sheet1.Activate
Sheet1.Range("A:F").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet3.Range("A50:B51"), CopyToRange:=Range("تقرير!A5"), Unique:=False

Else
Sheet2.Range("A:F").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet3.Range("A50:B51"), CopyToRange:=Range("تقرير!A5"), Unique:=False

End If
Sheets("تقرير").Select
[A1] = "مصر"
[A2] = "وزارة التربية والتعليم"
[A3] = "مدرسة مجدى عبد المنعم يونس"
[A4] = "ببورسعيد"
If OptionButton1 = True Then
[d2] = "سجل قيد الكتب"
Else
[d2] = "سجل كتب الأطفال"
End If
[d3] = "[ " & Me.ComboFind.Value & " من " & Textbox1.Value & " إلى " & Textbox2.Value & " ]"

Range("A1").Select
GoTo 0

1: MsgBox "اختر نوع السجل"


0: End Sub






Private Sub ComboFind_Change()


End Sub

Private Sub Lab6_Click()

End Sub




Private Sub TextFind_Change()

End Sub



Private Sub OptionButton1_Click()
Set sRng = Sheet1.Range("A1").Resize(1, ContColmn)
With Me.ComboFind
    .Column = sRng.Value
    .ListIndex = 0
    .Style = 2
End With
End Sub

Private Sub OptionButton2_Click()
Set sRng = Sheet2.Range("A1").Resize(1, ContColmn)
With Me.ComboFind
    .Column = sRng.Value
    .ListIndex = 0
    .Style = 2
End With
End Sub

Private Sub Textbox1_Change()
[a50] = Me.ComboFind.Value

[a51] = ">" & "=" & Me.Textbox1.Value
End Sub

Private Sub Textbox2_Change()
[b50] = Me.ComboFind.Value
[B51] = "<" & "=" & Me.Textbox2.Value
End Sub

Private Sub UserForm_Activate()

Dim myChoicey As String


'determine which button was chosen
[a50:b51].Clear




'transfer this into worksheet

'ActiveCell.Offset(0, 53).Value = myChoice


Dim wColmn


'-----------------------------
'For i = 1 To ContColmn
 '  With Me.Controls("Lab" & i)
  '      .Caption = sRng(i)
  '    wColmn = wColmn & .Width & " "
    'End With
'Next
'-----------------------------
'wColmn = Join(Split(Trim(wColmn)), ",")
'-----------------------------
'With Me.ListFind
 '  .ColumnCount = ContColmn
  '  .ColumnWidths = wColmn
'End With
'-----------------------------

'-----------------------------
'Me.ButtonSaveFil.Enabled = False
'Me.ButtonSelect.Enabled = False
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set sRng = Nothing
End Sub

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالأحد يناير 28, 2018 5:58 am

الاخ سهيل
بالنسبة لسؤال التسلسل
يوجد فيديو للشرح تابع فيديوهاتى
وعموما ده كود واسفلة الشرح


الكود:
TextBox1 = Val(Cells(T, 1)) + 1
'في السطر السابق نحدد التكست الذي نريد عمل هذه العمليه فيه
'TextBox1 وهو هنا تكست بوكس رقم 1
'ونحدد انه يساوي قيمة آخر خليه بها بيانات +1 ليكون هو قيمة التكست الجديد

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
سهيل البرزنجي




عدد المساهمات : 5
تاريخ التسجيل : 22/01/2018
العمر : 51
الموقع : عراق /بغداد

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالثلاثاء يناير 30, 2018 3:45 pm

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

()Private Sub TextBox14_Change
("وارد سري")Set sh14 = Sheets
LR = sh14.[a65536].End(xlUp).Row
(For Each cl In sh14.Range("a1:a65536" & LR
If (Val(Me.TextBox14)) = cl Then
(Me.TextBox1 = cl.Offset(0, 0
(Me.TextBox2 = cl.Offset(0, 1
(Me.TextBox3 = cl.Offset(0, 2
(Me.TextBox4 = cl.Offset(0, 3
(Me.TextBox5 = cl.Offset(0, 4
(Me.TextBox6 = cl.Offset(0, 5
(Me.TextBox7 = cl.Offset(0, 6
(Me.TextBox8 = cl.Offset(0, 7
End If
Next
الرجوع الى أعلى الصفحة اذهب الى الأسفل
ياسر علام




عدد المساهمات : 1
تاريخ التسجيل : 31/01/2018

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالخميس فبراير 01, 2018 1:42 am

الله ينور علي حضرتك فديوهات في منتهي الروعة
الرجوع الى أعلى الصفحة اذهب الى الأسفل
abdo




عدد المساهمات : 103
تاريخ التسجيل : 18/04/2017

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: كود عمل شريط تحميل لفورم الدرس العشرون   تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالثلاثاء فبراير 06, 2018 7:11 pm

السلام عليكم استاذ كيف حالك وحال عائلتك جزاكم الله خيرا يارب
لقد شاهدت هذا فيديو ولم اجد كود الذي عملته
ممكن ارساله لي على بريدي او اظافة رابط لتحميله
انتظر الرد منك ان شاء الله

تقبل تحياتي
الرجوع الى أعلى الصفحة اذهب الى الأسفل
عماد ابراهيم




عدد المساهمات : 2
تاريخ التسجيل : 13/02/2018

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالثلاثاء فبراير 13, 2018 6:37 pm

بارك الله فيك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
عماد ابراهيم




عدد المساهمات : 2
تاريخ التسجيل : 13/02/2018

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: بارك الله فيك   تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالثلاثاء فبراير 13, 2018 6:40 pm

مجدى يونس كتب:
فورم كنترول شيت الفيديو 39

صورة الفورم

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Douuo10



للتحميل اكتب تعليق ليظهر الرابط


الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Empty
مُساهمةموضوع: رد: تعليقات على فورم بحث وتعديل واضافة بيانات    تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Avatarالأحد فبراير 18, 2018 11:07 am

شكرا

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

تعليقات على فورم بحث وتعديل واضافة بيانات  - صفحة 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
 
تعليقات على فورم بحث وتعديل واضافة بيانات
الرجوع الى أعلى الصفحة 
صفحة 12 من اصل 18انتقل الى الصفحة : الصفحة السابقة  1 ... 7 ... 11, 12, 13 ... 18  الصفحة التالية
 مواضيع مماثلة
-
» شرح طريقة بسيطة كيفية عمل فورم بحث وتعديل واضافة بيانات
» فورم بحث وتعديل واضافة بيانات الدرس التاسع ListBox
» فورم بحث واضافة وحذف صف وتعديل بيانات وشرح عمل ازرار بالفورم فيديو 47
» فورم بحث وتعديل واضافة بيانات الدرس الخامس تعديلات على الفورم
» فورم بحث واضافة وتعديل وحذف وترحيل وطباعة بطريقتين فيديو 2 ترحيل بيانات وترقيم فورى

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: