レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

エクセルマクロ・VBA基礎編

受講生さんの投稿

(投稿ID: 2774)

For Next構文で離れた複数列に同じ処理をしたい場合はどのように記載すればよいでしょうか？
下記のようなソースで、B列のみでなく、D列とE列にも罫線引きたいです。

Sub sample1()
    Dim gyo
    For gyo = 1 To 5
    Range("B" & gyo).Borders.LineStyle = xlContinuous
    Next
End Sub

「Range("B" & gyo).Range("D" & gyo).Range("E" & gyo).Borders.LineStyle = xlContinuous」
と記載したらなんだか変な場所に罫線が引かれてしまいました。。。

2017/01/10 07:46

ゲストさんのコメント

(コメントID: 4211)

受講生さん:

こんなんでどうですか↓。

Sub sample1()
    Dim gyo
    For gyo = 1 To 5
        Range("B" & gyo).Borders.LineStyle = xlContinuous
        Range("D" & gyo).Borders.LineStyle = xlContinuous
        Range("E" & gyo).Borders.LineStyle = xlContinuous
    Next
End Sub

>「Range("B" & gyo).Range("D" & gyo).Range("E" & gyo).Borders.LineStyle = xlContinuous」
>と記載したらなんだか変な場所に罫線が引かれてしまいました。。。

↑第１章やりなおしてください。文法的におかしいです。

>For Next構文で離れた複数列に同じ処理をしたい場合はどのように記載すればよいでしょうか？
>下記のようなソースで、B列のみでなく、D列とE列にも罫線引きたいです。
>
>

Sub sample1()
>    Dim gyo
>    For gyo = 1 To 5
>    Range("B" & gyo).Borders.LineStyle = xlContinuous
>    Next
>End Sub

>
>「Range("B" & gyo).Range("D" & gyo).Range("E" & gyo).Borders.LineStyle = xlContinuous」
>と記載したらなんだか変な場所に罫線が引かれてしまいました。。。
>
>

2017/01/10 08:03

受講生さんのコメント

(コメントID: 4212)

同じ処理なので、「Range("A1,B3")」のように、選択部分をまとめて記載する方法があるかと思ったのですが、
For Next構文を使用する場合は、別々に記載するしかないのですね。
ありがとうございました！

小川慶一さん:

>受講生さん:
>
>こんなんでどうですか↓。
>
>

Sub sample1()
>    Dim gyo
>    For gyo = 1 To 5
>        Range("B" & gyo).Borders.LineStyle = xlContinuous
>        Range("D" & gyo).Borders.LineStyle = xlContinuous
>        Range("E" & gyo).Borders.LineStyle = xlContinuous
>    Next
>End Sub

>
>>「Range("B" & gyo).Range("D" & gyo).Range("E" & gyo).Borders.LineStyle = xlContinuous」
>>と記載したらなんだか変な場所に罫線が引かれてしまいました。。。
>
>↑第１章やりなおしてください。文法的におかしいです。
>
>
>>For Next構文で離れた複数列に同じ処理をしたい場合はどのように記載すればよいでしょうか？
>>下記のようなソースで、B列のみでなく、D列とE列にも罫線引きたいです。
>>
>>

Sub sample1()
>>    Dim gyo
>>    For gyo = 1 To 5
>>    Range("B" & gyo).Borders.LineStyle = xlContinuous
>>    Next
>>End Sub

>>
>>「Range("B" & gyo).Range("D" & gyo).Range("E" & gyo).Borders.LineStyle = xlContinuous」
>>と記載したらなんだか変な場所に罫線が引かれてしまいました。。。
>>
>>
>

2017/01/10 15:04

ゲストさんのコメント

(コメントID: 4213)

受講生さん:

おはようございます。

>同じ処理なので、「Range("A1,B3")」のように、選択部分をまとめて記載する方法があるかと思ったのですが、
>For Next構文を使用する場合は、別々に記載するしかないのですね。

可能か不可能か？と言えば、可能です。
例えば、以下の要領です。（他にもあります）

Sub sample1()
    Dim gyo
    For gyo = 1 To 5
        Range("A" & gyo & ",D" & gyo & ",E" & gyo).Borders.LineStyle = xlContinuous'[*]
    Next
End Sub

でも、ご理解いただけると思いますが、僕が提案した書き方のほうが、書くのも簡単だし、可読性も高いです。

基礎編ドリルをひととおり終えたころには、「まとめて記述しなくてはならない」という状況などそもそもほとんどないということも実感されるかと思います。

ひきつづき、よい学びを！
何かあればまたいつでもどうぞ☆

2017/01/10 16:06

受講生さんのコメント

(コメントID: 4214)

ご回答ありがとうございます！
なるほど、まとめて記載する場合はカンマの位置が、そんなところに入るのですね。

>でも、ご理解いただけると思いますが、僕が提案した書き方のほうが、書くのも簡単だし、可読性も高いです。

できるだけ記載を少なくしようとする考えにとらわれすぎていました。
確かに教えていただいた記載のほうがわかりやすいです。

また不明点でてきましたらご質問させてくださいね！

小川慶一さん:

