Excel VBA質問箱 IV

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

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


16283 / 76732 ←次へ | 前へ→

【65918】Re:SpecialCellsのエラー処理
発言  Jaka  - 10/7/7(水) 11:05 -

引用なし
パスワード
   下記コードの場合、空白セルが無いのにエラーにならないのは、
On Error Resume Next が、効いているから。

>Dim Deg空白 As Range
>On Error Resume Next
>Set Deg空白 = Range(Cells(i, "A"), Cells(i + x - 1, "B")).SpecialCells(xlCellTypeBlanks)
>Deg空白.Value = "(空白)"

通常の考え方なら、エラートラップをするのは、この行だけでですから、
これを過ぎたら、トラップを解除しておきます。
>Set Deg空白 = Range(Cells(i, "A"), Cells(i + x - 1, "B")).SpecialCells(xlCellTypeBlanks)

このように解除。
>On Error Resume Next
>Set Deg空白 = Range(Cells(i, "A"), Cells(i + x - 1, "B")).SpecialCells(xlCellTypeBlanks)
On Error Goto 0
>Deg空白.Value = "(空白)"

もし、空白セルが無い場合は、「Deg空白」に何もセットされていないわけですから。
エラートラップが解除された状態で、
>Deg空白.Value = "(空白)"
などとやると、エラーになるはずです。

>この1番下で空白をに"(空白)"を入れていますが、マクロを実行した後に
>エラーじゃなかったところに"(空白)"が入っていました。。。
これは、何かの間違いか、勘違いと思います。


Dim Deg空白 As Range
On Error Resume Next
Set Deg空白 = Range(Cells(i, "A"), Cells(i + x - 1, "B")).
(xlCellTypeBlanks)
On Error Goto 0
If Not Rng Is Nothing Then
  Deg空白.Value = "(空白)"
Else
  空白セルが見つからなかった場合にさせたい処理。
End If


おまけ。
覚えておくとためになるだろう事。

【253】良く解らないSpecialCells
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=253;id=FAQ

SpecialCellsは、使った形跡の無い(UsedRangeの範囲以外)セルを無視します。
【42687】範囲指定について
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=42687;id=excel

【43413】SpecialCellsの限界って・・・。
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=43413;id=excel
1 hits

【65895】SpecialCellsのエラー処理 けい 10/7/6(火) 11:11 質問
【65896】Re:SpecialCellsのエラー処理 メタ 10/7/6(火) 11:20 回答
【65902】Re:SpecialCellsのエラー処理 けい 10/7/6(火) 13:18 お礼
【65897】Re:SpecialCellsのエラー処理 Jaka 10/7/6(火) 12:23 発言
【65901】Re:SpecialCellsのエラー処理 けい 10/7/6(火) 13:17 お礼
【65903】Re:SpecialCellsのエラー処理 Jaka 10/7/6(火) 13:36 発言
【65911】Re:SpecialCellsのエラー処理 けい 10/7/6(火) 17:10 質問
【65912】Re:SpecialCellsのエラー処理 Jaka 10/7/6(火) 17:25 発言
【65913】Re:SpecialCellsのエラー処理 けい 10/7/6(火) 17:50 質問
【65918】Re:SpecialCellsのエラー処理 Jaka 10/7/7(水) 11:05 発言
【65920】Re:SpecialCellsのエラー処理 けい 10/7/7(水) 13:02 お礼

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