Excel VBA質問箱 IV

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

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


20577 / 76732 ←次へ | 前へ→

【61569】Re:マクロ実行中でのシート固定
発言  もも  - 09/5/19(火) 10:26 -

引用なし
パスワード
   ▼たけ さん:

こうしてみては?

Application.ScreenUpdating = False

Select Case Worksheets("入力シート").Cells(4, 48).Value
 Case 1
  With Sheets("反映シート").Shapes("pp001")
   .Fill.Visible = msoTrue
   .Fill.ForeColor.SchemeColor = 10
  End With
 Case Else
  Sheets("反映シート").Shapes("pp001").Fill.Visible = msoFalse
End Select

Application.ScreenUpdating = True

0 hits

【61565】マクロ実行中でのシート固定 たけ 09/5/18(月) 23:22 質問
【61566】Re:マクロ実行中でのシート固定 kanabun 09/5/19(火) 0:02 発言
【61567】Re:マクロ実行中でのシート固定 kanabun 09/5/19(火) 0:24 発言
【61568】Re:マクロ実行中でのシート固定 たけ 09/5/19(火) 10:01 発言
【61569】Re:マクロ実行中でのシート固定 もも 09/5/19(火) 10:26 発言
【61570】Re:マクロ実行中でのシート固定 kanabun 09/5/19(火) 11:12 発言
【61571】Re:マクロ実行中でのシート固定 もも 09/5/19(火) 13:17 発言
【61572】Re:マクロ実行中でのシート固定 たけ 09/5/19(火) 21:22 お礼

20577 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free