بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
الاقسام
-
قسم تطبيقات و لغات مايكروسوفت
-
- 14,625
- مشاركات
-
- طلب خاص من اخوانى
- بواسطه حربي العنزي
-
- 327,779
- مشاركات
-
- 173,266
- مشاركات
-
- 72
- مشاركات
-
- 14,963
- مشاركات
-
- 5,703
- مشاركات
-
- 1,767
- مشاركات
-
- 243
- مشاركات
-
- 393
- مشاركات
-
- 970
- مشاركات
-
- 89
- مشاركات
-
- تحويل نموذج إلى صفحة ويب
- بواسطه خزاني
-
- 35
- مشاركات
-
- 31
- مشاركات
-
- 6
- مشاركات
-
- 27
- مشاركات
-
- 557
- مشاركات
-
- 108
- مشاركات
-
- 11
- مشاركات
-
-
الغات و أدوات البرمجة الأخرى
-
- 573
- مشاركات
-
- 80
- مشاركات
-
- طلب برامح حاهزة
- بواسطه billel25
-
- 42
- مشاركات
-
- تطوير موقع الكتروني
- بواسطه احمد دولار
-
- 64
- مشاركات
-
-
أقسام الإدارة و إدارة المشاريع و تطبيقاتها
-
- 356
- مشاركات
-
- 25
- مشاركات
-
- 3,431
- مشاركات
-
- 124
- مشاركات
-
- 114
- مشاركات
-
- مهارات التخطيط
- بواسطه binshehab
-
-
البحث العلمي و علوم البيانات
-
- 23
- مشاركات
-
- كتابة بحوث جامعية
- بواسطه engashora
-
- 22
- مشاركات
-
- إدارة أصحاب المصلحة
- بواسطه union69
-
- 12
- مشاركات
-
- تحليل البيانات
- بواسطه ahmed su
-
- 28
- مشاركات
-
- 5
- مشاركات
-
- 7
- مشاركات
-
- 9
- مشاركات
-
-
القسم العام
-
- 1
- مشاركه
-
- نرحب بزوار الموقع
- بواسطه محمد طاهر
-
-
احصائيات المنتدى
-
اجمالي الموضوعات80,765
-
اجمالي المشاركات558,445
-
-
احصائيات الاعضاء
-
مشاركات
-
بواسطه yosif ahmad · قام بنشر
بارك الله بيك استاذة ساجدة -
بواسطه Mohamed Rabi · قام بنشر
السلام عليكم لدي كود html يحتوي علي عناصر بها بيانات و اريده عرضه ك بيانات في excel ما هي الطريقة؟؟ و شكراً🙂 html code.xlsx -
أستاذ haiderkh أين الضغط على الإعجاب لهذا الكود الممتاز ؟!!!💙 -
بواسطه ابراهيم الحداد · قام بنشر
السلام عليكم ورحمة الله استخدم الكود التالى Sub DistGroups() Dim ws As Worksheet, LR As Long Dim i As Integer, j As Integer Dim n As Integer, x As Integer, y As Integer Dim p As Integer, s As Integer Set ws = Sheets("ورقة1") Application.ScreenUpdating = False Range("F2:I" & Range("F" & Rows.Count).End(xlUp).Row + 1).ClearContents LR = ws.Range("B" & Rows.Count).End(xlUp).Row x = WorksheetFunction.CountA(ws.Range("B2:B" & LR)) n = ws.Range("D2").Value y = Int(x / n) z = x Mod n If z > 0 Then n = n + 1 Else n = n End If p = 2 Do While p <= LR For i = 1 To n For j = 1 To y s = j + ((i - 1) * y) + 1 If p = s Then ws.Cells(j + 1, i + 5) = ws.Cells(p, 2) End If Next Next p = p + 1 Loop Application.ScreenUpdating = True End Sub -
-
-
أحدث الموضوعات
-
-
اعلي المشاركون تقييماً
-
1
-
2
-
3
-
4
-
5
-
6
-
7
-
8
-
9
-
10
-
-
اعلي التحميلات من مكتبة الموقع
-
-
مدونات فرق الموقع
-
-
المتواجدين الان (اضغط هنا للقائمه الكامله)
