No.2ベストアンサー
- 回答日時:
こんばんは。
まずは基本的なことの確認をします。
・Excelへの参照設定はできていますよね?
できてないなら、「ソリューションエクスプローラ」から該当のプロジェクトを右クリックし、
「参照の追加」から「COM」タブで「Excel 12.0 Object Library」を選択して「OK」をクリックし
ておいてください。
・VBでExcelを操作するのはなかなかやっかいです。Excelのマクロの記録は役には立ちますが
そのままでは使用できません。
・また、いちいち「Select」しなくても罫線くらいは引けます。
以下のコードは、新しいExcelを開いてブックを追加し、Sheet1のA1:B2のセル範囲を太罫線で囲みます。
Imports Microsoft.Office.Interop.Excel
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim AppExcel As New Microsoft.Office.Interop.Excel.Application
AppExcel.Visible = True
Dim WB As Workbook
WB = AppExcel.Workbooks.Add
Dim WS As Worksheet
WS = WB.Worksheets(1)
With WS.Range("A1:B2")
With .Borders(XlBordersIndex.xlEdgeLeft)
.LineStyle = XlLineStyle.xlContinuous
.ColorIndex = XlColorIndex.xlColorIndexAutomatic
.TintAndShade = 0
.Weight = XlBorderWeight.xlThick
End With
With .Borders(XlBordersIndex.xlEdgeTop)
.LineStyle = XlLineStyle.xlContinuous
.ColorIndex = XlColorIndex.xlColorIndexAutomatic
.TintAndShade = 0
.Weight = XlBorderWeight.xlThick
End With
With .Borders(XlBordersIndex.xlEdgeBottom)
.LineStyle = XlLineStyle.xlContinuous
.ColorIndex = XlColorIndex.xlColorIndexAutomatic
.TintAndShade = 0
.Weight = XlBorderWeight.xlThick
End With
With .Borders(XlBordersIndex.xlEdgeRight)
.LineStyle = XlLineStyle.xlContinuous
.ColorIndex = XlColorIndex.xlColorIndexAutomatic
.TintAndShade = 0
.Weight = XlBorderWeight.xlThick
End With
End With
End Sub
End Class
参照設定というのは全く分かっていませんでした。
Selectはエラーになるので、withステートメントを使わずに1行で
xlSheet.Range("A1:B10").Borders(xlInsideVertical).Weight = xlHairline
というようにして対処していました。ichhabehungerさんのやり方は考えもしてませんでした。
おかげ様で何とかなりそうです。
ありがとうございました。
No.1
- 回答日時:
sub a()
sheets("sheet1").activate
range("A1").currentregion.select 罫線引き始めるrange 指定
selection.borders(xlleft).linestyle=xlcontinuous 左側指定
selection.borders(xlright).linestyle=xlcontinuous 右側部指定
selection.borders(xltop).linestyle=xlcontinuous 上部指定
selection.borders(xlbottom).linestyle=xlcontinuous 下部指定
end sub
xlcontinuous 実線 xldashdot 1点鎖線 xldot 点線
xldash 破線 xlfashdotdot 2点鎖線 xldouble 二重線
xlslantdashdot 斜点線 xllinestylenone なし
回答ありがとうございます。
さらに色々と調べてみたところ、
Const xlDiagonalDown As Long = 5
Const xlDiagonalUp As Long = 6
Const xlEdgeLeft As Long = 7
Const xlEdgeTop As Long = 8
Const xlEdgeBottom As Long = 9
Const xlEdgeRight As Long = 10
Const xlInsideVertical As Long = 11
Const xlInsideHorizontal As Long = 12
Const xlContinuous As Long = 1
Const xlDashDot As Long = 4
Const xlDashDotDot As Long = 5
Const xlSlantDashDot As Long = 13
Const xlDash As Long = -4115
Const xlDot As Long = -4118
Const xlDouble As Long = -4119
Const xlLineStyleNone As Long = -4142
Const xlHairline As Long = 1
Const xlThin As Long = 2
Const xlThick As Long = 4
Const xlMedium As Long = -4138
という定数を宣言していないことが分かり、試したらうまくいきました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Windows 10 エクセルの罫線がパワポに貼り付けると見えなくなる。 3 2022/12/27 15:23
- Visual Basic(VBA) VBでExcelの表形式の様なデザインを作りDBと連携させる。 4 2023/02/28 11:39
- 工学 非対称三相交流について 2 2022/07/06 00:36
- Word(ワード) Wordで作った「表の罫線を部分的に削除したい」 4 2023/07/24 07:00
- Excel(エクセル) エクセル2016で、セル全てが消えました。 3 2023/01/03 08:27
- 工学 電気回路について質問があります。 テブナン関連の問題なのですが、青線ないの意味がよくわかりません。な 4 2023/01/17 16:51
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- 物理学 2物体の単振動 1 2023/08/17 20:27
- CAD・DTP EXCELからAUTOCADに貼り付け 1 2022/04/20 17:42
- その他(クラウドサービス・オンラインストレージ) Googleのスプレッドシートで罫線を画像の前面に出す事は出来ないのでしょうか? 2 2022/05/01 05:31
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルを値でのみし...
-
Excelでマクロ実行中に画面を固...
-
【Excel】マクロでページを追加...
-
エクセル連番自動印刷について
-
VBA Shapes コピーと名前
-
エクセルVBAで納期管理システム...
-
エクセルのマクロについて教え...
-
エクセル マクロ写真帳に一括で...
-
【ExcelVBA】マクロブックを通...
-
セルに入力するたびにマクロを...
-
VBAで行コピーして挿入
-
EXCEL上にコマンドボタン...
-
VBA 選択したデータを別シー...
-
VBでエクセルに罫線を引くには?
-
EXCEL VBA 他のアプリケーショ...
-
worksheet_changeの一時無効化
-
秀丸で文字列範囲を選択したら...
-
CSVデータをEXCELのテーブルに...
-
シート名を記入する
-
エクセルのマクロを教えてください
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを値でのみし...
-
Excelでマクロ実行中に画面を固...
-
エクセル連番自動印刷について
-
VBA Shapes コピーと名前
-
エクセル マクロ写真帳に一括で...
-
EXCEL VBA 他のアプリケーショ...
-
【Excel】マクロでページを追加...
-
セルに入力するたびにマクロを...
-
ブックの共有でVBAエラー
-
エクセル 図形の寸法を取得したい
-
エクセルVBAで納期管理システム...
-
EXCEL 行番号や列番号が選択で...
-
VBAで行コピーして挿入
-
エクセルファイルの回数期限の...
-
グラフ要素のセルを参照したい...
-
エクセルでマクロ登録の不具合解消
-
再度,ExcelVBA,public変数が消える
-
VB.NETによるEXCELの行挿入
-
ExcelのVBAで自動採番したい...
-
【ExcelVBA】マクロブックを通...
おすすめ情報