[[20141215125922]] 『売上伝票から売上台帳に値を転記したい』(よもぎ) ページの最後に飛ぶ

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

 

『売上伝票から売上台帳に値を転記したい』(よもぎ)

いつもお世話になっております。

売上伝票.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.