Results of 1 - 1 of about 37667 for IF (0.007 sec.)
- [[20170912115321]]
- #score: 1591
- @digest: cd252532b7e43112e06f6c60e0d6d3b1
- @id: 74383
- @mdate: 2017-09-15T10:51:50Z
- @size: 6899
- @type: text/plain
- #keywords: 休" (35245), 公休 (28893), cel (24546), 入" (9185), こー (6508), ーた (5993), value (2826), 仕入 (2615), 追加 (2224), 2017 (2036), range (1798), then (1576), each (1439), 火) (1370), exit (1362), マナ (1190), 空白 (1056), 趣旨 (926), next (920), ンパ (910), c6 (790), トプ (733), た） (664), 訂正 (622), for (616), if (610), sub (582), in (559), ルエ (539), ナ） (531), ）20 (505), （こ (502)
- 『なおしてもらえませんか?』（こーた）
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のセルが空白でなければに訂正します ということなら、1行追加するだけです。 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 ---- 回答していただきありがとうございました。 あとひとつ聞いていいですか? このようにしたのですがC6 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... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201709/20170912115321.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97012 documents and 608132 words.
訪問者：