ibn_egypt

أخى الفاضل أبا الحسن والحسين تم تعديل الملف المرفق فبمجرد ادخال اى أمر سواء بيع أو شراء يتم النظر في شيت Co.Balance اذا كانت الشركة موجودة يتم تعديل الرصيد الخاص بها ... اذا لم تكن موجودة يتم اضافتها واضافة رصيدها ... تحياتي برنامج الأسهم.rar

اخى الفاضل استخدم الدالة CountIF لمعرفة ما تريد .. مرفق الملف للتوضيح .. امشي على نفس المثال تحياتي Control Sheet.rar

أخى الفاضل تفضل الملف المرفق .. تم اضافة الدالة الرائعة SumColor للأستاذ القدير ابو القبطان تحياتي 5465465435.rar

اخى الفاضل الخطأ عندك ليس من هذا الكود ولكن من الاكواد الأخرى الخاصة بالقوائم الموجودة لديك بالفورم والموجودة بحدث UserForm_Activate تحتاج الى مراجعة هذه الاكواد بعد تعطيل هذه الاكواد التى بها أخطاء الكود يعمل بنجاح انظر المرفق تقبل تحياتي تجربة 3.rar

اخى الفاضل بالرغم انى مش مقتنع ابدا بالحل المرفق وبتكرار الأكواد بهذا الشكل ومقتنع ان حل الأستاذ ياسر خليل هو الأصح والأفضل لكن طالما انت عاوز كده وده طلبك ... فتفضل الملف المرفق تحياتي Aziz.rar

اخى الفاضل الكود يعمل على أى فورم ولكنه ينقسم قسمين .. الأول وهو المتغيرات والتى لابد ان توضع في ال Option Explicit الخاص بالفورم وهي كالتالى Option Explicit Private Declare Function FindWindow Lib "User32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" _ Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" _ Alias "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" ( _ ByVal hwnd As Long) As Long بعد ان تنسخ وتلصق المتغيرات السابقة .. هناك القسم الثاني من الكود وهو الدالة المعرفة Sub RemoveCaption(objForm As Object) Dim lStyle As Long Dim hMenu As Long Dim mhWndForm As Long If Val(Application.Version) < 9 Then mhWndForm = FindWindow("ThunderXFrame", objForm.Caption) 'XL97 Else mhWndForm = FindWindow("ThunderDFrame", objForm.Caption) 'XL2000+ End If lStyle = GetWindowLong(mhWndForm, -16) lStyle = lStyle And Not &HC00000 SetWindowLong mhWndForm, -16, lStyle DrawMenuBar mhWndForm End Sub بعد ذلك كل ما عليك هو ان تستدعي هذه الدالة باستخدام الأمر التالى والذي يوضع في حدث UserForm_Initialize Call RemoveCaption(Me) جرب على اى فورم تحياتي

وعليكم السلام أ.عبد الله ما شاء الله معلمنا الفاضل لم تترك شئ لنا لنفكر فيه ... جزاك الله كل خير وجعل عملك في ميزان حسناتك ... تحياتي وتقديري أخى الفاضل الملف فيه كل حاجة .. انت اول ما تفتح اضغط على تسجيل أسماء الفرق .. واكتب اسماء الفرق اللى عندك 4 او 5 او 10 لحد 20 فريق .. واكتب اسم الدورى ( دورى صيفي - شتوي ) اختر الاسم الذي يناسبك بعد ان تنتهي من هذا .. اضغط على جدول المباريات واكتب نتائج المباريات وليكن .. فريق اوفسينا 5 1 فريق النسور بعد ان تكتب نتائج المباريات ستجد زر الترتيب العام للفرق في أعلى اليسار.... جدول به ترتيب الفرق حسب النتائج والنقاط والاهداف ما له وما عليه تحياتي

اخى الفاضل تفضل ملفك بعد التعديل تم ازالة شريط العنوان من الفورم تحياتي تجربة.rar

حبيبي الجدول مفتوح قدامك شوف المعادلات والدنيا ماشية ازاى .... واحذف وضيف وغير اللى انت عاوزه تحياتى

