عبدالله باقشير

جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري

جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري

السلام عليكم اخي الحبيب رجب جاويش ----------حفظكم الله سررت بمرورك العطر وكلماتك الطيبة جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري

السلام عليكم نموذج للدليل المحاسبي يتم التعديل عليه من خلال الفورم لو فرضنا ان الدليل موجود في ورقة مخفية في برنامجك وتريد التعامل مع النموذج من خلال الفورم شاهد المرفق 2003-2010 نموذج للدليل المحاسبي.rar ================================================ تعديلات جديدة: 1- امكانية حذف واضافة جذور 2- زيادة طول الرقم الرئيسي الى ثلاثة ارقام ليتسع لاضافة 99 حساب 3- العمل على نموذج فارغ . المرفق 2003-2010 نموذج للدليل المحاسبي +.rar ================================================ نموذج للدليل المحاسبي اربعة مستويات

السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري

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

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

السلام عليكم كود ذكي جدا... جزاك الله خيرا اخي احمد تقبل تحياتي وشكري

السلام عليكم تهنئة بالترقية للاخ احمد عبدالناصر الى خبير معتمد وترقية الاخ عمرو_ الى عضو خبير الف مبروك والى الامام دوما ,,,

السلام عليكم اخي الفاضل ضاحي جزاك الله خيرا هذا يغير لون الخط Range("E4").Font.Color = -16776961 هذا يغير لون التعبئة Range("E4").Interior.Color = 65535 على العموم قم بتسجيل كود وغير ما تريده على الخلية ستجد الاوامر في الكود المسجل في امان الله

السلام عليكم ممكن بالكود هذا ضعه في موديل ورقة1 Private Sub Worksheet_Calculate() With Range("E4") If .Value = ".................................." Then .Font.Name = "Arial" Else .Font.Name = "DecoType Thuluth" End If End With End Sub في امان الله

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

وعليكم السلام ورحمة الله وبركاته تفضل هذا التعديل Function kh_HijToMilady(Textdate As String) Dim kh_Calendar As Integer kh_Calendar = Calendar Calendar = vbCalHijri If IsDate(Textdate) Then kh_HijToMilady = CDate(Textdate) Calendar = kh_Calendar End Function في امان الله

الاخ الفاضل/ مجدي يونس

السلام عليكم اخي الحبيب ضاحي الغريب ...حفظكم الله اعمالكم رائعة جدا جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري

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

السلام عليكم الشكر واصل لاخي الحبيب عباد..واخي النشيط احمد ناصر واخي بن عليه وائراءا للموضوع فيه مثال لعكس معطيات المصفوفة لاستثمار التغيير في البعد الاخير ثم نستخدم الغرض .Column لوضع المصفوفة المعكوسة في اللست Private Sub CommandButton1_Click() Dim Ary() Dim LastRow As Long, v As Long Dim c As Integer, cc As Integer Dim M As String, f As String Dim q As Range '''''''''''''''''' ListBox1.Clear M = TextBox1.Value '''''''''''''''''' With Sheets("DB") LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row Set q = .Range("B2:B" & LastRow).Find(M) If Not q Is Nothing Then f = q.Address Do If InStr(1, q, M, vbTextCompare) = 1 Then v = v + 1 ReDim Preserve Ary(1 To 12, 1 To v) For c = 1 To 12 cc = Choose(c, 0, 1, 2, 3, 4, 8, 5, 9, 6, 10, 7, 11) Ary(c, v) = q.Offset(0, cc).Value Next End If Set q = .Range("B2:B" & LastRow).FindNext(q) Loop While Not q Is Nothing And q.Address <> f End If End With '''''''''''''''''''''''' '''''''''''''''''''''''' If v Then Me.ListBox1.Column = Ary End If Erase Ary Set q = Nothing End Sub المرفق 2003/2010 زيادة اعمدة الست بوكس.rar في امان الله

السلام عليكم جزاك الله خيرا وبارك فيكم تقبل تحياتي وشكري

السلام عليكم السبب وجود نص في نطاق الارقام وهو الحرف غ دالة SUMPRODUCT ضف فيها شرط للتحقق من وجود رقم لتتم المقارنة =SUMPRODUCT((ISNUMBER($F$3:$F$642))*($F$3:$F$642>=3.2)*($E$3:$E$642="مسلم")) وايضا دالة الصفيف اضف فيها شرط للتحقق من وجود رقم لتتم المقارنة =SUM((ISNUMBER($F$3:$F$642))*($F$3:$F$642>=3.2)*($E$3:$E$642="مسلم")) في امان الله

السلام عليكم جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري

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

السلام عليكم جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري

السلام عليكم Mh = WorksheetFunction.Match(ii, .Range("A9:A" & LR), 0) + 8 هذه دالة ماتش تعطيك موقع صف رقم الفاتورة في النطاق A9:A ونضيف فوقها عدد الصفوف اعلى النطاق وهي ثمانية صفوف iCont = WorksheetFunction.CountIf(.Range("A9:A" & LR), ii) وهذه دالة كونت ايف تعطينا عدد سطور الفاتورة Adr = Cells(r, c).Address(0, 0) لو تلاحظ اسماء مربعات النص تجدها باسماء الخلايا علشان نستخدمه بسهولة في الحلقة الدوارة Me.Controls(Adr).Value = Sheet1.Range("G" & Mh).Cells(r, c).Value وهذه تستخدم مع الحلقة الدوارة لوضع النتائج في مربعات النص بدلالة اسمه في امان الله

السلام عليكم الشكر واصل لاخي ابو حنين جرب الكود التالي ضعه في موديل الفورم او اي موديل آخر Sub kh_Form_Zoom(MyForm As Object) Dim Zo% Dim ZH#, ZW#, AL#, AT#, AH#, AW# Dim FH!, FW! '=========================================== AH = Application.Height: AW = Application.Width AL = Application.Left: AT = Application.Top FH = MyForm.Height: FW = MyForm.Width ZH = AH - FH: ZW = AW - FW: Zo = MyForm.Zoom If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW) '=========================================== With MyForm .Move AL, AT, AW, AH If Zo <> 100 Then .Zoom = Zo End With '=========================================== End Sub وحط هذا في موديل الفورم Private Sub UserForm_Initialize() kh_Form_Zoom Me End Sub في امان الله

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