Excel VBA質問箱 IV

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

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


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

18400 / 76732

←次へ　｜　前へ→


	【63774】関数の戻り値でSetを使う場合、解放するタイミング

木木木 - 09/12/12(土) 1:41 -


	引用なし

	パスワード

表を取得し、その表に対してフィルタをかけたりセルの数を数えたりするマクロを組んでいます。

'表の取得
Function GetA() As Range
　　Dim SttA As Range　 '表の開始地点
　　
　　For Each SttA In Range("A1:C10")
　　　　If SttA = "★" Then
　　　　　　'取得成功
　　　　　　Set GetA = Range(SttA, SttA.Offset(5, 5))
　　　　　　Exit Function
　　　　End If
　　Next
　　
　　'失敗時
　　Set GetA = Nothing
End Function

'表にフィルタをかける
Sub FilterA()
　　Dim A As Range
　　
　　If GetA Is Nothing Then
　　　　Exit Sub
　　Else
　　　　Set A = GetA　　'Range
　　End If

　　'以下、フィルタをかける

　　Set A = Nothing
End Sub

'表の集計を行う
Sub CntA()
　　Dim A As Variant
　　
　　If GetA Is Nothing Then
　　　　Exit Sub
　　Else
　　　　A = GetA　　　　'二次元配列
　　End If

　　'以下、条件にあったセルの個数をカウントする
End Sub

大まかに、上記のようなコードを書きました。
GetAの戻り値をSetで設定しているのですが、表の取得成功時に、
　　Set GetA = Nothing
で解放するタイミングが存在しないと思うのですが、関数の場合は解放しなくてもいいものなのでしょうか。

また、表の取得に失敗した場合に処理を中断するようにしているのですが、GetAが2回も出てきてまだるっこしく感じます。どうにか1つにまとめられないでしょうか。

以上、よろしくお願いします。

0 hits

▼

【63774】関数の戻り値でSetを使う場合、解放するタイミング 木木木 09/12/12(土) 1:41

≪