البحث في الموقع

نظرا لأن برنامج اكسل لا يقدم خيار المعاينة على اليوزرفورم أردت أن أقدم فكرة للزملاء الكرام و أعضاء المنتدى الاعزاء الفكرة تعتمد على أخذ صورة للنطاق المراد طباعته على القرص و اعادة تحميلها على مربع الصورة مهم جدا : انشاء مجلد لحفظ الصورة على c باسم raed ثم شغل الملف المرفق C:\raed يمكنك تغيير القرص و اسم المجلد في الكود كما تشاء ثم غير اسم المحلد حسب الكود Private Sub CommandButton1_Click() Const RaedN As String = "C:\raed\officena.jpg" Dim rng As Range Dim shtTemp As Worksheet Dim chtTemp As Chart Application.ScreenUpdating = False Set rng = Worksheets("Sheet1").Range("b2:h11") Set shtTemp = Worksheets.Add Charts.Add ActiveChart.Location Where:=xlLocationAsObject, Name:=shtTemp.Name Set chtTemp = ActiveChart rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture chtTemp.Paste chtTemp.Export Filename:=RaedN Me.Image1.Picture = LoadPicture(RaedN) Application.DisplayAlerts = False shtTemp.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub preview on userform.xlsm

السلام عليكم أخوتي الكرام أعضاء منتدى أوفيسنا ، مع اقتراب شهر مارس 2018 ، حيث يقترب موقعكم أوفيسنا www.officena.net من إكمال عامه الخامس عشر و يقترب عدد المشاركات من النصف مليون مشاركة أغلبها في مجال مايكروسوفت أوفيس، ويقترب عدد الأعضاء من 160 ألف عضو، و بذلك يكون على حد علمي اكبر منتدى متخصص في مجال دعم و تطوير الاوفيس بتطبيقاته المختلفة باللغة العربية . و لله الفضل و المنة أولا و أخيرا ، ثم لجهود عدد كبير جدا من الاخوة الافاضل ، منهم من رحل عنا ( نسأل الله تعالى أن يتغمدهم برجمته و أن يبارك في مشاركاتهم كصدقة جارية من باب علم ينتفع به ) ومنهم من غاب عنا و منهم من مازال بيننا مستمر العطاء دون كلل و منهم من يطل علينا بإطلالة جميلة تثلج صدورنا من وقت لآخر و تذكرنا به و بما قدم من فائدة. منهم من انضم لفريق الموقع الإداري و منهم من فضل المشاركة و العطاء دون الانضمام ، أسماء كثيرة تمر الأن أمامي في شريط طويل من الذكريات عمره خمسة عشر عاما من عطاء و بذل الكثير من الأخوة كانوا و مازالوا امثلة عملية على بذل الوقت والجهد العلم و مشاركة المعرفة دون انتظار مقابل او تقدير أو عائد سوي أجر نشر العلم و حب مساعدة الغير. و اعترف دائما بتقصيري في تقديم التكريم و التقدير و الشكر الكافي لهم ، ربما لقناعتي انهم رجال فوق هذا التكريم او الشكر و ان ما قدموه و يقدمونه الي اليوم لا يوازيه درجات او عبارات شكر و اعرف ان هذا تقصير من جانبي و لكنه للأسف واقع أقر به و ربما أثر سلبا على بعض الأخوة بمختلف درجات مساهماتهم و مشاركتهم و اعتذر منهم لذلك. إن التغيير سنة الحياة ، و أن المرونة و التطوير شيء لابد منه، و عليه فان طريقة عمل الموقع و السياسات المطبقة به يمكن ان تتغير مع مرور الوقت بناء على المستجدات و المعطيات الجديدة و ذلك بهدف تعظيم الفائدة من الموقع و تطوير تنظيم العمل به. و اكمال خمسة عشر عاما قد يكون توقيت مناسب لتطوير كبير في أسلوب و سياسات و طريفة العمل بالموقع. جزء من التغيير كان تنفيذ التوسع في الأقسام بناء على طلب عدد من الاخوة ، بعد ان ظل الموقع للأعوام طويلة قاصرا على التخصص بصفة أساسية في تطبيقات الاوفيس المختلفة قد كنت انا شخصيا من مؤيدي ذلك، و لكن تم تنفيذ التوسع مؤخرا نزولا على رغبة و رأي عدد من الأخوة و بالفعل بدأ بعض هذه الأقسام الجديدة في النشاط ، و البعض مازال لم ينشط بعد ، و لكن لن نتسرع في الحكم ، و سنقوم بتقييم الموقف اما بعد شهر رمضان أو ربما بعد عام كامل باذن الله تعالى لنقرر سويا الأقسام الجديدة التي سنحتفظ لها و تلك التي ستحال الي التقاعد من بين الأقسام المضافة حديثاً. كنت انوي الاستفاضة في بعض المواضيع الأخرى في حوار مفتوح من القلب ، و لكن أجلت ذلك و رأيت الفائدة الأكبر في أن اترك الموضوع مفتوحا لتجميع أي اقتراحات ترونها تهدف لتطوير العمل بالموقع و زيادة الاستفادة منه لدراستها و تنفيذ ما هو مجدى منها تباعا بإذن الله تعالى خلال الفترة القادمة. في انتظار مشاركتكم الفاعلة كخطوة أولى في سبيل العمل في مشروع محتمل لتطوير العمل بالموقع و الذي سنسميه اذا تم اطلاقة بإذن الله تعالى "مشروع تطوير أوفيسنا ٢٠١٨" و الذي ستساعد ملاحظاتكم و اقتراحاتكم في اعداد وثائق الأعمال ثم ميثاق المشروع الخاص به. و بأذن الله تعالى أفكر في نشر وثائق المشروع تباعا كمثال عملي يستفيد منه من يرغب في تعلم إدارة مشاريع التطوير في قسم إدارة المشاريع بالمنتدى و هذا سيتحدد بناء على حجم و نوعية ما سيأتي من أفكار لتطوير العمل بالموقع. أرجو ان تكون المقترحات التطويرية عملية وواضحة و مختصرة في الوقت الحالي، و الا تتعدى الردود إضافة اقتراحات محددة دون اقتباس ليكون الموضوع مركزا و عملياً ، و لا حدود لمجال معين من الاقتراحات فنرحب مقترحاتكم في أي اتجاه دون قيود طالها انكم ترون أنها تصب في تطوير العمل و تعظيم الاستفادة من الموقع. و اعتذر مقدما لحذف أي مشاركات قد تخرج عن حدود الهدف من الموضوع كعبارات الثناء او اللوم فالمجال مفتوح في قسم الاقتراحات و الملاحظات لإضافة أي ملاحظات أخرى قد تخرج عن نطاق الهدف من هذا الموضوع. و لنعتبر هذا المشروع جلسة عصف ذهني افتراضية موسعة لتحديد مبدئي لفرص التطوير بالموقع و الجميع مدعوون للمشاركة دون قيود. يشارك بها فقط من يرغب بصدق في تطوير العمل بالموقع و تعظيم الاستفادة منه و استدامته . مرة أخرى في انتظار مقترحاتكم ، و رجى الرد في هذا الموضوع بالمنتدى و ليس على وسائل التواصل الاجتماعي المختلفة لتسهيل حصر الاقتراحات. وأرجو ان تكون المقترحات عملية وواضحة و الا تتعدى الردود إضافة اقتراحات محددة دون اقتباس ليكون الموضوع مركزا و عملياً

السلام عليكم احبابي - عندي برنامج شؤون موظفين يعمل على شبكة داخلية بشكل يومي من قبل مجموعة من المستخدمين عن طريق وضع شورت كت على اجهزتهم - انا بطور في البرنامج بشكل شبة يومي طبعا على نسخة خارجية - طبعا بعد ما اطور عليها بقوم بنسخها فوق القديمة استبدال يعني وعشان اعمل كدة لازم اطلب من الجميع اغلاق البرنامج عشان اقدر اضع النسخة المطورة بدون حدوث مشاكل . السؤال بقى : هل عشان كل مرة احط نسخة مطورة من البرنامج لازم اطلب من الجميع اغلاق البرنامج ، ولو حصل وحطيت النسجة بدون ما حد يقفل الدنيا تتبهدل ومحدش يعرف يفتخها تاني ويحصل مشاكل فيها ؟ هل فيه طريقة سهله ؟ وجزاكم الله خير