اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم ورحمة الله تعالى حياكم الله جميعا وبارك فيكم وفي جهودكم الكريمة

عندي ملف فيه ايات كريمات من القران الكريم واريد ان أجعل البحث بالصفحة بحيث إّذا وضعت رقم الصفحة تجمع جميع البيانات في الخانة على اساس أنها صفحة واحدة وإذا انتقلت الى الصفحة الأخرى كذالك وهكذا الى اخر العمود اي اخر القران الكريم.

جزاكم الله خيرا ونفع بكم الاسلام والمسلمين

قران بالصفحات.xlsx

  • تمت الإجابة
قام بنشر

السلام عليكم ورحمة الله

يمكنك استخدام الكود التالى

Sub JnQuran()
Dim ws As Worksheet, LR As Long
Dim Arr(), Tmp, Tgrt As String, Reslt As String
Dim i As Long, j As Long, p As Long
Set ws = Sheets("حفص")
LR = ws.Range("E" & Rows.Count).End(3).Row
Tgrt = ws.Range("L17")
Arr = ws.Range("C2:E" & LR).Value
ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 1))
For i = 1 To UBound(Arr, 1)
If Arr(i, 3) = Tgrt Then
p = p + 1
Tmp(p, 1) = Arr(i, 2) & Arr(i, 1)
Reslt = Reslt & "" & Tmp(p, 1)
End If
Next
ws.Range("I3") = Reslt
End Sub

 

  • Like 3
  • Thanks 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information