[حل شده] آدرس دهی وابسته

[Masih60]

سلام،

روز همگی بخیر. فرض کنید این کد برنامه رو داریم:

Sheets(1).Cells(35, 2).Value = 35

آیا راهی وجود داره که اگر به دلیل اضافه یا حذف ستون یا سطر در شیت محل درج عدد 35 تغییر کرد، بطور اتوماتیک کد هم آدرس دهیش آپدیت بشه؟ دقیقاً مثل همون اتفاقی که برای فرمول نویسی عادی میفته و وقتی یه فرمول رو از یک سلول به سلول دیگه ای انتقال بدیم، آدرس دهی ها با توجه به جا به جایی آپدیت میشن. مشکلی که الان دارم این هست که اگر بخوام در آینده سطر یا ستونی رو به خروجی اکسل اضافه کنم، باید تمام سطر و ستونهای بعد از اون رو در کدهای VBA مجدداً آدرس دهی کنم.

با تشکر

[Amir Ghasemiyan]

سلام،

روز همگی بخیر. فرض کنید این کد برنامه رو داریم:

Sheets(1).Cells(35, 2).Value = 35

آیا راهی وجود داره که اگر به دلیل اضافه یا حذف ستون یا سطر در شیت محل درج عدد 35 تغییر کرد، بطور اتوماتیک کد هم آدرس دهیش آپدیت بشه؟ دقیقاً مثل همون اتفاقی که برای فرمول نویسی عادی میفته و وقتی یه فرمول رو از یک سلول به سلول دیگه ای انتقال بدیم، آدرس دهی ها با توجه به جا به جایی آپدیت میشن. مشکلی که الان دارم این هست که اگر بخوام در آینده سطر یا ستونی رو به خروجی اکسل اضافه کنم، باید تمام سطر و ستونهای بعد از اون رو در کدهای VBA مجدداً آدرس دهی کنم.

با تشکر

سلام دوست عزيز
ميتونين براي اون سلول يك name تعريف كنيد و در كدتون به اون نام رفرنس بديد

[Masih60]

سلام دوست عزيز
ميتونين براي اون سلول يك name تعريف كنيد و در كدتون به اون نام رفرنس بديد

اگر لینک آموزشش در سایت وجود داره لطف میکنید؟ نتونستم پیدا کنم.

[حسام بحرانی]

سلام دوست عزیز
همانطور که آقای قاسمیان گفتند، اگر سلول خودتون ( مثلاً B35 ) را به نام فرضی "Mycell" تغییر بدید کد شما بصورت زیر تغییر می کنه:

range("Mycell").Value = 35 

در اینصورت نیازی به رفرنس دادن به شیت نداره و تنها با ارجاع به نام محدوده، تغییرات اعمال میشه.

با این نامگذاری حتی با افزودن سطرها و ستون ها می توانید دستور خودتون را برای آن محدوده ( B35 ) ثابت نگهدارید.
موفق باشید.