أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil كود للطباعة علي طابعتين في نفس الوقت اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





طلب كود في الاكسيل

اريد كود من خلاله يتم كتابة كلمة الحمد لله كل 25 سطر في العمود R



18-12-2019 09:17 مساء
sobhi67
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-05-2019
رقم العضوية : 13123
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 15-8-1967
قوة السمعة : 76
الاعجاب : 0
 offline 
اريد كود من خلاله يتم كتابة كلمة الحمد لله كل 25 سطر في العمود R




19-12-2019 04:00 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8665
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25532
الاعجاب : 198
 offline 
look/images/icons/i1.gif طلب كود في الاكسيل
السلام عليكم أخي الكريم صبحي
الأفضل في طرح أي موضوع أن يرفق ملف بشكل النتائج المتوقعة ..
ماذا تقصد بكل 25 سطر .. إلى أي حد تريد وضع كلمة "الحمد لله" ..
عموماً سأفترض أن بداية النطاق المطلوب وضع كلمة "الحمد لله" فيه هو الخلية R1 وتريد الكلمة بامتداد 25 سطر (والسطر في الإكسيل يعبر عنه بكلمة صف وليس سطر)
فالكود سيكون بهذا الشكل
Sub Test()
    Range("R1").Resize(25).Value = "الحمد لله"
End Sub




19-12-2019 08:18 مساء
مشاهدة مشاركة منفردة [2]
sobhi67
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-05-2019
رقم العضوية : 13123
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 15-8-1967
قوة السمعة : 76
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب كود في الاكسيل
الأستاذ ياسر بارك الله فيك.مااريده بعد 25 صف في العمود R يكتب في الخلية R26 كلمة الحمد لله ثم كتابة الكلمة بعد عد 25 صف وهكذا لعدد 1000 صف اي تكتب الكلمة في هذا المدي مثلا تكتب في الخلية R26 ثم R51 ثم R76 وهكذا ..... 




20-12-2019 12:28 صباحا
مشاهدة مشاركة منفردة [3]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 166
الجنس : ذكر
الدعوات : 1
قوة السمعة : 1395
الاعجاب : 20
 offline 
look/images/icons/i1.gif طلب كود في الاكسيل
السلام عليكم ورحمة الله
استخدم هذا الكود
Sub AddWord()
Dim Word As String
Dim i As Long
Word = "الحمد لله"
i = 26
Do While i <= 1001
Cells(i, "R") = Word
i = i + 25
Loop
End Sub




20-12-2019 01:03 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8665
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25532
الاعجاب : 198
 offline 
look/images/icons/i1.gif طلب كود في الاكسيل
بارك الله فيك أخي الغالي زيزو وجزيت خيراً
مفتقدين تواجدك معنا ..لعل المانع خير إن شاء الله




20-12-2019 06:46 صباحا
مشاهدة مشاركة منفردة [5]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 501
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3854
الاعجاب : 84
 offline 
look/images/icons/i1.gif طلب كود في الاكسيل
زيادة في اثراء الموضوع هذا الكود

Sub My_Code()
Dim y%: y = 25
Range("R:R").ClearContents
Do While y < 1000
Range("R1").Offset(y) = "الحمد لله"
y = y + 25
Loop
End Sub





20-12-2019 09:36 صباحا
مشاهدة مشاركة منفردة [6]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب كود في الاكسيل
بارك الله فيكم جميعا 
والحمد لله على تواجدي معكم 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الدرس السادس لتعليم الاكسيل moneer
5 222 moneer
تغير امتداد ملف الاكسيل الي exe amaar
0 120 amaar
مشكلة اغلاق او اخفاء ملفات الاكسيل المفتوحة عند اغلاق البرنامج المبتدأ
0 242 المبتدأ
مدموج :هل يمكن تسمية صفحات الاكسيل بأسماء موجودة فى عمود moneer
10 332 YasserKhalil
طرق تقييم المخزون بالاكسيل محمد وهبه محمد
1 205 محمد وهبه محمد

الكلمات الدلالية
الاكسيل ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 01:51 مساء

أعلن هنا
أعلن هنا
أعلن هنا