極細罫線(ステップ ４)
Visual Basic Editor(V)(Ver2003)

罫線を引く
(例：E10〜G20の範囲を選択し、上(E10〜G10)に引く場合)
Label8をクリックし上罫線を引くソース

クリックしLabel8を選択 ↑クリックしClickを選択 ↑
↓
Private Sub Label8_Click()
：
：		← コピーし貼り付ける
End Sub
解説Label8をクリックし上罫線
選択範囲選択範囲()からデータを持って戻ってくる
With Label1Label8をクリックするとフォーム上に線を表示するLabel1
If .Visible = False Then Label1の表示(Visible)が非表示(False)なら
.Visible = TrueLabel1を表示
.Height = 1Label1の高さを1
iro = 1Sub 実行(ByVal iro As Byte, keisen As String)に持って行くデータ
Elseでなければ
.Visible = False非表示にする
iro = 0 Sub 実行(ByVal iro ・・)に持って行くデータ
End If
End With		if文のおわり
Label1の表示か非表示の設定
keisen = xlEdgeTop変数keisenを上罫線(xlEdgeTop)する
実行 iro, keisenSub 実行(ByVal iro As Byte, keisen As String)に移動
↓
サブルーチン実行のソース

Sub 選択範囲()
：
：
End Sub
    ← サブルーチン実行のソースをコピーし、Sub 選択範囲()のEnd Subの下に、貼り付ける
解説
Sub 実行(ByVal iro As Byte, keisen As String)Label8からのiro,keisenのデータを引き継ぐ
On Error GoTo erエラーが起きた場合 er にジャンプ
houkou = keisen持ってきたデータkeisenを変数houkouに入れる
If syurui = "" Then iro = 0 罫線の種類(syurui)がないなら色(iro)も無色
With ActiveSheet.Range(Cells(y1, x1), Cells(y2, x2)) 選択したセルの位置
.Borders(houkou).LineStyle = xlContinuous Label8なので、houkou(セルの上)でxlContinuous(実線）
.Borders(houkou).Weight = syurui Weight(線の太さ)でsyuruiは、初期値なら極細
.Borders(houkou).Color = myRGB Color(線の色)でmyRGBは、初期値なら黒

下、中列、右、左、中行、斜め罫線の設定
(例：上罫線の場合、Label8をクリックしフォームにLabel1を表示/非表示）
セル
罫線位置		フォームVBA
BORDERSコレクション
クリック動作
上Label8   Label1xlEdgeTop
中列Label9   Label2xlInsideHorizontal
下Label10 Label3xlEdgeBottom
左Label11 Label4xlEdgeLeft
中行Label12 Label5xlInsideVertical
右Lable13 Label6xlEdgeRight
右上がりLabel17 Image1xlDiagonalUp
右下がりLable18 Image2xlDiagonalDown
Private Sub Label8_Click()

選択範囲
With Label1
If .Visible = False Then
.Visible = True
.Height = 1
iro = 1
Else
.Visible = False
iro = 0
End If
End With
keisen = xlEdgeTop
実行 iro, keisen

End Sub

 青文字の部分を変え ↑コピーし、UserForm1のコードに貼り付けていく

(例：左)

Label8 →Label11   Label1 →Label4   xlEdgeTop →xlEdgeLeft

中列の場合、選択範囲の下にIf y1 = y2 Then Exit Subを追加

中行の場合、選択範囲の下にIf x1 = x2 Then Exit Subを追加
(例：中列)
Private Sub Label9_Click()

選択範囲
If y1 = y2 Then Exit Sub
With Label2
    ：
keisen =xlInsideHorizontal
実行 iro, keisen

End Sub

外枠罫線の設定
クリックフォーム上の動作
Label15 Label1,Label3,Label4,Label6を
同時に表示、非表示
 Label15をコピーし、UserForm1のコードに貼り付ける
内側罫線の設定
クリックフォーム上の動作
Label16 Label2,Label5を同時に表示
非表示
 Label16をコピーし、UserForm1のコードに貼り付ける
選択範囲の罫線全て、消去
クリックフォーム上の動作
Label14 Label1,Label2,Label3,Label4
,Label6,Label6,Image1,Image2
を同時に、非表示
 Label14をコピーし、UserForm1のコードに貼り付ける
動作サンプル
次は、線の太さ、色
← 戻る 次へ →