05 2015 档案

摘要:Sub fill_range_with_optionbuttons()'Erik Van Geit'050520 0138Dim rownr As Long, i As IntegerDim counter As LongDim rng As RangeDim txt(2) As StringDim... 阅读全文
posted @ 2015-05-19 14:24 哈度普 阅读(371) 评论(0) 推荐(0)
摘要:Sub 隐藏()Dim sh As ShapeFor Each sh In ActiveSheet.ShapesIf sh.Type = msoFormControl ThenIf sh.FormControlType = xlGroupBox Then sh.Visible = FalseEnd ... 阅读全文
posted @ 2015-05-14 16:12 哈度普 阅读(2237) 评论(0) 推荐(0)