過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     108
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼同じようなマクロの繰り返し  武人 02/9/21(土) 22:47
　　　┗Re:同じようなマクロの繰り返し  Nakamura 02/9/22(日) 0:48

　───────────────────────────────────────
　■題名 ： 同じようなマクロの繰り返し
　■名前 ： 武人
　■日付 ： 02/9/21(土) 22:47
　-------------------------------------------------------------------------
   
commandbutton1.caption=1

commandbutton2.caption=2

…

commandbutton100.caption=100

といったようなマクロをまとめてdo　loopなどで簡単にできないでしょうか？


　───────────────────────────────────────
　■題名 ： Re:同じようなマクロの繰り返し
　■名前 ： Nakamura
　■日付 ： 02/9/22(日) 0:48
　-------------------------------------------------------------------------
   
こんばんは



シートのコントロールとユーザーフォームのコントロールで違いますが

こんな感じです。



シートの場合



Sub test()



　　Dim i As Integer

　　

　　For i = 1 To 100

　　

　　　　ActiveSheet.OLEObjects("CommandButton" & i).Object.Caption = i

　　　　

　　Next i



End Sub



ユーザーフォームの場合



Sub test2()



　　Dim i As Integer

　　

　　For i = 1 To 100

　　　　

　　　　UserForm1.Controls("CommandButton" & i).Caption = i

　　　　

　　Next i



End Sub



それでは

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     108