[求助]指点迷津

gaoguodong

想实现如下功能，却没做出来，请高手们帮帮我，谢谢了。

在单元格C4内输入随机整数，单击command控件，则根据输入的数值，选定区域{B5到D(5+Num1)}，并使区域内改变颜色。

Private Sub CommandButton1_Click()

   Dim Num1 as Integer

   Dim Range1 as Range

   set Range1=Application.worksheets（"sheet1").range("C4")

   set Num1=Cint(Range1.value)

   Range("B5：D(5+Num1)").select                                     我觉得应该用循环语句，但由于初学，还没有掌握，帮帮我！

  selection.colorIndex=6                                                        我想B5：D(5+Num1)是错的，却不知道怎样改。

End Sub

gaoguodong

多谢高手！

老鬼

   Num1=Cint(Range1.value)



   Range("B5：D"&(5+Num1)).select