[[20170912115321]]　『なおしてもらえませんか？』（こーた）　ページの最後に飛ぶ

『なおしてもらえませんか？』（こーた）

Sub test()
Dim i As Integer
For i = 1 To 100
If Cells(i, 1).Value = "" Then
Cells(i, 1).Value = "仕入"
End If
Next i
End Sub

=F6:L6のセル範囲になおしたいのですがよろしくお願いします

＜使用 Excel：Excel2003、使用 OS：WindowsXP ＞

 Sub test()
    Dim i As Integer, Cel As Range

    For Each Cel In Range("F6:L6")

        If Cel.Value = "" Then
            Cel.Value = "仕入"
        End If
    Next
 End Sub
（半平太） 2017/09/12(火) 12:22

回答ありがとうございました。
あとひとつ教えてください
この条件でC6に値が入力でこのマクロを動かしたいのですが
おしえていただけませんか
よろしくお願いします
（こーた） 2017/09/12(火) 13:28

C6のセルが空白でなければに訂正します
（こーた） 2017/09/12(火) 13:35

 質問の趣旨が不明瞭なので・・・

 シートモジュールに書く「イベントプロシージャ」について調べてみてください、とだけアドバイスします。

 こんな形式のものです
 　↓
 Private Sub Worksheet_Change(ByVal Target as Range)
　’処理
 End Sub

 それだけじゃ分からなくて、もっと具体的な回答が欲しい場合は、
 他の回答者のレスが付くまでしばらくお待ちください。m(__)m

（半平太） 2017/09/12(火) 14:19

色々検索しましたが難しすぎてわかりませんでした
諦めます
（こーた） 2017/09/12(火) 19:56

＞C6のセルが空白でなければに訂正します

ということなら、１行追加するだけです。

 Sub test()
    Dim Cel As Range

    If Range("C6").Value="" then Exit Sub  '★追加

    For Each Cel In Range("F6:L6")
        If Cel.Value = "" Then
            Cel.Value = "仕入"
        End If
    Next

 End Sub

（マナ） 2017/09/12(火) 20:50

回答していただきありがとうございました。
あとひとつ聞いていいですか？
このようにしたのですがＣ6　C10　C14　でC18が空白になるとマクロが止まって最後まで処理してくれません
空白があっても処理する方法ないでしょうか？
よろしくお願いします

Sub ボタン27_Click()

    Dim Cel As Range

    If Range("C6").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F6:L6")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C10").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F10:L10")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C14").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F14:L14")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

 If Range("C18").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F18:L18")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C22").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F22:L22")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C26").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F26:L26")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C30").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F30:L30")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C34").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F34:L34")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C38").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F38:L38")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C42").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F42:L42")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C46").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F46:L46")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C50").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F50:L50")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C54").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F54:L54")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C58").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F58:L58")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C62").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F62:L62")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C66").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F66:L66")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C70").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F70:L70")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

If Range("C74").Value = "" Then Exit Sub '★追加

    For Each Cel In Range("F74:L74")
        If Cel.Value = "" Then
            Cel.Value = "公休"
        End If
    Next

 End Sub

（こーた） 2017/09/12(火) 22:41

こうです。

 Sub test2()
    Dim Cel As Range

    If Range("C6").Value <> "" Then

        For Each Cel In Range("F6:L6")
            If Cel.Value = "" Then
                Cel.Value = "仕入"
            End If
        Next

    End If

 End Sub

＞If Range("C6").Value = "" Then Exit Sub

これだと、「空白ならば、そこで終了」

これを、「空白でなければ、実行する」にします。

（マナ） 2017/09/12(火) 22:58

コンパイルエラーが出てしまって
つまずいてしまいます
何が違うのですか？
ifブロックに対応する End Ifが
ありません
これが出ます

（こーた） 2017/09/12(火) 23:16

End Ifが抜けてました
ごめんなさい
大変にお世話になりました。
ありがとうございました。助かりました

（こーた） 2017/09/12(火) 23:29

行を変えて、同じ処理のくり返しですよね。
For～Nextを使えば、もっとコンパクトに書けます。
余裕があれば、チャレンジしてみるとよいです。

（マナ） 2017/09/12(火) 23:37

こんばんは
また問題が出てしまいました。
If Range("C6").Value <> "" Then
空白ならの所になのだと思いますが
参照している空白には対応する事は出来ませんか？
何度もすみませんが教えてください。
よろしくお願いします。
（こーた） 2017/09/14(木) 23:13

＞参照している空白

の意味じゃわかりませんが、
ゼロを表示しない設定で空白に見えているのなら、

If Range("C6").Value <> 0 Then

に変更してみてください。

（マナ） 2017/09/15(金) 19:15

マナさん
助かりました
何度もありがとうございました
（こーた） 2017/09/15(金) 19:51

コメント返信：

[ 一覧(最新更新順) ]

[[20170912115321]] 『なおしてもらえませんか？』（こーた） ページの最後に飛ぶ

[[20170912115321]]　『なおしてもらえませんか？』（こーた）　ページの最後に飛ぶ