Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3255 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【63268】ボタンを押下して複数シート内の1シートを表示させたい あ 09/10/21(水) 13:06 質問[未読]
【63285】Re:ボタンを押下して複数シート内の1シート... neptune 09/10/22(木) 22:06 発言[未読]
【63294】Re:ボタンを押下して複数シート内の1シート... あ 09/10/23(金) 16:52 質問[未読]
【63298】Re:ボタンを押下して複数シート内の1シート... neptune 09/10/23(金) 23:17 発言[未読]
【63316】Re:ボタンを押下して複数シート内の1シート... あ 09/10/26(月) 13:05 お礼[未読]
【63321】Re:ボタンを押下して複数シート内の1シート... neptune 09/10/26(月) 15:20 回答[未読]
【63268】ボタンを押下して複数シート内の1シート...
質問  あ  - 09/10/21(水) 13:06 -
引用なし
パスワード
   フォームにボタンと複数テキストを配置しておいて
複数テキストに入力するのですが、その時に複数シート内の1シートを
画面表示したいのですが、どのようにすればいいでしょうか。
どなたか、良きアドバイスをしていただけたら幸いです。
宜しく、お願い致します。
【63285】Re:ボタンを押下して複数シート内の1シー...
発言  neptune  - 09/10/22(木) 22:06 -
引用なし
パスワード
   ▼あ さん：
レスが付かないようですが、
多分、質問が第三者に判りにくいからではないでしょうか？
>複数テキストに入力するのですが、その時に複数シート内の1シートを
>画面表示したいのですが、どのようにすればいいでしょうか。
少なくとも私には良く判りません。
その時ってどの時？いろんな時があります。

用語、状況の説明、
>複数シート内の1シートを画面表示
ってのはどうやって１シートを決めるの？とか。

#「複数テキスト」VBAの用語では複数のテキストボックスです。
#正しい用語を使うと誤解されません。

取り敢えず、
worksheets("シート名").select
worksheets("シート名").range("A1")
等とやるとシート名が最上面に来てA1セルが選択されます。
【63294】Re:ボタンを押下して複数シート内の1シー...
質問  あ  - 09/10/23(金) 16:52 -
引用なし
パスワード
   皆様、申し訳ありません。
なかなかうまく言えなくて・・・

具体的に言いますと・・・

1.ユーザーフォームにテキストボックスを２つ（キーとして使う）配置、
　コマンドボタンを１つ配置。
2.１つ目のテキストボックスを同フォルダーにあるExcelファイル名：Ａ（第１キ
　ー）、２つ目のテキストボックスをＡファイル内に複数あるシート内の１つのシ
　ート名：情報1（第２キー）とします。
3.ここでコマンドボタンを押した時にＡファイル内の情報1のシートのみを表示。
　
　このようにしたいのです。
【63298】Re:ボタンを押下して複数シート内の1シー...
発言  neptune  - 09/10/23(金) 23:17 -
引用なし
パスワード
   ▼あ さん：
>　このようにしたいのです。
・・・もしかして丸投げですか？

もしそうなら私はお断りしております。

何がわからないのか書いてください。全部判らない訳ではないでしょ？
１〜１０までなら・・・・お断りします。
親切な回答者をお待ち下さい。
【63316】Re:ボタンを押下して複数シート内の1シー...
お礼  あ  - 09/10/26(月) 13:05 -
引用なし
パスワード
   リストボックスで表示しようと思っています。

Option Explicit
　　｜
　　｜
　　｜
Private Sub CommandButton1_Click()
　　frmExcelDisp.Show
End Sub
　　｜
　　｜
　　｜
【frmExcelDisp側】
Option Explicit

Private i As Integer
Private j As Integer

Private Type JYOUHOU_EXCEL
　　sRenban(1 To 140) As String
　　sRiyouNo(1 To 140) As String
　　sName(1 To 140) As String
End Type
Private JYOUHOU_EXCEL_DISP As JYOUHOU_EXCEL

Private JYOUHOU_DISP As String
　　　｜
　　　｜
　　　｜
Private Sub UserForm_Initialize()
　　　｜
　　　｜
　　　｜
　　ListBox1.Clear
　　With ListBox1
　　　　.ColumnCount = 5
　　　　.ColumnWidths = "24;12;40;12;24"
　　End With
　　With JYOUHOU_EXCEL_DISP
　　　　For i = 1 To 120
　　　　　　j = i + 2
　　　　　　JYOUHOU_DISP = Empty
　　　　　　JYOUHOU_DISP = .sRenban(j) & "｜" & _
　　　　　　　　　　　　　 .sRiyouNo(j) & "｜" & _
　　　　　　　　　　　　　 .sName(j)
　　　　　　ListBox1.AddItem JYOUHOU_DISP
　　　　Next i
　　End With
End sub

以上のようなコーディングをしているのですが、
表示されるのが１列目だけしか表示されません。
どこがおかしいのかわかりません。
教えて頂けないでしょうか。
【63321】Re:ボタンを押下して複数シート内の1シー...
回答  neptune  - 09/10/26(月) 15:20 -
引用なし
パスワード
   ▼あ さん：
もしかして、VB(Aの無い奴)やってません？VBは複数列対応してないですからね。
Excelは対応してますけど。・・・ListBox

で、結局これまでの説明はわからない所と全く関係がないみたいですね。

'////////ListBoxへ複数列のデータの追加の仕方////////
'新規UserFormにListBox,CommandButtonを各１個追加
'オブジェクト名はデフォルト
'以下をUserFormモジュールにコピペ。

Private Sub CommandButton1_Click()
Dim i As Long

　　With ListBox1
　　　　.Width = 150
　　　　.ColumnCount = 2
　　　　.ColumnWidths = "50;50"
　　　　For i = 1 To 15
　　　　　　.AddItem
　　　　　　.List(.ListCount - 1, 0) = "1列目の" & i
　　　　　　.List(.ListCount - 1, 1) = "2列目の" & i
　　　　Next i
　　End With
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3255 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free