Excel VBA質問箱 IV

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

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


45700 / 76732 ←次へ | 前へ→

【36019】コード簡略化のアドバイスを
質問  春まき  - 06/3/19(日) 4:45 -

引用なし
パスワード
   横長のカレンダーで、C5からAG5まで曜日が入れてあり、曜日は月を変えると関数で変わるようにしてあります。土日の4列から31列まで自動的に青太の罫線で囲むようにしたいのですが、条件付き書式は使い切っているのでマクロを使うことにしました。
なんとか以下のコードで動かすことができましたが、とても遅いのです。
自分でも色々省略したのですが、他に方法がありましたらご指導お願いいたします。
(変数宣言より上の行は罫線の初期化をしています。)

Range(Cells(4, 3), Cells(31, 33)).Select
  Selection.Borders(xlDiagonalDown).LineStyle = xlNone
  Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  With Selection.Borders(xlEdgeLeft)
    .Weight = xlHairline
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlEdgeTop)
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlEdgeBottom)
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlEdgeRight)
    .Weight = xlHairline
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlInsideVertical)
    .Weight = xlHairline
    .ColorIndex = xlAutomatic
  End With

  Dim kei As Integer
  For kei = 3 To 33
  Select Case Cells(5, kei)
  Case Is = 7
  Range(Cells(4, kei), Cells(31, kei)).Select
  With Selection.Borders(xlEdgeLeft)
    .Weight = xlMedium
    .ColorIndex = 11
  End With
  With Selection.Borders(xlEdgeTop)
    .Weight = xlMedium
    .ColorIndex = 11
  End With
  With Selection.Borders(xlEdgeBottom)
    .Weight = xlMedium
    .ColorIndex = 11
  End With

  Case Is = 1
  Range(Cells(4, kei), Cells(31, kei)).Select
  With Selection.Borders(xlEdgeTop)
    .Weight = xlMedium
    .ColorIndex = 11
  End With
  With Selection.Borders(xlEdgeBottom)
    .Weight = xlMedium
    .ColorIndex = 11
  End With
  With Selection.Borders(xlEdgeRight)
    .Weight = xlMedium
    .ColorIndex = 11
  End With
  End Select
  Next kei

6 hits

【36019】コード簡略化のアドバイスを 春まき 06/3/19(日) 4:45 質問
【36021】Re:コード簡略化のアドバイスを Hirofumi 06/3/19(日) 9:04 発言
【36022】速い! 春まき 06/3/19(日) 10:08 お礼
【36055】再質問 春まき 06/3/20(月) 10:59 質問
【36065】Re:土日を青罫線で囲みたい かみちゃん 06/3/20(月) 13:06 回答
【36110】御返事遅くなりました 春まき 06/3/21(火) 0:40 お礼
【36111】Re:土日を青罫線で囲みたい かみちゃん 06/3/21(火) 10:44 発言
【36134】何度もすいません 春まき 06/3/22(水) 2:55 お礼
【36068】Re:再質問 Jaka 06/3/20(月) 13:35 発言
【36108】Jaka 様 春まき 06/3/21(火) 0:22 回答
【36135】使う上司の都合なんて知りませんが...。 Jaka 06/3/22(水) 9:34 発言
【36157】Re:使う上司の都合なんて知りませんが...。 春まき 06/3/22(水) 22:55 お礼
【36102】Re:再質問 Hirofumi 06/3/20(月) 19:54 回答
【36103】Re:再質問 かみちゃん 06/3/20(月) 20:14 発言
【36105】Re:再質問 Hirofumi 06/3/20(月) 22:25 回答

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