Excel VBA質問箱 IV

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

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


3244 / 13644 ツリー ←次へ | 前へ→

【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シートを画面表示
ってのはどうやって1シートを決めるの?とか。

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

取り敢えず、
worksheets("シート名").select
worksheets("シート名").range("A1")
等とやるとシート名が最上面に来てA1セルが選択されます。

【63294】Re:ボタンを押下して複数シート内の1シー...
質問    - 09/10/23(金) 16:52 -

引用なし
パスワード
   皆様、申し訳ありません。
なかなかうまく言えなくて・・・

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

1.ユーザーフォームにテキストボックスを2つ(キーとして使う)配置、
 コマンドボタンを1つ配置。
2.1つ目のテキストボックスを同フォルダーにあるExcelファイル名:A(第1キ
 ー)、2つ目のテキストボックスをAファイル内に複数あるシート内の1つのシ
 ート名:情報1(第2キー)とします。
3.ここでコマンドボタンを押した時にAファイル内の情報1のシートのみを表示。
 
 このようにしたいのです。

【63298】Re:ボタンを押下して複数シート内の1シー...
発言  neptune  - 09/10/23(金) 23:17 -

引用なし
パスワード
   ▼あ さん:
> このようにしたいのです。
・・・もしかして丸投げですか?

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

何がわからないのか書いてください。全部判らない訳ではないでしょ?
1〜10までなら・・・・お断りします。
親切な回答者をお待ち下さい。

【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

以上のようなコーディングをしているのですが、
表示されるのが1列目だけしか表示されません。
どこがおかしいのかわかりません。
教えて頂けないでしょうか。

【63321】Re:ボタンを押下して複数シート内の1シー...
回答  neptune  - 09/10/26(月) 15:20 -

引用なし
パスワード
   ▼あ さん:
もしかして、VB(Aの無い奴)やってません?VBは複数列対応してないですからね。
Excelは対応してますけど。・・・ListBox

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

'////////ListBoxへ複数列のデータの追加の仕方////////
'新規UserFormにListBox,CommandButtonを各1個追加
'オブジェクト名はデフォルト
'以下を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

3244 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free