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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
夏が終わったと感じる瞬間って、どんな時?
まだまだ暑い今日この頃。 しかしながら、もう夏は終わっている!……はず。 あなたが思う「夏が終わった!」エピソードを教えてください。
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
ホテルを選ぶとき、これだけは譲れない条件TOP3は?
ホテルを探す時、予約サイトで希望条件の絞り込みができる便利な世の中。 あなたは宿泊先を決めるとき「これだけは譲れない」と思う条件TOP3を教えてください。
-
【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
【お題】 ・世界最古のコンビニについて知ってる事を教えてください
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
.NET上でエクセル上に罫線を引く
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルを値でのみし...
-
VBA Shapes コピーと名前
-
Excelでマクロ実行中に画面を固...
-
ブックの共有でVBAエラー
-
エクセル 図形の寸法を取得したい
-
エクセル マクロ写真帳に一括で...
-
エクセルに写真を挿入するマ...
-
エクセル連番自動印刷について
-
エクセルファイルの回数期限の...
-
EXCEL VBA 他のアプリケーショ...
-
シート名を記入する
-
エクセルのマクロで数値に応じ...
-
セルに入力するたびにマクロを...
-
【ExcelVBA】マクロブックを通...
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
エクセル関数>参照ファイル名...
-
【Excel VBA】マクロでExcel自...
-
Excel マクロの編集がグレーに...
-
エクセル ボタンに設定したマク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA Shapes コピーと名前
-
エクセルファイルを値でのみし...
-
エクセル連番自動印刷について
-
Excelでマクロ実行中に画面を固...
-
エクセル マクロ写真帳に一括で...
-
セルに入力するたびにマクロを...
-
【Excel】マクロでページを追加...
-
ブックの共有でVBAエラー
-
【ExcelVBA】マクロブックを通...
-
EXCEL 行番号や列番号が選択で...
-
EXCEL VBA 他のアプリケーショ...
-
エクセルのマクロで数値に応じ...
-
エクセルに写真を挿入するマ...
-
エクセルファイルの回数期限の...
-
エクセル 図形の寸法を取得したい
-
エクセルVBAで納期管理システム...
-
再度,ExcelVBA,public変数が消える
-
VB.NETによるEXCELの行挿入
-
VBAで行コピーして挿入
-
worksheet_changeの一時無効化
おすすめ情報