بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'شرح كود جلب بيانات'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاته ممكن شرح لهذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$P$1" Then Dim s As Worksheet Dim t As Worksheet Dim v As Variant Dim r As Long Set s = Sheets("تسجيل البيانات") Set t = Sheets("الكشوف النهائية") v = t.Range("P1").Value If Not IsNumeric(v) Or IsEmpty(v) Then t.Range("B14").Resize(6, 4).ClearContents: Exit Sub r = (v * 6) + 5 t.Range("B14").Resize(6, 4).Value = s.Range("A" & r).Resize(6, 4).Value End If End Sub ملحوظه : هذا الكود قد تم رفعه لأخي الفاضل الأستاذ ياسر خليل في هذا الملف جلب بيانات3.rar لأني أريد أن تكون بيانات الجدول في الصفحة الأولى في وسط الصفحه وليس من بدايتها وجزاكم الله خيرا
