الأخوة الأعضاء : تحية طيبة
أود الحصول على محتوى خلية معينة عن طريق خاصية
Input box
بعد إدخال محتوى الخلية المطلوبة في الـInput Box يكون الفوكس في الخلية المكتوبة
في الـ Input Box
msflexgrid.setfocus
ارجو المساعدة أخوتي الكرام
مشكلتي هي إيجاد خلية معينة في الفليكس غريد
السلام عليكــم ورحمـة الله وبركاتــه ،،
ضع الكود ادناه في اجراء تنفيذ العملية المطلوبة :)
Dim Row As Long
With Me.MSHFlexGrid1
Col = Val(InputBox("حدد رقم العامود", "رسالة ادخال", .Col))
Row = Val(InputBox("حدد رقم الصـــف", "رسالة ادخال", .Row))
If Col > .Cols - 1 Or Row > .Rows - 1 Then GoTo Err:
If Col < .FixedCols Or Row < .FixedRows Then GoTo Err:
.Col = Col
.Row = Row
.TopRow = Row
.LeftCol = Col
.SetFocus
End With
Exit Sub
Err:
MsgBox "البيانات المدخلة خطا", vbExclamation Or vbMsgBoxRight Or vbMsgBoxRtlReading
Dim Col As Long
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
شكراً للإهتمامك أخي MRX
لكن الظاهر إني أخطأت في وصف مشكلتي لا أريد تحديد مكان النص المطلوب في القريد
إنما أريد إدخال النص في Input Box و من ثم يكون الفوكس على نفس النص المدخل في الـ Input box المتواجد في أداة Flex Grid
السلام عليكــم ورحمـة الله وبركاتــه ،،
متاسف .. انا من فهم الامر خطا
Dim Row As Long
Dim TMPStr As String
With Me.MSHFlexGrid1
TMPStr = InputBox("من فضلك .. حدد محتوى الخلية", "رسالة ادخال", .Text)
For Col = 1 To .Cols - 1
For Row = 1 To .Rows - 1
If .TextMatrix(Row, Col) = TMPStr Then GoTo DoEvent:
Next Row
Next Col
GoTo Err:
DoEvent:
.Col = Col
.Row = Row
.TopRow = Row
.LeftCol = Col
.SetFocus
End With
Exit Sub
Err:
MsgBox "البيانات المدخلة خطا", vbExclamation Or vbMsgBoxRight Or vbMsgBoxRtlReading
Dim Col As Long
تم تعديل هذه المشاركة بواسطة mrx_ta7ady في 6 أبريل 2009 في 12:21
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه ،،
أشكرك جزيل الشكر أخي MRX
الكود مية المية
جزاك الله خير الجزاء و لكم ممتنين