جمع آدرس یک سلول با یک عدد

[علی فاطمی]

سلام
من قصد دارم آدرس یک سلول رو با یه عدد در vb جمع کنم یعنی مثلا آدرس سلول cm26 هستش حالا توی می خوام داشته باشم

sheet1.range(cm26+1)

ممنون از توجه شما.

[abootorab]

سلام
من قصد دارم آدرس یک سلول رو با یه عدد در vb جمع کنم یعنی مثلا آدرس سلول cm26 هستش حالا توی می خوام داشته باشم

sheet1.range(cm26+1)

ممنون از توجه شما.

با درود
جناب آقای فاطمی عزیز درست متوجه منظورتون نشدم ولی یک ماکرو Test با برداشتهای متفاوت ذهن خودم از سوال جنابعالی نوشتم. امیدوارم منظورتون یکی از موارد زیر باشه.

Sub Test()
    a1 = Sheet1.Range("CM26") + 1
    a2 = Sheet1.Range("CM26").Row + 1
    a3 = Sheet1.Range("CM26").Column + 1
    a4 = Sheet1.Range("CM26").Offset(1, 1).Address
End Sub 

[علی فاطمی]

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

z=textbox1.value
label1.caption=sheet2.range(z)

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

z=textbox1.value
x=textbox2.value
label2.caption=sheet2.range(z & x+1)

دنبال راه ساده تر هستم.
امیدوارم توضیحاتم واضح بوده باشه.

[Ali Parsaei]

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

z=textbox1.value
label1.caption=sheet2.range(z)

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

z=textbox1.value
x=textbox2.value
label2.caption=sheet2.range(z & x+1)

دنبال راه ساده تر هستم.
امیدوارم توضیحاتم واضح بوده باشه.

سلام علي آقا،
ببينيد اين کارتان را راه مي اندازد:

Private Sub CommandButton1_Click()
Dim Z As String
Z = TextBox1.Value
Label1.Caption = Sheet2.Range(Z)
Label2.Caption = Sheet2.Range(Z).Offset(1, 0).Value
End Sub

يعني شما به فرض اگر يک تکست بکس و دو ليبل و يگ دگمه در فرم داشته باشيد و اين کد را براي دگمه ياد شده بنويسيد، سپس با درج آدرس يک سل (مثلا" A1) در تکست بکس و کليک دگمه ياد شده کارهاي زير انجام مي گردد:
مقدار خانه A1 در شيت دو در ليبل يک درج مي گردد
مقدار خانه پاييني A1 در شيت دو در ليبل دو درج مي گردد.
اميدوارم منظورتان همين بوده باشد!

[علی فاطمی]

با سلام خدمت استاد پارسای عزیز
مثل همیشه دقیق و کامل .
ممنون از توجه شما.