[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2005/12/16(Fri) 23:11
投稿者名：タマネギ戦士
Ｅメール：
ＵＲＬ　：
タイトル：エクセルページの最終ＲＯＷ
はじめまして新参者ですがよろしくお願いします。
ＶＢ６のエクセル２０００をつかっています

シートにページがいくつかあるエクセルに対してなんですが
ページの最後のＲＯＷを取る関数または方法ってありませんか？
色々調べてみたんですがみつかりません、皆さんの力を貸してください
よろしくお願いします。

投稿時間：2005/12/16(Fri) 23:19
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: エクセルページの最終ＲＯＷ
> ページの最後のＲＯＷを取る関数または方法ってありませんか？
> 色々調べてみたんですがみつかりません、皆さんの力を貸してください
色々調べたなら見つかったはずですが。
ここの Excel & Word関係 に書いてある方法ではだめでしたか？
つい最近の .NET の掲示板の方にも同じ質問があったりして。

投稿時間：2005/12/16(Fri) 23:30
投稿者名：タマネギ戦士
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: エクセルページの最終ＲＯＷ
花ちゃんさん即答ありがとうございます。

もう一度調べてみます
それともう一つ質問なんですが。
エクセルのフォントのサイズで６．８．９．１０となっていますが
なぜ７ポイントがないんでしょうか？何か意味があるのですか？
ご存じでしたら教えてください！

投稿時間：2005/12/16(Fri) 23:55
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: エクセルページの最終ＲＯＷ
> もう一度調べてみます
[最終セル]をキーワードにGoogle等で検索して見て下さい。

> エクセルのフォントのサイズで６．８．９．１０となっていますが
> なぜ７ポイントがないんでしょうか？何か意味があるのですか？

8ポイントも10ポイントもありません。
チョッと調べれば解ります。
(ポイント をヘルプで調べて結果を教えて下さい）

Private Sub Command1_Click()
    Dim i As Single
    For i = 6 To 12 Step 0.5
        Me.FontSize = i
        Debug.Print Me.FontSize
    Next i
End Sub

投稿時間：2005/12/17(Sat) 00:36
投稿者名：タマネギ戦士
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: エクセルページの最終ＲＯＷ
ありがとうございます
もう少しがんばってみます
無理だったらまた書いていいですか？

投稿時間：2005/12/19(Mon) 18:12
投稿者名：タマネギ戦士
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: エクセルページの最終ＲＯＷ
やっぱりわかりません。
たとえばエクセルのシート①を印刷すると10ページ印刷されるとします。
その1ページのROWがXだとすると
Xを自動で求める関数ってあるのでしょうか？
10ページ目の最後のROWはとれたんですが・・・・・

やりたいこととしては
①エクセルのセルに縦に値をVBから入れます。
②セルの横はばわ固定なんですが縦はセル内が全部表示できるようオートフィットします。
③そのときの１ページのROWを件数とみなし”ページ１『X件』”の用に表示したい。
④挿入される値の文字数は1＜＝1024文字です。
⑤指定のシートにはヘッダー及びフッターがある。
↑の用な仕様です

皆さんのお力を貸してくださいお願いします。

投稿時間：2005/12/19(Mon) 18:41
投稿者名：るしぇ
Ｅメール：
ＵＲＬ　：
タイトル：Re^6: エクセルページの最終ＲＯＷ
エクセルVBAのヘルプを『改ページ』で検索すると、まず DisplayPageBreaks プロパティ
に行き着きます。自動でページ区切りが表示できたら、HPageBreak オブジェクトで
取得できそうです。サンプルコードも載ってます。調べてみて下さい。
以下、エクセルVBAマクロで確認しました。
    Dim w As Worksheet
    Dim pb As HPageBreak
    Set w = Worksheets("Sheet1")
    For Each pb In w.HPageBreaks
        Debug.Print pb.Location.Address
    Next

投稿時間：2005/12/20(Tue) 09:41
投稿者名：タマネギ戦士
Ｅメール：
ＵＲＬ　：
タイトル：Re^7: エクセルページの最終ＲＯＷ
るしぇさんありがとうございます。

今日ためしてみます

投稿時間：2005/12/28(Wed) 13:24
投稿者名：タマネギ戦士
Ｅメール：
ＵＲＬ　：
タイトル：Re^8: エクセルページの最終ＲＯＷ
かなり返事遅れました
るしぇさんありがとうございます。
ちゃんとできました。
これて安心して年が越せそうです
よいお年を