Excel VBA質問箱 IV

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

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


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

16752 / 76738

←次へ　｜　前へ→


	【65450】Re:ちょっとややこしいのですが・・・・

ponpon - 10/5/22(土) 19:57 -


	引用なし

	パスワード

▼isausa さん：

>整理するとＢ列に集計の文字を含んでいなければ""を、Ｂ列に集計という文字があってＤ列が0より大きいときに"売掛金"、集計という文字を含み、Ｄの値が0より小さいときは""を入れるようにしたいのです。上の表で言うとA4.7に売掛金、A10は何もなしにしたいのです。方法はありますか

sheet1 だとして、
こんな感じ？

Dの値が０の時も""にしています。

Option Explicit

Sub test()
Dim r As Range

With Sheets("Sheet1")
　　For Each r In .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(xlUp))
　　　　If InStr(r.Value, "集計") > 0 Then
　　　　　 If r.Offset(, 2).Value > 0 Then
　　　　　　　r.Offset(, -1).Value = "売掛金"
　　　　　 Else
　　　　　　　r.Offset(, -1).Value = ""
　　　　　 End If
　　　　 Else
　　　　　 r.Offset(, -1).Value = ""
　　　　 End If
　　 Next
End With
End Sub

0 hits

▼

【65443】ちょっとややこしいのですが・・・・ isausa 10/5/21(金) 13:28