Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : Excel 2016)
別シートでの1行置き条件分岐の結果を、連続行に反映させたいです。
投稿日時: 20/02/11 20:12:13
投稿者: ワン太郎の気持ち

よろしくお願いいたします。
VBA学習中の者でございます、どうしても分からないコードがある為、
お知恵をお貸しください。
 
行いたい事でございますが、
 
異なる2つのシートがございまして、
 
例えば、"抽出ログ"というシートの
B2〜1行開けて、連続してログ情報が投入されている
セルが並んでおりまして、(※B2から1行おきにB100まで)
 
上から下に向けて条件分岐を適用させ、
1行おきにスペースが入っている連続したログ情報が入ったセルの
一番下に条件分岐で合致させたいキーワードを投入してあります。
※B101に合致させたいログ情報が入力
 
 
その(一番下のセルに投入された)セルのログに含まれていたら、
"別シート"の、今度はスペースが入っていない連続したセル行に、
結果を反映させたい
です。
 
例えば、"一致" "不一致" といった具合にです。
 
For i = * To ** Step 2で1行おきに条件分岐を適用させるまではいけるのですが、
別シートへは、空白を入れずに連続した行セルに結果を反映させたい為、
そこで躓いております。
 
よろしくお願いいたします。
 
 
 
 
 

回答
投稿日時: 20/02/11 20:35:57
投稿者: simple

模擬的なコードですが、こんな風なことでしょうか?
 

    k = 1
    For i = 1 To 100 Step 2
        If 条件式 Then
            Worksheets("sheet2").Cells(k, "A").Value = "一致"
        Else
            Worksheets("sheet2").Cells(k, "A").Value = "不一致"
        End If
        k = k + 1
    Next

>連続した行セル
という解釈が上記でよいか分かりませんが、
要するに、
  繰り返しの変数とは別の変数を使い、それは自前で加算していけばよい、
ということです。

回答
投稿日時: 20/02/11 20:53:51
投稿者: simple

繰り返し変数i を使って、
(i -1)/2 + 1 行目に書く、ということでも勿論良いとは思いますけど。

回答
投稿日時: 20/02/12 23:52:51
投稿者: simple

回答コメントを書きましたが、その受け止めはいかがですか?
現時点でのコードをこちらにアップしてもらえば、
さらに追加コメントが得られると思いますよ。
いかがですか?
 
折角、ユーザー登録しているのですから、それを活かす方向に持っていったほうがよいと思います。

投稿日時: 20/02/13 05:22:05
投稿者: ワン太郎の気持ち

お返事遅れて申し訳ありません。
 
少し悩みましたが、うまくいきません。。。
 
できましたらブログにExcelの画像を
添付しましたので、具体的なセルを利用して
一からコードを教えていただけますと助かります
 
https://vbatestee.blogspot.com/2020/02/blog-post.html

投稿日時: 20/02/13 05:23:42
投稿者: ワン太郎の気持ち

すいません。追記の扱いになります。
 
 
-----------------------------------------------
 
お返事遅れて申し訳ありません。
  
少し悩みましたが、うまくいきません。。。
  
できましたらブログにExcelの画像を
添付しましたので、具体的なセルを利用して
一からコードを教えていただけますと助かります
  
https://vbatestee.blogspot.com/2020/02/blog-post.html
 

回答
投稿日時: 20/02/13 05:30:07
投稿者: simple

>For i = * To ** Step 2で1行おきに条件分岐を適用させるまではいけるのですが
ということですから、
そのいま作成途中のコードをこちらに提示されたらどうですか?
そのほうが絶対に勉強になりますよ。

投稿日時: 20/02/13 05:36:36
投稿者: ワン太郎の気持ち

ありがとうございました。