انتخاب چند ناحیه پویا بطور همزمان

[hamidr3za]

با سلام خدمت دوستان و اساتید
میخوام تو یه شیت چند ناحیه رو بطور همزمان انتخاب کنم که خود این ناحیه ها پویا هستن....کدی که بشه چند ناحیه رو بطور همزمان انتخاب کنه که بتونی روی اونها تغییرات اعمال کنی چیه؟
از دستور range استفاده نکردم چون فقط ناحیه های ثابت انتخاب می کنه...
ممنون میشم راهنمایی کنید...

[iranweld]

با سلام

فایل و کدهای ذیل را برای انتخاب دو محدوده بررسی بفرمایید

Sub Macro1()

X1 = Range("A1")
X2 = Range("A2")
X3 = Range("A3")
X4 = Range("A4")
X5 = Range("B1")
X6 = Range("B2")
X7 = Range("B3")
X8 = Range("B4")

If X1 > 0 And X2 > 0 And X3 > 0 And X4 > 0 And X5 <> "" And X6 <> "" And X7 <> "" And X8 <> "" Then

    Range(X5 & X1 & ":" & X6 & X2 & "," & X7 & X3 & ":" & X8 & X4).Select
    
    Else
    
    MsgBox "NOT OK"
    
    End If
    
End Sub 

[hamidr3za]

با سلام

فایل و کدهای ذیل را برای انتخاب دو محدوده بررسی بفرمایید

Sub Macro1()

X1 = Range("A1")
X2 = Range("A2")
X3 = Range("A3")
X4 = Range("A4")
X5 = Range("B1")
X6 = Range("B2")
X7 = Range("B3")
X8 = Range("B4")

If X1 > 0 And X2 > 0 And X3 > 0 And X4 > 0 And X5 <> "" And X6 <> "" And X7 <> "" And X8 <> "" Then

    Range(X5 & X1 & ":" & X6 & X2 & "," & X7 & X3 & ":" & X8 & X4).Select
    
    Else
    
    MsgBox "NOT OK"
    
    End If
    
End Sub 

مرسی... a1 تا b4 که تو کد اوردی ثابت هستن، میشه از متغیر هم جای اینا استفاده کرد...مثلا بگیم دوتا ناحیه ای که مثلا مختصاتشون به شکل زیر باشه رو انتخاب کنه:
مثلا دو تا ناحیه زیر رو میخوام همزمان انتخاب کنم و s متغیره

Range(cells(s+1,3),cells(s+2,3))  
Range(cells(s+5,4),cells(s+6,4)) 

[/QUOTE]

[hamidr3za]

دوستان بزرگوار کسی جوابو میدونه ؟؟

[Amir Ghasemiyan]

سلام دوست عزيز
اگر شفاف تر بگين ميخواين چكار كنين شايد راه حل هاي بهتري بشه ارائه داد
مثلا منظورتون از پويا بودن چيه؟ و اينكه محدوده ها چطوري قراره مشخص بشن؟

اما در مورد اين كه اين دو تا محدوده رو چطور ميشه همزمان انتخاب كرد ميتونيد از اين كد استفاده كنيد:

Range(Range(cells(s+1,3),cells(s+2,3)),Range(cells(s+5,4),cells(s+6,4)))

[hamidr3za]

ممنون دوست عزیز همین کدی که گفتید مشکلمو حل کرد❤

[Amir Ghasemiyan]

ممنون دوست عزیز همین کدی که گفتید مشکلمو حل کرد❤

پس اگر پاسخ سوالتون رو دریافت کردید تاپیک رو حل شده کنید