أبو حنــــين

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

بالنسبة لتعبئة الكمبوبكس تكون كالتالي Private Sub UserForm_Initialize() ComboBox1.List = Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value End Sub بالنسبة للسؤال الثاني اعتقد انه غير واضح فهي خصائص يمكن التحكم فيها في وضع التصميم

ان شاء الله ارسل الطلب فإن وقفت في ذلك فهو خير و إلا ربما احد الإخوة الكرام يمد يد المساعدة في عمل ذلك

السلام عليكم على افتراض ان القيم المراد معرفتها موجودة في الورقة 1 في العمود الاول و تريد رؤيتها في الورقة 2 في العمود H فيكون الكود كالتالي : Private Sub Workbook_Open() Sheets("ورقة2").Range("H1").Value = Sheets("ورقة1").Range(("A") & Sheets("ورقة1").Cells(Rows.Count, "A").End(xlUp).Row).Value Sheets("ورقة2").Select End Sub

السلام عليكم للقيام بذلك اتبع الخطوات التالية : ـ 1) افتح محرر VB ثم اذهب الى الكود التالي : Private Sub UserForm_Initialize() TextBox2.Value = Format(Now, "yyyy-mm-dd") TextBox3.Value = Format(Now, "hh:mm:ss"): ComboBox1.AddItem "سجل البنك": ComboBox1.AddItem "سجل الصندوق" ComboBox1.AddItem "السجل اليومي" End Sub ـ 2 ) قم بحذف السطر الاول من هذا الكود ليصبح كالتالي Private Sub UserForm_Initialize() TextBox3.Value = Format(Now, "hh:mm:ss"): ComboBox1.AddItem "سجل البنك": ComboBox1.AddItem "سجل الصندوق" ComboBox1.AddItem "السجل اليومي" End Sub ـ 3) ارجع للفورم و حدد النص الذي يكتب فيه التاريخ ثم من الخصائص الموجودة في اليسار غير الخاصية Locked لمربع النص من True الى False ـ 4 ) قم بنسخ الكود التالي Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2.Value = Format(TextBox2, "yyyy-mm-dd") End Sub لاحظ انني لم اقم بهذا العمل لاعطائك فرصة للتعلم احسن من ان اقوم انا بالتغيير و ارسل لك الملف جاهزا اخبرني بالنتائج

السلام عليكم ضع هذا الكود في الزر كموند 1 Private Sub CommandButton2_Click() With Sheets("تقرير") lr = .Cells(Rows.Count, "D").End(xlUp).Row + 1 .Cells(lr, "D").Value = lr - 4 .Cells(lr, "E").Value = Range("C7").Value .Cells(lr, "I").Value = Range("L15").Value .Cells(lr, "H").Value = Range("M4").Value .Cells(lr, "G").Value = Range("A6").Value .Cells(lr, "F").Value = Range("A2").Value End With End Sub

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

بالنسبة للسؤال الاول ادخل الى محرر الاكواد VB و بعد فتحه ستجد في اليسار اسماء الاوراق اضغط مرتين متتاليتين على الورقة الاولى ستجد حود مكتوب الطريقة التالية Private Sub Worksheet_SelectionChange(ByVal Target As Range) ScrollArea = "A4:G50000" End Sub غيره الى الطريقة التالية و ذلك بكتابة الرقم اربعة في بداية الكود ( رقم اربعة الموجود في لوحة المفاتيح وليس في الارقام اي اسفل الزر F4 Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' ScrollArea = "A4:G50000" End Sub قم بنفس العمل مع باقي الاوراق ثم احفظ الملف و اغلقه و اعد فتحه من جديد بعدها يمكنك التغيير لكن لا تنسى ان العمود H يحتوي على معادلات بالنسبة للسؤال الثاني قم بتحديد الخلايا التي تريد تغيير تنسيقها ثم الضغط بيمني الفأرة و تختار تنسيق خلايا ثم الرقم و تحدد التنسيق الذي تريده او تكتب مباشرة الرمز : #,##0.00 جرب و اخبرني بالنتائج

العفو أخي لكن جرب الملف و اخبرني ان كانت هناك أخطاء لانني لم اجربه كما ينبغي

السلام عليكم الشكر موصول للاخ حسين هذا الملف بعد التعديل الجديد سجلات الحساب4.rar

السلام عليكم لا اعرف كيف تتم العمليات الحسابية داخل الملف ( العمليات بيت المداخيل و المصاريف و . . . . .. ) قمت بها حسب فهمي و ان كان هناك خطأ اخبرني عند الضغط على : إدخال البيانات تظهر لك فورم ـ 1 ) تقوم باختيار السجل : بنك / صندوق ـ 2 )تقوم بتعبئة مربعات النصوص البيضاء ثم تضغط على حفظ في أسفل الفورم هناك بيانات حول الاجمالي سجلات الحساب2.rar

الملف يعمل عندي بشكل طبيعي ـ 1 ) إذا ظهرت لك في العمود H الخلية بلون برتقالي و مكتوب علبيها الكلمة OK ، عندها تظغط عليها مرتين متتاليتين ليتم الترحيل ـ 2 ) تأكد أنك لست في وضع التصميم ملاحظة انني بصدد ادراج فورم يتم من خلاله ترحيل البيانات سأرسله قريبا ان شاء الله

السلام عليكم عندما تريد ترحيل البيانات تضغظ مرتين على الزر OK الذي سيظهر في العمود H سجلات الحساب.rar

CTRL + Q to Enable/Disable GoPhoto.it أخي الحبيب : عباس جزاك الله خيرا و حفظك و رعاك

السلام عليكم لقد قمت باضافة موديل الاخ الحبيب عبد الله لملفك مع اجراء بعض التغييرات و هو يعمل جربه واجهة ملف.rar

السلام عليكم جرب أخي المرفق سجلات الحساب.rar

أخي : أبو الحارث أخي : عمر أبو صهيب جزاكم الله خيرا على المرور

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

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

أخي الأستاذ احمد : دائما اعمال مميزة من رجل مميز جعله الله في موازين حسناتكم

أخي الحبيب حمادة عمر: جزاك الله خيرا على الكلمات الطيبة حفظك الله ******************************************** أخي اسلام قمت بالطلب الثاني فقط و هو ادراج ورقة اسم عميل جديد لم استوعب الطلب الاول فمثلا لو اخذنا ورقة 1 هل البيانات تملأ دفعة واحدة في كامل السطر اي من C5 الى G5 او انك كل مرة تملأ خانة العملاء 12013.rar

الشكر موصول لكل من ساهم في الموضوع جزاكم الله خيرا

السلام عليكم جرب الكود التالي Sub AbuHanine() 1 DoEvents Hanine = Now Abou = Second(Hanine) Range("a1") = Format(Hanine, "h:m:s") For r = 1 To 10000000: Next r GoTo 1 End Sub

أخي إسلام مراد اين الملف الذي تقدمت بشرح تفاصيله

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