□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
V列に　"GI"　"GII"　"GIII"がある場合R列の同じ行に取得する。

    [195491] V列に　"GI"　"GII"　"GIII"がある場合R列の同じ行に取得する。-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ こうちゃん -(2023/01/09(19:47))
    □U R L/ 
      よろしくお願いいたします。

Sheet1のR5行目からオープンがあったら

同じ行のV列に　"GI"　"GII"　"GIII"

があったらR列の同じ行に取得したいのですが

　"GI"　"GII"　"GIII"がない場合はそのままオープンにします。

TESTのコードを実行しても
うまくいきません。

ご指導おねがいしたいのですが
宜しくお願い致します。　　　

（例１）
Sheet1

　　　R列　　　　　　　V列
行

　５　オープン　　　　京王杯2歳ステークス GII
　６　新馬　　　　　　サラ系2歳新馬 
　７　500万下　　　　 白菊賞
　８　オープン　　　　京王杯2歳ステークス GII
　９　500万下　　　　 ベゴニア賞
１０　オープン　　　　阪神ジュベナイルフィリーズ GI　　　　
１１　オープン　　　　アルテミスステークス GIII
１２　未勝利　　　　　サラ系2歳未勝利 
１３　オープン　　　　京王杯2歳ステークス GII
１４　500万下　　　　 サラ系2歳500万円以下
１５　新馬　　　　　　サラ系2歳新馬
１６　オープン　　　　福島2歳ステークス
１７
１８　オープン　　　　阪神ジュベナイルフィリーズ GI
１９　未勝利　　　　　サラ系2歳未勝利 
２０　新馬　　　　　　サラ系2歳新馬


Sub TEST()

Dim v, W
Dim i As Long
Dim Str As String
   
    v = Worksheets("Sheet1").Range("R5:V20").Value
    ReDim W(1 To UBound(v), 1 To 1)
    
    For i = 1 To UBound(v)
        If v(i, 1) = "オープン" Then
            Str = v(i, 5)
            If InStr(Str, "G") > 0 Then
                W(i, 1) = Mid(Str, InStr(Str, "G"), Len(Str) - InStr(Str, "G"))
            Else
                W(i, 1) = v(i, 1)
            End If
        Else
            W(i, 1) = v(i, 1)
        End If
    Next i
    
    Worksheets("Sheet1").Range("R5").Resize(UBound(v)).Value = W
    
    Erase v, W

End Sub

TESTのコードを実行したら
この様になってしまいます。

（例２）
Sheet1

　　　R列　　　　　　　V列
行

　５　GI　　　　　　　京王杯2歳ステークス GII
　６　新馬　　　　　　サラ系2歳新馬 
　７　500万下　　　　 白菊賞
　８　GI　　　　　　　京王杯2歳ステークス GII
　９　500万下　　　　 ベゴニア賞
１０　G　　　　　　　 阪神ジュベナイルフィリーズ GI　　　　
１１　GII　　　　　　 アルテミスステークス GIII
１２　未勝利　　　　　サラ系2歳未勝利 
１３　GI　　　　　　　京王杯2歳ステークス GII
１４　500万下　　　　 サラ系2歳500万円以下
１５　新馬　　　　　　サラ系2歳新馬
１６　オープン　　　　福島2歳ステークス
１７
１８　オープン　　　　阪神ジュベナイルフィリーズ GI
１９　未勝利　　　　　サラ系2歳未勝利 
２０　新馬　　　　　　サラ系2歳新馬

例３の様にしたいのですが

（例３）
Sheet1

　　　R列　　　　　　　V列
行

　５　GII　　　　　　 京王杯2歳ステークス GII
　６　新馬　　　　　　サラ系2歳新馬 
　７　500万下　　　　 白菊賞
　８　GII　　　　　　 京王杯2歳ステークス GII
　９　500万下　　　　 ベゴニア賞
１０　GI　　　　　　　阪神ジュベナイルフィリーズ GI　　　　
１１　GIII　　　　　　アルテミスステークス GIII
１２　未勝利　　　　　サラ系2歳未勝利 
１３　GII　　　　　　 京王杯2歳ステークス GII
１４　500万下　　　　 サラ系2歳500万円以下
１５　新馬　　　　　　サラ系2歳新馬
１６　オープン　　　　福島2歳ステークス
１７
１８　オープン　　　　阪神ジュベナイルフィリーズ GI
１９　未勝利　　　　　サラ系2歳未勝利 
２０　新馬　　　　　　サラ系2歳新馬


OP2003は、うまく実行できていたんですが

OP2010に変えたらうまく取得できないみたいです。



      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++



    [195492] Re[1]: V列に　-

    ■記事引用/メール受信=OFF■

    □投稿者/ こうちゃん -(2023/01/09(19:52))
    □U R L/

      すいません
      例　２，３の１８行目がちがってました。

      （例２）

      １８　　G　　　　阪神ジュベナイルフィリーズ GI

      （例３）

      １８　　GI　　　 阪神ジュベナイルフィリーズ GI

      書き間違え、すいませんでした。




      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++



    [195493] Re[2]: V列に　-

    ■記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2023/01/09(20:11))
    □U R L/ 
      ＞W(i, 1) = Mid(Str, InStr(Str, "G"), Len(Str) - InStr(Str, "G"))

  W(i, 1) = Mid(Str, InStr(Str, "G"), Len(Str) - InStr(Str, "G") + 1)
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　~~↑~~
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　じゃないですか？



    [195494] Re[3]: V列に　-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ こうちゃん -(2023/01/09(21:22))
    □U R L/

      半平太さん、

      ありがとうございます。

      ＞InStr(Str, "G") + 1)

      + 1　を追加するんですね。

      勉強になりました。


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

- Child Forum -
Edit:ゆう-Ｇ