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

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

ただいまの
回答率

89.10%

ExcelのVBAでループ部分が上手く行かないのでご教授ください。

受付中

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 295

tetsuya71

score 7

エクセルで画像の様な表を作っています。
エクセル画像

B13→B14→B15→C13→C14→C15→D13・・・
とインプットボックスを使って入力していきたいと思い、

Sub データ入力()
Dim kataban As String

'データ入力範囲を認識し、終端セルを選択する
If Range("B13").Value = "" Then
Range("B13").Select
Else
Range("B12").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If

'データを入力するダイヤログボックスを表示する
Do While ActiveCell.Offset(0, -1).Value <> ""
kataban = InputBox("大問NO.を入力します" & Chr(10) & _
"終了する場合はendを入力してください", "大問")
If kataban = "end" Then
Exit Do
Else
ActiveCell.Value = kataban
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = InputBox("領域名を入力します", "領域名")
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = InputBox("得点数を入力します", "得点")
ActiveCell.Offset(1, -2).Select
End If
Loop
End Sub

の様なマクロを作成したのですがループの部分が上手く行きません。

どなたかわかる方がいましたら、ご教授の程よろしくお願い致します。

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

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

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

    クリップを取り消します

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

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

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

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

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

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

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

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

    質問の評価を下げる

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

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

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

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

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

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

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

    詳細な説明はこちら

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

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

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

質問への追記・修正、ベストアンサー選択の依頼

  • Orlofsky

    2019/10/09 07:28

    コードは https://teratail.com/help/question-tips#questionTips3-7 の [コード] に修正してください。

    キャンセル

  • Orlofsky

    2019/10/09 07:28

    教授 → 教示

    キャンセル

  • imihito

    2019/10/09 07:33 編集

    > ループの部分が上手く行きません。
    どのように上手く行かないのですか?
    「○○のように動作して欲しいが、××となってしまう」のように目的の動きと現状の動きを、質問に追記してください。

    e.g. 左隣の列(A列)に「国語」と入っている範囲(13行目から17行目まで)をDo...Loopでループして欲しいが、13行目の入力まででループが止まってしまい、14行目以降に進まない。

    キャンセル

回答 1

0

>B13→B14→B15→C13→C14→C15→D13・・・
>とインプットボックスを使って入力していきたいと思い、

んと。
入力したいセル範囲選択→セルの書式設定→保護
と選んで、
ロックのチェックを外しOK

リボンの校閲タブ→シートの保護で、
ロックされてないセルの選択以外のチェックを外してOK
で、
期待した動きになるかと思いますが、
インプットボックスが必須ですかね?
複数セルを編集出来るのがエクセルの強みなのに、
それを捨ててまで制御するほどの業務とは思えませんが。。。
なぜ、インプットボックスなのでしょう?


一応、コード書いてみました。
Activecellとかはできれば使いたくないです。
状況に依存するので。。

Sub test001()
    Dim rngInput As Range
    Dim c As Range
    Dim sProm As String
    Dim sValue As String
    Const cProm As String = _
          "を入力してください。" & vbLf & "(キャンセルで終了)"

    Set rngInput = Range("B13:D17")
    For Each c In rngInput.Cells
        c.Select
        sProm = Intersect(c.EntireColumn, rngInput.Rows(0)).Value
        sValue = InputBox(sProm & cProm, sProm, c.Value)
        If StrPtr(sValue) = 0 Then Exit For
        c.Value = sValue
    Next
End Sub

操作したい範囲に対して繰り返し処理をするように書きます。

投稿

編集

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

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

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