Excel VBA質問箱 IV

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

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


16752 / 76738 ←次へ | 前へ→

【65450】Re:ちょっとややこしいのですが・・・・
発言  ponpon  - 10/5/22(土) 19:57 -

引用なし
パスワード
   ▼isausa さん:

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

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

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


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 質問
【65447】Re:ちょっとややこしいのですが・・・・ Jaka 10/5/21(金) 16:44 発言
【65448】Re:ちょっとややこしいのですが・・・・ isausa 10/5/21(金) 16:50 質問
【65450】Re:ちょっとややこしいのですが・・・・ ponpon 10/5/22(土) 19:57 発言
【65460】Re:ちょっとややこしいのですが・・・・ isausa 10/5/24(月) 11:01 質問
【65462】Re:ちょっとややこしいのですが・・・・ ponpon 10/5/24(月) 12:23 発言
【65467】Re:ちょっとややこしいのですが・・・・ isausa 10/5/24(月) 16:49 お礼

16752 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free