Excel VBA質問箱 IV

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

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


71675 / 76732 ←次へ | 前へ→

【9550】Re:空欄箇所があるときにコメントを表示
回答  ichinose  - 03/12/8(月) 14:04 -

引用なし
パスワード
   hana さん、INA さん こんにちは。

>ご指摘ありがとうございます。
>その通りなのですが、
>最下列に必ず値が無くてはならないのがF,G列なのです。
>その他の列は、記載の無いときもあるのです。
>G列は、IF関数が200行目まで入ってします。
>ですので、F列が最適かと思ったのです。
>
>F列の最下行、
>もし、HからS列でFの最下行よりも下行に値があれば、
>それが、F列の最下行という事はできるのでしょうか?
F列とH列〜S列の入力行の最大値を見つける方法をですが、
意味が合っていますか?

'===========================================================
Sub main()
  If WorksheetFunction.CountBlank(Range(Cells(1, 6), Cells(get_max_row, 6))) > 0 Then
   MsgBox "F列は全部埋めてね!!"
   Range(Cells(1, 6), Cells(get_max_row, 6)).SpecialCells(xlCellTypeBlanks).Cells(1).Select
   End If
End Sub
'=================================================================
Function get_max_row() As Long
  Dim max_row(1 To 13)
  max_row(1) = Cells(Rows.Count, 6).End(xlUp).Row
  For idx = 2 To 13
   max_row(idx) = Cells(Rows.Count, idx + 6).End(xlUp).Row
   Next
  get_max_row = WorksheetFunction.Max(max_row())
End Function

2 hits

【9536】空欄箇所があるときにコメントを表示 hana 03/12/8(月) 9:49 質問
【9538】Re:空欄箇所があるときにコメントを表示 INA 03/12/8(月) 9:52 回答
【9542】Re:空欄箇所があるときにコメントを表示 hana 03/12/8(月) 10:23 質問
【9546】Re:空欄箇所があるときにコメントを表示 INA 03/12/8(月) 12:45 回答
【9548】Re:空欄箇所があるときにコメントを表示 hana 03/12/8(月) 13:12 質問
【9550】Re:空欄箇所があるときにコメントを表示 ichinose 03/12/8(月) 14:04 回答
【9556】Re:空欄箇所があるときにコメントを表示 INA 03/12/8(月) 15:36 回答
【9559】Re:空欄箇所があるときにコメントを表示 hana 03/12/8(月) 17:14 お礼

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