ماکرو در اکسل- بخش چهارم: بررسی و تغییر یک ماکروی ضبط شده

اسماعیل میرزایی:

فایلی را که درآن ماکروی مثال قبل ضبط شده باز کنید و به محیط VBE بروید.در پنجره Project Window برروی module کلیک نموده سپس برروی module1 دابل کلیک نمایید.در اینصورت در پنجره    Code  Window برنامه ماکرو ضبط شده را مشاهده میکنید.(شکل1)

توضیح: برای دیدن شکل و خواندن متن کامل به صورت pdf می توانید به این لینک مراجعه بفرمایید.

خطوطی که با رنگ سبز مشخص شده توضیحات برنامه میباشد که در این زبان حتما باید هرخط با علامت  '    شروع شود.دستورات اصلی برنامه با خط مشکی یا آبی مشخص شده است.دو خط اول برنامه یعنی

Range("a1").select

AactiveCell.FormulaR1C1="34"

معادل دستور انتخاب سلول A1 و درج عدد 34 در آن میباشد.در VBA دستور دیگری نیز برای درج مقدار در سلول وجود دارد که میتوان بجای خط دوم  از آن استفاده کرد:

ActiveCell.Value=34

این موضوع برای خط چهارم برنامه که دستور درج عدد 55 در سلول A2 میباشد نیز صدق میکند.ضمنا دستور دیگری وجود دارد که میتواند بتنهایی جایگزین خطوط 1 و2 شود:

Range("A1").value=34

همچنین دستور زیر که جایگزین خطوط 3 و 4 میشود:

Range("A2").value=55

خطوط 5و6 معادل دستور انتخاب سلول A3 و درج فرمول در آن میباشد که میتوان دستور زیر را جایگزین این دو خط نمود:

Range("A3").Formula="=A1+A2"

خطوط 7 و 8 نیز با همین اصول میتواند با دستور زیر جایگزین گردد:

Range("A2").Font.Colorindex=3

عدد 3 کد معادل رنگ قرمز میباشد.

خطوط 9 تا 13 معادل دستور انتخاب سلول A1 و اعمال رنگ زمینه آبی میباشد که  میتوان دو خط زیر را جایگزین نمود:

Range("A1").Interior.Colorindex=41

Range("A1").Interior.Pattern=Xlsolid

باقیمانده خطوط برنامه معادل دستور اعمال سایز فونت به سلول A3 میباشد که دستور زیر میتواند جایگزین خطوط مذکورشود:

Range("A3").Font.Size=24

در نهایت با تغییرات توضیح داده شده برنامه ماکرو بصورت زیر در می آید که از نظر اجرا معادل برنامه قبل(شکل 3) میباشد:        

Sub Macro1()

'  

'     Macro1 Macro

'     Macro recorded 2007/09/26 by e.mirzaie

'

         Range("A1").value=34  

        Range("A2").value=55

        Range("A3").Formula = "=A1+A2"
        Range("A2").Font.ColorIndex = 3
        Range("A1").Interior.ColorIndex = 41
        Range("A1").Interior.Pattern = xlSolid
        Range("A3").Font.Size = 24    

End Sub

همانطور که اشاره شد این برنامه دقیقا معادل ماکروی ضبط شده میباشد.در صورت نیاز میتوانید تغییرات مورد نظر خود را در ماکرو اعمال نمایید.مثلا میتوانید با تغییر عدد 3 به 6 رنگ فونت سلول A2  را از قرمز به زرد تبدیل نمایید.

خواندن و نوشتن اطلاعات در ابعاد کوچک اتمی

دکتر افضلیان:

هرچند استفاده از اتم به جای سطوح مغناطیسی کنونی هارددیسک ها در مرجله آزمایشی است٬ اما دانشمندان تلاش دارند این خواسته به اجرا درآید.

فشرده سازی سطوح مغناطیسی به منظور افزایش حجم داده ها٬ اکنون با مشکل مواجه شده است زیرا وقتی فشردگی بیشتر می شود٬ بیت های مغناطیسی بر یکدیگر تاثیر می گذارند و صحت اطلاعات به خطر می افتد. 

