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

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


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


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





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

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



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

أثارت هذه المشاركة إعجاب: mostah،



19-12-2019 04:00 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8427
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24584
الاعجاب : 2770
 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
يتابعهم : 11
يتابعونه : 0
قوة السمعة : 76
الاعجاب : 30
 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
المشاركات : 157
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 27
قوة السمعة : 1323
الاعجاب : 43
 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

أثارت هذه المشاركة إعجاب: YasserKhalil، حسين مامون، sobhi67،



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




20-12-2019 06:46 صباحا
مشاهدة مشاركة منفردة [5]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 447
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 20
قوة السمعة : 3474
الاعجاب : 329
 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


أثارت هذه المشاركة إعجاب: YasserKhalil،



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

أثارت هذه المشاركة إعجاب: YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مشكلة اغلاق او اخفاء ملفات الاكسيل المفتوحة عند اغلاق البرنامج المبتدأ
0 117 المبتدأ
مدموج :هل يمكن تسمية صفحات الاكسيل بأسماء موجودة فى عمود moneer
10 174 YasserKhalil
طرق تقييم المخزون بالاكسيل محمد وهبه محمد
1 126 محمد وهبه محمد
​ميزانية فى الاكسيل كاملة Mo.Saber
11 510 mostah
كود اخفاء ملف العمل فقط وليس تطبيق الاكسيل باكمله amaar
2 357 رمضان بكري

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


 







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

الساعة الآن 08:22 مساء

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