Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8408 / 76735

←次へ　｜　前へ→


	【73902】Re:IF文教えてください。

kanabun - 13/3/19(火) 0:16 -


	引用なし

	パスワード

↑すみません。間違えました > NはADが 0 なら [K]、ADが 1 なら K + AD を表示｡ Kは必ず「日付」。 Sub test2() 　　Dim c As Range 　　　　[N1].Value = [K1].Value - ([AD1].Value = 1) ’●訂正　　[N1].ID = [N1].Value 　　　　[O1:AA1].ClearContents 　　For Each c In [O1:AA1] 　　　　If c.Offset(, 16).Value = 1 Then 　　　　　　c.Value = CDate(c.Offset(, -1).ID) + 1 　　　　　　c.ID = c.Value 　　　　Else 　　　　　　c.ID = c.Offset(, -1).ID 　　　　End If 　　Next 　　　　 End Sub