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

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

わかやまさんの投稿

(投稿ID: 3764)

小川様

問題３を以下のように解きましたが、どうでしょうか？

Sub again3()
    Dim sen
    Dim eki
    Dim toho
    Dim kuri
    Dim jyusyo
    For kuri = 1 To 51
        jyusyo = Range("E" & kuri).Value
        sen = InStr(jyusyo, "線")
        eki = InStr(jyusyo, "駅")
        toho = InStr(jyusyo, "歩")
        Range("H" & kuri).Value = Left(jyusyo, sen)
        Range("I" & kuri).Value = Mid(jyusyo, sen + 1, eki - sen)
        Range("J" & kuri).Value = Mid(jyusyo, toho + 1)
    Next

End Sub

アドバイスお願いいたします。

2018/04/05 15:04

小川慶一さんのコメント

(コメントID: 5273)

ゲストさん:

これですと、たとえば、「大渓谷線歩みが原駅歩11」みたいな文字列をキレイに分解できませんね。
「『線』より前に『駅』はない。『駅』より先に『歩』はない」という前提でしたら、これでもOKです。

2018/04/06 20:04

dirac96さんのコメント

(コメントID: 5276)

小川様

お返事ありがとうございます。

ご指摘いただいた「大渓谷線歩みが腹駅歩11」の場合ですが

toho = InStr(6, jyusyo, "歩")

とすることで解決するのですが、この場合のみの限定マクロになってしまいます。
より一般化するには、先に進まないと難しいのでしょうか？
今まで学んだ発想でも可能でしょうか？

2018/04/07 14:14

小川慶一さんのコメント

(コメントID: 5277)

ゲストさん:

おはようございます。

> とすることで解決するのですが、この場合のみの限定マクロになってしまいます。
> より一般化するには、先に進まないと難しいのでしょうか？
> 今まで学んだ発想でも可能でしょうか？

ですので、この動画の3分ぐらいのところから示している通り、
・「駅」という文字の場所を探し
・その結果を変数に格納し
・Instr関数の第1引数にその変数の値+1を格納して「歩」という文字の場所を探す
という流れになります。

そういう視点で、この動画でもう一度学び直し見てください。

2018/04/07 15:27

dirac96さんのコメント

(コメントID: 5279)

小川様

考え直しました。

Sub again33()
    Dim sen
    Dim eki
    Dim densya
    Dim aruku
    Dim ekitoho
    Dim toho
    Dim hensu
        For hensu = 2 To 51
            densya = Range("E" & hensu).Value
            sen = InStr(densya, "線")
            eki = InStr(densya, "駅")
            aruku = InStr(eki + 1, densya, "歩")
            ekitoho = Mid(densya, sen + 1)
            toho = InStr(ekitoho, "駅")
            Range("H" & hensu).Value = Left(densya, sen)
            Range("I" & hensu).Value = Left(ekitoho, toho)
            Range("J" & hensu).Value = Mid(densya, aruku + 1)
        Next
End Sub

どうでしょうか？

2018/04/08 19:36

小川慶一さんのコメント

(コメントID: 5282)

ゲストさん:

> どうでしょうか？

まずは、ゲストさんご自身が（見本と比べて）どう思うか？考えてみてください。
そして、考えたことをここに書いてみてください。

見本と比べて考察を深めるには、もう一度動画を見直して、動画で示したやり方で（何も見ないで）イチから同じマクロを自力で書いてみると良いです。

考察に当たっては、最低でも以下のことくらいは十分に検討する必要があるでしょう。
[1] 見本のやり方と比べてのメリットは？
[2] 見本のやり方と比べてのデメリットは？
[3] [1], [2]をふまえたうえで、あえてご自身で考えた方法を採用したいと思う相当な理由は？

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

2018/04/09 03:37

dirac96さんのコメント

(コメントID: 5285)

小川様

[1] 見本のやり方と比べてのメリットは？
駅名に歩がある場合に対応できる。
[2] 見本のやり方と比べてのデメリットは？
変数が２つ増えてややこしくなった。
[3] [1], [2]をふまえたうえで、あえてご自身で考えた方法を採用したいと思う相当な理由は？
変数はふえたものの、駅名に歩がある場合に対応できるので、私のマクロを採用する。

こう考えました。よろしくお願いします。

2018/04/09 14:59

小川慶一さんのコメント

(コメントID: 5286)

ゲストさん:

なるほど。

すっきり書くなら、こんな感じ↓ですかね。

Sub Line12()
    Dim zenbu '文字列全体
    Dim sen   '「線」の所在？
    Dim eki   '「駅」の所在？
    Dim ayu   '「歩」の所在？
    zenbu = Range("E12").Value
    sen = InStr(zenbu, "線")
    eki = InStr(sen + 1, zenbu, "駅")
    ayu = InStr(eki + 1, zenbu, "歩")
    
    Range("H12").Value = Left(zenbu, sen)
    Range("I12").Value = Mid(zenbu, sen + 1, eki - sen) '「駅」と「歩」ではさみうち。
    Range("J12").Value = Mid(zenbu, ayu + 1)            '「歩」の次以降すべて。
