[[20060319050219]]　『キリキさん　やったよ !』（shota）　ページの最後に飛ぶ

『キリキさん　やったよ !』（shota）
教えられたマクロのおかげでいいものが出来ました。

 今までの私が作ったマクロだとA列からAA列に飛ぶときA列をABCDEFと
 結合していたらAA列に行ったとき、
 AFまで飛んでしまってかっこ悪かったけれどキリキさんのおかげで良くなりました。
 まだ不備な箇所があったら教えてください。
 宜しくお願いします。
 教えてもらったマクロを掲載させていただきます。
 皆さんにも役に立つときもあるかもしれません。
 Sub 回答を見る()
 Dim R As Long
 R = Application.Max(Application.Floor(ActiveCell.Row, 100), 2)
 Range("AA" & R).Select
 Application.Goto Reference:=ActiveCell, Scroll:=True
 End Sub
 Sub 問に戻る()
 Dim R As Long
 R = Application.Max(Application.Floor(ActiveCell.Row, 100), 2)
 Range("B" & R).Select
 Application.Goto Reference:=ActiveCell, Scroll:=True
 End Sub
 Sub 戻る()
 ActiveWindow.SelectedSheets.Visible = False
 ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
 Selection.Interior.ColorIndex = 3
 End Sub
 なお、私が１１年にわたって集めてきた資料を是非皆さんに見ていただきたいので、
 ここで紹介させていただきます。
 「最初に」というファイルと15個の圧縮フォルダの中に50個のファイルがあります。
 「最初に」というファイルから読んで指示通りに設定しないとマクロは動きませんよ。
 http://www.realintegrity.net/~yancha/ブリーフケースからファイルを取ってくださいね。
 平日は毎日更新しますからホームページはお気に入りに入れて定期的にファイルを取ってくださいね。

 良かったですね＾＾

 恥ずかしいから、名前で言うのは。。。
　
 （キリキ）

以後気をつけますです。はい。

 今は集めたQ＆Aのファイルサイズを統一するために頑張っています。
 だからブリーフケースの各フォルダの更新日時の新しいのを取るようにしてくださいね。
 本当にありがとうございました。
 「感謝感激雨あられ」の心境です。

コメント返信：

[ 一覧(最新更新順) ]

[[20060319050219]] 『キリキさん やったよ !』（shota） ページの最後に飛ぶ

[[20060319050219]]　『キリキさん　やったよ !』（shota）　ページの最後に飛ぶ