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

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

凜さんの投稿

(投稿ID: 5487)

いつもお世話になっております。
動画で教えて頂いた1文字ずつ検索する方法はわかりやすく、ForNext構文が工夫次第で活用の幅が広がる事に驚きと楽しみを感じています。

いつも動画を見る前に自分で挑戦している為、今回は別のアプローチのプログラムができました。
動作として問題はなさそうなのですが、書き方に工夫ができるのではないかと考えております。
「サブプロシージャの分割と呼び出し」を活かせないか考えてみたのですが、変数を含むと上手くいきません。
下記、6行が7回も繰り返されるのですがすっきりと書ける方法がありましたら、ご教示ください。
(問題と転記先が違ったり、連番のプログラムが抜けていたりするのですが、そこはご容赦ください)

            Range("I" & tenki).Value = Range("A" & gyo).Value
            Range("J" & tenki).Value = Range("B" & gyo).Value
            Range("K" & tenki).Value = Range("C" & gyo).Value
            Range("L" & tenki).Value = Range("D" & gyo).Value
            Range("N" & tenki).Value = Range("F" & gyo).Value
            Range("O" & tenki).Value = Range("G" & gyo).Value

----

Sub mondai()
    Dim yakuwari
    Dim tenki
    Dim ten1
    Dim ten2
    Dim ten3
    Dim gyo
    tenki = 2
    
    For gyo = 2 To 7
        yakuwari = Range("E" & gyo).Value
        ten1 = InStr(yakuwari, "、")
        ten2 = InStr(ten1 + 1, yakuwari, "、")
        ten3 = InStr(ten2 + 1, yakuwari, "、")
        
        If ten1 = 0 Then
            Range("M" & tenki).Value = yakuwari
            Range("I" & tenki).Value = Range("A" & gyo).Value
            Range("J" & tenki).Value = Range("B" & gyo).Value
            Range("K" & tenki).Value = Range("C" & gyo).Value
            Range("L" & tenki).Value = Range("D" & gyo).Value
            Range("N" & tenki).Value = Range("F" & gyo).Value
            Range("O" & tenki).Value = Range("G" & gyo).Value
    
            tenki = tenki + 1
        Else
            Range("M" & tenki).Value = Mid(yakuwari, 1, ten1 - 1)
            Range("I" & tenki).Value = Range("A" & gyo).Value
            Range("J" & tenki).Value = Range("B" & gyo).Value
            Range("K" & tenki).Value = Range("C" & gyo).Value
            Range("L" & tenki).Value = Range("D" & gyo).Value
            Range("N" & tenki).Value = Range("F" & gyo).Value
            Range("O" & tenki).Value = Range("G" & gyo).Value
            
            tenki = tenki + 1
                If ten2 = 0 Then
                    Range("M" & tenki).Value = Mid(yakuwari, ten1 + 1)
                    Range("I" & tenki).Value = Range("A" & gyo).Value
                    Range("J" & tenki).Value = Range("B" & gyo).Value
                    Range("K" & tenki).Value = Range("C" & gyo).Value
                    Range("L" & tenki).Value = Range("D" & gyo).Value
                    Range("N" & tenki).Value = Range("F" & gyo).Value
                    Range("O" & tenki).Value = Range("G" & gyo).Value
                    
                    tenki = tenki + 1
                Else
                    Range("M" & tenki).Value = Mid(yakuwari, ten1 + 1, ten2 - ten1 - 1)
                    Range("I" & tenki).Value = Range("A" & gyo).Value
                    Range("J" & tenki).Value = Range("B" & gyo).Value
                    Range("K" & tenki).Value = Range("C" & gyo).Value
                    Range("L" & tenki).Value = Range("D" & gyo).Value
                    Range("N" & tenki).Value = Range("F" & gyo).Value
                    Range("O" & tenki).Value = Range("G" & gyo).Value
                    
                    tenki = tenki + 1
                    If ten3 = 0 Then
                        Range("M" & tenki).Value = Mid(yakuwari, ten2 + 1)
                        Range("I" & tenki).Value = Range("A" & gyo).Value
                        Range("J" & tenki).Value = Range("B" & gyo).Value
                        Range("K" & tenki).Value = Range("C" & gyo).Value
                        Range("L" & tenki).Value = Range("D" & gyo).Value
                        Range("N" & tenki).Value = Range("F" & gyo).Value
                        Range("O" & tenki).Value = Range("G" & gyo).Value
                        
                        tenki = tenki + 1
                    Else
                        Range("M" & tenki).Value = Mid(yakuwari, ten2 + 1, ten3 - ten2 - 1)
                        Range("I" & tenki).Value = Range("A" & gyo).Value
                        Range("J" & tenki).Value = Range("B" & gyo).Value
                        Range("K" & tenki).Value = Range("C" & gyo).Value
                        Range("L" & tenki).Value = Range("D" & gyo).Value
                        Range("N" & tenki).Value = Range("F" & gyo).Value
                        Range("O" & tenki).Value = Range("G" & gyo).Value
                        
                        tenki = tenki + 1
                        Range("M" & tenki).Value = Mid(yakuwari, ten3 + 1)
                        Range("I" & tenki).Value = Range("A" & gyo).Value
                        Range("J" & tenki).Value = Range("B" & gyo).Value
                        Range("K" & tenki).Value = Range("C" & gyo).Value
                        Range("L" & tenki).Value = Range("D" & gyo).Value
                        Range("N" & tenki).Value = Range("F" & gyo).Value
                        Range("O" & tenki).Value = Range("G" & gyo).Value
                        
                        tenki = tenki + 1
                    
                    End If
                End If
        End If
    Next
    

