Excel VBA質問箱 IV

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

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


8869 / 76732 ←次へ | 前へ→

【73431】含まれる文字に応じ別の列にフラグを立てるには
質問  にしもり  - 13/1/9(水) 17:20 -

引用なし
パスワード
   こんにちは。

A列にタイトル「製品名」で文字列が入っていて、
B列にタイトル「日付」で文字列が入っていて、
C列にタイトル「通し番号」で文字列が入っていて、
D列にタイトル「客室タイプ」で文字列が入っていて、
E列にタイトル「質問内容」で文字列が入っていて、
F列にタイトル「sea」でなにも入っていず、
G列にタイトル「mount」でなにも入っていません。


いま、E列2行目をポイントして
文字列に海が含まれていたらF列2行目に"1"を
文字列に山が含まれていたらG列2行目に"1"を

つぎに、E列3行目をポイントして
文字列に海が含まれていたらF列3行目に"1"を
文字列に山が含まれていたらG列3行目に"1"を、、、、

入れていきたいです。

ここまで記述しましたが行き詰まりました。
どうすればよいかどなたか御教授いただけませんでしょうか。

↓↓

Sub Type1()
 Dim r As Range
 Dim v
 Dim i As Long
 Dim j As Long
  Set r = Sheets(1).Cells(1).CurrentRegion
  v = r.Value
  With CreateObject("Forms.ComboBox.1")
    .List = v
    j = 5
    For i = .ListCount - 1 To 2 Step -1
      If .List(i, j) = "*海*" Then
        j = j + 1
        .List(i, j) = "1"
        j = j - 1
        If .List(i, j) = "*山*" Then
          j = j + 2
          .List(i, j) = "1"
          j = j - 2
          .RemoveItem i
        End If
      End If
    Next
    r.ClearContents
    r.Resize(.ListCount, 13).Value = .List
  End With
  Beep
End Sub

234 hits

【73431】含まれる文字に応じ別の列にフラグを立てるには にしもり 13/1/9(水) 17:20 質問
【73432】Re:含まれる文字に応じ別の列にフラグを立... UO3 13/1/9(水) 21:28 発言
【73433】Re:含まれる文字に応じ別の列にフラグを立... にしもり 13/1/10(木) 10:06 質問
【73436】Re:含まれる文字に応じ別の列にフラグを立... UO3 13/1/10(木) 12:56 発言
【73437】Re:含まれる文字に応じ別の列にフラグを立... にしもり 13/1/10(木) 15:31 質問
【73438】Re:含まれる文字に応じ別の列にフラグを立... UO3 13/1/10(木) 15:51 発言
【73439】Re:含まれる文字に応じ別の列にフラグを立... にしもり 13/1/10(木) 16:21 お礼

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