obad65 قام بنشر أغسطس 12, 2009 قام بنشر أغسطس 12, 2009 أخواني الأعزاء في المنتدى السلام عليكم ورحمة الله وبركاته أرجو مساعدتي في حل المشكلة حيث أنه في عمود التاريخ قمت بعمل تحقق من الصحة بأن يكون التاريخ أكبر من تاريخ اليوم الا أنه عند عمل نسخ لأي خلية ولصقها في عمود التاريخ يتم قبول تسجيلها وإن كانت أكبر من تاريخ اليوم آمل من الجميع التكرم بايجاد حل لهذه المشكلة مع خالص الشكر والتقدير للجميع validation.rar
ابو القبطان قام بنشر أغسطس 12, 2009 قام بنشر أغسطس 12, 2009 اخي obad65 من المنطق انك بمجرد ما تنسخ اي خليه وتلصقها في خلية التاريخ ..فانت بذلك مسحت التحقق من الصحة الذي وضعته .. لذا ما الداعي لعملية النسخ هذه ؟؟ دع الخلايا تتقبل كتاباتك للتاريخ لتتحقق الصحة التي وضعتها.. كما يمكن إنشاء قائمة منسدله بالتواريخ لتختار منها بدلاً من كتابتها مجرد رأي ..
ياسر خليل أبو البراء قام بنشر أغسطس 13, 2009 قام بنشر أغسطس 13, 2009 الأخ 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
ياسر خليل أبو البراء قام بنشر أغسطس 13, 2009 قام بنشر أغسطس 13, 2009 ظهرت الرسالة في الكود بحروف غريبة فقمت يتغيير الكود كالتالي: 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
أ / محمد صالح قام بنشر أغسطس 13, 2009 قام بنشر أغسطس 13, 2009 (معدل) أخي ياسر موضوع ظهور اللغة العربية المنسوخة من 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 1
ياسر خليل أبو البراء قام بنشر أغسطس 13, 2009 قام بنشر أغسطس 13, 2009 جزاكم الله خيراً أخ محمد صالح على هذه المعلومات القيمة أرجو الله أن يجعل أعملك صالحة ولوجهه خالصه سؤال : تظهر هذه الحروف الغريبة الخاصة باللغة العربية في رسائل عبر الإيميل وفي بعض البرامج هل من حل لهذه المشكلة؟؟؟ أخوك أبو البراء
أ / محمد صالح قام بنشر أغسطس 13, 2009 قام بنشر أغسطس 13, 2009 بالنسبة لظهور الحروف العربية كرموز غريبة في ايميل الياهو مثلا يوجد أسفل كل رسالة مجموعة من الأزرار وهي deleete * replay *forward * spam * move ويوجد أسفل هذه الأزرار قائمة مكتوب فيها select message encooding اختر utf-8 وإذا لم تضبط معك اختر windows-1256 حيث أن الترميز الأول هو الترميز العالمي والثاني هو ترميز اللغة العربية كلامي هنا على الياهو كلاسيك أما بالنسبة للياهو الجديد فيوجد قائمة في صورة زر في أعلى الرسالة more options ومنه اختار encooding أخبرني هل حلت المشكلة بعد هذه المحاولات أم لا أخوك محمد صالح 1
ياسر خليل أبو البراء قام بنشر أغسطس 14, 2009 قام بنشر أغسطس 14, 2009 أخي الحبيب new4a إني أحبك في الله أنا لم أقصد الإساءة أبدأ أو السخرية عندما علقت على ردك والمعلومة فعلاً جديدة بالنسبة لي وعلى أساس هذه المعلومة بدأت أدرك المشكلة وأبحث لها عن حل ولولا ذلك ما كنت تطرقت إلى حل المشكلة فلا شك في أن لك فضل كبير في حل المشكلة بمجرد المعلومة التي استفدتها منك أرجو ألا تسيء فهمي مرة أخرى فأنت من الأخوة الكرام المحببين إلى قلبي أخوك أبو البراء
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.