日記超～

私の日記帳として・・・

メモー「ファーストキャビン」_宿泊

2010-02-22 23:16:26 | Weblog

メモ
「ファーストキャビン」

旅行のときに言ってみようメモ。

 カプセルホテルのような、ビジネスホテルのような。。。
http://www.youtube.com/watch?v=GEBEnlaFOro
http://first-cabin.jp/

ファーストキャビン 御堂筋難波

〒542-0076　大阪府大阪市中央区難波4-2-1 難波御堂筋ビル4F
（アクセス 御堂筋線「なんば」駅 13番出口直結）

予約受付電話番号 06-6631-8090

 

＝＝＝＝

ファーストが４８００円、ビジネスが３８００円

http://pitagora.osakazine.net/e183053.html


第11回 リストボックスのリストを動的に作る

2010-02-22 22:06:02 | Weblog
第11回 リストボックスのリストを動的に作る

http://itpro.nikkeibp.co.jp/article/COLUMN/20071116/287370/?ST=develop&P=2

EXCEL　VBAを利用してリストボックスを選択するごとに該当データを表示させる仕組み

①

リストボックスのRowSourceプロパティに，セルのシート名とアドレスを代入

図2●リストボックスのRowSourceプロパティに，セルのシート名とアドレスを代入
 
２

<CODE>
Private Sub ListBox1_Change()
  Select Case Me.ListBox1.Value
    Case "DAIHATSU"
      Me.ListBox2.RowSource = "SHEET2!A2:A30"
    Case "HINO"
      Me.ListBox2.RowSource = "SHEET2!B2:B15"
    Case "HONDA"
      Me.ListBox2.RowSource = "SHEET2!C2:C32"
    Case "MAZDA"
      Me.ListBox2.RowSource = "SHEET2!D2:D13"
    Case "MITSUBISHI"
      Me.ListBox2.RowSource = "SHEET2!E2:E67"
    Case "NISSAN"
      Me.ListBox2.RowSource = "SHEET2!F2:F94"
    Case "SUZUKI"
      Me.ListBox2.RowSource = "SHEET2!G2:G42"
    Case "TOYOTA"
      Me.ListBox2.RowSource = "SHEET2!H2:H147"
  End Select
End Sub
</CODE>
リスト2●二つのリストボックスが連動して，リストの内容が動的にかわるプロシジャ

　このユーザーフォームを実行すると，図8や図9のように，クリックしたメーカーの車種が，ListBox2に表示されます。

図8●ListBox1の選択項目によって，ListBox2のリストが動的に変わる例1