معرفة قيمة خلية

[اسلام الكبابى أوفيسنا]

كيف يمكن مغرفة قيمة خلية من خلال رقم الصف ورقم العمود

أو من خلال رقم الصف وقيمة أى خلية أخرى فى نفس عمودها(أى كيف يمكن معرفة قيمة الخلية D5 من خلال قيمة الخلية D2 مثلآ)

ولكم ألف شكر

تم تعديل الأربعاء at 11:00 بواسطه اسلام الكبابى أوفيسنا

[عبدالله بشير عبدالله]

السلام عليكم

من المفترض وجود ملف للعمل عليه 

تم عمل كود مرن يقوم بالبحث  في اي صف او اي عمود بالصفحة

الكود 

Sub GetCellValueByRowAndCol()
    Dim inputValue As String
    Dim rowNum As Long
    Dim colNum As Long
    Dim cellValue As Variant
    On Error Resume Next
    inputValue = InputBox("أدخل رقم الصف ورقم العمود مفصولين بشرطة، مثال: 5-4")
    
    rowNum = Split(inputValue, "-")(0)
    colNum = Split(inputValue, "-")(1)
    cellValue = ThisWorkbook.Sheets("Sheet1").Cells(rowNum, colNum).Value
    If IsEmpty(cellValue) Then
        MsgBox "قيمة الخلية " & Cells(rowNum, colNum).Address & " هي: لا توجد قبمة"
    Else
        MsgBox "قيمة الخلية " & Cells(rowNum, colNum).Address & " هي: " & cellValue
    End If
End Sub

الملف

بحث في اي صف او عمود.xlsb

تم تعديل الأربعاء at 14:31 بواسطه عبدالله بشير عبدالله

[اسلام الكبابى أوفيسنا]

ولكن هذه أكواد فيجوال بيسك

ألا توجد دالة فى الاكسيل تقوم بذلك(دالة تسألنى عن رقم الصف ورقم العمود فأدخلهما فأجدها كتبت لى قيمة الخلية عند تقاطع هذا الصف مع هذا العمود)

ولكم ألف شكر

[عبدالله بشير عبدالله]

السلام عليكم 

4 ساعات مضت, اسلام الكبابى أوفيسنا said:

دالة تسألنى عن رقم الصف ورقم العمود فأدخلهما فأجدها

حسب طلبك

اكتب فى A1 الصف الذى تربد البحث فيه 

واكتب فى A2  رقم عمود البيانات الذى تربد البحث فيه

نتيجة البحثت جدها فى A3

يمكنك البحث فى نفس العمود او غيره

تحياتى

=INDIRECT(ADDRESS(A1; A2))

بحث في اي صف او عمود.xlsb

[اسلام الكبابى أوفيسنا]

بارك الله فيك

ومعذرة لأنى لا أعرف أين أكتب هذه الأكواد فى الاكسيل(لا أعرفها الا فى الفيجوال بيسك

أما فى الاكسيل فلا أعرف الا كتابة أمثال هذه الدالة التى أرفقتها لى(دالة تكتب فى سطر واحد(فى خلية))

ولك ألف شكر