مساعدة بسيطة في فليكسجريد

تفضل :

Dim R AsInteger
Dim C As Integer
C = 1 'البحث فى العمود رقم 1
For R = 1 To Me.MSFlexGrid1.Rows - 1
	If Me.MSFlexGrid1.TextMatrix(R, C) = "4" Then MsgBox "الرقم 4 موجود بالصف رقم   " & R: Exit Sub
Next R

ألف شكر يا أخي

الكود يعمل بشكل سليم

ولكن هل تكمل جميلك وتقوم بتعديل الكود ليقوم أيضا بتحديد عدد مرات تكرار الرقم

ولك جزيل الشكر

Dim logCount As Long
Dim R As Long,C As Long

C = 0

For R = 1 To fg.Rows - 1
	If(fg.TextMatrex(R,C) = "15")Then
	   logCount = logCount + 1
	   If(logCount > 4)Then Exit For
	End If
Next

If(logCount <= 4 )Then
	MsgBox "The rows is 4"
Else
	MsgBox "The rows > 4"
End If

MMA_EG_Cairo كتب:

Dim logCount As Long
Dim R As Long,C As Long

C = 0

For R = 1 To fg.Rows - 1
	If(fg.TextMatrex(R,C) = "15")Then
	   logCount = logCount + 1
	   If(logCount > 4)Then Exit For
	End If
Next

If(logCount <= 4 )Then
	MsgBox "The rows is 4"
Else
	MsgBox "The rows > 4"
End If

مشكور اخي على الكود لكن اظن ان فهمت الاخ خطأ الكود الذي قدمته يقوم بحساب عدد مرات تكرار الرقم 15 في الفليكس فاذا كان التكرار اكير من 4 مرات يقوم بالخروج من لتكرار

ويقوم باخبار اليوزر بتالي

اذا كان تكرار العدد 15 اقل او يساوي 4 (بان تكرار الرقم يساوي 4 )

والا ان لم يبلغ تكرار الرقم 4 مرات (تخبر المستخدم بان تكرار اكبر من 4 )

بعد اذن الشباب اخي جرب الكود التالي

لكن غير مجرب وصرلي فترة مش كاتب كود vb وايدي صارت ماخده على php

جربوا اخي و ان شاء الله خير

Private Sub Form_Load()
Dim R As Integer, i As Integer
Dim C As Integer
Dim p(10) As Integer
Dim CountNum As Integer

CountNum = 0
C = 1 
For R = 1 To Me.MSFlexGrid1.Rows - 1
	If Me.MSFlexGrid1.TextMatrix(R, C) = "4" Then
	count = count + 1
	p(CountNum) = R

	Next R

Print " Found number " + CountNum
Print "Found number in this places"

For i = 0 To CountNum
MsgBox p(i)
Next i



End Sub

طبعا على افتراض ان عدد تكرار العدد لا يزد عن 10 مرات كما انتا ملاحظ في حجم مصفوفة التخزين الاماكن

يمكن التعديل على الكود بتالي بعد عملية التعريف

ReDim CountNum(Me.MSFlexGrid1.Rows - 1) As Integer

ألف شكر للجميع