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

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

السلام عليكم ممكن يكون وسيط رقمي واحد وسيعطيك عنوان تتابعي يمشي عبر اعمدة الصف الاول ثم ينتقل الى الصف الثاني وهكذا جرب بنفسك الكود التالي Sub test1() MsgBox Cells(1).Address End Sub وغير 1 الى 2 ثم الى اي رقم آخر وشوف اي عنوان يعطيك ايضا جرب هذا Sub test2() MsgBox Range("a1:a10").Cells(2).Address End Sub وجرب هذا Sub test3() MsgBox Range("b1:h10").Cells(1).Address End Sub في المثالين 2 و3 لازم يكون الامر لنطاق متصل علشان يعطيك نتيجة صحيحة ان شاء الله تتضح لك الصورة انت تقول من خلال معرفتي الشخصية فقط ان الامر cells يحتاج الي وسطتين هما رقم الصف ورقم العمود اذن من اين اتيت بهذا السؤال !!! تحياتي

جزاكم الله خيرا الخط وملحقاته يمكنك تغييرها عن طريق الخاصية Font للفرمة Frame1 في وضع التصميم. تحياتي

هو يعمل على 2003 وما فوق ويمكنك حفظه باصدار xlsm

السلام عليكم ورحمة الله وبركاته تقبلوا تحياتي وشكري

بعد التصوير اضف الصورة الى (ملف الصور) يدويا وادخل اسم الصورة في الجدول يدويا في عمود اسم الصورة في سجل صاحب الصورة تحياتي

======================== الاخ الحبيب/ ضاحي الغريب ======================== و

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

السلام عليكم لا توجد تاكستات في الفرمة اثناء التصميم وانما يتم اضافتها عند تشغيل الفورم بكود فتح الفورم

السلام عليكم الاخ الفاضل شوقي ربيع عادي يا اخي يمكنك ان تناقش اي شي ما فيش مشكلة عندي انا صممت هذا العمل ليكون على كائن واحد فقط ويكون له كود واحد فقط ليتم تشغيله به وذلك ليسهل نقله واستخدامه للكل وايضا اردته ان يكون بهذا الاسلوب التشغيلي ( الشكل المصمم) ليكون مثل البار الشائع الاستخدام اما عن البطىء الذي تتحدث عنه فقد يكون مطلوب في بعض الاعمال ( شكل جمالي ) وهوهنا يعتبر لا شي حيث لا يتعدى ثانية في 10000 صف واذا اردت ان تجعله بمثل سرعة كودك شيل DoEvents من مكانها الحالي وضعها داخل كود البار داخل شرط الحركة هكذا : If N Then If MI Mod N = 0 Then Me.LabelPar.Caption = Me.LabelPar.Caption & "n": DoEvents ارجو ان يكون واضح ما اوردته اليكم تقبلوا تحياتي وشكري

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

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

السلام عليكم بار بسيط لمعاينة حركة اي كود على الفورم يمكنك استخدامة لاي كود يستخدم فور نكست على الفورم ويمكنك نقله مع الاكواد الخاص به الى اي فورم في ملفك هذا كود البار Private Sub kh_Update_Par(MI As Long, MX As Long) Static N As Integer If N = 0 Then Me.MousePointer = 11 Me.LabelPar.Visible = True Me.LabelPar.Caption = "" N = Int(MX / 30) End If '---------------------------------- If N Then If MI Mod N = 0 Then Me.LabelPar.Caption = Me.LabelPar.Caption & "n" '---------------------------------- If MI = MX Then N = 0 Me.LabelPar.Visible = False Me.MousePointer = 0 End If End Sub وهذه السطرين تضعها نهاية السلسلة فور نكست في اي كود تريد تشغيل البار معه مع تغيير المتغييرات الخاصة بالكود حسب الكود خاصتك Call kh_Update_Par(i, Lr) DoEvents وهذا الكود يمنعك من غلق الفورم اثناء حركة البار Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If Me.MousePointer = 11 Then Cancel = 1 End Su واذا كنت تستخدم هذا الكود في الفورم خاصتك استخدم السطر التالي في بداية الكود خاصتك If Me.MousePointer = 11 Then Cancel = 1: Exit Sub تحياتي المرفق 2003 بار تحديث البيانات.rar

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

السلام عليكم امسح الكود الموجود في موديل الورقة Ali_data وضع هذا الموديل في الورقة Grades 6-11 Private Sub Worksheet_Activate() Select Case CStr(ورقة1.Range("j14")) Case Is = "English" Me.DisplayRightToLeft = False Case Is = "اللغة العربية" Me.DisplayRightToLeft = True End Select End Sub تحياتي

السلام عليكم غير ActiveSheet الى الورقة التي تريدها تحياتي

السلام عليكم المرفق 2010 ترحيل افقي.rar

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

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

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

======================== الاخ الحبيب/ جمال عبد السميع ======================== و

التهنئة بترقية الاخ جلال الجمال أبو أدهم الى عضو مميز

السلام عليكم ورحمة الله وبركاته ربنا يحفظها من كل مكروه تقبلوا تحياتي وشكري

و عليكم السلام ورحمة الله وبركاته اقرن لكل فورم اسم الورقة للنطاق المعرف في المتغير X مثلا الفورم 2 Set X = ورقة2.Range("a1:c8") تحياتي

السلام عليكم ضع هذه المعادلة في الخلية J7 واسحبها الى الاسفل =SUM(OFFSET($D$7;(ROW()-7)*5;;5)) تحياتي