５倍速！メールマガジン
このメールマガジンの詳細はこちら
受講生の声
新着の講座投稿
新着の講座コメント
新着のノート投稿
投稿一覧へ新着のノートコメント
表示できる投稿はありません。
サイト運営者紹介
小川 慶一講師/教材/システム開発者紹介
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
レッスン-投稿一覧
明石 照伸さんの投稿
(投稿ID: 468)
本日ようやく動画解説を見終わる
ことができました。
解説もありましたように最後の設問の
For~Nextの最初と最後の書き込みに
手間取ったのですが、以下のような
回答を作成していましたが、
これに冠する小川さんの解説は、また
しても（＾＾；自分では思いつかないような
手順というかアプローチの仕方でしたので
非常に勉強になりました。
最終問題ですので全体を総括させて
いただきますと、
知らないうちに非常に短期間に業務でも
マクロを活用できるようになりましたので
非常に投資効果の高いセミナーだったと
いえるかと思います。
ありがとうございました。
発展編とのギャップがどのくらいあるかは
わかりませんが、何度か復習した後、できるだけ
はやく発展編も受講させていただきたいと
思っております。
（実は、密かに、Excelマクロによる分析を
多用する業務に移ることを目論んでおりますので（＾＾、）
もっともっと勉強していきたいと思います。
今後ともよろしくお願いいたします。
---
Sub kakikae()
Dim migi
migi = 2
Dim kuiki
kuiki = 0
Dim hida
For hida = 2 To 27
If Range("a" & hida).Value <> Range("a" & hida - 1).Value Then
Range("e" & migi).Value = Range("a" & hida).Value
Range("f" & migi).Value = Range("b" & hida).Value
kuiki = Range("c" & hida).Value & "地区"
migi = migi + 1
Else
kuiki = kuiki & "," & Range("c" & hida).Value & "地区"
End If
Range("g" & migi - 1).Value = kuiki
Next
End Sub
---
小川 慶一さんのコメント
(コメントID: 1277)
全動画踏破おめでとうございます☆
>知らないうちに非常に短期間に業務でも
>マクロを活用できるようになりましたので
>非常に投資効果の高いセミナーだったと
>いえるかと思います。
よいですね！そう言っていただけて、僕もとてもうれしいです v(^^*
>（実は、密かに、Excelマクロによる分析を
>多用する業務に移ることを目論んでおりますので（＾＾、）
行けますよ！数ヶ月も経ったころには、すっかり環境も変わっているかもしれません。
ひきつづき、マクロガンガン活用して楽しんでください。
フォロー期間もまだまだありますし、実務でマクロを書いているときに問題にぶつかったときにも、遠慮なく質問等してください。