اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تنسيق ملف اكسيل بعدة شروط


Cobone

الردود الموصى بها

السلام عليكم

اقتباس

قواعد المشاركة فى الموقع

و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-
ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-
ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-
يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

أخي الكرام حاول كتابة عنوان مناسب و تجنب مخالفة قوانين المنتدى 

كي لا يعزف بعض الأعضاء عن إضافة الحلول لمشاركتك

رابط هذا التعليق
شارك

آسف والله جداً جداً لم أنتبه يا أخ صالح والعذر جداً 

وأنرت الصفحة أبا جودى لا عدمتك 

بالنسبة للعزيز علي بل إنتبهت لآخر ماتم إرساله ولا يمكنني فعلاً أن أطلب أفضل مما عملت أنت فسبحان من علمك و بالخلق زانك فشكراً لك جزيل الشكر بك تشرفت 

 

وإسمحلي أن أسألك رغبة مني في العلم عن الدالة أو الكود أو نوع التنسيق الذي استخدمته في الجدول الخاص بظهور التاريخ والوقت غير محدثان واختفائهما في حال فراغ الخلية المحدد لظهورهما 

 

و شكراً جزيلا

رابط هذا التعليق
شارك

هذا هو الكود المستخدم فى حدث الصفحة وموجود بالفعل داخل الملف 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A2:A1000")) Is Nothing Then
        VBA.Calendar = vbCalGreg

        If Len(Target.Cells(1).Value2) <> 0 Then
            Cells(Target.Row, 2).Resize(Target.Rows.Count).Value = Date
            Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = Now
        Else
            Cells(Target.Row, 2).Resize(Target.Rows.Count).Value = vbNullString
            Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = vbNullString
        End If
    End If
    If Not Application.Intersect(Target, Range("H2:H1000")) Is Nothing Then
        VBA.Calendar = vbCalGreg

        If Len(Target.Cells(1).Value2) <> 0 Then
            Cells(Target.Row, 6).Resize(Target.Rows.Count).Value = Date
            Cells(Target.Row, 7).Resize(Target.Rows.Count).Value = Now
        Else
            Cells(Target.Row, 6).Resize(Target.Rows.Count).Value = vbNullString
            Cells(Target.Row, 7).Resize(Target.Rows.Count).Value = vbNullString
        End If
    End If
End Sub

 

رابط هذا التعليق
شارك

جزاك الله كل خير في الدنيا والآخرة شكرا لك ولم أعمل حتى الآن بفضل الله ثم بتوجيهك 

 

ومن لايشكر الناس لا يشكر الله فشكراً لك جزيل الشكر 

 

ولنفترض اني اردت وهاذي اريد عملها بنفسي حتى لا تزعل علي انما اريد توجيهك فكل ما ارغبه هو المحافضة على الود بيننا 

 

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

والصفحة الثانية تضاف بها المعاملات الغير المنتهية حتى الآن والمتأخرة 

 

فهلا بطرف خيط شرحتلي الأمر أو أن هناك من يتفضل بذلك 

 

وماهي الأكواد المستخدمة

رابط هذا التعليق
شارك

السلام عليكم -من الأفضل طبعا رفع ملف وشرح كل المطلوب الجديد عليه 

فأنا أرى ان هذا الموضوع اخذ وقت زيادة عن اللازم وكما أرى في الردود ان استاذنا علي نفذ كل المطلوب من قبلك بكل دقة

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information