End Sub

2023/07/04 22:03

小川慶一さんのコメント

(コメントID: 8196)

おはようございます。

横への連続移動の方法のひとつとして、 .offset を使うやり方があります。

Sub hoge()
    Dim moji
    moji = "あいうえおかきくけこさしすせそ"
    
    Dim i
    For i = 1 To Len(moji)
        Range("A1").Offset(0, i).Value = Mid(moji, i, 1)
    Next
End Sub

2023/07/05 01:57

凜さんのコメント

(コメントID: 8197)

新しい知識が必要だったんですね。
これまでご指導頂いているように同じことを繰り返し書かず、変数を使ってシンプルにより見やすく書くことで全体の作りもわかりやすく、間違えている部分の発見も容易になりいいこと尽くしだと思い、もっと見やすい書き方はないかと探りすぎました。

今回、教えて頂いたOffsetを使いなんとか形にできましたが・・すごく難しかったです。
練習を繰り返し、活用できるように頑張ります！
ありがとうございました。

Sub mondai()
    Dim yakuwari
    Dim tenki
    Dim ten1
    Dim ten2
    Dim ten3
    Dim moji_moto
    Dim moji_saki
    Dim gyo
    Dim retsu_moto
    tenki = 2
    moji_moto = "ABCDF"
    moji_saki = "IJKLN"
    
    For gyo = 2 To 7
        yakuwari = Range("E" & gyo).Value
        ten1 = InStr(yakuwari, "、")
        ten2 = InStr(ten1 + 1, yakuwari, "、")
        ten3 = InStr(ten2 + 1, yakuwari, "、")
        
        If ten1 = 0 Then
            Range("M" & tenki).Value = yakuwari
            For retsu_moto = 0 To Len(moji_saki) - 1
                Range(Mid(moji_saki, retsu_moto + 1, 1) & tenki).Offset(0, 0).Value = Range(Mid(moji_moto, retsu_moto + 1, 1) & gyo).Offset(0, 0).Value
            Next
    
            tenki = tenki + 1
        Else
            Range("M" & tenki).Value = Mid(yakuwari, 1, ten1 - 1)
            For retsu_moto = 0 To Len(moji_saki) - 1
                Range(Mid(moji_saki, retsu_moto + 1, 1) & tenki).Offset(0, 0).Value = Range(Mid(moji_moto, retsu_moto + 1, 1) & gyo).Offset(0, 0).Value
            Next
            
            tenki = tenki + 1
                If ten2 = 0 Then
                    Range("M" & tenki).Value = Mid(yakuwari, ten1 + 1)
                For retsu_moto = 0 To Len(moji_saki) - 1
                    Range(Mid(moji_saki, retsu_moto + 1, 1) & tenki).Offset(0, 0).Value = Range(Mid(moji_moto, retsu_moto + 1, 1) & gyo).Offset(0, 0).Value
                Next
            
                    tenki = tenki + 1
                Else
                    Range("M" & tenki).Value = Mid(yakuwari, ten1 + 1, ten2 - ten1 - 1)
                For retsu_moto = 0 To Len(moji_saki) - 1
                    Range(Mid(moji_saki, retsu_moto + 1, 1) & tenki).Offset(0, 0).Value = Range(Mid(moji_moto, retsu_moto + 1, 1) & gyo).Offset(0, 0).Value
                Next
                    
                    tenki = tenki + 1
                    If ten3 = 0 Then
                        Range("M" & tenki).Value = Mid(yakuwari, ten2 + 1)
                        For retsu_moto = 0 To Len(moji_saki) - 1
                            Range(Mid(moji_saki, retsu_moto + 1, 1) & tenki).Offset(0, 0).Value = Range(Mid(moji_moto, retsu_moto + 1, 1) & gyo).Offset(0, 0).Value
                        Next
                        
                        tenki = tenki + 1
                    Else
                        Range("M" & tenki).Value = Mid(yakuwari, ten2 + 1, ten3 - ten2 - 1)
                        For retsu_moto = 0 To Len(moji_saki) - 1
                            Range(Mid(moji_saki, retsu_moto + 1, 1) & tenki).Offset(0, 0).Value = Range(Mid(moji_moto, retsu_moto + 1, 1) & gyo).Offset(0, 0).Value
                        Next
                                    
                        tenki = tenki + 1
                        Range("M" & tenki).Value = Mid(yakuwari, ten3 + 1)
                        For retsu_moto = 0 To Len(moji_saki) - 1
                            Range(Mid(moji_saki, retsu_moto + 1, 1) & tenki).Offset(0, 0).Value = Range(Mid(moji_moto, retsu_moto + 1, 1) & gyo).Offset(0, 0).Value
                        Next
                        
                        tenki = tenki + 1
                    
                    End If
                End If
        End If
    Next
    
End Sub

2023/07/06 21:31

小川慶一さんのコメント

(コメントID: 8198)

もともと、基礎編フォローアップアドバンスドは、基礎編で提供された道具だけで腕力で問題解決しましょうというコンセプトの演習シリーズです。
この課題も発展編1, 発展編2で学ぶ手法を使うともっとすっきり解決できます。

これだけのことをやりきれる腕力がついたのでしたら、発展編1に進まれると良いかと思います v(^^*

2023/07/06 22:10

凜さんのコメント

(コメントID: 8199)

ありがとうございます！すごく嬉しいです！！
引き続きよろしくお願い致します。

2023/07/07 12:19

５倍速！メールマガジン

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

受講生の声

たった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)
イメージトレーニングしましょう！

小川慶一さん

コーディングワークへ