Excel VBA質問箱 IV

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

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


31096 / 76732 ←次へ | 前へ→

【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

1 hits

【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 お礼

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