admin menu ≫  image  writes  admin
スポンサーサイト 
--.--.--.-- 
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
「コンボボックス」について 
2009.05.27.Wed 
「フォームのツールボックス」と「コントロールのツールボックス」にある「コンボボックス」

どちらもワークシートに貼り付ける事が出来るし、リストを選択してからマクロを実行することも出来るけど・・・キー入力の必要がなく、1次元リストを扱うなら「フォームのコンボボックス」の方が使い安いかな?リストを追加登録する時には、挿入するならリストの範囲を変更しなくてもいいけど、行を追加して登録する場合は、リストの範囲を変更しなくちゃいけないので

'ワークシートのA$2$から下の行に連続したデータをリストとする
'フォームのコンボボックスのリスト範囲の変更
Row = 2
Do
If Cells(Row, 1) = "" Then Exit Do
Row = Row + 1
Loop
ActiveSheet.Shapes("Drop Down 15").Select
With Selection
'リストの範囲を"A$2$:A$" & Row に変更する
.ListFillRange = Left(.ListFillRange, 7) & Row
End With


としてから行番号Rowに登録したら、何となく上手くいったみたいな(^^ok??


関連記事
スポンサーサイト
* スポンサーサイト「コンボボックス」についてへのコメント *
   

台風画報


ナショジオニュース

降水短時間予報

RSSフィード

月別アーカイブ

ブログ内の検索

プロフィール


  • Designed by Il mio diario
  • Powered by FC2BLOG
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。