先ほどの投稿の２つ目のファイルです

2020/06/13 19:44

受講生 さん:

こんにちは。

投稿ありがとうございます。

お手数いただき恐縮です。

「正常に動作する」という前提で、概観しました。

基本のスキルがしっかりしていらっしゃるので、もはやあまりコメントすべき点もありません。
あえて挙げるなら以下でしょうか。

Set wsFm = Workbooks("部署情報.xls").Worksheets("部署情報") 'thisworkbookを使って書き直したほうがすっきりします

'ディレクトリは thisworkbook.path を使った相対パスにしたほうがメンテナンス性が高まります。
Workbooks.Open Filename:= _
    "C:\Users\tomot\Desktop\ks301_305\配布物\03-さらなる課題\さらなる課題1\エクセルファイル\記入用.xls"
ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\tomot\Desktop\ks301_305\配布物\03-さらなる課題\さらなる課題1\" & stFolderName & "\" & stFileName, _
    FileFormat:=xlExcel8, _
    Password:=""

'↓発展編2では、「自作関数を作り、その戻り値によって処理を分岐する」という書き方を学びます。
If wsToNyu.Range("A" & lnTo).Value = .Range("A" & lnFm).Value And wsToNyu.Range("B" & lnTo).Value = .Range("B" & lnFm).Value And wsToNyu.Range("C" & lnTo).Value = .Range("C" & lnFm).Value Then
    wsToNyu.Range("E" & lnTo).Value = .Range("E" & lnFm).Value
    b = True
    Exit For
End If

2020/06/14 17:14

小川先生:
ご確認いただきありがとうございます。
「thisworkbook」を活用した記述方法、参考にさせていただきます。

ここでご相談するのが正しいのかわかりませんが、発展編２について言及頂いたので、ご相談させていただきます。

先日申し上げた通り現在発展編１までを完了したステータスですが、今後の学習方法について御指南頂きたく存じます。
なお、現状のスキル及び環境は以下の通りです。

・発展編１までを受講完了（導入編から開始して約２か月ほど）
・発展編１までの内容であれば「理解できない部分」は無く、伝票作成マクロやカレンダー作成マクロについては２回ずつ程何も見ずに作成
・「理解できない部分」は無いものの、見たことがない応用課題が現れた時に、スラスラ解けるほどのスキルではない
・ただし、現在受講可能な本サイトの講座における演習（「基礎フォローアップアドバンスド」等、発展編１までのオンライン講座によって受講可能な各種演習）については、何周もしている為問題なく対応可能（応用力に不安・・・）

上記を踏まえて、今後の学習方法について検討及び懸案事項は以下です
①現状スキルの更なる徹底及び応用力を付ける
　→購入講座において手を付けていない演習が無い為、何かしら演習問題を拾ってくる必要がある（ネットで探す？書籍等教材を購入？）
　→実務において自身のスキルを実践してはいるが、業務は持ち帰れないため、自宅学習時の演習が欲しい
②発展編２を購入し、スキルの更なる向上に進む
　→先述の通り「発展編１」までの内容は理解し手を付けたことのある演習はスラスラとけるものの、全く目新しい課題を目の前にしたときにスラスラ解ける自信はない為、その状態で「発展編２」に進めてしまって良いものなのか不安

長くなりましたが、上記①か②か、もしくはもっと良い学習の進め方があればご教示頂けると幸いです。
また、①を進めることが適切な場合、小川先生のほうで何か適切な教材があればご紹介いただけると助かります。

> 受講生 さん:
>
> こんにちは。
>
> 投稿ありがとうございます。
>
> お手数いただき恐縮です。
>
> 「正常に動作する」という前提で、概観しました。
>
> 基本のスキルがしっかりしていらっしゃるので、もはやあまりコメントすべき点もありません。
> あえて挙げるなら以下でしょうか。
>
>

Set wsFm = Workbooks("部署情報.xls").Worksheets("部署情報") 'thisworkbookを使って書き直したほうがすっきりします
> 
> 'ディレクトリは thisworkbook.path を使った相対パスにしたほうがメンテナンス性が高まります。
> Workbooks.Open Filename:= _
>     "C:\Users\tomot\Desktop\ks301_305\配布物\03-さらなる課題\さらなる課題1\エクセルファイル\記入用.xls"
> ActiveWorkbook.SaveAs Filename:= _
>     "C:\Users\tomot\Desktop\ks301_305\配布物\03-さらなる課題\さらなる課題1\" & stFolderName & "\" & stFileName, _
>     FileFormat:=xlExcel8, _
>     Password:=""
> 
> '↓発展編2では、「自作関数を作り、その戻り値によって処理を分岐する」という書き方を学びます。
> If wsToNyu.Range("A" & lnTo).Value = .Range("A" & lnFm).Value And wsToNyu.Range("B" & lnTo).Value = .Range("B" & lnFm).Value And wsToNyu.Range("C" & lnTo).Value = .Range("C" & lnFm).Value Then
>     wsToNyu.Range("E" & lnTo).Value = .Range("E" & lnFm).Value
>     b = True
>     Exit For
> End If

>
>

2020/06/14 21:53

受講生 さん:

これまでの学習状況から、安心して発展編２をお勧めできます。
よい学びになるでしょう。

> ・「理解できない部分」は無いものの、見たことがない応用課題が現れた時に、スラスラ解けるほどのスキルではない
> ・ただし、現在受講可能な本サイトの講座における演習（「基礎フォローアップアドバンスド」等、発展編１までのオンライン講座によって受講可能な各種演習）については、何周もしている為問題なく対応可能（応用力に不安・・・）

ここは、実戦でマクロをいろいろ書いているうちに、解消するものと思います。

発展編２も演習があります。
内容濃いので、楽しんでいただけるかと。

ひきつづきよろしくお願いいたします。

2020/06/15 13:47