اخى الفاضل تفضل الملف المرفق لريما به طلبك .. تم ادراج دالتين في الملف الخاص بك اشتغل بما تحب تحياتي جدول حسابي.rar

أخى الفاضل الملف ده كان عندى لدورى زين للمحترفين ( الدورى السعودى ) في سنة سابقة... لربما يفيدك تسجل نتائج مباريات الاسبوع هيعطيك ما تريد تحياتى Saudi-Table.rar

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

اخى الفاضل قم بضغط الملف اولا ... ثم استخدم المحرر الكامل لوضع رد ... ستجد بالاسفل ارفاق ملف اضغط اختر ملفات ثم اختر الملف الذي تريد ارفاقه تحياتى

سلمك الله اخى الفاضل من كل شر، تحياتى

اتفضل يا باشمهندس ادرج ActiveX Command Button واضغط عليه Double click واكتب الكود التالى Worksheets("Sheet20").Activate أو ممكن تعمل ماكرو بنفس الكود السابق وتيجي على الزر العادي اللى في الشيت بتاعك واضغط Right-Click واختار Assign Macro واختار اسم الماكرو اللى انت عامله مرفق ملف للتوضيح تحياتي Sales Reports.rar

خلاص استبدل الازرار دى بشكل عادي واعمل Hyperlink لاى شيت يعجبك زي المرفق كده بدل ما تفضل تكتب كود لكل زر تحياتي Sales Reports.rar

أخى الفاضل جرب الملف المرفق لربما به طلبك تحياتى Sales Reports.rar

بجد الموضوع ده رائع ... لانه بيخلى الواحد يدور على طرق جديدة وسهلة ومختصرة غير اللى يعرفها لحل المشكلة ... تحياتي أ.ياسر انا قبل البحث كنت اعرف طريقتين ... الأولى الطريقة التقليدية بدون معادلات او اكواد ( بتحديد النطاق ثم بحث Find ثم Go to Special واختار Blanks >>> وبعدها اكتب الاسم اللى عايزه وليكن "Ibn_Egypt" واضغط Ctrl+Enter الثانية الكود العادي اللى بنستخدمه دائما في البرامج بعمل حلقة تكرارية تقوم بتعبئة الفراغات كده Sub Fill_Blanks() Application.ScreenUpdating = False For Each cell In Range("A1:B10") ' Or we can type If Len(cell) = 0 Then If IsEmpty(cell) Then cell.Value = "Ibn_Egypt" End If Next Application.ScreenUpdating = True End Sub لكن لعلمى انك طرحت سؤال زي ده فأكيد فيه حاجة اسهل من الطريقتين دول ... وبعد البحث لقيت السطر ده بس وبيقوم بالغرض تمام Sub Fill_Blanks2() Range("A1:B10").SpecialCells(xlCellTypeBlanks).Value = "Ibn_Egypt" End Sub تحياتي وتقديري استاذي الفاضل وجعل اللهم عملك في ميزان حسناتك وإلي اللقاء في لغز آخر

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

اخى محمد تفضل الملف المرفق .. به اخر طلب، وشاكر لدعواتك جزاك الله كل خير تحياتي M.Abdulmajeed.rar

اخى الفاضل ال Input Mask للتاريخ بهذا الشكل الذي تريده اعتقد انه غير ممكن في الإكسل ... هناك اشياء اخرى لتسهيل ادخال التاريخ ولكن ليس ال Input Mask مثل الأكسيس تحياتي

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

اخى الفاضل الجموعي جرب الملف المرفق لربما به طلبك تحياتي Sheet Reneme.rar

طريقة حلى .. طبعا بالأكواد حددت الشيت كامل وسميته وليكن data كنطاق واحد ودخلت محرر الأكواد وفي حدث Worksheet_Activate كتبت السطر ده Range("A1").ClearContents Range("A1") = Application.CountBlank(Range("data")) اعطانى الرقم 17179869184 في الخلية A1 >>> اعتقد انه صحيح ... اوفيس 2010 بس .. شكرا الى اللقاء في لغز آخر تحياتي

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