اخى واستاذى سليم

مشكورا بارك الله فيك

حل رائع ايضا

تقبل تحياتى

 

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

			


			Sub H()

			For R = 2 To 100

			x = Sheets("3").Range("C2").Value

			If Sheets("3").Cells(R, 1) < x Then

			MsgBox Sheets("3").Cells(R, 1).Value

			Sheets("3").Cells(R, 1).Select

			Exit Sub

			End If

			Next

			End Sub


			فهل من طريق للتعديل على هذا الكود وجعله يعمل بالصورة الصحيحة
 
 
 
 
 
 
 
Sub H() For R = 2 To 100 x = Sheets("3").Range("C2").Value If Sheets("3").Cells(R, 1) < x Then MsgBox Sheets("3").Cells(R, 1).Value Sheets("3").Cells(R, 1).Select Exit Sub End If Next End Sub
 
 
 

 اخى الفاضل

ابو البراء

متابعينك

فى انتظار المزيد

تقبل تحياتى

 بارك الله فيك اخى ياسر

فى انتظار المزيد

 

 اخى ياسر

مشكورا

بارك الله فيك

نتمنى وجود سلسله من الدروس

او تطبيق عملى على مشروع صغير

تقبل تحياتى

 اخى الفاضل

مشكورا

بارك الله فيك

تقبل تحياتى

 

 الاخت الفاضله

عزرا على الخطأ الغير مقصود

تقبلى تحياتى

اما بالنسبه لكيفيه تحويل برنامج الاكسيل ملف تنفيذى

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

 مشكورا على المرور

ولكن شرح كيفية تصميم البرنامج

سيحتاج لوقت طويل

ومجهود كبير

حاول انت تعلم كيفية التصميم بنفسك

وعندما تقف امام نقطة يصعب عليك تجاوزها

ابحث عنها فى الانترنت

او ارفقها للخوه الاعضاء لمناقشتها وتعلم كيف

يتم تجاوزها

هكذا تعلمنا

تقبل تحياتى

 استخدم هذا الكود فى حالة الضغط على زر الدخول



Private Sub CommandButton1_Click()

If TextBox1.Value = "asd" And TextBox2.Value = 123 Then





If Application.Workbooks.Count > 1 Then

    ThisWorkbook.Windows(1).Visible = True

Else

    Application.Visible = True

End If



Unload Me

Else

Application.Visible = True



If Workbooks.Count = 1 Then

ActiveWorkbook.Saved = True

Application.Quit

Else

Application.ActiveWindow.Close SaveChanges:=False

ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)



End If



End If

End Sub



وفى حدث المصنف

استخدم هذا الكود عند فتح الملف



If Application.Workbooks.Count > 1 Then

ThisWorkbook.Windows(1).Visible = False

Else

Application.Visible = False

End If

End Sub

 مشكورا على الاستجابه

تقبل تحياتى

 منتظرين باقى الدروس

 مشكورا على المعلومات القيمه

بارك الله فيك

تقبل تحياتى