[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『売上伝票から売上台帳に値を転記したい』(よもぎ)
いつもお世話になっております。
売上伝票.xlsx、売上台帳.xlsxというブックがあります。
伝票を作成した際に、税抜額、消費税、税込額をそのまま台帳に転記したいです。
A9:F9は税抜額、H20:J20は消費税、N20:S20が税込額なのですが、結合セルになっています。
それに対し、貼付け先はH,I,Jと単セルになっています。
なので、Ctrl+C,Vで普通にコピペすると結合されてしまいます。
これを、台帳のSheet1の各行の最終の値が入力されている次のセル(空セル)に転記したいのですが、うまくいきません。
マクロの記録で、操作を行ったところ、セルは結合されてしまいました。
簡単なコピペのマクロくらいしか使ったことがないのですが、転記は面倒なので、どなたかご教授いただけませんでしょうか。よろしくお願いいたしますm(__)m
< 使用 Excel:Excel2007、使用 OS:Windows8 >
単純に変数に値を入れて、入れなおせばいいと思いますが・・・ 各行の最終の値については、どのような表なのかわかりませんので、考慮していません。 ちなみに、xlsxだとマクロブックとして保存できないと思うのですがいいんですか?
Dim 税抜額 As Long Dim 消費税 As Long Dim 税込額 As Long With Workbooks("売上伝票.xlsx") 税抜額 = .Range("A9").Value 消費税 = .Range("H20").Value 税込額 = .Range("N20").Value End With With Workbooks("売上台帳.xlsx") .Range("H1").Value = 税抜額 .Range("I1").Value = 消費税 .Range("J1").Value = 税込額 End With (稲葉) 2014/12/15(月) 13:24
回答ありがとうございます!
そうですね、xlsmです。失礼しましたm(__)m
転記先のシートの構成としては
A H I J
1 ・・・ 税抜額 消費税 税込額
2 ・・・ 500 40 540
3・・・ ・ ・ ・
・ ・ ・ ・
・ ・ ・ ・
10・・・ 100 8 108
11・・・ 空 空 空 ←ここに転記したい
このような感じなのですが、わかりますでしょうか?
毎回、伝票発行ごとに転記先が1行ずつずれていくわけなんです。
(よもぎ) 2014/12/15(月) 13:40
さっきの例、Sheets入れ忘れてた・・・ ブックが開かれていることが前提ですが、下記のようなコードでいかがですか? シート名とブック名は自分で直してください。
Sub 転記() Dim 転記金額(1 To 3) As Long With Workbooks("売上伝票.xlsx").Sheets("Sheet1") 転記金額(1) = .Range("A9").Value 転記金額(2) = .Range("H20").Value 転記金額(3) = .Range("N20").Value End With Workbooks("売上台帳.xlsx").Sheets("Sheet1").Range("H" & Rows.Count).End(xlUp).Offset(1).Resize(, 3).Value = 転記金額 End Sub (稲葉) 2014/12/15(月) 14:37
回答ありがとうございます!
無事にやりたいことができました!!
本当にありがとうございましたm(__)m
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.