Excel VBA質問箱 IV

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

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


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

【50863】抽出について hisao 07/8/20(月) 16:10 質問[未読]
【50865】Re:抽出について ponpon 07/8/20(月) 16:56 発言[未読]
【50871】Re:抽出について hisao 07/8/21(火) 7:21 発言[未読]
【50872】Re:抽出について ハチ 07/8/21(火) 10:12 発言[未読]
【50873】Re:抽出について hisao 07/8/21(火) 11:32 発言[未読]
【50891】Re:抽出について ponpon 07/8/21(火) 21:46 発言[未読]
【50907】Re:抽出について hisao 07/8/22(水) 1:14 お礼[未読]

【50863】抽出について
質問  hisao E-MAIL  - 07/8/20(月) 16:10 -

引用なし
パスワード
   ご多忙中恐れ入りますが、ご教示下さい
aを変数として
a列、a+1列、a+2列、a+3列
4行目から100行目まで、4つの列のデーターがともゼロでない行を抽出したいのです
宜しくお願いします

【50865】Re:抽出について
発言  ponpon  - 07/8/20(月) 16:56 -

引用なし
パスワード
   ▼hisao さん:
>ご多忙中恐れ入りますが、ご教示下さい
>aを変数として
>a列、a+1列、a+2列、a+3列
>4行目から100行目まで、


>4つの列のデーターがともゼロでない

ということからデータは、数値ですか?

>行を抽出したいのです

ということから、4つの列のデーターがともゼロのものは
削除してよいのでしょうか?
それとも、別シートかなんかに転記?

【50871】Re:抽出について
発言  hisao E-MAIL  - 07/8/21(火) 7:21 -

引用なし
パスワード
   ▼ponpon さん:
有り難うございます。
削除は困ります。
autofilterか何かでゼロが無い行を選択したいのですが
具合が悪ければ、ゼロが無い行を転記させて下さい


>▼hisao さん:
>>ご多忙中恐れ入りますが、ご教示下さい
>>aを変数として
>>a列、a+1列、a+2列、a+3列
>>4行目から100行目まで、
>
>
>>4つの列のデーターがともゼロでない
>
>ということからデータは、数値ですか?
>
>>行を抽出したいのです
>
>ということから、4つの列のデーターがともゼロのものは
>削除してよいのでしょうか?
>それとも、別シートかなんかに転記?

【50872】Re:抽出について
発言  ハチ  - 07/8/21(火) 10:12 -

引用なし
パスワード
   ▼hisao さん:

>削除は困ります。
>autofilterか何かでゼロが無い行を選択したいのですが
>具合が悪ければ、ゼロが無い行を転記させて下さい

これは、AutoFilterで出来そうだと思っているワケですよね?
マクロの記録である程度できませんか?
ご自分で手を動かすことが大切だと思います。

もしくは、ループを回して行を非表示にするとかですね。

【50873】Re:抽出について
発言  hisao E-MAIL  - 07/8/21(火) 11:32 -

引用なし
パスワード
   ▼ハチ さん:
有り難うございます
例えば a列でデーターが0でない行を選びます(0の行を非表示にしても良いですが)そして更にa+1列でデーターが0で無い行を選択すると
a+1列が0,a列が0でない行も非表示になります
a,a+1列、いずれも0であれば非表示にして、いずれかが0で無ければ残したいのです
こう言うことですので宜しくお願い致します。


>▼hisao さん:
>
>>削除は困ります。
>>autofilterか何かでゼロが無い行を選択したいのですが
>>具合が悪ければ、ゼロが無い行を転記させて下さい
>
>これは、AutoFilterで出来そうだと思っているワケですよね?
>マクロの記録である程度できませんか?
>ご自分で手を動かすことが大切だと思います。
>
>もしくは、ループを回して行を非表示にするとかですね。

【50891】Re:抽出について
発言  ponpon  - 07/8/21(火) 21:46 -

引用なし
パスワード
   ということからデータは、数値ですか?

に応えがないのですが、ゼロという言葉から、数値だと考えて
作ってみました。

Dim a As Long
Sub test()
  Dim i As Long, j As Long
  Dim myVal As Long
 
  a = 1
  With Sheets("Sheet1")
    For i = 4 To 100
     For j = 0 To 3
      myVal = .Cells(i, a + j).Value
      If myVal = 0 Then
       .Cells(i, a + 26).Value = 1
       Exit For
      End If
     Next
     myVal = Empty
    Next
    On Error Resume Next
    .Columns(a + 26).SpecialCells(xlCellTypeConstants, 1).EntireRow.Hidden = True
    On Error GoTo 0
  End With   
End Sub
'=============================================================
Sub All_data()

  With Sheets("Sheet1")
     .Rows.Hidden = False
     .Columns(a + 26).ClearContents
  End With
End Sub

【50907】Re:抽出について
お礼  hisao E-MAIL  - 07/8/22(水) 1:14 -

引用なし
パスワード
   ▼ponpon さん:
有り難うございました。感激です。

>ということからデータは、数値ですか?
>
>に応えがないのですが、ゼロという言葉から、数値だと考えて
>作ってみました。
>
>Dim a As Long
>Sub test()
>  Dim i As Long, j As Long
>  Dim myVal As Long
> 
>  a = 1
>  With Sheets("Sheet1")
>    For i = 4 To 100
>     For j = 0 To 3
>      myVal = .Cells(i, a + j).Value
>      If myVal = 0 Then
>       .Cells(i, a + 26).Value = 1
>       Exit For
>      End If
>     Next
>     myVal = Empty
>    Next
>    On Error Resume Next
>    .Columns(a + 26).SpecialCells(xlCellTypeConstants, 1).EntireRow.Hidden = True
>    On Error GoTo 0
>  End With   
>End Sub
>'=============================================================
>Sub All_data()
>
>  With Sheets("Sheet1")
>     .Rows.Hidden = False
>     .Columns(a + 26).ClearContents
>  End With
>End Sub

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