End Sub

Sub Hanko_Line12()
    Dim zenbu
    Dim sen
    Dim eki
    Dim ayu
    
    Dim gyo
    For gyo = 2 To 12
        zenbu = Range("E" & gyo).Value
        sen = InStr(zenbu, "線")
        eki = InStr(sen + 1, zenbu, "駅")
        ayu = InStr(eki + 1, zenbu, "歩")
        
        Range("H" & gyo).Value = Left(zenbu, sen)
        Range("I" & gyo).Value = Mid(zenbu, sen + 1, eki - sen)
        Range("J" & gyo).Value = Mid(zenbu, ayu + 1)
    Next
End Sub

上の見本のように、
[a] 区切り文字を見出すセクション
[b] 書き出しセクション
と、分けて書いたほうが可読性も高いし、シンプルです。

「『線』以外に『モノレール』もある」等のバリエーションよりもしっかり解説すべきなような気がしてきました。
おもしろいテーマですので、いずれ、演習問題としてもこれを追加したいと思います。

ありがとうございます。

2018/04/09 17:02

５倍速！メールマガジン

このメールマガジンの詳細はこちら

受講生の声

たった1ヶ月で人生が劇的に変わりました

佐藤信さん

役員クラスの方から高い評価を受けるようになりました。

佐賀県 - 岩本徹さん

今までまったく知らなかったショートカットキーを使いまくっています。

東京都 - 鷹觜慶さん

年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。

東京都 - 宗内隆明さん

受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。

東京都 - 佐伯とも子さん

ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした

東京都 - 飯田倫子さん

受講生の声一覧へ

サイト運営者紹介

小川慶一講師/教材/システム開発者紹介

この学習サイトの教材制作、サポート、システム開発をすべてやっています。

より詳しい紹介はこちら

ショートカットワーク報告

2025年03月26日 22:33

CommaToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月26日 22:12

QuoteToXls-excel
ゴールド賞を達成したこと

cat22さん

2025年03月24日 22:28

QuoteToXls-excel
マイペースでも続いていること

cat22さん

2025年03月19日 20:10

TxtToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月18日 20:52

CommaSpaceToXls
プラチナ賞をとれたこと！

cat22さん

ショートカットワーク報告へ

ショートカットワークコメント

2025年04月16日 08:30

CommaToXls-excel
だいぶ間が空いてしまいました。すみません。実務での活用状況についても報告に含めていただければと …

小川慶一さん

2025年03月18日 09:07

CommaToXls
> エスケープ文字をつけ忘れてうまくいかなくてもあきらめなかったところ「自分ならできる」という…

小川慶一さん

2025年03月18日 09:06

QuoteToXls
> FnとWinキーを押し間違えてウィンドウ表示が変ってしまうところそのこと自体は問題ありませ…

小川慶一さん

2025年03月15日 13:23

TxtToXls
着実に上達されていると感じます (^^

小川慶一さん

2025年02月26日 16:37

TabTo-excel
> Ctrl＋Fn+Shift+End これは大変ですよ。僕も、4キー同時打鍵はしたくありませ…

小川慶一さん

ショートカットワーク一覧へ

コーディングワーク報告

2025年04月02日 21:01

複数の表の間でのマッチング
何も見なくてもスラスラ解けた

cat22さん

2025年04月02日 20:47

複数列の中から、最大値の格納されたセルの情報を出力する
昨日より早くかけたこと

cat22さん

2025年04月02日 20:37

最大値の格納されたセルの情報を出力する
昨日よりスピードがあがった

cat22さん

2025年04月01日 22:03

複数列の中から、最大値の格納されたセルの情報を出力する
動画の真似をしてかけたこと

cat22さん

2025年04月01日 21:27

最大値の格納されたセルの情報を出力する
（１）で類似問題を実施しているので、思ったより早く解けた

cat22さん

コーディングワーク報告へ

コーディングワークコメント

2025年04月16日 08:32

複数の表の間でのマッチング
実務での活用状況どうでしょうか。細かい操作ミスについては気にしないでください。速やかに無意識に修…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
別のところでも書きましたが、イメージトレーニング大切です。次に出てきたときには瞬時に対応するぞ！…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
こういうのは慣れです (^^

小川慶一さん

2025年03月18日 09:09

文字列を加工してデータ転記する(その4)
別海も悪いはないです。両方のパターンを自在に使い分けられるようになるとさらによいですね！

小川慶一さん

2025年03月18日 09:06

文字列を加工してデータ転記する(その5)
イメージトレーニングしましょう！

小川慶一さん

コーディングワークへ