طبق نوشته شماره اخیر مجله Science ٬ دانشمندان درصددند از طریق نوع خاصی از جریان الکتریکی میکروسکپی٬ در اندازه ای به کوچکی یک ششصدم بیت های مغناطیسی کنونی٬ اطلاعات را ثبت کنند. البته در حال حاضر اطلاعاتی که به سختی و با سردکردن زیر دمای نیتروژن مایع صورت می گیرد٬ فرار و ناپایدار است.

اطلاعات بیشتر در مجله اسپکتروم در دسترس است:

Magnetic Storage Taken to the Atomic Scale

 

International team of scientists learns to read and write data on islands of atoms

PHOTO: Stefan Krause/University of Hamburg

14 September 2007—When it comes to data storage, there's no such thing as too much. But hard drive makers are finding that as they try to pack more magnetic bits onto their discs, it becomes impossible to target just one with the magnetic field needed to write the data, because the field needed to change one bit would also rewrite its neighbors.

Scientists from the United States and Germany say they've come up with a new way of reading and writing data that does away with those sloppy magnetic fields. In today's issue of Science , the researchers report that a particular type of electric current from a scanning tunneling microscope will switch the magnetic polarization of 100-atom iron "nanoislands," which take up only one six-hundredth the area of magnetic bits on a typical hard disc. The new method is still experimental: the data bits it creates are temporary, and the nanoislands must be cooled below the temperature of liquid nitrogen.

Read more: http://www.spectrum.ieee.org/sep07/5548

اخبار و گزارشات هفته بیستم - منتهی به سی ام شهریورماه

لطفا روی عنوان مورد نظر در مطالب زیر کلیک نمایید.

گردهمایی بزرگ مدیران آموزش شرکت های صنعت آب وبرق

ایجاد: غلامرضا علی اکبری

ارسال: مسعود سرگلزایی

منو: نشریه - آموزشهای تخصصی

منبع: موسسه آموزش عالی علمی - کاربردی صنعت آب و برق

مراسم تجلیل از دانش‌آموزان ممتاز در محل دفتر مرکزی موسسه برگزار شد

ایجاد: ماندانا دارابی

ارسال: ماندانا دارابی

منو: بازیافت

منبع: موسسه آموزش عالی علمی - کاربردی صنعت آب و برق

شیوه نامه نگارش مقالات فصل نامه

ایجاد: کورش عزیزیها

ارسال: کورش عزیزیها

منو: فصل نامه - مقالات علمی - شیوه نامه نگارش مقالات

منبع: دانشگاه امیرکبیر

آخرین ضوابط و مقررات عمومی ارزشیابی مدارک تحصیلی خارجی

ایجاد: کورش عزیزیها

ارسال: کورش عزیزیها

منو: -

منبع: ایسنا

دوره های آموزشی نمونه

ایجاد: علیرضا قراباغی

ارسال: دکتر افضلیان

منو: پژوهش و فناوری - کنفرانس ها و کارگاههای علمی

منبع: دانشگاه انتقال و توزیع جهانی + موسسه

آزمون استخدامی در مجتمع عالی اصفهان

ایجاد: علیرضا قراباغی

ارسال: حسین ارشدی

منو: پژوهش و فناوری - نامه هفته

منبع: موسسه آموزش عالی علمی - کاربردی صنعت آب و برق

مصوبه مربوط به پایان نامه های دانشجویی در چهل و نهمین جلسه شورای آموزش موسسه

ایجاد: علیرضا قراباغی

ارسال: صبحی بنی اردلانی

منو: پژوهش و فناوری - پایان نامه ها

منبع: موسسه آموزش عالی علمی - کاربردی صنعت آب و برق

آشنایی با پارک فناوری پردیس

ایجاد: علیرضا قراباغی

ارسال: صبحی بنی اردلانی

منو: پژوهش و فناوری - رویدادها

منبع: فن بازار ملی ایران  + موسسه

دومین سمینار شبکه علمی کشور در دانشگاه شهید بهشتی

ایجاد: علیرضا قراباغی

ارسال: علیرضا قراباغی

منو: پژوهش و فناوری - کنفرانس ها و کارگاههای علمی

منبع: دانشگاه شهید بهشتی

اخبار و گزارشات هفته بیستم - منتهی به سی ام شهریورماه 1386

ایجاد: علیرضا قراباغی

ارسال: علیرضا قراباغی

منو: پژوهش و فناوری - نامه هفته

منبع: موسسه آموزش عالی علمی - کاربردی صنعت آب و برق