いつもお世話になります。
VBAでB9からE24に罫線を引いてたのですが、急にエラーが出るようになりました。
今までは出ませんでしたが、2003で使用しだしてから、
出たり、出なかったりします。
作成 winxp Office2002で、
使用は別端末 winxp Office2003です。
コードはマクロの記録より引用。
シート保護はしていません。
[メッセージ]
実行時エラー'1004':
BorderクラスのLinestyleプロパティを設定できません。
[コード]
Range("B9:E24").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous <--※※
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
F8で一行づつ実行しても.LineStyle、.weightの全行で引っかかります。
解決策ご存知の方、宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) オートフィルタで抽出結果に 罫線をひく方法 1 2022/07/13 13:08
- Visual Basic(VBA) VBA 罫線について B列3行目から21行毎にデータがはいります。 データがはいったらデータが入った 6 2022/11/15 17:22
- Visual Basic(VBA) 複数セルに〇印をつけるマクロ 4 2022/09/07 05:33
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- その他(プログラミング・Web制作) pythonのグローバル変数 2 2022/11/25 18:02
- 英語 WEIGHT というのは、 マガジン や ストック を含んだ WEIGHT なのでしょうか? 1 2022/04/28 20:43
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
プロシージャ名の取得
-
1列目の何行目に検索文字がある...
-
VBAで実行時エラー'424' オブジ...
-
ACCESS2000VBAでエラー「型が一...
-
「コンパイルエラー:プロシー...
-
VBで構造体を使うさ際の64k...
-
実行時エラー3001「引数が間違...
-
Excel2003でworksheetクラスのC...
-
マクロについて教えてください...
-
ExcelVBAでのエラー回避
-
VBAでのエラー
-
実行時エラー -'-2147417848
-
VBA 別シートのセルから、文字...
-
ASPでメール送信時エラーが出る
-
VBSで変数の宣言はできないので...
-
Word起動時のエラー「実行時エ...
-
ExcelVBAで、ユーザー定義型は...
-
VBAのWEBクエリが中断されます
-
VBAを使ってLEFT関数の貼り付け...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
実行時エラー -'-2147417848
-
マクロについて教えてください...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
実行時エラー3001「引数が間違...
-
OLEDB.NETで接続できない
-
ExcelVBA Range クラスの Page...
-
EXCEL VBAマクロ中断でデバッグ...
-
ADODB.Streamを使用してUTF-8を...
-
VBS実行時エラー オブジェクト...
-
Outlook.ApplicationをCreateOb...
-
VBSで変数の宣言はできないので...
-
なぜエラーになるのでしょうか...
-
VB6+SQL サーバー 2000 で 実行...
-
VBAでのエラー
-
Application.ActiveInspectorで...
-
Excelで下記のようにマクロを作...
おすすめ情報