[[20170602225323]] 『「毎日の入力表から別シートに時系列に1か月分の』(むっく) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『「毎日の入力表から別シートに時系列に1か月分の個」[むっく] について』(むっく)

投稿
[[20170601083925]] 『毎日の入力表から別シートに時系列に1か月分の個』(むっく) 
について...
パオーんさん、すみません。もう一度教えてください。
表は
http://biwa28.lolipop.jp/Sheet1.pdf
のような表です。とにかくsheet1の日付と個数を認識してsheet2に受け渡したいのですが、説明足らずで申し訳ないですが縦の4行から下はSheet1と2は全く同じですが横は若干違います。お教えいただいたマクロでうまくいくのでしょうか?すみませんがもう一度お教えください。

< 使用 Excel:Excel2013、使用 OS:Windows7 >


横から失礼します。
# 特定の個人に限定して質問しない方がよいと思います。
 
引用されたスレッドは放置しておくのですか?
きちんと返事(お礼と回答を確認した結果)を
したほうがよいと思いますよ。
なぜ別のスレッドを立ち上げる必要があるのですか?
 
前の質問とシート内容は違うのですか?
 
もう一度教えてください、とは、どういうことでしたっけ。
>お教えいただいたマクロでうまくいくのでしょうか?
ご自分で動かして確認するのが先じゃないですか?
想定したものと違うのなら、どう違うのか説明してください。

(γ) 2017/06/03(土) 09:25


むっくさん

こちらに新しいスレを立てられたのですね。
前のスレがゴミとして残るので、やはり前のスレに答えるべきだと思うのですが・・・

それは、管理人さまにお願いするとして、
このマクロで一応動かしています。

気になるのは、シート名が違っていないかです。
私のマクロでは標準の Sheet1 Sheet2 をシート名として使っていますが、
むっくさん は sheet1 sheet2 と書いていらっしゃるので、そこが気になっていました。

マクロについて説明をいれて再掲します。もし修正が必要なら修正してみていただけますか?

Sub Sample()
'
' Macro1 Macro
'

    Dim S1 As Worksheet
    Dim S2 As Worksheet
    Dim Dd As Variant
    Dim I  As Long
'
    Set S1 = Sheets("Sheet1")                                   'シート "Sheet1" を S1と表します。  ひょっとして sheet1 でしょうか? その場合は修正してください。
    Set S2 = Sheets("Sheet2")                                   'シート "Sheet2" を S2と表します。

    Dd = Day(S1.Range("E1").Value)                              'Sheet1のE1に入っている日付をDdという変数に格納します。
    For I = 4 To S1.Range("A" & Rows.Count).End(xlUp).Row       'Sheet1のIという変数を4からA列最後の行の数 まで繰り返します。
        S2.Cells(I, Dd + 3).Value = S1.Cells(I, 4)              'Sheet2のI行目、日付+3列目にSheet1の4列目I行目の値を入れます。
    Next I
End Sub

(パオ〜〜ン) 2017/06/06(火) 10:42


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.