بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'حصر'.
تم العثور علي 1 نتيجه
-
السلام عليكم احتجت اليوم لحصر خلية معينة من كافة اوراق العمل فى ملف يحوي عدد كبير من اوراق العمل بتنسيق متكرر اي انها كلها متطابقة التنسيق مع اختلاف البيانات و كانت مثلا الخلية المستهدفة هي C3 و اريد تجميع ما بها من قيمة من كل اوراق العمل فى قائمة واحد تحوي اسم كل ورقة عمل و القيمة المناظرة فى الخلية c3 فتذكرت على الفور ملف مجمع البيانات الموجود فى مكتبة الموقع ، و الذي تم بحمد الله تنزيله ما يربو على 22 الف مرة و لكن وجدت ان الذاكرة قد خانتني فهذا التطبيق يقوم بالتجميع من عدة ملفات و ليس عدة اوراق عمل فى نفس الملف و يستخدم ورقة عمل واحدة فقط من كل ملف لذا قمت باعداد ملف جديد بسيط يقوم بالغرض ، و سأضيفه هنا خلال الدقائق القادمة باذن الله و يعتمد الكود التالي: Sub GetCellFrom_Allsheets() Dim n As Byte, R As String n = ActiveWorkbook.Sheets.Count R = InputBox("Type your Cel Ref Example C3 ", "Officena Cell Collector") For i = 1 To n - 1 ActiveCell.Value = ActiveWorkbook.Worksheets(i).Name ActiveCell.Offset(0, 1).Value = ActiveWorkbook.Worksheets(i).Range(R) ActiveCell.Offset(1, 0).Activate Next End Sub