ボタンを押すと選択範囲内の全角文字列が半角文字列に置き換わるような機能を実装するに当たって、
C列全体が選択された状態でボタンが押されると計算量が膨大になる為、下記対策を施しています。
###該当のソースコード
VBA
1Sub ボタン1_Click() 2 Dim buf As Range 3 4 For Each buf In Application.Intersect(Selection, ActiveSheet.UsedRange) 5 buf = convertHankaku(buf.Value) 6 Next buf 7End Sub 8 9Private Function convertHankaku(str As String) As String 10 convertHankaku = StrConv(str, vbNarrow) 11End Function
###質問
特に困っているというわけではないのですが、このやり方は妥当といえるのでしょうか。
それともこんな事をしなくてももっと簡潔に書く方法があるのでしょうか。
どなたかより良い方法をご存知であれば教えて下さい。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/08/28 14:58