□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

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

このトピック参照回数 :
Re[4]: Ｉ列のセルに

    [195287] Re[4]: Ｉ列のセルに-

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

    □投稿者/ 斉藤 -(2022/09/25(12:04))
    □U R L/

      マナ さん
      そのとうりでした。

      ＞セルの先頭文字の"本賞金"を見つける

      ＞ "*本賞金"
      　　　↓
      　 "本賞金*"

      文字の後ろに”*”つけるんですね。

      ＞[195281] Re[1]: Ｉ列のセルに-

      こちらのコードで　"本賞金*"　試したら
      繰り返しができなく、一行しか実行できなかったでした。

      ＞ [195283] Re[2]: Ｉ列のセルに-

      こちらのコードで　"本賞金*"　試したら
      うまくきました。

      助かりました、
      ありがとうございます。
      ”*”の位置が勉強になりました。



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



    [195286] Re[4]: Ｉ列のセルに-

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

    □投稿者/ マナ -(2022/09/25(11:47))
    □U R L/

      一つ前の記事[195284]



    [195285] Re[3]: Ｉ列のセルに-

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

    □投稿者/ 斉藤 -(2022/09/25(11:24))
    □U R L/

      マナさん、たびたびすいません。
      ２番目のコード起動しましたが、
      反応なしです。

      本賞金のセルの中は、金額数字が続いてます。
      金額は、そのつど変わります。

      Ｉ列のセル　'本賞金：770、310、190、120、77万円


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



    [195284] Re[3]: Ｉ列のセルに-

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

    □投稿者/ マナ -(2022/09/25(11:17))
    □U R L/

      ＞反応なしです。

      ということは、これかも

      ＞セルの先頭文字の"本賞金"を見つける

      ＞ "*本賞金"
      　　　↓
      　 "本賞金*"



    [195283] Re[2]: Ｉ列のセルに-

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

    □投稿者/ マナ -(2022/09/25(11:06))
    □U R L/ 
      もしくは
Sub test()
    Dim ws As Worksheet
    Dim c As Range
    
    Set ws = Worksheets("sheet1")
    For Each c In ws.Range("I2", ws.Cells(Rows.Count, 9).End(xlUp))
        If c.Value Like "*本賞金" Then
             c.Value = c.Offset(0, -1).Value
        End If
    Next
    
End Sub


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

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



    [195282] Re[2]: Ｉ列のセルに-

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

    □投稿者/ 斉藤 -(2022/09/25(11:05))
    □U R L/

      マナさん、おはようございます。
      起動しましたが、
      反応なしです。

      ＯＳ　Windows7
      エクセル　２０１０


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



    [195281] Re[1]: Ｉ列のセルに-

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

    □投稿者/ マナ -(2022/09/25(10:26))
    □U R L/ 
      Sub test()
    Dim m As Variant
    Dim i As Long
    
    With Worksheets("sheet1")
        m = Application.Match("*本賞金", .Columns(9), 0)
        If Not IsError(m) Then
            .Cells(m, 9).Value = .Cells(m, 8).Value
        End If
    End With

End Sub


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

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



    [195280] Ｉ列のセルに"本賞金"を見つけたら左隣の同じ行の値をＩ列の同じ行に取得-

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

    □投稿者/ 斉藤 -(2022/09/25(10:06))
    □U R L/ 
      すいませんが、ご指導お願いいたします。

sheets("sheet1")のＩ列2行目から

Ｉ列のセルに"本賞金"を見つけたら

左隣の同じ行の値をＩ列の同じ行に取得したいのですがが、

コードの組み合わせがうまくいきません。

ご指導もどよろしくお願いいたします。

①　sheets("sheet1")のＩ列2行目からＩ列最終行まで

　　>For i = 2 To Range("Ｉ" & Rows.Count).End(xlUp).Row + 1

②　セルの先頭文字の"本賞金"を見つける

　　＞m = Application.Match("*本賞金", .Columns(9), 0)　’Columns(9) Ｉ列

③　同じ行のＨ列（左隣の同じ行）の値を取得するを続ける。

　　＞左隣のセルの値をコピー
　　　.Value = .Offset(0, -1).Value

.Columns(9)で不完全エラーになります。

　　Sub Test()

　　　Dim m As Variant
      Dim i As Long 

      Worksheets("sheet1").Select

      m = Application.Match("*本賞金", .Columns(9), 0)
        If Not IsError(m) Then
            For i = 2 To Range("Ｉ" & Rows.Count).End(xlUp).Row + 1
                .Value = .Offset(0, -1).Value
           End If

      End Sub

ご指導おねがいいたします。
ＯＳ　Windows7
エクセル　２０１０


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

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



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



このトピック内容の全ページ数 / [0]
- Child Forum -
Edit:ゆう-Ｇ