استفسارات تتعلق بالتكست بوكس والكومبوبوكس

[يوسفي]

السلام عليكم 

عندي يوزرم فورم ادخال وتعديل وحذف بيانات موظفين وعندي أكثر من سؤال للأساتذة الكرام

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

٢. عامل تكت بوكس يظهر اخر رقم موظف وذلك بمعادلة maxفي خلية في الشيت وربط التكست بوكس ولكن عند حذف موظف اجد المعادلة الغيت

هل هناك كود لكتابة هذه المعادلة في التكست بوكس 

علما بأن الشيت الرئيسي اسمه sheet1 والمسلسل في عمودA وبداية المسلسل من A11 .... هذا هو الملف

ولكم جزيل الشكر

yousef.xlsb

[حسين مامون]

الاكواد داخل فورم اضفته في ملفك

yousef.xlsb

[يوسفي]

استاذ حسن شكرا جزيلا 

حضرتك في اليوزرفورم انا عامل تكست بوكس ورقمه ٥٣ وعاوز يظهر فيه اخر رقم موظف 

حضرتك بعت كود ولكن للاسف مش عارف اضيفه فلو سمحت ياريت تطبق الكود على اليوزرفورم بتاعي 

ولك كل الشكر

غير أنه عند قيامي بحذف الموظف بيترك صفه خالي

اريد عند الحذف يحذف الصف كله ويتم إزاحة الصفوف التالية مكانة فلا يترك الصف خالي 

[حسين مامون]

ضع هذا في حدث الفورم

خاص لتعبئة تيكسبوكس53 اخر خلية العمود 1 sheet1

Private Sub UserForm_Initialize()
Dim lr
With Sheets("Sheet1")
lr = .Cells(Rows.Count, 2).End(xlUp).Row
TextBox53.Value = .Range("b" & lr).Offset(, -1)

End With
End Sub

وهذا في حدث الشيت1

لادراج مسلسل

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr
lr = Cells(Rows.Count, 2).End(3).Row
If Intersect(Target, Range("a" & lr)) Is Nothing Then
Range("a11:a" & lr).Formula = "=IF(B11="""","""",SUBTOTAL(103,$B$11:B11))"
End If
End Sub

yousef (1).xlsb

[عبدالله الصاري]

السلام عليكم 

بعد اذن استاذنا الفاضل حسين مامون 

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

الترقيم تلقائي

غند الحذف يقوم  يحذف الصف كله ويتم إزاحة الصفوف التالية مكانة فلا يترك الصف خالي مع تحديث الترقيم

يمكن البحت بما تشاء بالاسم او الرقم الوطني او باي رؤوس العناوين

كما يمكنك طباعة بيانات اي موظف بورقة خاصة به

كما يمكنك الانتقال الى الاسم من الفورم بالضغط على الزر GO

كما يعطيك عدد الاسماء المسجلة

يمكنك التعديل والاظافة والحذف حسب الازارار الموجودة ويجب الضغط على زر حفظ التغيرات عند التعديل

طبعا الفورم يعتمد على صفجة القوائم وتم اخفائها

الزر باسم فورم ادخال

اتمنى ان يلبى طلبك 

الفورم الخاص بك تم اظافة معادلة العدد الى الكود كما تم عمل كمبوكس الخيارات بواسطة الكود ولا يعتمد غلى صفحة القوائم 

تحياتي

yousef.xlsb

[يوسفي]

أساتذتي الفضلاء

اشكركم شكرا جزيلا وزاد كرمكم

أ/ حسن مأمون

أ/ عبدالله الصاري

وليت أ/ عبدالله يتسع صدره لبعض الاستفسارات بخصوص الفورم اللي بعته لي مشكورا

١. التكست بوكس اللي في الفورم لم اجدها في الفورم 

٢. الكومبوبوكس اللي في الفورم القوائم عاوز اجعلها سنتر حتى تظهر الاختيارات فمن أين ؟حيث انتي لا اراها 

٣. ال calendar فيها مشكلة ولا اعرف كيف استخدمها

باختصار مش عارف أجري اي اعدادات على الفورم حيث انني مش عارف اغير لون الكتابة مثلا أو اجعل الليست سنتر 

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

 

[عبدالله الصاري]

بالنسبة للفورم كما اشرت سابقا انه للعلامة عبدالله باقشير والفورم له اكثر من اصدار اخرها الاصدار الرابع وبه اظهار الصور

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

بالنسبة للتوسيط تم تعديله

رابط الموضوع الرئيسي الاصدار الثالت والرابع  ,عند تجمبل الملف تجد شرحا لاستحذام الفورم

https://www.officena.net/ib/topic/52300-امثلة-على-طباعة-السجل-من-فورم-ادخال-وتعديل-وبحث/

https://www.officena.net/ib/topic/52482-الاصدار-الرابع-فورم-اضافة-وبحث-وتعديل-مرن-مع-استعراض-الصور-تحكم-كامل-بالصورة/

اتمنى اني قدمت ما يفيد 

yousef.xlsb

[يوسفي]

استاذ عبدالله لحضرتك كل الشكر على مجهودك وصبرك معي 

وارجو أن تلتمس لي العذر في أسئلتى 

عند طبع حالة الموظف خلية التاريخ تحتاج إلى تنسيق تاريخ وكذا بقيت ما يحتوي على تاريخ وحاولت اعرف كيف اصل لصفحة الطباعة ولكني لم انجح 

فأرجو تغيير فورمات خلايا التاريخ عند الطباعةولك مني كل اشكر

 

[عبدالله الصاري]

ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم

1- تغيير تنسيقات إظهار التاريخ في الفورم  في الثابت DtF

2- تغيير عٌرض مربعات  الادخال  في الثابت iWgt1

بالنسبة لصفحة الطباعة اعتقد ان الكود يقوم بانشاء ورقة للطباعة مؤقتة ثم يقوم بحذفها بغد الطباعة والله اعلم 

ارفقت مع الملف شيت به شرح الفورم  وهو بقلم صاحب الفورم باقشير

وهذا كل ما اعلمه عن الفورم 

yousef.xlsb

 

 

 

[يوسفي]

ربنا يكرمك وجزاكم الله خيرا