Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

59790 / 76738

←次へ　｜　前へ→


	【21622】可視セルにのみ式を入れるには

にしもり - 05/1/25(火) 11:01 -


	引用なし

	パスワード

こんにちは。VBAで次のことをしています。
まずフィルターで空白セルのみを抽出します。
その空白セルにのみ（つまり可視セルにのみ）、直上行をポイントする式をいれたいのです。たとえばA8が空白なら「=A7」をいれたいのです。

　　Selection.AutoFilter Field:=1, Criteria1:="="
　　Range("A8").Select
　　ActiveCell.FormulaR1C1 = "=R[-1]C"
　　Range("A8").Select
　　Selection.FillDown
　　Selection.Font.ColorIndex = 15

　　ActiveWindow.ScrollRow = 33
　　ActiveWindow.ScrollRow = 26
　　ActiveWindow.ScrollRow = 18
　　ActiveWindow.ScrollRow = 11
　　ActiveWindow.ScrollRow = 7

ところが結果を見るとA8にしか式が入っていません。
A11以降にも式を入れるにはどう書けばいいでしょうか？

0 hits

▼

【21622】可視セルにのみ式を入れるには にしもり 05/1/25(火) 11:01

≪