Excel VBA質問箱 IV

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

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


72008 / 76732 ←次へ | 前へ→

【9213】手に負えない
質問  ブーちゃん  - 03/11/24(月) 2:48 -

引用なし
パスワード
   Excelで作成した1つのプログラムを用いて、複数のExcelファイル中の該当する行を検索するプログラムです。条件として、

 1.ファイル中の検索対象の全行数はまちまちで、どれも8行目から開始するとしま
す。
 2.行検索する、Excelファイルの対象は、Cドライブの中のフォルダ「Excelファイ
ル全集」中の、ExcelファイルのSheet8&9のみとします。
 3.cells("AF").value =0の行は検索対象とせずに、はじき飛ばすものとします。


 リストボックスの中に在るファイルをマウスで選択して、釦を押下すると、「ファイルAの行検索をしますか?OK or No」と言うメッセージが出ます。「OK」を押下
すると、
 1.Cells(i, 11).value = 1&Cells(i, 13).value = A&Cells(i, 14).value =1&Cells(i,18).value = 1を満たせば、プログラム側Sheet4側には何も表示しませ
ん。 

一方、

 2.セル中の値;Cells(i, 11).value = 1&Cells(i, 13).value = A&Cells(i, 14).value =1&Cells(i, 18).value = 0を全て満たす行が存在すれば、対象行中のE,F,G列に書かれている内容を、プログラム側のSheet4側のA,B,C列に表示し、D列全
てに「不具合」と表示し、全て文字は赤色とします。
 
 そして、
3.上記の2つの定義に当てはまらなければ、プログラム側のSheet4側の、上記で検索
した「不具合」の下側画面部に、対象行中のE,F,G列に書かれている内容と、D列全
てに「定義洩れ」のコメントを付け、全て橙色で表示する様にします。

 以上の、ファイル中全ての行検索処理が終了したら、自動でSheet4に飛び、結果が表示されます。

そこで、書いてみましたが・・・

Private Sub CommandButton1_Click()                                       
 Call TestOkXOrNo(Workbooks("\C:Excelファイル全集.*.xls\").Worksheets("Sheet8&9"))
 
End Sub
      
Sub TestOkXOrNo(ws As Worksheet, lngStartRow As Long, lngLastRow As Long, putCol As Byte)
  If Not ws Is Nothing Then                                     
    Dim union                                       
    Dim i                                     
  For i = lngStartRow To lngLastRow                                     
 union = ws.Cells(i, 11) & ws.Cells(i, 13) & ws.Cells(i, 14) & ws.Cells(i, 18)                                    
    If union = "1A11" Then                                     
      ws.Cells(i, putCol) = "記述せず"                                        
      ElseIf union = "1A10" Then                                     
      ws.Cells(i, putCol) = "不具合"                                    
      Else                                        
      ws.Cells(i, putCol) = "定義洩れ"                                        
    End If                                     
  Next                                        
  End If                                       
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 お礼

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