·
2 months ago
Great was trying to paind for a good loook of my site presentation https://jpeeiclinic.blogspot.com
ご存知のとおり、セルに背景色を塗りつぶすと、グリッド線もカバーされます。この場合、Excelセルに背景色を塗りつぶしながらグリッド線を維持して、次のスクリーンショットを表示するにはどうすればよいでしょうか。
通常、この仕事を直接解決する方法はありませんが、ここでは、VBAコードを紹介します。 次のようにしてください。
1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic for Applications 窓。
2。 左側で プロジェクト-VBAProject ペイン、ダブルクリック このワークブック 拡張された下 VBAProject、次に、次のVBAコードをコピーして空のモジュールに貼り付けます。
VBAコード:色を塗りつぶしながらグリッド線を保持する
Dim xRgPre As Range Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next If Not xRgPre Is Nothing Then DrawBorders xRgPre Set xRgPre = Target End Sub Private Sub DrawBorders(ByVal Rg As Range) 'Updateby Extendoffice 20160725 Dim xCell As Range Application.ScreenUpdating = False For Each xCell In Rg If xCell.Interior.ColorIndex = xlNone Then With xCell.Borders If .ColorIndex = 15 Then .LineStyle = xlNone End If End With Else With xCell.Borders If .LineStyle = xlNone Then .Weight = xlThin .ColorIndex = 15 End If End With End If Next Application.ScreenUpdating = True End Sub
3。 次に、コードウィンドウを保存して閉じます。これで、セルの範囲の色を塗りつぶすと、グリッド線が自動的に表示されます。