５倍速！メールマガジン
受講生の声
新着の講座投稿
新着の講座コメント
新着のノート投稿
新着のノートコメント
表示できる投稿はありません。
サイト運営者紹介
小川 慶一講師/教材/システム開発者紹介
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
レッスン-投稿一覧
明石 照伸さんの投稿
(投稿ID: 452)
お世話になります。
今回、最後の問題でM行×N列ということに
目が言ってしまい、表現を調べて以下の
ような回答を作りました。
しかしながら、小川さんの過去コメント
（持っている道具だけで何とかする・・・的な（＾＾； ）
に触発されて、セミナーで出てきた内容だけで
（上記のM行×N列の考え方は同じで）作り直していました。
が、動画解説を見て、更に考えさせられ
ました。
一列単位の処理を拡張することで解ける問題から
発展させていくので無理がないと思いました。
最終的にやっていることは残業時間のセル同士を
比較するという意味では同じですが、
そこに至るプロセスで、
自分のできることから出発することで
一見手も足も出ない問題に対しても何らかの取っ掛かり
が見えてくるかもしれないと思いました。
=====
Sub zangyo2()
Dim zangyo
Dim shimei
Dim tsuki
Dim gyo
Dim retsu
zangyo = 0
For retsu = 2 To 7
For gyo = 6 To 33
If Range("a5").Offset(gyo, retsu).Value > zangyo Then
zangyo = Range("a5").Offset(gyo, retsu).Value
shimei = Range("a5").Offset(gyo, 1).Value
tsuki = Range("a5").Offset(0, retsu).Value
End If
Next
Next
Range("k4").Value = shimei
Range("l4").Value = tsuki
Range("m4").Value = zangyo
End Sub
=====
小川慶一さんのコメント
(コメントID: 1261)
>自分のできることから出発することで
>一見手も足も出ない問題に対しても何らかの取っ掛かり
>が見えてくるかもしれないと思いました。
ですね。それがすべてです。