Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29546 / 76732

←次へ　｜　前へ→


	【52466】ありがとうございます☆すみませんがもう１つ教えてください！

PONDOG - 07/11/15(木) 9:42 -


	引用なし

	パスワード

りんさんありがとうございます☆教えてくださった通りに入力したらできました☆

"データ"というBookの"一覧表"というSheetの内容を、ユーザーフォームのリストとして表示させるようにしてあったのですが、"データ"のBookを開かなかった場合、ユーザーフォームを開こうと思うと、当然のことながらエラーが出てしまいます。
ブックが開いているかを確認するには、For Each を使えばいいことは調べられたので、下記のように、もとから作ってある文章に【追加】と書いてあるところを書き足しました。しかし、ユーザーフォームを実行しようと思うと”オブジェクトは、このプロパティまたはメソッドをサポートしていません”と言われてしまいました。３つ目の追加の「If　データ.name = データ Then」の後がWithになっているからおかしいのか、修正ができません(>＿<)教えてください！

Dim LastLow7 As Long
　　Dim r As Integer
　　Dim s As Integer
　　データ = "データ.xls" 　　　　　　　　　　'【追加】
　
　　　　For Each データ In Workbooks　　　　　'【追加】
　　　　　　If データ.Name = データ Then　　　'【追加】
　　　　　　　　With ListBox1
　　　　　　　　　　.ColumnCount = 2
　　　　　　　　　　.ColumnWidths = "200;500"
　　　　　　　　End With
　　
　　　　　　　　With Workbooks("データ.xls").Worksheets("一覧表")
　　　　　　　　　　LastLow7 = .Range("A3").CurrentRegion.Rows.Count
　　　　　　　　　　　　For r = 0 To LastLow7 - 1
　　　　　　　　　　　　　　ListBox1.AddItem r
　　　　　　　　　　　　For s = 0 To 1
　　　　　　　　　　　　　　ListBox1.List(r, s) = .Cells(r + 3, s + 1)
　　　　　　　　　　　　　　Next
　　　　　　　　　　　　Next
　　　　　　　　End With
　　　　　　End If　　　　　　　　　　　　　　　'【追加】
　　　　Next　　　　　　　　　　　　　　　　　　'【追加】
　　　　　　ListBox1.Text = ""　　　　　　　　　'【追加】

1 hits

▼

【52437】Excelを開いた時に、フォルダ内に指定されたBookがあれば同時に開く方法 PONDOG 07/11/14(水) 13:46