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

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

エクセルマクロ・VBA発展編２

受講生さんの投稿

(投稿ID: 3876)

小川先生
今回は、コース末の課題の先生の見本回答（下に添付）でのredimの使いかたの質問です。これは、テキストで習った書き方と違います。記述の量もそこそこありますが、この書き方のメリットは、（テキストの方式対比で）どういうところなのでしょうか？両方の方式を学んで置くべきなのでしょうか？
ReDim var(2, 0)
For c = 2 To Range("F65536").End(xlUp).Row
var(0, UBound(var, 2)) = Range("E" & c).Value
var(1, UBound(var, 2)) = Range("F" & c).Value
var(2, UBound(var, 2)) = Range("G" & c).Value
ReDim Preserve var(2, UBound(var, 2) + 1)

2018/05/08 03:46

小川慶一さんのコメント

(コメントID: 5427)

受講生さん:

小川です。

すいません。このサンプル、少しおかしいですね。
きちんとした解法の動画を新たに提供します。早々に準備したいと思います。少しお時間ください。

大変恐縮です。よろしくお願いいたします。

> 小川先生
> 今回は、コース末の課題の先生の見本回答（下に添付）でのredimの使いかたの質問です。これは、テキストで習った書き方と違います。記述の量もそこそこありますが、この書き方のメリットは、（テキストの方式対比で）どういうところなのでしょうか？両方の方式を学んで置くべきなのでしょうか？
> ReDim var(2, 0)
> For c = 2 To Range("F65536").End(xlUp).Row
> var(0, UBound(var, 2)) = Range("E" & c).Value
> var(1, UBound(var, 2)) = Range("F" & c).Value
> var(2, UBound(var, 2)) = Range("G" & c).Value
> ReDim Preserve var(2, UBound(var, 2) + 1)

2018/05/09 20:30

小川慶一さんのコメント

(コメントID: 5431)

受講生さん:

このたびはご迷惑をおかけしました。

僕自身が改めて全問題を解き直しました。
以下に、その結果のファイルを置きました。まずは取得ください。（たぶん、すべての問題についてきちんと解けているもの、と思います）

https://www.dropbox.com/sh/y80z2mrjeqok638/AABaGWQdyL6sdlEAvpVLr6EMa?dl=0

追って、解説動画を作ります。
ひきつづきよろしくお願いいたします。

> 小川先生
> 今回は、コース末の課題の先生の見本回答（下に添付）でのredimの使いかたの質問です。これは、テキストで習った書き方と違います。記述の量もそこそこありますが、この書き方のメリットは、（テキストの方式対比で）どういうところなのでしょうか？両方の方式を学んで置くべきなのでしょうか？
> ReDim var(2, 0)
> For c = 2 To Range("F65536").End(xlUp).Row
> var(0, UBound(var, 2)) = Range("E" & c).Value
> var(1, UBound(var, 2)) = Range("F" & c).Value
> var(2, UBound(var, 2)) = Range("G" & c).Value
> ReDim Preserve var(2, UBound(var, 2) + 1)

2018/05/12 03:36

小川慶一さんのコメント

(コメントID: 5440)

受講生さん:

演習問題回答の動画解説の権限を付与しました。
https://forum.pc5bai.com/lesson/course/85

よろしくお願いいたします。

> 小川先生
> 今回は、コース末の課題の先生の見本回答（下に添付）でのredimの使いかたの質問です。これは、テキストで習った書き方と違います。記述の量もそこそこありますが、この書き方のメリットは、（テキストの方式対比で）どういうところなのでしょうか？両方の方式を学んで置くべきなのでしょうか？
> ReDim var(2, 0)
> For c = 2 To Range("F65536").End(xlUp).Row
> var(0, UBound(var, 2)) = Range("E" & c).Value
> var(1, UBound(var, 2)) = Range("F" & c).Value
> var(2, UBound(var, 2)) = Range("G" & c).Value
> ReDim Preserve var(2, UBound(var, 2) + 1)

2018/05/15 21:02