質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.47%

  • VBA

    1862questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1595questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

Excel VBAについて質問させていただきます。初心者です。

解決済

回答 2

投稿 ・編集

  • 評価
  • クリップ 1
  • VIEW 1,006

G-apple-tmp

score 5

初めまして。お世話になります。初めてこちらのサイトで質問させていただくので、何か不備があった場合は先にこの場でお詫び申し上げます。

私はExcel VBAで、セル内の空白で区切られた単語を反転させるプログラムを再帰的に書いています。
例えば、

山田 田中 鈴木 本田

という単語の列があった場合、これを

本田 鈴木 田中 山田

という風に反転させたいのです。

実は、某所でも質問したのですが、その時は自分でも何がわかっていて何がわかっていないのかさっぱりだったので、プログラマーの方がいらっしゃるというこのサイトで、改めて質問させていただくことにいたしました。

現在、私が書いたプログラムは以下の通りです。

Function ReverseWord(str As String) As String
 
Dim Num As Integer, N As Integer
Dim R1 As String, R2 As String, R3 As String

    If N = 0 Then
        Num = InStr(str, " ")
        R1 = Mid(str, 1, Num)
        R2 = Mid(str, Num)
        R3 = R1 + R3
        
        N = N + Num
        ReverseWord (R2) & " " & R3
    End If
    
    If Len(str) > N > 0 Then
        Num = InStr(str, " ")
        
        R1 = Mid(R2, 1, Num)
        R2 = Mid(R2, Num)
        R3 = R1 + R3
        ReverseWord (R2) & " " & R3
        N = N + Num
    End If
    
    If InStr(R2, " ") = 0 Then
        R3 = " " + R2 + R3
    End If
    
    ReverseWord = R3

End Function

このプログラムについて質問です。

始めのIf文(N=0の部分)で、再帰呼び出しを書いたのですが(ReverseWord(R2))、If文(N=0)のところでループしてしまい、ここから長い期間わからないまま止まっております。おそらくこの始めのIf文がいけないのだと思いますが、何がいけないのか、教えていただけないでしょうか。

再帰呼び出しについて自分がよくわかっていないということもあるのだと思いますが、ここを理解しないと次に進めず困っております。ループ文ではなく、あくまで再帰的に書きたいということを強調させていただきます。

どなたか回答いただけると幸いでございます。

※完成したので一応載せておきます。正直、この再帰呼び出しは非常にわかりづらいと思いますが、非常に参考になる回答をいただいたので、あえて、ということで、あしからず。

Option Explicit
Public N As Integer
Public R1 As String, R2 As String, R3 As String

Sub TestRM()
Dim Tt2 As String
    Tt2 = Sheet1.Cells(10, 2)
    
    MsgBox ReverseWord(Tt2)
    
    If InStr(R2, " ") = 0 Then
        R1 = ""
        R2 = ""
        R3 = ""
    End If
End Sub

Function ReverseWord(str As String) As String

Dim Num As Integer

    If N = 0 Then
        Num = InStr(str, " ")
        R1 = Mid(str, 1, Num)
        R2 = Mid(str, Num + 1)
        R3 = R1 + R3
        N = Num
        ReverseWord (R2)
    End If
    
    If (Len(str) > N) And (N > 0) Then
        Num = InStr(R2, " ")
        R1 = Mid(R2, 1, Num)
        R2 = Mid(R2, Num + 1)
        R3 = R1 + R3
        N = N + Num
        ReverseWord (R2)
    End If
    
    If InStr(R2, " ") = 0 Then
        R3 = R2 + " " + R3
    End If
    
    If R2 = "" Or InStr(R2, " ") = 0 Then
        N = 0
        R1 = ""
        R2 = ""
    End If
    
    ReverseWord = R3

End Function
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

checkベストアンサー

0

お邪魔します。

とりあえずプログラム全体はおいておいて、ご質問の件に関してのみ回答します。

(このプログラムのやりたいことからして、再帰にこだわる理由は全くないと思います。
ループと再帰は相互に変換可能なのですが、再帰でやるほうが見通しのよいものと、ループで書いたほうが見通しのよいものがあり、このプログラムに関しては、再帰を使用することでかえって見通しが悪くなっていると思うので。。。)

再帰呼び出しにする場合、呼び出されたプロシージャ内の変数、例えば以下のものは

Dim Num As Integer, N As Integer
Dim R1 As String, R2 As String, R3 As String
新たに領域が確保されます。
それなので、呼び出した側のNの値の変更が呼び出された側のNに伝わることはなく、Nは常に初期化時の0のままです。
このことが原因で無限ループが発生しています。

Static N As Integer
Dim Num As Integer
Dim R1 As String, R2 As String, R3 As String
とするか、Nを関数の外に宣言し、共通変数としてください。

これだけでプログラムが正常動作するかはちゃんと見ていないのでわかりませんが、とりあえず第一関門突破、ということで次のデバッグに入ってください。健闘を祈ります。


以上、参考まで。


追記です。

①Static宣言したが2回目の実行でおかしくなる。

1回目の実行が終わったら初期化してやらないとずっとカウントアップされたままなのかもしれませんね。
終了したタイミングか、最初に実行するタイミングでNを0に初期化する手段を考えたほうがよいです。
そう考えると、Static宣言よりプロシージャ外に宣言して共通変数とするほうがよいのかもしれません。

②If Len(str) > N > 0 Thenに入らない

If(Len(str) > N) And (N > 0) Then
としてみてください。
Len(str) > N > 0 では Len(str) > N = True が暗黙の型変換で-1にキャストされ、
-1 > 0 として評価されるのですが結果はFalseとなります。
(VBの黒いところです。イミディエイトウィンドウなどでint(True)やint(False)を実行してみてください)
この動きは望んだものではありませんよね。


以上です。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

解決済みのようですが、ちょっと気になったので・・・。 
やりたいことは再起もループも必要ありません。 
split関数で配列化して逆順に文字列連結でOKです
こんな感じです。

Function ReverseWord(strSrc As String) As String
    Dim i As Integer
    Dim strTmp As String
    Dim names
    
    names = Split(strSrc)
    
    For i = UBound(names) To 0 Step -1
        strTmp = strTmp & " " & names(i)
    Next i
    
    ReverseWord = Trim(strTmp)
End Function

アドバイスさせてもらうと、プログラミングはコツはどれだけロジックを簡単に整理できるかということです。
難しい事は、より単純なモデルに当てはめていくことでバグの少ないものが作れるようになります。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.47%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • VBA

    1862questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1595questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。