>受講生さん:
>
>おはようございます。
>
>>同じ処理なので、「Range("A1,B3")」のように、選択部分をまとめて記載する方法があるかと思ったのですが、
>>For Next構文を使用する場合は、別々に記載するしかないのですね。
>
>可能か不可能か？と言えば、可能です。
>例えば、以下の要領です。（他にもあります）
>
>

Sub sample1()
>    Dim gyo
>    For gyo = 1 To 5
>        Range("A" & gyo & ",D" & gyo & ",E" & gyo).Borders.LineStyle = xlContinuous'[*]
>    Next
>End Sub

>
>でも、ご理解いただけると思いますが、僕が提案した書き方のほうが、書くのも簡単だし、可読性も高いです。
>
>基礎編ドリルをひととおり終えたころには、「まとめて記述しなくてはならない」という状況などそもそもほとんどないということも実感されるかと思います。
>
>ひきつづき、よい学びを！
>何かあればまたいつでもどうぞ☆

2017/01/11 06:10

ゲストさんのコメント

(コメントID: 4215)

受講生さん:

>ご回答ありがとうございます！
>なるほど、まとめて記載する場合はカンマの位置が、そんなところに入るのですね。

自動記録しつつ、 [Ctrl] を押しながらいつくかのセルをクリックしてみてください。
同様のコードを取得できます。

>できるだけ記載を少なくしようとする考えにとらわれすぎていました。
>確かに教えていただいた記載のほうがわかりやすいです。

「短いからよいコード」というわけでもないです。

以下の記事も、そういう視点の参考になるかな。
http://www.exvba.com/blog/?p=4378

ではでは、ひきつづき、よい学びを！

2017/01/11 21:59

５倍速！メールマガジン

このメールマガジンの詳細はこちら

受講生の声

たった1ヶ月で人生が劇的に変わりました

佐藤信さん

役員クラスの方から高い評価を受けるようになりました。

佐賀県 - 岩本徹さん

今までまったく知らなかったショートカットキーを使いまくっています。

東京都 - 鷹觜慶さん

年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。

東京都 - 宗内隆明さん

受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。

東京都 - 佐伯とも子さん

ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした

東京都 - 飯田倫子さん

受講生の声一覧へ

サイト運営者紹介

小川慶一講師/教材/システム開発者紹介

この学習サイトの教材制作、サポート、システム開発をすべてやっています。

より詳しい紹介はこちら

ショートカットワーク報告

2025年03月26日 22:33

CommaToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月26日 22:12

QuoteToXls-excel
ゴールド賞を達成したこと

cat22さん

2025年03月24日 22:28

QuoteToXls-excel
マイペースでも続いていること

cat22さん

2025年03月19日 20:10

TxtToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月18日 20:52

CommaSpaceToXls
プラチナ賞をとれたこと！

cat22さん

ショートカットワーク報告へ

ショートカットワークコメント

2025年04月16日 08:30

CommaToXls-excel
だいぶ間が空いてしまいました。すみません。実務での活用状況についても報告に含めていただければと …

小川慶一さん

2025年03月18日 09:07

CommaToXls
> エスケープ文字をつけ忘れてうまくいかなくてもあきらめなかったところ「自分ならできる」という…

小川慶一さん

2025年03月18日 09:06

QuoteToXls
> FnとWinキーを押し間違えてウィンドウ表示が変ってしまうところそのこと自体は問題ありませ…

小川慶一さん

2025年03月15日 13:23

TxtToXls
着実に上達されていると感じます (^^

小川慶一さん

2025年02月26日 16:37

TabTo-excel
> Ctrl＋Fn+Shift+End これは大変ですよ。僕も、4キー同時打鍵はしたくありませ…

小川慶一さん

ショートカットワーク一覧へ

コーディングワーク報告

2025年04月02日 21:01

複数の表の間でのマッチング
何も見なくてもスラスラ解けた

cat22さん

2025年04月02日 20:47

複数列の中から、最大値の格納されたセルの情報を出力する
昨日より早くかけたこと

cat22さん

2025年04月02日 20:37

最大値の格納されたセルの情報を出力する
昨日よりスピードがあがった

cat22さん

2025年04月01日 22:03

複数列の中から、最大値の格納されたセルの情報を出力する
動画の真似をしてかけたこと

cat22さん

2025年04月01日 21:27

最大値の格納されたセルの情報を出力する
（１）で類似問題を実施しているので、思ったより早く解けた

cat22さん

コーディングワーク報告へ

コーディングワークコメント

2025年04月16日 08:32

複数の表の間でのマッチング
実務での活用状況どうでしょうか。細かい操作ミスについては気にしないでください。速やかに無意識に修…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
別のところでも書きましたが、イメージトレーニング大切です。次に出てきたときには瞬時に対応するぞ！…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
こういうのは慣れです (^^

小川慶一さん

2025年03月18日 09:09

文字列を加工してデータ転記する(その4)
別海も悪いはないです。両方のパターンを自在に使い分けられるようになるとさらによいですね！

小川慶一さん

2025年03月18日 09:06

文字列を加工してデータ転記する(その5)
イメージトレーニングしましょう！

小川慶一さん

コーディングワークへ