« 【株】 2008/05/26(月) ±0 日経▲322.01 | トップページ | 【株】 2008/05/27(火) ±0 日経△203.12 »

【Excel VBA備忘ログ】コントロール配列(追記あり)

VBと違い、VBAにはコントロール配列が無い。
そこで配列的に扱える代替手段。以下はCheckBoxを使った例。

1.シート「main」に直接CheckBox1~10を貼る。(追記)名前は連番である必要あり。

2.CheckBoxがチェックされているかfor文で回しながらチェック。

 Dim i as Integer
  For i = 1 to 10
    If Worksheets("main").OLEObjects("CheckBox" & i).Object.value = True Then
        Debug.Print "Checked"
    Else
        Debug.Print "Not Check"
    End If
  Next

追記)OLEObjectsの引数に ("CheckBox" & i) の様にコントロール名を渡すところがミソです。

にほんブログ村 株ブログ 株日記へ にほんブログ村 株ブログへ

★★何でも見つかる!Yahoo!ショッピング★★

« 【株】 2008/05/26(月) ±0 日経▲322.01 | トップページ | 【株】 2008/05/27(火) ±0 日経△203.12 »

Excel」カテゴリの記事

コメント

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/36872/21201468

この記事へのトラックバック一覧です: 【Excel VBA備忘ログ】コントロール配列(追記あり):

« 【株】 2008/05/26(月) ±0 日経▲322.01 | トップページ | 【株】 2008/05/27(火) ±0 日経△203.12 »

amazon

マイリスト

  • 暮らしをおトクにかえていく|ポイントインカム
  • 暮らしをおトクにかえていく|ポイントインカム
  • フルーツメール
無料ブログはココログ