よねさんのWordとExcelの小部屋 なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

ツリー一括表示

Nomal 1行おきに転記したい /野田 Mail (16/10/26(Wed) 19:41) #13100
Nomal Re[1]: 1行おきに転記したい /野田 Mail (16/10/26(Wed) 21:01) #13101


親記事 / ▼[ 13101 ]
■13100 / 親階層)  1行おきに転記したい
□投稿者/ 野田 Mail -(2016/10/26(Wed) 19:41:24)
    こんにちわ、お世話になっております。

    よねさんの自動転記をするというVBAコードで1行おきに転記する場合はどのようにすればよいか教えてください。
    よろしくお願いいたします。Sub prog4()
      Dim Sh1 As Worksheet
      Dim Sh2 As Worksheet
      Dim myRow As Long
        Set Sh1 = Worksheets("入力")
     

       Set Sh2 = Worksheets("データ")
          With Sh2
            myRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
             .Range(.Range("A" & myRow), .Range("D" & myRow)).Value = Sh1.Range("A2:D2").Value
            .Range("E" & myRow).Value = Sh1.Range("C2").Value * Sh1.Range("D2").Value
          End With
          With Sh1
            .Range("A2:D2").ClearContents
          End With
    End Sub
[ □ Tree ] 返信/引用返信 削除キー/

▲[ 13100 ] / 返信無し
■13101 / 1階層)  Re[1]: 1行おきに転記したい
□投稿者/ 野田 Mail -(2016/10/26(Wed) 21:01:35)
    よねさん、度々すみません。
    よ〜くよみ返してましたら出来ました。
    ありがとうございました。
[ 親 13100 / □ Tree ] 返信/引用返信 削除キー/


Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -