Excelの出力について

質問

VB6を使用しています。
Excelに出力するときにあるセルの部分を
線を太くしたいのですがどういうコードを書けばいいのですか？
ヘルプを見ると
Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
これだと下線を赤色にするってことみたいなんですが、
xlEdgeBottom←これが下線を表すなら
上線は？右の縦線は？左の縦線は？なんて書けばいいのでしょうか？
初心者のなので親切丁寧な回答をお願いします。

回答No.4

2ch · ベストアンサー

要EXCEL参照設定
改マクロの記録

Sub Main()
　　　　Dim xlsApp　　　　　　As Excel.Application
　　　　Dim xlsBook　　　　 As Excel.Workbook
　　　　Dim xlsSheet　　　　As Excel.Worksheet
　　　　Dim xlsRange　　　　As Excel.Range

　　　　Set xlsApp = New Excel.Application
　　　　xlsApp.Visible = True
　　　　Set xlsBook = xlsApp.Workbooks.Open("c:\test.xls")
　　　　Set xlsSheet = xlsBook.Worksheets("Sheet1")
　　　　Set xlsRange = xlsSheet.Range("B2:E7")
　　　　With xlsRange
　　　　　　　　'左
　　　　　　　　With .Borders(XlBordersIndex.xlEdgeLeft)
　　　　　　　　　　　　.LineStyle = XlLineStyle.xlDash
　　　　　　　　　　　　.Weight = XlBorderWeight.xlMedium
　　　　　　　　End With
　　　　　　　　'上
　　　　　　　　With .Borders(XlBordersIndex.xlEdgeTop)
　　　　　　　　　　　　.LineStyle = XlLineStyle.xlContinuous
　　　　　　　　　　　　.Weight = XlBorderWeight.xlThin
　　　　　　　　End With
　　　　　　　　'右
　　　　　　　　With .Borders(XlBordersIndex.xlEdgeRight)
　　　　　　　　　　　　.LineStyle = XlLineStyle.xlDouble
　　　　　　　　　　　　.Weight = XlBorderWeight.xlThick
　　　　　　　　End With
　　　　　　　　'下
　　　　　　　　With .Borders(XlBordersIndex.xlEdgeBottom)
　　　　　　　　　　　　.LineStyle = XlLineStyle.xlSlantDashDot
　　　　　　　　　　　　.Weight = XlBorderWeight.xlHairline
　　　　　　　　End With
　　　　　　　　'内側縦
　　　　　　　　With .Borders(XlBordersIndex.xlInsideVertical)
　　　　　　　　　　　　.LineStyle = XlLineStyle.xlDashDotDot
　　　　　　　　　　　　.Weight = XlBorderWeight.xlMedium
　　　　　　　　End With
　　　　　　　　'内側横
　　　　　　　　With .Borders(XlBordersIndex.xlInsideHorizontal)
　　　　　　　　　　　　.LineStyle = XlLineStyle.xlContinuous
　　　　　　　　　　　　.Weight = XlBorderWeight.xlMedium
　　　　　　　　End With

　　　　　　　　'左上から左右下への斜線
　　　　　　　　With .Borders(XlBordersIndex.xlDiagonalDown)
　　　　　　　　　　　　.LineStyle = XlLineStyle.xlContinuous
　　　　　　　　　　　　.Weight = XlBorderWeight.xlHairline
　　　　　　　　End With
　　　　　　　　'右上から左下への斜線
　　　　　　　　With .Borders(XlBordersIndex.xlDiagonalUp)
　　　　　　　　　　　　.LineStyle = XlLineStyle.xlContinuous
　　　　　　　　　　　　.Weight = XlBorderWeight.xlThin
　　　　　　　　End With
　　　　End With
　　　　Stop
　　　　Set xlsRange = Nothing
　　　　Set xlsSheet = Nothing
　　　　xlsBook.Close False 'ブックを保存しない
　　　　Set xlsBook = Nothing
　　　　xlsApp.Quit
　　　　Set xlsApp = Nothing
End Sub

回答No.3

TTak

シート1のセルA1の例です。

Set wkbObj = GetObject("C:\???\???.xls")
With wkbObj.Worksheets(1).Range("A1")
　　.Borders(xlEdgeLeft).Weight = xlMedium '-左
　　.Borders(xlEdgeTop).Weight = xlMedium '-上
　　.Borders(xlEdgeBottom).Weight = xlMedium '-下
　　.Borders(xlEdgeRight).Weight = xlMedium '-右
End With

xlMediumは中くらいの太さになります。

回答No.2

BlueRay

上　…　xlEdgeTop
下　…　xlEdgeBottom
左　…　xlEdgeLeft
右　…　xlEdgeRight

「マクロの記録」を実行して、セルの詳細設定→罫線で
プリセットを外枠にして決定して記録を終了して記録された
マクロを見るとかすれば、望む記述がわかりますよ。

回答No.1

todo36

Excelで"新しいマクロの記録"をしてみれば、分かると思います。