Excel VBA質問箱 IV

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

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


4879 / 76732 ←次へ | 前へ→

【77468】Re:ちょっと原因がわかりました
発言  β  - 15/10/14(水) 0:39 -

引用なし
パスワード
   ▼桃太郎 さん:

Set rngCurrent = Range("D4:AH32") これを
Set rngCurrent = Range("E4:AI40") に変更。

chk = Cells(40, col.Column).Value これを
chk = Cells(45, col.Column).Value に変更。


>内部は縦も横も書式設定でなしの下に出てくる細かい点線でした。

元のコードには、横の点線をセットするコードは、無いと思うんですが?
もし、セットするなら、

  '土日枠

このコメントの前あたりに

  '領域内部に横 HairLine
  With rngCurrent.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlHairline
  End With

を追加してみてください。
0 hits

【77453】カレンダーに青太線 桃太郎 15/10/13(火) 1:34 質問[未読]
【77454】Re:カレンダーに青太線 β 15/10/13(火) 7:16 発言[未読]
【77455】Re:カレンダーに青太線 β 15/10/13(火) 7:48 発言[未読]
【77457】Re:カレンダーに青太線 β 15/10/13(火) 10:22 発言[未読]
【77466】遅くなりましてすいません 桃太郎 15/10/13(火) 20:36 発言[未読]
【77467】ちょっと原因がわかりました 桃太郎 15/10/13(火) 20:54 発言[未読]
【77468】Re:ちょっと原因がわかりました β 15/10/14(水) 0:39 発言[未読]
【77469】Re:ちょっと原因がわかりました 桃太郎 15/10/14(水) 3:02 お礼[未読]

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