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

موضوع مرتبط 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) فعندما نجد موضوع مرتبط بتقويم أم القري أول ما نبحث عنه هو اسم أبو هادي و لا نوافق أن يكون غيرك مسئولا عنه و بالنسبة للجماعية و الفردية ، فهذا سيرجع لطريقة ادارتك له :(

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

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

الأخ رضوان أشكرك علي ترحيبك و أعتذر للجميع لسفري و عدم قدرتي عل يالتواصل المنتظم فى الوقت الحالي الأخ محمد حجازي بالنسبة للتعليمات الخاصة بالدالة المنشئة فلا أعرف كيف يمكن عملها و اذا كان المقصود شكل مربع الحوار فالموضوع الذي سبق و أشرت اليه و الذي يحوي شرح الاخ حارث يحوي الاجابة فمثلا الدالة التي لها ثلاث وسائط Function Fun2(A, B, C) As Byte سيكون بها ثلاث اماكن للادخال اذا اخترتها من مربع الحوار أي أن عدد الوسائط هو الذي يحدد شكل مربع الحوار اما عن ما تفضلت بتوضيحه فلا أعرف كيف ينفذ و هذه وصلة لموضوع يوجد به حديث عن بعض برامج اعداد ملفات المساعدة ربما يكون من الممكن ذلك من خلالها ( ربط التعليمة بدالة او وظيفة ) و لكن لا أعرف الاجابة حاليا http://www.officena.net/ib/index.php?showtopic=1263&hl=help مع تحياتي للجميع

كما أرجو مراجعة هذه المواضيع بعناية و خاصة الاول و المواضيع التي تتحدث عن الماكرو http://www.officena.net/ib/index.php?s=&showtopic=2713 كما يوجد فى قسم الاكسيس عدة مواضيع قابلة للتطبيق فى الاكسيل تتحدث عن الاكواد http://www.officena.net/ib/index.php?s=&showtopic=2219 فضلا عن العديد من الامثلة فى قسمي ال vba بارشيف كلا من الاكسيل و الاكسيس و خاصة سيناسب سؤالك الشرح الرائع للاخ حارث فى الموضوع الثاني http://www.officena.net/ib/index.php?showtopic=425&hl=

اضغط alt+f11 لاظهار محرر البيزيك اضف وحدة نمطية insert module اكتب به ددالة باي اسم مثال دالة تقسم الرقم علي 2 Function taher(mycell) taher = mycell / 2 End Function و استدعها باسمها ، و هو هنا taher بان تكتب =taher(B4) السلام عليكم و لاتنسي تفعيل الاكواد لتعمل الدوال tools macro security medium or low

السلام عليكم و هذا يعني أن الماكرو لن يعمل اذا كان الاختيار مرتفع و بالتالي أي كود لن تكون له فائدة و لكن ... يوجد حل ، و هو عمل Digital Signature للماكرو و هذا يعني قيام جهة معينة باعتماد الماكرو لكي يصير معتمد و في هذه الحالة سيعمل مع مستوي الامان مرتفع و لم يسبق لي اعتماد أي ماكرو و لكن يمكنك زيارة هذا الرابط لاعتماد ماكرو اذا أردت معرفة جهات الاعتماد ، و لا أعرف ان كان ذلك مجانيا أم بتكلفة http://msdn.microsoft.com/library/default....ootcertprog.asp

لم أتعرض كثيرا لتحويل تطبيقات بالكامل و لكن بصفة عامة موضوع التاريخ و الوقت التلقائي يعتمد علي دعم تعبيرات =now() =date() =Time() بين التطبيقات المختلفة ، و يمكن استبدال التعبير بما يناسب الاصدار موضوع تعريف المتغيرات أعتقد أنه مرتبط بوجود عبارة option explicit و ليس بتغيير الاصدار ، فهل تمت اضافة هذه العبارة بعد التحويل ، جرب استخدام البحث عنها و اخبرنا بوجودها من عدمه أما عن المراجع فالمرجع لاافتراض لكائنات الوصول الي البيانات فى 97 هو ال dao أما فى الاكس بي مثلا فهو ال ado و اذا اردت اضافة مرجع dao فى الاكس بي ، فأنصح باستخدام أعلي قيمة لمراجع الداو المتاحة ( الأحدث ) و فى بعض الاحيان يحدث تضارب بين الاصدارات فى المراجع و ان كان هذا ليس مفترض حدوثه و يكون عليك اما تغيير الترتيب للمراجع أو حذف احد المرجعين و الاكتفاء بداو أو أدو ، و أعتقد أن هذا كما قلت نظريا ليس من المفترض حدوثه. و عموما عملية التحويل عملية لا تتكر كثيرا و لا بأس من اجراء بعض التعديلات علي الملف بعد التحويل :(

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

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