Excel VBA質問箱 IV

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

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


71879 / 76738 ←次へ | 前へ→

【9352】Re:リストボックスで選択したファイルの内...
質問  ブーちゃん  - 03/11/30(日) 16:31 -

引用なし
パスワード
   違法なマルチサイトを使ってしまい、ビリーさんから、以下のコードの助言を頂き
ました。
LNの変数定義が、37種にも及び、検索定義の列が1つから5つとまちまちなので、 Case1; LN1 = (Cells(RR&, 11).Value = 1) And _ (Cells(RR&, 13).Value
= "A") And _ (Cells(RR&, 14).Value = 1) And _ (Cells(RR&, 18).Value = 1)の
様にやるのは、難しいでしょうか?複数のセルの値を1つに纏めてしまうと、解り辛く成ってしまいます。余りKStepが大きいと、メモリを食ってしまうかもしれませんが、Case毎に、処理を書いた方が処理内容が解り易いです。御願い致します。
 りんさんにとって、それしか方法が無いのなら、この方法を試してみます。
Private Sub TEST1()

  DIM i AS LONG
  DIM 最終行 AS LONG
  DIM ws(1 TO 2) AS WORKSHEET

  Dim LN1 As Boolean
  Dim LN2 As Boolean
  Dim LN15 As Boolean
  Dim LN16 As Boolean

  Set ws(2) = WORKBOOKS("XXX.xls").Worksheets("Sheet8&9")
  Set ws(1) = THISWORKBOOK.Worksheets("Sheet4")
  ws(1).Cells.Clear 'Sheet4を初期化

  FOR i=8 TO 最終行
    ' LN1,LN2,LN15,LN16の設定
    ' Sheet4への処理(要分岐)
  NEXT i

END SUb

 ThisWorkBookのコード;
Private Sub Workbook_Open()
  Dim objWSH As Object
  Dim strPS  As String
  Dim Ans
  Dim i As Long
  
  Set objWSH = CreateObject("WScript.Shell")
  strPS = objWSH.SpecialFolders("\C:") & "\Excelファイル全集"

  With Application.FileSearch
    .LookIn = strPS
    .Filename = "*.xls"
    If .Execute(SortBy:=msoSortByFileName) > 0 Then
      For i = 1 To .FoundFiles.Count
        Worksheets(1).ListBox1.AddItem Dir(.FoundFiles(i))
      Next
    End If
  End With
End Sub
0 hits

【9213】手に負えない ブーちゃん 03/11/24(月) 2:48 質問
【9216】Re:手に負えない りん 03/11/24(月) 10:03 回答
【9281】Re:手に負えない ブーちゃん 03/11/26(水) 17:13 質問
【9310】Re:手に負えない りん 03/11/27(木) 21:11 回答
【9314】Re:手に負えない ブーちゃん 03/11/28(金) 11:00 質問
【9341】リストボックスで選択したファイルの内容チ... りん 03/11/30(日) 10:19 回答
【9352】Re:リストボックスで選択したファイルの内... ブーちゃん 03/11/30(日) 16:31 質問
【9361】Re:リストボックスで選択したファイルの内... りん 03/11/30(日) 18:17 発言
【9377】Re:リストボックスで選択したファイルの内... ブーちゃん 03/12/1(月) 15:19 回答
【9400】Re:リストボックスで選択したファイルの内... りん 03/12/2(火) 23:22 回答
【9843】Re:リストボックスで選択したファイルの内... ブーちゃん 03/12/18(木) 14:16 質問
【9870】Re:リストボックスで選択したファイルの内... ブーちゃん 03/12/19(金) 15:38 お礼

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