ログインしてさらにmixiを楽しもう

コメントを投稿して情報交換！
更新通知を受け取って、最新情報をゲット！

お勉強コミュのコンボボックスにシートのセル範囲の表示

ログインして参加する

  • mixiチェック
  • このエントリーをはてなブックマークに追加

コンボボックスにシートのセル範囲の表示

mixiユーザー 2007年05月16日 00:38

Private Sub UserForm_Initialize()
Dim lastrow As Long
Dim i As Long
Workbooks.Open Filename:=ThisWorkbook.Path & "\データ物質試薬管理.xls"


Sheets("shinki").Select

'最終行を取得
lastrow = ActiveSheet.Range("B65536").End(xlUp).Row

'リストをクリア
ComboBox1.Clear
For i = 2 To lastrow
ComboBox1.AddItem Cells(i, 2)
Next
Workbooks("データ物質試薬管理.xls").Close savechanges:=True

End Sub

コメント(0)

mixiユーザー
ログインしてコメントしよう！

お勉強 更新情報

お勉強のメンバーはこんなコミュニティにも参加しています

星印の数は、共通して参加しているメンバーが多いほど増えます。

お勉強

人気コミュニティランキング

困ったときには

mixiで趣味の話をしよう
新規登録（無料）

このページの上部へ