اجرای مایکرو برای رنگ کردن چندین سطر با دستور چک باکس

[pesi]

سلام مهندسین عزیز
آقا من دارم یه فرم درست میکنم که با زدن تیک چک باکس رنگ اون سطر عوض بشه

تعداد 50 سطر هست که همش باید اینجور بشه .

تو مایکرو وقتی میزنم برای یکی رو درست میکنم اما شرطی که بتونم بندازم براش همه ستون ها رو انجام بده چجور بنویسم .
این دستور برای مایکرو هست که دارم ( برا یه سطر )

Sub Macro5()
'
' Macro5 Macro
' vkjk
'
' Keyboard Shortcut: Ctrl+m
'
    Selection.FormatConditions(1).StopIfTrue = False
    Range("A9:G9,AM9").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$AP$9"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$AQ$9"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub 

این دستور رو میخوام برای 50 تا سطر دیگه تو یه حلقه انجام بده

مقدار Range("A9:G9,AM9").Select و Formula1:="=$AP$9 و Formula1:="=$AQ$9 باید بیوفته تو متغیر و یه شماره به شماره 9 اضافه بشه مثلا بشه 10 و به بعد تا 50
ممنون دستور شرطیشو بگید بهم من یادم رفته

[pesi]

آقا کسی نمیدونه جوابشو ؟

[pesi]

دوستان به روش حلقه for میشه اینو نوشت . کسی کاملشو میتونه بهم بده و بنویسه ؟
میخوام تو یه ستون به ردیف یه چک باکس درست بشه بره تو پرو پرتی linkcell رو یه خونه تو ستون دیگه روبروش بده .
همین فعلا

[iranweld]

نمونه فایل رو بصورت زیپ شده ضمیمه سایت کنید

[pesi]

نمونه فایل رو بصورت زیپ شده ضمیمه سایت کنید

Sub Macro2()
'
' Macro2 Macro
'

'
ActiveSheet.Shapes.Range(Array("Check Box 186")).Select
With Selection
.Value = xlOn
.LinkedCell = "$AP$3"
.Display3DShading = True
End With
End Sub

این کد رو میخوام تو حلقه تکرار بذارم برا هر ستون درست کنه
مقدار آرایه check box 186 بشه شماره بعدی - ( chech box 187 , .... )
و لینک سلول هم یکی بیاد پایین تر مثلا بشه ap4
اینم فایل مایکروش

[iranweld]

با سلام

ماکرو ذیل را تست کنید

Sub Macro2()

For i = 186 To 235

ActiveSheet.Shapes.Range(Array("Check Box " & i)).Select
With Selection
.Value = xlOn

.LinkedCell = "$AP$" & i

.Display3DShading = True
End With

Next

End Sub 

[pesi]

ممنون همین بود

حالا این رنج رو چطوری متغیر بدم که یه خط بیاد چایین سطرهاش ؟

Range("A9:G9,AM9").Select

مثلا میخوام از رنج A9:G9,AM9 انتخاب بزنه تا رنج A20:G20,AM20 ؟؟؟

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

[pesi]

دوستان کسی اینو نمیدونه ؟ مطلب بالا جوابش مونده