Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5423 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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列
４行目から１００行目まで、４つの列のデーターがともゼロでない行を抽出したいのです
宜しくお願いします
【50865】Re:抽出について
発言  ponpon  - 07/8/20(月) 16:56 -
引用なし
パスワード
   ▼hisao さん：
>ご多忙中恐れ入りますが、ご教示下さい
>aを変数として
>a列、a+1列、a+2列、a+3列
>４行目から１００行目まで、


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

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

>行を抽出したいのです

ということから、４つの列のデーターがともゼロのものは
削除してよいのでしょうか？
それとも、別シートかなんかに転記？
【50871】Re:抽出について
発言  hisao E-MAIL  - 07/8/21(火) 7:21 -
引用なし
パスワード
   ▼ponpon さん：
有り難うございます。
削除は困ります。
autofilterか何かでゼロが無い行を選択したいのですが
具合が悪ければ、ゼロが無い行を転記させて下さい


>▼hisao さん：
>>ご多忙中恐れ入りますが、ご教示下さい
>>aを変数として
>>a列、a+1列、a+2列、a+3列
>>４行目から１００行目まで、
>
>
>>４つの列のデーターがともゼロでない
>
>ということからデータは、数値ですか？
>
>>行を抽出したいのです
>
>ということから、４つの列のデーターがともゼロのものは
>削除してよいのでしょうか？
>それとも、別シートかなんかに転記？
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5423 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free