بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
19 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه حسام فوزى
-
-
هل يمكننى ربط جهاز البصمة بالاكسيل بدل برنامج
zk
شكرا
-
بارك الله فيك ربنا يبارك لحضرتك شكرا كتيير
-
السلام عليكم ورحمة الله
انا بسال بس سوالين مخلينى كارة الاكسيل
لية كل مارة بلاقى الملف كبببببر ومش علارف اية المشكلة انا عارف ممكن تكون حاجة غلط فى التكويد او المعالات مثلا
بس ولو فعلا كبيير اذاى اصغر حجمة مثلا لانة بيبقى فى الفتح بطئئئئئئئئئئئئئئئئئئ
هو ينفع اعمل للملف شير على الانترنت يبقى اكثر من مستخدم بيتعاملوا على نفس الملف ؟؟
شششكررا وجزاكم الله خير
-
السلام عليكم ورحمة الله
برجاء الافادة بخصوص شيت عايز اعمل عملية توزيع البيانات للشيت الاخر
شكرا
-
تم الحل
الف مليون شكرا على مجهود حضرتك استاذياسر خليل أبو البراء
حضرتك ماتعرفش فدتنى اد اية ربنا يكرمك
- 1
-
5 hours ago, ياسر خليل أبو البراء said:
أحوسو .. بتغير في الموضوع ليه .. حاول تركز على الطلب من البداية يا جميل
عموماً شوف الكود دا .. ضع الكود في حدث ورقة العمل :: هتقولي إزاي؟ هرد أقولك قلت لك قبل كدا ..
Private Sub Worksheet_Change(ByVal Target As Range) Dim arr As Variant Dim temp As Variant Dim x As Variant Dim i As Integer If Target.Cells.Count > 1 Then Exit Sub If Target.Column = 2 And Target.Row > 2 Then Application.EnableEvents = False arr = Array("X", "ص", "م") ReDim temp(1 To 23) x = Application.Match(Target.Value, arr, 0) If Not IsError(x) Then For i = 1 To UBound(temp) temp(i) = arr(x - 1) If x = 3 Then x = 1 Else x = x + 1 Next i End If Target.Offset(, 1).Resize(, UBound(temp)).Value = temp Application.EnableEvents = True End If End Sub
الف الف الف مليون شكر وربنا يكرمك
تسلملى عندى سوال بس رخم لو حبيت اضيف مثلا
x-ص-م-ع-ض
اضيفها منين
-
ودة للمثال الفعلى
برجاء افادتى وانا اسف على تعبك حضراتكم
شكرا
بحيث يكون لكل شيت بداية حتى يكمل باقى الحروف
-
شرح الملف لو انا بادا بادئ ب
1
يبقى
التالى
2
والتالى
3
وهكذا
لحد اخر التحديد z3
بدل ذلك يبقى
لو بدا ب مثلا
x
يبقى التالى ص
والتالى
م
والتالى
x
هكذا لكن لابد من بعد ال
x
ص
-
السلام عليكم ورحمة الله وبركاتة شكرا
جميعا واسف على التاخير كنت مسافر
انا حاولت جرب الاكواد ولكن ماشتغلتش معايا
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Address = "$A$2" Then Dim c As Range Range("B3").Value = Target.Value For Each c In Range("C3:Z3") If c.Offset(, -1) = 1 Then c.Value = 2 ElseIf c.Offset(, -1) = 2 Then c.Value = 3 ElseIf c.Offset(, -1) = 3 Then c.Value = 1 End If Next c End If End Sub
ولو امكن بدل 1 و 2 و 3
x - ص - م
شكرا
ياسر خليل أبو البراء
ابوعبدالواجد
-
-
الف الف الف مليون شكر
هو المطلوب
- 1
-
ارجو افادتى للاهمية ولكم جزيل الشكر
وضع البيانات الموجودة بشيت 1 و 2 و 3 فى شيت 4 بمجرد الضغط
على زر بدون اى فواصل
شكرا للاهمية
-
-
كيفية عمل حماية لشيت بة PIVOT TABLE بحيث لا يقدر عمل اضافة او تعديل
وامكانية عمل REFRESH فقط
لما بعمل حماية بيلغى عملية REFRESH
-
-
الف الف شكر بارك الله فيكم
عبد العزيز البسكري
ياسر العربى
ممكن بعد ازنكم حد يفيدنى بردة ازاى احزف العواميد والصفوف بهذا الشكل
شكرا
-
محفظة اكواد للفورم
في منتدى الاكسيل Excel
قام بنشر
The code in this project must be updated for use on 64-bit
systems. Please review and update Declare statements and then
mark them with the PtrSafe attribute.
استاذى دى رسالة بتطلعلى