Forums
-
MS Applications & Languages
-
- 88
- posts
-
- 899
- posts
-
- 14.8k
- posts
-
- 335.6k
- posts
-
- 187.8k
- posts
-
- 103
- posts
-
- 15.4k
- posts
-
- 5.8k
- posts
-
- 1.8k
- posts
-
- 235
- posts
-
- 398
- posts
-
- 964
- posts
-
- 87
- posts
-
- 35
- posts
-
- 31
- posts
-
- 6
- posts
-
- 28
- posts
-
- 574
- posts
-
- 151
- posts
-
- 17
- posts
-
- 2
- posts
-
-
Other Programming Languages and Tools
-
- 551
- posts
-
- 80
- posts
-
- 48
- posts
-
- المعاملات Operators
- By Guest ruigreerndert,
-
- 33
- posts
-
-
Management Topics and Software
-
- 369
- posts
-
- 30
- posts
-
- 143
- posts
-
- 124
- posts
-
- 114
- posts
-
-
Scientific Research and Data Science
-
- 22
- posts
-
- 28
- posts
-
- 15
- posts
-
- 29
- posts
-
- 5
- posts
-
- 11
- posts
-
- 21
- posts
-
-
General Section
-
- 1
- post
-
- 431
- posts
-
- No posts here yet
-
- 125
- posts
-
-
Forum Statistics
-
Total Topics81,783
-
Total Posts578,467
-
-
Member Statistics
-
Posts
-
By محمود حاتم احمد · Posted
مثال انا القاعدة عندى على برتشن الشبكة z:/ والبرنامج على برتشن d:/ انا كنت عاوز البرنامج يعمل نسخة احطياتية من قاعدة الشبكة ويحطها فى ملف على البرتشن d: انا حاليا اطريت اخلى البرنامج على نفس برتشن الشبكة فى جهازى فقط وانقل النسخ الاحطياتية منول وبطريقة الاخ حسام استطعت تفادى طريقة النقل منول وعذرا للاطالة A.accdb -
اريد ان اعمل بحث هل يوجد جملة تم تكرارها او كلمة مكررة مرتين او ما شابه ذلك Nox Vidmate VLC -
وبإمكانك كذلك وضع المؤشر على المربعات وسيظهر اسم الخط المستخدم في شريط الخط تأكد من وجوده في قائمة الخطوط أو أعد تحميله أو غير الخط.. Speed Test
-
By سليم حاصبيا · Posted
هذا الكود Sub test1() Dim sh As Worksheet Dim Ro As Long Dim i%, t% Set sh = Sheets("test") With sh Ro = .Range("G" & Rows.Count).End(3).Row .Range("B31:C39").ClearContents If Ro < 51 Then Exit Sub t = 31 For i = 51 To Ro If .Range("G" & i).Value = "YES" Then Range("B" & t).Value = _ Range("B" & i).Value t = t + 1 If t >= 40 Then Exit For End If Next i End With End Sub -
By سليم حاصبيا · Posted
لمعرفة ماذا تعني End(4) جرب هذا السطر من ااكود MsgBox .Range("A1", Range("A1").End(4)).Address بالنسية الصفحة الثّانية هذا الكود Option Explicit Sub sum_Of_JL_Sh_2() Dim LR%, t%, m% With Sheets("Sheet2") LR = .Range("j" & Rows.Count).End(xlUp).Row For t = 5 To LR .Cells(t, "j") = _ IIf(Application.CountA(.Cells(t, "J") _ .Resize(, 3)) = 1, vbNullString, .Cells(t, "j")) Next m = .Range("j5", Range("j5").End(4)).Rows.Count t = 5 Do While t < LR With .Cells(t, "J").Resize(m, 3) .Cells(m, 1).Offset(2) = _ Application.sum(.Value) End With t = t + m + 3 Loop End With End Sub الملف مرفق My_test.xlsm
-
-
أحدث الموضوعات
-
-
Popular Contributors
-
1
-
2
-
3
-
4
-
5
-
6
-
7
-
8
-
9
-
10
-
-
Top Downloads
-
-
مدونات فرق الموقع
-
-
Who's Online (See full list)
