Excel VBA質問箱 IV

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

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


10475 / 13644 ツリー ←次へ | 前へ→

【21630】可視セルに連続的に式を入れるには にしもり 05/1/25(火) 15:14 質問[未読]
【21632】Re:可視セルに連続的に式を入れるには Jaka 05/1/25(火) 16:02 回答[未読]
【21636】Re:可視セルに連続的に式を入れるには にしもり 05/1/25(火) 16:33 質問[未読]
【21638】Re:可視セルに連続的に式を入れるには Jaka 05/1/25(火) 16:50 回答[未読]
【21642】Re:可視セルに連続的に式を入れるには にしもり 05/1/25(火) 17:36 お礼[未読]

【21630】可視セルに連続的に式を入れるには
質問  にしもり  - 05/1/25(火) 15:14 -

引用なし
パスワード
   こんにちは。
A列とB列にフィルターをかけます。
まずA列の空白セルのみ抽出して、直上のセルの内容を入れます。
次にA列が可視セルになった状態でB列の空白セルのみ抽出して、直上のセルの内容を入れたいのです。
しかし下記(あ)のところで、該当セルが見当たらないというエラーが出てしまいます。
どこが悪いのでしょうか。どうかご教示ください。

  Dim rag As Range, FRw As Long
  
  Range("A8:A908").AutoFilter Field:=1, Criteria1:="="
  Set rag = Range("A8:A908").SpecialCells(xlCellTypeVisible)
  FRw = rag.Cells(1).Row
  rag.Formula = "=A" & FRw - 1
  Range("A8:A908").SpecialCells(xlCellTypeVisible).Select
  Selection.Font.ColorIndex = 15
  Set rag = Nothing

  Range("B8:B908").AutoFilter Field:=1, Criteria1:="="
  Set rag = Range("B8:B908").SpecialCells(xlCellTypeVisible) (あ)
  FRw = rag.Cells(1).Row
  rag.Formula = "=B" & FRw - 1
  Range("B8:B908").SpecialCells(xlCellTypeVisible).Select
  Selection.Font.ColorIndex = 15
  ActiveSheet.AutoFilterMode = False
  Set rag = Nothing
  

【21632】Re:可視セルに連続的に式を入れるには
回答  Jaka  - 05/1/25(火) 16:02 -

引用なし
パスワード
   SpecialCellsは、無いとエラーになりますからエラートラップしてください。

On Error Resume Next
Set rag = Range("B8:B908").SpecialCells(xlCellTypeVisible)
↓どっちかのIf
If Err Then Exit Sub
If rag Is Nothing Then Exit Sub
Err.Clear
On Error GoTo 0

【21636】Re:可視セルに連続的に式を入れるには
質問  にしもり  - 05/1/25(火) 16:33 -

引用なし
パスワード
   ▼Jaka さん:
>SpecialCellsは、無いとエラー
ところがSpecialCells(空白セル)はまちがいなく存在するのです。
トラップするわけにはいかないのです。
VBAでは出来ない、ということになるのでしょうか?

【21638】Re:可視セルに連続的に式を入れるには
回答  Jaka  - 05/1/25(火) 16:50 -

引用なし
パスワード
   あ、絞り込んでいたんですね。
違う列を全部 Field:=1 のままだとまずいと思います。
左上のタイトルが入っている?A1あたりをフィルタして
Field:=1、Field:=3 としないと...。
フィルタした部分の取得は、2行目から全表示された最終行の範囲で行えば良いと思います。

少しは参考になると思います。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=84;id=FAQ

【21642】Re:可視セルに連続的に式を入れるには
お礼  にしもり  - 05/1/25(火) 17:36 -

引用なし
パスワード
   ▼Jaka さん:
一応なんとかかんとかできたみたいです。
本当にありがとうございました。

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