Nima
2013/09/28, 07:00
با سلام خدمت دوستان عزیز
شاید برای شما هم پیش اومده باشه که نیاز به این داشته باشین که با انتخاب یک سلول تمام ستون و سطر مربوطه هایلایت بشه حالا یه اموزش ساده در این مورد میزارم امیدوارم مفید باشه:
http://img.chandoo.org/vba/highlight-row-column-demo.gif
برای اینکار احتیاج به دو خط کد vba ساده و conditional formating لازم داریم.
1- رنج یا محدوه مورد نظر رو انتخاب کنید در مثال فوق B4:I14.
2-اسفاده از دو سلول برای نمایش جزئیات سطر و ستون مربوط به سلول انتخاب شده در اینجا E18, E17 ونامگذاری بترتیب selRow و selCol.
3-با راست کلیک روی شیت و انتخاب view code وارد پنجره کد نویسی میشیم:
http://img.chandoo.org/vba/vba-code-to-caputure-selected-cells-row-column.png
worksheet را از لیست سمت چپ و ایونت selection Changeاز لیست سمت راست انتخاب کرده و دو خط زیر را وارد میکنیم:
selRow] = Target.Row] برای نشان دادن تعداد سلولهای سطر در سلول E17 توی شیت
selCol] = Target.Column] برای نمایش تعداد سلولهای ستون در سلول E18 توی شیت
4-تنظیم conditional formatting:
http://img.chandoo.org/vba/conditional-formatting-rule-to-highlight-row.png
ابتدا مخدوده مورد نظر(B4:I14) را انتخاب کرده وارد پنجره conditional formatting بشوید با انتخاب گزینه ...Use formula to در قسمت مربوطه فزمول row(B4)=selRow را وارد کنید و از قسمت format فرمت مورد نظرتون رو اعمال کنید.
همین مرحله رو برای ستون ها نیز تکرار کنید و فرمول column(B4)=celCol رو وارد کنید.
نکته این قسمت اینه که سلولB4 اولین سلول محدوده مورد نظره که باید انتخاب بشه.
منبع chandoo.org
شاید برای شما هم پیش اومده باشه که نیاز به این داشته باشین که با انتخاب یک سلول تمام ستون و سطر مربوطه هایلایت بشه حالا یه اموزش ساده در این مورد میزارم امیدوارم مفید باشه:
http://img.chandoo.org/vba/highlight-row-column-demo.gif
برای اینکار احتیاج به دو خط کد vba ساده و conditional formating لازم داریم.
1- رنج یا محدوه مورد نظر رو انتخاب کنید در مثال فوق B4:I14.
2-اسفاده از دو سلول برای نمایش جزئیات سطر و ستون مربوط به سلول انتخاب شده در اینجا E18, E17 ونامگذاری بترتیب selRow و selCol.
3-با راست کلیک روی شیت و انتخاب view code وارد پنجره کد نویسی میشیم:
http://img.chandoo.org/vba/vba-code-to-caputure-selected-cells-row-column.png
worksheet را از لیست سمت چپ و ایونت selection Changeاز لیست سمت راست انتخاب کرده و دو خط زیر را وارد میکنیم:
selRow] = Target.Row] برای نشان دادن تعداد سلولهای سطر در سلول E17 توی شیت
selCol] = Target.Column] برای نمایش تعداد سلولهای ستون در سلول E18 توی شیت
4-تنظیم conditional formatting:
http://img.chandoo.org/vba/conditional-formatting-rule-to-highlight-row.png
ابتدا مخدوده مورد نظر(B4:I14) را انتخاب کرده وارد پنجره conditional formatting بشوید با انتخاب گزینه ...Use formula to در قسمت مربوطه فزمول row(B4)=selRow را وارد کنید و از قسمت format فرمت مورد نظرتون رو اعمال کنید.
همین مرحله رو برای ستون ها نیز تکرار کنید و فرمول column(B4)=celCol رو وارد کنید.
نکته این قسمت اینه که سلولB4 اولین سلول محدوده مورد نظره که باید انتخاب بشه.
منبع chandoo.org