エクセルVBA 罫線 処理時間短縮
いつもお世話になっております。
罫線を1行づつ引く場合、とても時間がかかります。
なにか良い方法はないでしょうか。
ScreenUpdatingを使ってはいるのですが、
1行づつの処理が見えてしまいます。
(selectしている時点で、ダメなのでしょうか)
何か良い方法をご存知でしたら、ご教授いただきたく、
よろしくお願い致します。
下記に私のつたないソースを記入します。
Function kei07_縦中央線削除 _
(file_name, sh_name, f_gyo, e_gyo, f_retu, e_retu)
Application.ScreenUpdating = False
back_file_name = ActiveWorkbook.Name
back_sh_name = ActiveSheet.Name
Workbooks(file_name).Activate
Worksheets(sh_name).Select
Range(Cells(f_gyo, f_retu), Cells(e_gyo, e_retu)).Select
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Cells(e_gyo + 1, f_retu).Select
Workbooks(back_file_name).Activate
Worksheets(back_sh_name).Select
Application.ScreenUpdating = True
End Function
お礼
返答ありがとうございます。 非常に解りやすく疑問に思っていたことが解決しました。 今後も何か分からないことがあって質問することもあるかもしれませんがどうぞよろしくお願いいたします。