５倍速！メールマガジン
このメールマガジンの詳細はこちら
受講生の声
新着の講座投稿
新着の講座コメント
新着のノート投稿
投稿一覧へ新着のノートコメント
表示できる投稿はありません。
サイト運営者紹介
小川 慶一講師/教材/システム開発者紹介
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
レッスン-投稿一覧
受講生さんの投稿
(投稿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)
小川 慶一さんのコメント
(コメント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)
小川 慶一さんのコメント
(コメント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)
小川 慶一さんのコメント
(コメント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)