محمد طاهر عرفه

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

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

السلام عليكم أخوتي الكرام كل عام و أنتم بخير :( أعاده الله علينا و علي الأمة الاسلامية بالخير و اليمن و البركات

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

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

السلام عليكم جزاك الله خيرا و بالنسبة للاخفاء و الاظهار أقترح تعديل الكود ليكون مجال تطبيقه هو أي خلايا مختارة : Sub hideselsctionrow() Selection.EntireRow.Hidden = True End Sub Sub hideselectioncolumn() Selection.EntireColumn.Hidden = True End Sub Sub showselsctionrow() Selection.EntireRow.Hidden = False End Sub Sub showselectioncolumn() Selection.EntireColumn.Hidden = False End Sub و للذهاب الي اول خلية فى ورقة العمل و الي اخر خلية فى العمود و آخر خلية فى الصف و أول خلية فى العمود و آول خلية فى الصف Sub gohome() Range("A1").Select End Sub Sub gotolastincolumn() Selection.End(xlDown).Select End Sub Sub gotolastinrow() Selection.End(xlToRight).Select End Sub Sub gotoFirstincolumn() Selection.End(xlUp).Select End Sub Sub gotoFirstinrow() Selection.End(xlToLeft).Select End Sub و هذه هي المناظرة ل ctr+home end + الأسهم

السلام عليكم أخي الكريم ، نرجو عدم توجيه السؤال الي شخص بعينه حتي و ان كان صاحب المشاركة المشار اليها - تم تعديل الموضوع و ذلك تحقيقا لقواعد المشاركة اولا و ثانيا حتي لا تحرم نفسك و تحرمنا من اجابة اقضل من شخص آخر راجع مثال الاخ ابو هادي فى هذا الموضوع : http://www.officena.net/ib/index.php?showtopic=419 مع شكري و تقديري

موضوع مرتبط http://www.officena.net/ib/index.php?showtopic=419

احد الاقتراحات هو تغيير لون الفونت دوريا Sub runcolorchanger() For i = 1 To 50 Cells(1, 3).Font.ColorIndex = i Start = Timer ' Set start time. Do While Timer < Start + 1 DoEvents ' Yield to other processes. Loop Next i End Sub و يمكن تشغبلها مع بدأ الفتح و مع حدث تعديل فى ورقة العمل مثلا بحسب ما يناسبك و الكود السابق يقوك بتغيير لون الخط دوريا لاول 50 لون و الغرض من اقحام ال Timer هو توقيف الكود لمدة ثانية واحدة مع كل تغيير حتي يكون التغيير ظاهرا و الا سيغير اللون دون ان نستطيع ملاحظة ذلك colorcell.rar

السلام عليكم أهلا وسهلا أخي العزيز :d بالنسبة للملف هو به ماكرو فقط

جرب اضافة section جديد قبل الصفحة insert break section breack و حدد المناسب

السلام عليكم نشكرك اخي الكريم :( البرنامج المرفق هو احد ادوات تطوير الاوفيس باستخدام الفيجوال استوديو و قد يكون اهم ما به هو معالج الحزم package wizard و الذي يمكنك من عمل setup للاكسيس و ايضا تحميل ال run time فى نفس الحزمة ليعمل الاكسيس علي الجهاز و صراحة لم اجربه و لكن هذه وصلة لشرحه من موقع ميكروسوفت من هنــــــــــا

السلام عليكم كما تعرفون فى الاستخدام العادي للاكسيل هناك نمطان للاستخدام من ناحية اظهار المعادلات اما ان تقول الخلية A1 $A1 $A$1 بحسب ما تريد تعرف الاشارة الي الصف و العمود او كلاهما ان يكون مطلقا فاذا اردت الاشارة الي الخلية الاولي من ورقة العمل يكون باحدي الطرق الثلاث السابقة و هذا هو النمط الافتراض لاظهار المعادلات و اما أن تستخدم - النمط المطلق - الذي لا يرتبط بحروف و انما يكون التعامل مع عدد الصفوف و الاعمدة و موقع الخلية او المجال المشار اليه بالنسبة للخلية لاتي تكتب فيها المعادلة و النمط الاخر و الذي ليس بالافتراضي و انما لتفعيله نختار Tools options setting general reference style R1C1 و الذي ستختلف طريقة كتابة المعادلة فيه فتصبح متناسبة مع موقع الخلية التي تكتب المعادلة فيها بالنسبة للخلية او المجال المشار اليه فللاشارة الي الخلية a1 اذا كنا فى الخلية b1 سنكتب : =RC[-1] أي الخلية التي تبعد خلية واحدة الي اليسار افقيا و اذا كنا فى الخلية b2 او الخلية الثانية فى العمود الثاني سنكتب =R[-1]C[-1] و للاشارة من نفس الخلية الثانية فى العمود الثاني الي الخلية الثالثة فى العمود الثالث سنكتب =R[1]C[1] اي الخلية التي تبعد خلية لليمين و خلية لاسفل و هكذا ، و طبعا لا نحتاج فى اغلب الاحوال الي الكتابة و لكن ننتقي الخلية و تظهر المعادلات بهذه الطريقة اذا اردنا ان يكون الاظهار بهذا النمط و ما سبق هو من ناحية كتابة المعادلات ، اما بالنسبة للبرمجة : ----------------------------------------------------------------- الفائدة الحقيقة لهذا النمط المطلق تأتي فى البرمجة المتقدمة بعض الشيء ، اذا تحتاح الي ادخال معادلات بالكود فى خلايا محددة متغيرة الموقع و تكون هذه المعادلات بها اشارات الي مجال معين او خلية معينة تبعد عدد متغير من الاعمدةو الصفوف عن الخلية التي تكتب بها المعادلة اي ان الناتج المطلوب لجزء من الكود الذي تكتبه هو - معادلة- تشير الي مجال محدد تدخلها فى احدى الخلابا كناتج للبرمجة كمثلا ان تجري بعض الاحصاءات و تخرجها فى جدول و يكون عدد الاعمدة متغير ، و تريد اسفل الجدول ان تضع- معادلة - تجمع صفوف الجدول و تريد عمل تنسيق معين للجدول بعد الانتهاء منه بناء علي عدد الصفوف التي ستنتج و طبعا عدد الصفوف غير معروف مقدما و لكنه ينتج عن حسابات يجريها البرنامج و ايضا فى بعد الاحوال حين وجود اوامر برمجية مركبة تعتمد علي بعد خلايا محددة بالنسبة لاخري قد يكون من الاسهل التعامل بهذا النمط فى كتابة الكود ، و لكن يمكن استبداله فى احيان كثيرة بجمل اطول باستخدام ال offset و range و اعتقد ان هذه بعض اهم الحلات التي نحتاح فيها لهذا النمط فى البرمجة و لكن اكيد هناك استخدامات اخري لها

احتجت لتعريف اسماء عديدة لخلايا فى ملف فاعددت هذا الكود البسيط لاختار الخلية و اشغل الماكرو فيسألني عن الاسم و يحفظه ضمن اسماء النطاقات المعرفة فى الملف في البداية تصورت انه يمكنني تسجيل الماكرو و تعديله ببساطة و لكن اتضح ان اضافة التعريف لاسم لابد ان تكون بصورة r1c1 لذا كان لابد من تعريف النمط ReferenceStyle:=xlR1C1 Sub assignName() ActiveCell.Select x = InputBox("choose a name", "Write the name to define", "TT") Dim y As String y = Trim(ActiveCell.AddressLocal(ReferenceStyle:=xlR1C1)) y = "=" & Trim(ActiveWorkbook.ActiveSheet.Name) & "!" & y ActiveWorkbook.Names.Add Name:=x, RefersToR1C1:=y End Sub addnames.rar

اهلا وسهلا بك و نرجو أن تفيد و تستفيد :d

السلام عليكم أنشيء ملف جديد ثم جرب الاستيراد بالطريقة المذكورة هنا http://www.officena.net/ib/index.php?showt...1499&hl=استيراد

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

إنا لله وإنا إليه راجعون توفيت الي رحمة الله والدة أخونا رضوان عضو شرف الموقع و هذا الموضوع مخصص لتقديم العزاء ، بقسم الاكسيس http://www.officena.net/ib/index.php?showtopic=4930

علي استحياء أضع هذه المشاركة الخفيفة و باذن الله أعود للمشاركة معكم كالسابق قريبا باذن الله هذا الماكرو البسيط احتجته اثناء العمل ، و سبب الحاجة له هو أنه عند تصدير بعض البيانات الي الاكسيل تأتي بعد السجلات منقسمة علي سطرين فالاصل مثلا ان يكون فى الخلية Mohamed Taher arfa و اذا بها فى بعض السجلات تأتي Mohamed Taher arfa و في بعضها Mohamed Taher arafa و الماكرو بتشغيله بعد اختيار الخلية العلوية و مد الاختيار الي الخلية السفلية و تشغيله يقوم بدمج القيمتان فى الخلية العلوية و مسح القيمة فى الخلية السفلية و اسم الماكرو merg2 ثم بعد ذلك اقوم باختيار العمود ككل و تشغيل ماكرو مسح القيم الخالية السابق نشره ليقوم بمسح كل الصفوف الزائدة و اسم الماكرو deleteemptyRow merge2.zip

اذا جاءك بريد بعنوان A Card for You او A Virtual Card for You فقم بحذفه فورا ، فهذا فيروس خطير بدء ينتشر علي النت و صنفته ميكروسوفت علي انه الاشد تدميرا البريد الذي وصلني : Importance: High WORST VIRUS EVER ---CNN ANNOUNCED PLEASE SEND THIS TO EVERYONE ON YOUR CONTACT LIST !! A new virus has just been discovered that has been classified by Microsoft as the most destructive ever. This virus was discovered yesterday afternoon by McAfee and no vaccine has yet been developed. This virus simply destroys Sector Zero from the hard disk, where vital information for its functioning are stored. This virus acts in the following manner: It sends itself automatically to all contacts on your list with the title: "A Card for You". As soon as the supposed virtual card is opened the computer freezes so that the user has to reboot. When the ctrl+alt+del keys or the reset button are pressed, the virus destroys Sector Zero, thus permanently destroying the hard disk. Yesterday in just a few hours this virus caused panic in New York, according to news broadcast by CNN. This alert was received by an employee of Microsoft itself. So don't open any mails with subject: "A Virtual Card for You." As soon as you get the mail, delete it!! Even if you know the sender!!!.this warning email has been sent to all users in the company, so pls pass this warning message to others outside the company thanks.

تم اغلاق التصويت و سيتم استكمال النقاش بين فريق الموقع في ضوء نتيجة الاستبيان و سيتم باذن الله تنفيذ ما فيه الصالح العام

السلام عليكم يرجي ممن يريد التطوع لتنظيم العمل فى المشروع أن يتفضل

(y) فعندما نجد موضوع مرتبط بتقويم أم القري أول ما نبحث عنه هو اسم أبو هادي و لا نوافق أن يكون غيرك مسئولا عنه و بالنسبة للجماعية و الفردية ، فهذا سيرجع لطريقة ادارتك له :(

برجاء التصويت من منطلق الفائدة العامة و ليس الرغبة الشخصية

نعم فالتخصص و تركيز الجهود فى مواقع متخصصة كان اهم الدوافع لانشاء الموقع هنا ،و ان كان للتنوع و الاتجاه أو محاولة الاقتراب من الشمولية له ايجابيات ملموسة ، الا انني أتفق فى أنها أقل من سلبياتها. و بإذن الله سنحاول المحافظة علي التخصص طالما كان فى الصالح العام ، و أنصح الجميع بالمشاركة فى المنتديات المتخصصة التي تدعم الجوانب التي يستطيعون المشاركة فيها. لكي نحصل فى النهاية علي التكامل و الترابط و نبتعد عن التنافس و تشتيت الجهود مع شكري و تقديري