Excel VBA質問箱 IV

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

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


29733 / 76732 ←次へ | 前へ→

【52274】Re:必要ページ数の表示
回答  Hirofumi  - 07/11/4(日) 21:03 -

引用なし
パスワード
   Option Explicit

Public Sub Sample()
  
  Dim gyousuu As Long
  Dim pagesuu As Long
  Dim strProm As String

  With Worksheets("入力表").Cells(1, 2)
    '行数の取得
    gyousuu = .Offset(Rows.Count - .Row).End(xlUp).Row - .Row + 1
    If gyousuu <= 1 And .Value = "" Then
      strProm = "データが有りません"
      GoTo Wayout
    End If
  End With
  
  pagesuu = -Int(-(gyousuu + (8 - 4)) / 8)
    
  strProm = pagesuu & "ページ" & vbLf & "処理が完了しました "
   
Wayout:

  MsgBox strProm, vbInformation
     
End Sub
0 hits

【52267】必要ページ数の表示 Hilonov 07/11/4(日) 20:15 質問
【52269】Re:必要ページ数の表示 ぱっせんじゃー 07/11/4(日) 20:22 発言
【52271】Re:必要ページ数の表示 Hilonov 07/11/4(日) 20:31 発言
【52272】Re:必要ページ数の表示 ぱっせんじゃー 07/11/4(日) 20:39 発言
【52273】Re:必要ページ数の表示 Hilonov 07/11/4(日) 20:50 発言
【52274】Re:必要ページ数の表示 Hirofumi 07/11/4(日) 21:03 回答
【52276】Re:必要ページ数の表示 Hirofumi 07/11/4(日) 21:55 回答
【52277】Re:必要ページ数の表示 Hilonov 07/11/4(日) 22:06 回答
【52285】Re:必要ページ数の表示 Hilonov 07/11/5(月) 12:33 お礼

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