التحقق من الصحة

[obad65]

أخواني الأعزاء في المنتدى

السلام عليكم ورحمة الله وبركاته

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

الا أنه عند عمل نسخ لأي خلية ولصقها في عمود التاريخ يتم قبول تسجيلها وإن كانت أكبر من تاريخ اليوم

آمل من الجميع التكرم بايجاد حل لهذه المشكلة مع خالص الشكر والتقدير للجميع

validation.rar

[ابو القبطان]

اخي obad65

من المنطق انك بمجرد ما تنسخ اي خليه وتلصقها في خلية التاريخ ..فانت بذلك مسحت التحقق من الصحة الذي وضعته .. لذا ما الداعي لعملية النسخ هذه ؟؟ دع الخلايا تتقبل كتاباتك للتاريخ لتتحقق الصحة التي وضعتها.. كما يمكن إنشاء قائمة منسدله بالتواريخ لتختار منها بدلاً من كتابتها

مجرد رأي ..

[ياسر خليل أبو البراء]

الأخ new4a

من المنطق انك بمجرد ما تنسخ اي خليه وتلصقها في خلية التاريخ ..فانت بذلك مسحت التحقق من الصحة الذي وضعته

جزاك الله خيراً على هذه المعلومة الجديدة التي أغدقت بها علينا

ما الداعي لعملية النسخ هذه ؟؟ دع الخلايا تتقبل كتاباتك للتاريخ لتتحقق الصحة التي وضعتها.

الداعي على ما أعتقد أخي الحبيب أن البرنامج ربما يستخدمه الآخرون ويمكن أن يقوموا بعمليه النسخ عمدأ أو بدون قصد مما قد يؤدي كما قلت إلى مسح التحقق من الصحة

الأخ obad

قمت بالبحث والتنقيب إلى أن وجدت الحل

أولاً قم بتسمية الخلايا التي فيها "قواعد التحقق من الصحة" باسم ValidationRange فقط الخلايا التي بها تحقق من الصحة

ثانياً قم بفتح الـ VBE وانقر نقراً مزدوجاً على الورقة الأولى التي بها الخلايا المعنية والصق الكود التالي:

Private Sub Worksheet_Change(ByVal Target As Range)

    If HasValidation(Range("ValidationRange")) Then

        Exit Sub

    Else

        Application.Undo

        MsgBox "Êã ÅáÛÇÁ ÂÎÑ ÚãáíÉ ÞãÊ ÈåÇ." & _

        "ÅÐ ÃäåÇ ßÇäÊ Úáì æÔß ãÓÍ ÞæÇÚÏ ÇáÊÍÞÞ ãä ÇáÕÍÉ ¡ ãä ÝÖáß Þã ÈÇáßÊÇÈÉ íÏæíÇð.", vbCritical, "YasserKhalil"

    End If

End Sub


Private Function HasValidation(r) As Boolean

    On Error Resume Next

    x = r.Validation.Type

    If Err.Number = 0 Then HasValidation = True Else HasValidation = False

End Function

أرجو التجربة والإفادة

أخوك أبوالبراء

رابط دورة للمبتدئين في عالم البرمجة

http://www.officena.net/ib/index.php?showtopic=29207&st=0

[ياسر خليل أبو البراء]

ظهرت الرسالة في الكود بحروف غريبة فقمت يتغيير الكود كالتالي:

Private Sub Worksheet_Change(ByVal Target As Range)

    If HasValidation(Range("ValidationRange")) Then

        Exit Sub

    Else

        Application.Undo

        MsgBox "The operation has been cancelled." & _

        "As data validation rules were about to be deleted.", vbCritical, "YasserKhalil"

    End If

End Sub


Private Function HasValidation(r) As Boolean

    On Error Resume Next

    x = r.Validation.Type

    If Err.Number = 0 Then HasValidation = True Else HasValidation = False

End Function

[أ / محمد صالح]

أخي ياسر

موضوع ظهور اللغة العربية المنسوخة من vbe تحتاج فقط لنسخ ولصق النص في المفكرة notepad ثم نسخه منها إلى الموقع

وقد تم علاجها في أوفيس 2010

هذا من أوفيس 2010

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

MsgBox "عربي"

End Sub

وهذا بعد نسخه في المفكرة ونسخه من المفكرة إلى هنا

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

MsgBox "عربي"

End Sub

تم تعديل أغسطس 13, 2009 بواسطه mas123

[ياسر خليل أبو البراء]

جزاكم الله خيراً أخ محمد صالح على هذه المعلومات القيمة

أرجو الله أن يجعل أعملك صالحة ولوجهه خالصه

سؤال : تظهر هذه الحروف الغريبة الخاصة باللغة العربية في رسائل عبر الإيميل وفي بعض البرامج هل من حل لهذه المشكلة؟؟؟

أخوك أبو البراء

[أ / محمد صالح]

بالنسبة لظهور الحروف العربية كرموز غريبة في ايميل الياهو مثلا

يوجد أسفل كل رسالة مجموعة من الأزرار وهي

deleete * replay *forward * spam * move

ويوجد أسفل هذه الأزرار قائمة مكتوب فيها

select message encooding

اختر

utf-8

وإذا لم تضبط معك

اختر

windows-1256

حيث أن الترميز الأول هو الترميز العالمي والثاني هو ترميز اللغة العربية

كلامي هنا على الياهو كلاسيك

أما بالنسبة للياهو الجديد فيوجد قائمة في صورة زر في أعلى الرسالة more options ومنه اختار encooding

أخبرني هل حلت المشكلة بعد هذه المحاولات أم لا

أخوك

محمد صالح

[ياسر خليل أبو البراء]

أخي الحبيب new4a

إني أحبك في الله

أنا لم أقصد الإساءة أبدأ أو السخرية عندما علقت على ردك

والمعلومة فعلاً جديدة بالنسبة لي وعلى أساس هذه المعلومة بدأت أدرك المشكلة وأبحث لها عن حل

ولولا ذلك ما كنت تطرقت إلى حل المشكلة

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

أرجو ألا تسيء فهمي مرة أخرى فأنت من الأخوة الكرام المحببين إلى قلبي

أخوك أبو البراء