Excel VBA質問箱 IV

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

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


63038 / 76732 ←次へ | 前へ→

【18293】Re:行数が不定の集計処理について
回答  Kein  - 04/9/20(月) 22:18 -

引用なし
パスワード
   まず、シートを開くコードの修正ですが

 If Worksheets.Count > 28 Then
   x = Day(Date) - 1
   Worksheets(x).Activate
 End If  
End Sub

というようにしておけば、最小枚数になる2月でもOKでしょう。
>実際の表が2行目までタイトルで、3行目が項目名で、実際のデータは4行目
それは問題でないと思います。ただ1・2行目をセル結合していると、どんな動作に
なるか見当がつかないので、クリックする行を「3行目」に固定するとにします。
それから、データの有無をチェックする列は「B列」で良いのですか ?
他の列の方が良いなら、適当にそちらで変更して下さい。いちおう・・

Sub R_Hidden_Change()
  If ActiveCell.Row <> 3 Then Exit Sub
  'On Error Resume Next
  If Hck = False Then
   If WorksheetFunction.CountA(Range("B4:B65536")) = 0 Then
     MsgBox "B列に値がありません", 48: Exit Sub
   End If
   Range("B4", Range("B65536").End(xlUp)) _
   .SpecialCells(4).EntireRow.Hidden = True
   Hck = True
  Else
   Cells.EntireRow.Hidden = False
   Hck = False
  End If
End Sub

というように修正して下さい。On Error Resume Next をコメント化しているので
エラーか出たらデバッグするはすです。出たら内容を報告して下さい。
あと、モジュールの先頭に

Private Hck As Boolean

の宣言はしてありますか ?
1 hits

【18165】行数が不定の集計処理について ackkn 04/9/16(木) 21:15 質問
【18166】Re:行数が不定の集計処理について Kein 04/9/16(木) 22:08 回答
【18167】Re:行数が不定の集計処理について ackkn 04/9/16(木) 22:49 お礼
【18168】Re:行数が不定の集計処理について ackkn 04/9/16(木) 23:04 質問
【18171】Re:行数が不定の集計処理について Kein 04/9/17(金) 1:46 発言
【18189】Re:行数が不定の集計処理について ackkn 04/9/17(金) 17:08 発言
【18207】Re:行数が不定の集計処理について Kein 04/9/18(土) 0:31 回答
【18208】Re:行数が不定の集計処理について Kein 04/9/18(土) 0:34 発言
【18213】Re:行数が不定の集計処理について ackkn 04/9/18(土) 11:47 回答
【18217】Re:行数が不定の集計処理について ackkn 04/9/18(土) 14:02 回答
【18223】Re:行数が不定の集計処理について Kein 04/9/18(土) 18:25 回答
【18224】Re:行数が不定の集計処理について Kein 04/9/18(土) 18:32 発言
【18249】Re:行数が不定の集計処理について ackkn 04/9/19(日) 14:41 回答
【18256】Re:行数が不定の集計処理について Kein 04/9/19(日) 20:11 回答
【18257】Re:行数が不定の集計処理について ackkn 04/9/19(日) 23:22 回答
【18259】Re:行数が不定の集計処理について Kein 04/9/20(月) 0:56 回答
【18263】Re:行数が不定の集計処理について ackkn 04/9/20(月) 6:38 お礼
【18289】Re:行数が不定の集計処理について ackkn 04/9/20(月) 17:58 質問
【18293】Re:行数が不定の集計処理について Kein 04/9/20(月) 22:18 回答
【18299】Re:行数が不定の集計処理について ackkn 04/9/20(月) 23:42 質問
【18301】Re:行数が不定の集計処理について Kein 04/9/21(火) 2:13 回答

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