Office中国论坛/Access中国论坛

标题: [求助]指点迷津 [打印本页]

作者: gaoguodong 时间: 2006-9-10 23:37
标题: [求助]指点迷津
想实现如下功能，却没做出来，请高手们帮帮我，谢谢了。

在单元格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

作者: 老鬼 时间: 2006-9-11 03:38
Num1=Cint(Range1.value)

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

作者: gaoguodong 时间: 2006-9-12 15:12
多谢高手！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)