あ
With Application If bStatus Then .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic Else .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End If End With
H8,SH,マイコン,ぼやき川柳,ダウンロード
With Application If bStatus Then .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic Else .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End If End With
コメントをかく