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

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

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

基礎講座第２章１２ - ドリル５

ゲストさんの投稿

(投稿ID: 2900)

Sub KoubunDrill06()
Dim gyo
gyo = 6
Range("D6:F" & gyo & "6").Value = 6
　　End Sub

'Sub KoubunDrill06()の参考
Sub KoubunDrill066()
Range("D6:F66").Value = 6
End Sub
質問　何故同じ結果になるのですか
("D6:F" & gyo & "6").=("D6:F66").
("D6:F" & gyo & "6").の解説をお願いします。

2017/03/12 01:36

ゲストさんのコメント

(コメントID: 4362)

ゲストさん:

確認ですが、以下については、理解に問題ありませんね↓。
Range("D6:F66") → セルD6からセルF66までのこと

その前提でお話します。

↓変数 gyo の値が6のとき、以下は、すべて、セルD6からセルF66までのことです。[1]-[4]で、納得できないものはありますでしょうか？

[1] Range("D6:F" & "66")
[2] Range("D6:F" & "6" & "6")
[3] Range("D6:F" & 6 & "6")
[4] Range("D6:F" & gyo & "6")

ついでに、さらに演習。以下の[5]-[9]はどうでしょう？

[5] Range("D6:F" & gyo & "6")
[6] Range("D6:F" & gyo & gyo)
[7] Range("D" & "6:F" & gyo & gyo)
[8] Range("D" & "6" & :F" & gyo & gyo)
[9] Range("D" & gyo & :F" & gyo & gyo)

2017/03/12 08:23

ゲストさんのコメント

(コメントID: 4365)

小川慶一さん:

>ゲストさん:
>
>確認ですが、以下については、理解に問題ありませんね↓。
>Range("D6:F66") → セルD6からセルF66までのこと
>
>その前提でお話します。
>
>↓変数 gyo の値が6のとき、以下は、すべて、セルD6からセルF66までのことです。[1]-[4]で、納得できないものはありますでしょうか？
>
>[1] Range("D6:F" & "66")
>[2] Range("D6:F" & "6" & "6")
>[3] Range("D6:F" & 6 & "6")
>[4] Range("D6:F" & gyo & "6")
>
>ついでに、さらに演習。以下の[5]-[9]はどうでしょう？
>
>[5] Range("D6:F" & gyo & "6")
>[6] Range("D6:F" & gyo & gyo)
>[7] Range("D" & "6:F" & gyo & gyo)
>[8] Range("D" & "6" & :F" & gyo & gyo)
>[9] Range("D" & gyo & :F" & gyo & gyo)

> [8] [9]は構文エラーとなりました。何が間違っているのですか。
Sub KooubunnDrill068()
Dim gyo
gyo = 6
Range("D" & "6" & :F" & gyo & gyo).Value = 6
End Sub
Sub KooubunnDrill069()
Dim gyo
gyo = 6
Range("D" & gyo & :F" & gyo & gyo).Value = 6
End Sub

2017/03/14 02:40

ゲストさんのコメント

(コメントID: 4367)

ゲストさん:

あ、大変申し訳ありません！[8], [9]、構文エラーです。
今、修正版をお渡しします。

以下です。（すいません。。）

Range ("D" & "6" & ":F" & gyo & gyo) '[8]
Range ("D" & gyo & ":F" & gyo & gyo) '[9]

>小川慶一さん:
>
>>ゲストさん:
>>
>>確認ですが、以下については、理解に問題ありませんね↓。
>>Range("D6:F66") → セルD6からセルF66までのこと
>>
>>その前提でお話します。
>>
>>↓変数 gyo の値が6のとき、以下は、すべて、セルD6からセルF66までのことです。[1]-[4]で、納得できないものはありますでしょうか？
>>
>>[1] Range("D6:F" & "66")
>>[2] Range("D6:F" & "6" & "6")
>>[3] Range("D6:F" & 6 & "6")
>>[4] Range("D6:F" & gyo & "6")
>>
>>ついでに、さらに演習。以下の[5]-[9]はどうでしょう？
>>
>>[5] Range("D6:F" & gyo & "6")
>>[6] Range("D6:F" & gyo & gyo)
>>[7] Range("D" & "6:F" & gyo & gyo)
>>[8] Range("D" & "6" & :F" & gyo & gyo)
>>[9] Range("D" & gyo & :F" & gyo & gyo)
>
>> [8] [9]は構文エラーとなりました。何が間違っているのですか。
> Sub KooubunnDrill068()
> Dim gyo
> gyo = 6
> Range("D" & "6" & :F" & gyo & gyo).Value = 6
>End Sub
>Sub KooubunnDrill069()
> Dim gyo
> gyo = 6
> Range("D" & gyo & :F" & gyo & gyo).Value = 6
>End Sub

2017/03/14 05:18