Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70840 / 76734

←次へ　｜　前へ→


	【10396】Re:行の追加

パピー（ＰＡＰＩー） - 04/1/23(金) 15:51 -


	引用なし

	パスワード

▼たかみさん：こんにちは。

罫線を引く様にしてみました。
二重線で引くようにしていますが、
.LineStyle の定数を変更すれば、罫線のタイプが指定できます。
定数は、
　xlContinuous
　xlDash
　xlDashDot
　xlDashDotDot
　xlDot
　xlDouble
　xlSlantDashDot
　xlLineStyleNone
から選んでください。
それから、.Weight の定数を変更すれば、罫線の太さが指定できます。
定数は、
　xlHairline
　xlThin
　xlMedium
　xlThick
なお、これらの事はＶＢＡのヘルプで確認できます。

Private Sub CommandButton1_Click()
Dim L As Long

　　Application.ScreenUpdating = False
　　
　　L = Range("B65536").End(xlUp).Row
　　
　　Rows(L).Insert Shift:=xlDown

　　Rows(L - 1).Copy
　　Rows(L).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
　　　　SkipBlanks:=False, Transpose:=False
　　Application.CutCopyMode = False
　　
　　With Range("B" & L & ":I" & L).Borders(xlEdgeTop)
　　　　.LineStyle = xlContinuous　 '罫線の種類
　　　　.Weight = xlThin　　　　　　'罫線の太さ
　　　　.ColorIndex = xlAutomatic
　　End With
　　With Range("B" & L & ":I" & L).Borders(xlEdgeBottom)
　　　　.LineStyle = xlDouble　　　 '罫線の種類
　　　　.Weight = xlThick　　　　　 '罫線の太さ
　　　　.ColorIndex = xlAutomatic
　　End With

　　Range("B" & L).Select
　　
　　Application.ScreenUpdating = True
End Sub

別のやり方もあると思いますが、試して見て改造してください。

1 hits

▼

【10355】行の追加 たかみ 04/1/21(水) 10:04