اذهب الي المحتوي
أوفيسنا

خليل خليل داماس

02 الأعضاء
  • Posts

    73
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

5 Neutral

عن العضو خليل خليل داماس

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    CFS_Manager

اخر الزوار

943 زياره للملف الشخصي
  1. السلام عليكم, وبارك الله بجهودكم, وموفقين سلفا سؤال إلى الأخوة الأفاضل: لدي نص, أريد كل جملة تنتهي ب "النقطة" تكون تلك الجملة في سطر واحد مثال: لدي هذا النص: As a result, farmers still got enough water, but the Little Aral started filling. Since 2005, the average depth has increased from 30 to 40 metres. The fish have started to return. So has the fishing industry. A lot of money has saved a small part of the Aral Sea. But if those planners had thought more carefully, perhaps they would have killed the project. If they had, this environmental disaster would never have happened! اريده أن يكون بهذا الشكل: As a result, farmers still got enough water, but the Little Aral started filling. Since 2005, the average depth has increased from 30 to 40 metres. The fish have started to return. So has the fishing industry. A lot of money has saved a small part of the Aral Sea. But if those planners had thought more carefully, perhaps they would have killed the project. If they had, this environmental disaster would never have happened! ولكم خالص الدعاء, وجزيل الشكر
  2. السلام عليكم أنا عملت ربط قاعدة بيانات أكسس مع Google sheets عن طريق ال ODBC ولكن الدرايفر غير مجاني شهر واحد فقط وهو: https://www.cdata.com/drivers/gsheets/odbc/ سؤالي: هل هناك درايفر مجاني غير ال "CDATA" يستطيع ربط قاعدة البيانات بال Google sheets ولكم جزيل الشكر
  3. السلام عليكم كل عام وأنتم بألف خير و ينعاد عليكم بالصحة و الخير و البركات ألف شكر لكل الردود : الأخ علي و الأستاذ محمد والاخ جعفر وبارك الله في جهودكم أود أن اعتذر من الأخ جعفر على تأخري في الرد عليه بالنسبة لكود الأخ جعفر جهد جبّار و بارك الله فيك انا عملت شي مختلف شوي بتمنى ينال إعجابكم والطريقة هي انه عند الحدث "SelectionChange" يتم استدعاء المفتاح {BS} او {BackSpace} و بالتالي الكود الذي طرحته انا يعمل وإليكم المثال بالمرفق أتمنى من الأخوة الأفاضل تجربة الملف ولكم كل الشكر و التقدير Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.valuse = "" Then MsgBox "Oops!" & vbCrLf & vbCrLf & "You can't leave the cell . . . . . . it's empty", vbCritical Target.Select End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Call SendKeys("{BS}", True) End Sub Test.rar
  4. بارك الله فيك أستاذ محمد وألف شكر ليك وللأستاذ علي حاول الإنتقال من خلية إلى أخرى ستجد ان الرسالة تظهر في حالة الخلية السابقة فارغة أو غير فارغة, وليس هذا المطلوب اما في نموذج أكسس فلا فقط عندما يكون الحقل الذي انت فيه فارغ وتحاول الإنتقال إلى حقل آخر تظهر رسالة انه يجب عليك إملاء الحقل ويعود التركيز إلى الحقل الفارغ حاولت مرارا ان اجد الحدث عند الخروج من خلية "Event on Exit" في ورقة العمل ولم اجد فقط هنالك Worksheet_Change worksheet_selectionchange لدي مثال آخر عندما أحدد النطاق في ورقة العمل وليكن العمود A:A وعند ادخال البيانات في هذا العمود بمجرد إدخال قيمة مكررة تظهر رسالة أنه قد تم إدخال هذه القيمة مسبقا فيتم الغاء القيمة المكررة ويرجع التركيز إلى الخلية التي كتبت فيها القيمة المكررة. وهنا ليس نموذج بل ورقة عمل في اكسل. ودمتم
  5. من فضلك اخ علي شوف في المرفقات ملف أكسس حاول الخروج من الحقل Text0 وهو فارغ وشكرا aa.rar
  6. ألف شكر لردك السريع وجزاك الله كل خير أخ علي طلبي هو : الحدث عند الخروج من حلية معينة مثلا: انا كنت في الخلية A1 فإذا أنا كتبت فيها شيئا حرف أو رقم لا تظهر اية رسائل تنبيه وإذا تركتها فارغة وانتقلت الى A2 او B1 تظهر رسالة تنبهني ان الخلية السابقة فارعة ويرجع التركيز إلى A1 ولكم كل الشكر
  7. السلام عليكم كل التوفيق لهذا المنتدى الرائع و القائمين عليه لدي سؤال: أريد رسالة تنبثق عند الخروج من خلية فارغة في ورقة العمل في إكسل عملت ملف مرفق ولكن هذا الملف يعمل عند تفريع الخلية و ليس عندما تكون هي بالأصل فارغة. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" Then MsgBox "Please fill the cell before you leave", vbCritical, "Warninng" Target.Select End If End Sub وشكرا مسبقا Test.rar
  8. سلمت يداك اله يجعلها في ميزان حسناتك
  9. شكرا لمرورك الطيب و رمضان كريم أنا قصدي من النطاق : مثلاّ عندي إثنان من ال TEXTBOX TEXT1 , TEXT2 فإذا كان TEXT1 ينتمي إلى المجال العددي من 50 حتى100 عندئذ يكون ال TEXT2 يساوي 80 و إذا كان ال TEXT1 خارج هذا المجال يكون ال TEXT2 يساوي10 هنا كيف يمكن التعبير برمجيا أن ال TEXT1 ينتمي إلى المجال العددي ليس المطلوب إظهار MsgBox و شكرا
  10. ألف شكر لإهتمامك أستاذ أبو خليل الله يجعلها في ميزان حسناتك بالمناسبة جربت هذا الكود , و ضبط معي On Error Resume Next If (Text2 > #8:30:00 AM#) Then Text3 = Text2 ElseIf (Text2 < #8:00:00 AM#) Then Text3 = Text2 ElseIf (Text2 >= #8:00:00 AM#) Then Text3 = #8:30:00 AM# ElseIf (Text2 <= #8:30:00 AM#) Then Text3 = #8:30:00 AM# End If ألف شكر لك مرة أخرى بصراحة لا أعرف برمجيا كيف يمكن التعبير عن هذه الجملة : "إذا كان المربع النصي, ينتمي إلى المجال العددي , افعل كذا, وإذا لا ,افعل غير ذلك ." ألف شكر إلك مرة أخرى
×
×
  • اضف...

Important Information