Excel VBA質問箱 IV

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

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


12620 / 13644 ツリー ←次へ | 前へ→

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

【9536】空欄箇所があるときにコメントを表示
質問  hana  - 03/12/8(月) 9:49 -

引用なし
パスワード
   VBA初心者です。

エクセルで入力ファイルを作成しています。
F列とG列は、
1.他の行(A列からV列が入力範囲です)に値がある時、
2.F列の最下行より上の列の、FとGのセル
には必ず値が入るようにしたいのです。

現在コマンドボタンで、印刷を行わせているのですが、
その実行の前に、F、G列が空欄だったら、
コメントを表示させてその空欄の箇所にカーソルを移動させたいのですが、
どのようにすればいいのでしょうか?

マクロの記録で挑戦してみようと思ったのですが、
どうにもできずに困っております
よろしくお願いします。

【9538】Re:空欄箇所があるときにコメントを表示
回答  INA  - 03/12/8(月) 9:52 -

引用なし
パスワード
   最下行を判断できる列はどこになりますか?
A列で構いませんか?

【9542】Re:空欄箇所があるときにコメントを表示
質問  hana  - 03/12/8(月) 10:23 -

引用なし
パスワード
   ▼INA さん:
>最下行を判断できる列はどこになりますか?
>A列で構いませんか?

いつもありがとうございます。
最下行を判断できるのは、F列です
よろしくお願いします。

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

引用なし
パスワード
   F列の空白を判断するのに
F列で最下行を判断することは出来ないと思いますが?

【9548】Re:空欄箇所があるときにコメントを表示
質問  hana  - 03/12/8(月) 13:12 -

引用なし
パスワード
   ▼INA さん:
ご指摘ありがとうございます。
その通りなのですが、
最下列に必ず値が無くてはならないのがF,G列なのです。
その他の列は、記載の無いときもあるのです。
G列は、IF関数が200行目まで入ってします。
ですので、F列が最適かと思ったのです。

F列の最下行、
もし、HからS列でFの最下行よりも下行に値があれば、
それが、F列の最下行という事はできるのでしょうか?

【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

【9556】Re:空欄箇所があるときにコメントを表示
回答  INA  - 03/12/8(月) 15:36 -

引用なし
パスワード
   ctrl + endキー でジャンプしたセルを最下行と見なして、作ってみました。
G列は式が入力されているとのことですので、F列を対象にしています。

Sub sample()
Dim i As Long

  For i = 1 To Cells.SpecialCells(xlLastCell).Row
    If Cells(i, 6).Value = "" Then
      Cells(i, 6).Select
      MsgBox Cells(i, 6).Address & " が空白です。", 48
    End If
    
  Next i

End Sub

【9559】Re:空欄箇所があるときにコメントを表示
お礼  hana  - 03/12/8(月) 17:14 -

引用なし
パスワード
   ichinose さん、INA さん。
ありがとうございます。
おかげ様で解決できました。

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