Excel VBA質問箱 IV

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

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


29532 / 76732 ←次へ | 前へ→

【52480】Re:ありがとうございます☆すみませんがもう1つ教えてください!
発言  Jaka  - 07/11/15(木) 14:16 -

引用なし
パスワード
   >Dim LastLow7 As Long
>  Dim r As Integer
>  Dim s As Integer
>  データ = "データ.xls"           '【追加】
   ↑
  ここで「データ.xls」と言う文字が入ります。
 
          ↓なぜに? 間違ってます。
>    For Each データ In Workbooks     '【追加】

        このところで違和感は感じないですか?
         ↓       ↓ 
>      If データ.Name = データ Then   '【追加】
>        With ListBox1
>          .ColumnCount = 2
>          .ColumnWidths = "200;500"
>        End With


コード自体がハチャメチャなので1部分だけの例。

Dim Wb As Workbook
Dim Flg As Boolean

Flg = False
For Each Wb In Workbooks
  If Wb.Name = データ Then
    Flg = True 'ここでフラグを立てて
    Exit For
  End If
Next

'フラグの状態でブックの有無判別
If Flg = True Then
  MsgBox "ここでブックがあった時の処理"
End If

1 hits

【52437】Excelを開いた時に、フォルダ内に指定されたBookがあれば同時に開く方法 PONDOG 07/11/14(水) 13:46 質問
【52438】Re:Excelを開いた時に、フォルダ内に指定さ... Jaka 07/11/14(水) 14:20 発言
【52461】Re:Excelを開いた時に、フォルダ内に指定さ... PONDOG 07/11/14(水) 23:45 質問
【52463】Re:Excelを開いた時に、フォルダ内に指定さ... りん 07/11/15(木) 7:06 回答
【52466】ありがとうございます☆すみませんがもう1... PONDOG 07/11/15(木) 9:42 質問
【52480】Re:ありがとうございます☆すみませんがも... Jaka 07/11/15(木) 14:16 発言
【52569】Re:ありがとうございます☆すみませんがも... PONDOG 07/11/20(火) 10:28 お礼

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