Excel VBA ユーザー定義関数の引数に列全体が指定された場合の処理について

Question

###前提・実現したいこと

ボタンを押すと選択範囲内の全角文字列が半角文字列に置き換わるような機能を実装するに当たって、
C列全体が選択された状態でボタンが押されると計算量が膨大になる為、下記対策を施しています。

###該当のソースコード

Sub ボタン1_Click()
    Dim buf As Range
    
    For Each buf In Application.Intersect(Selection, ActiveSheet.UsedRange)
        buf = convertHankaku(buf.Value)
    Next buf
End Sub

Private Function convertHankaku(str As String) As String
    convertHankaku = StrConv(str, vbNarrow)
End Function

###質問
特に困っているというわけではないのですが、このやり方は妥当といえるのでしょうか。
それともこんな事をしなくてももっと簡潔に書く方法があるのでしょうか。
どなたかより良い方法をご存知であれば教えて下さい。

Answer 1

サンプルのデータで確認してみましたが、列全体を指定してもそれほど時間は掛からないので、実際のデータでは遅いのかもしれません。

そうすると処理時間の大半を占めるのはconvertHankaku()ということになるので、短縮は難しいかもしれませんね。

それよりも選択されていない状態ではエラーになるので、for each 部分を以下のようにしてみました。
（選択された部分と値がある範囲の交差する部分とした）

Sub ボタン1_Click()
Dim buf As Range

  For Each buf In Application.Intersect(ActiveSheet.UsedRange, Range(Selection, ActiveCell.SpecialCells(xlLastCell)))
    If IIf(IsNull(buf), "", buf) <> "" Then
     buf = convertHankaku(buf.Value)
    end if
  Next
End Sub

※ifの部分は変換する必要のないところをスルーする為です。

一応動作確認はしましたが、最近VBEは触ってないので、外しているかもしれません。

Comments

[zorac]

saziさん
>それよりも選択されていない状態ではエラーになるので、for each 部分を以下のようにしてみました。
全く気付いていませんでした。当方でも動作確認しましたが、エラー回避出来るようになりました。
ありがとうございます。大変勉強になります。