ここから本文です

エクセルのVBAなんですが、下のコードがうまく動きません。 どこがおかしいか教え...

t38********さん

2017/7/1217:22:07

エクセルのVBAなんですが、下のコードがうまく動きません。
どこがおかしいか教えていただけませんでしょうか?

Sub エクセルの練習()

Range("A2:G11").Borders(xlInsideHorizontal).LineStyle = xlDot

Range("A2").CurrentRegion.BorderAround LineStyle:=xlSingle

Rows("2:11").RowHeight = 25

Columns("A:G").ColumnWidth = 10

With Range("A2:G2").Font.Bold = True

End With

With Range("A2:G2").ColorIndex = 16

End With

Range("A2:G2").HorizontalAlignment = xlCenter

With Range("A2:G2").Borders(xlEdgeBottom).LineStyle = xlDouble

End With

End Sub

閲覧数:
54
回答数:
1
お礼:
25枚

違反報告

ベストアンサーに選ばれた回答

fro********さん

2017/7/1217:30:09

With~End Withは 範囲指定を簡略にしているだけなので、
Withの後ろに直接処理を書いても動きません。

Sub エクセルの練習()

Range("A2:G11").Borders(xlInsideHorizontal).LineStyle = xlDot

Range("A2").CurrentRegion.BorderAround LineStyle:=xlSingle

Rows("2:11").RowHeight = 25

Columns("A:G").ColumnWidth = 10

With Range("A2:G2")
.Font.Bold = True
.ColorIndex = 16
.HorizontalAlignment = xlCenter
.Borders(xlEdgeBottom).LineStyle = xlDouble
End With

End Sub

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2017/7/13 17:56:46

VBAの基本て感じですね。初心者なので、本を見ながら、あーでもない、こーでもない、とやっているレベルの私に丁寧な説明ありがとうございました。とても助かりました!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる