Excel VBA質問箱 IV

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

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


31082 / 76732 ←次へ | 前へ→

【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

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

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