FC2ブログ

枠線マクロ

2017–05–28 (Sun) 14:25
今回は「枠線マクロ」を紹介します。

Sub 枠の表示()
With CommandBars("Worksheet Menu Bar").Controls("枠の表示")
waku = .list(.ListIndex)
End With

If waku = "格子" Then
Selection.Borders.LineStyle = xlContinuous
End If

If waku = "外枠" Then
Selection.BorderAround Weight:=xlMedium
End If

If waku = "普通外枠・細中枠" Then
Selection.Borders().Weight = xlHairline
Selection.BorderAround Weight:=xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeLeft).Weight = xlThin
End If

If waku = "上線" Then
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
End If

If waku = "下線" Then
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
End If

If waku = "左線" Then
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
End If

If waku = "右線" Then
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
End If

If waku = "縦中線" Then
Selection.Borders(xlInsideVertical).LineStyle = xlContinuous
End If

If waku = "横中線" Then
Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End If

If waku = "枠無し" Then
Selection.Borders.LineStyle = False
End If

End Sub

※ 細中枠以外は全て「罫線」をクリックした際の太さになっています。
このマクロは、アドインを使って、リボン(Excel2010以降対応している?)に表示されるマクロとなります。

このマクロと併せて使用します。

201703031138426a0.png

このマクロはコンボボックスが登場します。

Sub コンボボックス作成()
Dim myWsMenu As CommandBar, myCombo As CommandBarComboBox
Set myWsMenu = Application.CommandBars("Worksheet Menu Bar")
Set myCombo = myWsMenu.Controls.Add _
(Type:=msoControlComboBox, Temporary:=True)

Dim waku As CommandBarComboBox
Set waku = myWsMenu.Controls.Add _
(Type:=msoControlComboBox, Temporary:=True)
waku.Caption = "枠の表示"
waku.AddItem "格子"
waku.AddItem "外枠"
waku.AddItem "普通外枠・細中枠"
waku.AddItem "上線"
waku.AddItem "下線"
waku.AddItem "左線"
waku.AddItem "右線"
waku.AddItem "縦中線"
waku.AddItem "横中線"
waku.AddItem "枠無し"
waku.Style = msoComboLabel
waku.OnAction = "枠の表示"
End Sub

Sub 枠の指定
Selection.Borders.LineStyle = xlContinuous
Selection.Borders.LineStyle = xlContinuous
End Sub

Selection.Borders.LineStyle を変更すれば、太さなども簡単に変更できます!

201703031138428a8.png

20170303113844850.png

201703031138451f8.png

それではまたb
スポンサーサイト



« 最終行と最終行列の削除 | HOME |  スタイルを削除する »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク