こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

-広告-

解決済みの質問

RoundUpでコンバイルエラーが出ます

よろしくお願いします。
For Each shp In Sheets("施工写真【塗装】").Shapes
EndRow = Application.Max(EndRow, shp.BottomRightCell.Row)
Next
UserForm1.Label3.Caption = "ページ数は " & RoundUp(((EndRow) / 44), 0) & " ページです"
と、するとRoundUpのところで
”コンバイルエラー”
”SUBまたはFunctionが定義されていません”
と表示されます。
修正方法を教えてくださいませ。
悪戦苦闘しておりますが、私の能力では解決できそうにありません。

投稿日時 - 2018-01-13 14:41:38

QNo.9417925

すぐに回答ほしいです

質問者が選んだベストアンサー

WorksheetFunction.RoundUp(((EndRow) / 44), 0)
or
Application.RoundUp(((EndRow) / 44), 0)

でしょうか。

また、私だったら、
さらに、String型に変換します。

投稿日時 - 2018-01-13 20:40:04

お礼

HohoPapaさん
早速のご返答ありがとうございます。
解決しました。すっきりです。

投稿日時 - 2018-01-14 00:52:35

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(4)

ANo.3

No2です。回答は多分間違いです。申し訳ありません。

投稿日時 - 2018-01-13 18:43:21

ANo.2

vbaの参照設定で適切なものを入れる必要があるかと。
何が適切であるか忘れた。

投稿日時 - 2018-01-13 18:15:54

ANo.1

数値を文字にしないと。

投稿日時 - 2018-01-13 17:26:32

お礼

gobou_pooさん
早速のご返答ありがとうございます。
解決しました。

投稿日時 - 2018-01-14 00:54:13

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-