[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『「毎日の入力表から別シートに時系列に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.