شعبان فليفل
-
Posts
65 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه شعبان فليفل
-
-
بالفعل صحيحة
لكن الاستشارات تحتسب بالدقيقة والساعةوعند إجراء عملية التحويل يظهر الناتج 09:20:00
في حين كان المفترض أن يظهر الناتج 33:20:00هل في حل ليظهر الناتج بالشكل المطلوب وهو 33:20:00؟
-
لدي مشكلة في معادلة تحويل الدقائق إلى ساعات
فعندما يكون عدد الدقائق أقل من 24 ساعة يكون الناتج صحيحاً
أما في حال زيادة الدقائق عن 24 ساعة يكون الناتج خطاء
-
-
أ/ محمد صالح
جزاكم الله خيراً
أشكرك علي النصيحة
وإن شاء الله
أبدأ التعلم بالطرق الصحيحة
-
منتظر
-
حد يساعدني في الموضوع
يقولي حتي فكرة
ودا رابط الموضوع بطريقة شرح تانية
https://www.officena.net/ib/topic/76860-سؤال-بخصوص-الخلايا/#comment-492278
-
الأخ الفاضل حمادة عمر
لو تقدر تساعدني في هذه المشكلة
أكون شاكر ليك
دا رابط الموضوع
https://www.officena.net/ib/topic/76818-محتاج-دالة/#comment-492264
-
الأخ الفاضل حمادة عمر
طريقة رائعة في الشرح
كم أنت رائع ومبدع
جزاكم الله خيرا
- 1
-
سلمت يداك
أخلي الفاضل
حماده عمر
لو مفيش فيها إزعاج ليك
لو تشرحلي الكود كامل
أكون شاكر وممنون لحضرتك
-
الأخ الفاضل
حمادة عمر
لو أمكن الزر العائم لا يظهر إلا بعد إدخال اسم العميل
بمعني أنه لايظهر في الخلايا الفارغه
-
الأخ الفاضل
حمادة عمر
طريقة رائعة
سلمت يداك
طلب صغير
ممكن الزر العائم لا يظهر إلا بعد إدخال اسم العميل
ولو أمكن شرح للكود
علشان محتاج أطبق نفس الطريقة علي كود آخر
جزاكم الله خيراً
-
-
مفيش أي دالة تعمل الكلام ده
طب كودطب أي حاجه
-
الاخوة الأفاضل
رجاء لو مفيش طريقة أو حل
تعرفوني
-
-
جزاكم الله خيراً علي الرد
كل ما أحتاج إليه
إني بدل ما أضغط علي الخليه مرتين
علشان أعمل إضافة لعميل جديد
اعمل زر يقوم بنفس عمل الكود
-
أرجو المساعدة
من أصحاب الخبرة
منتظر الرد
-
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.EnableEvents = False Application.DisplayAlerts = False If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub lr = Sheets("Projects").Range("c" & Rows.Count).End(xlUp).Rows.Value Sheets("Sample").Copy after:=Sheets(Sheets.Count) On Error Resume Next x = Len(Sheets(lr).Name) If IsEmpty(x) Then ActiveSheet.Name = lr ActiveSheet.Range("C2") = lr Else Answer = MsgBox("This sheet is allredy exit" & Chr(10) & "do you wnat to replace it?", vbYesNo) If Answer = 6 Then Sheets(lr).Delete ActiveSheet.Name = lr ActiveSheet.Range("C2") = lr Else ActiveSheet.Delete End If End If Application.EnableEvents = True Application.DisplayAlerts = True End Sub
برجاء المساعدة
في تحويل هذا الكود إلي زر
Projects الكود بالملف المرفق في صفحة الـ
-
السلام عليكم
أ/ سليملو أمكن شرح بسيط للكود
لكي أتمكن من تعديل بعض الخلايا
-
أرجوا المساعده
لحل تلك المشكلة
فهي تعيق عملي علي الملف
-
السلام عليكم أ.سليم
أتعبناك أخي العزيز معنا
ولا تعمل إلا عند فتح الملف من جديد Accounts لكن ظهرت مشكلة بالكود وهي ان جميع الأكواد تعطل عند مسح أحد خلايا العمود رقم 3 من صحفة ال
فما هي المشكلة
-
الشيت يعمل كالآتي
C في العمود Accounts أي إضافة في صفحة
Sample يفتح صفحة جديدة بنفس الاسم يتم نسخها من صفحة
B2 ويكتب اسم العميل في الصفحة الجديدة في الخليفةB في العمود Projects كما يتم كتابة اسم العميل في صفحة
المشكلة
لبعض العملاء لا يعمل الكود Cut أو عمل Accounts عند مسح عميل من صفحة
قد تكون المشكلة كثرة الصفحات حيث أنها تزيد عن 70
وقد تكون زيادة الأكواد ففي كل صفحة من الـ 70 بها أكود حماية وكتابة التاريخ
وقد تكون كثرة الدوال فكل صفحة من الـ 70 بها دوال كثيرة
-
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Application.DisplayAlerts = False If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub lr = Sheets("Accounts").Range("c" & Rows.Count).End(xlUp).Rows.Value Sheets("Sample").Copy after:=Sheets(Sheets.Count) On Error Resume Next x = Len(Sheets(lr).Name) If IsEmpty(x) Then ActiveSheet.Name = lr ActiveSheet.Range("b2") = lr Else Answer = MsgBox("This sheet is allredy exit" & Chr(10) & "do you wnat to replace it?", vbYesNo) If Answer = 6 Then Sheets(lr).Delete ActiveSheet.Name = lr ActiveSheet.Range("b2") = lr Else ActiveSheet.Delete End If End If Application.EnableEvents = True Application.DisplayAlerts = True End Sub
هذا الكود أحيانا يعمل وأخري لا يعمل
ما المشكلة
المطلوب تحويله إلي زر
-
سلمت يداك
دائماً مبدع أستاذنا الفاضل
جزاك الله خيراً وبارك فيك
وأثابك الجنة إن شاء الله
وجعل هذا العلم في ميزان حسناتك
- 1
إصلاح معادلة جمع الوقت إذا زادت الدقائق عن 24 ساعة
في منتدى الاكسيل Excel
قام بنشر
جزاكم الله عنا خيراً
بالفعل كدا ضبطت معي