|
こんにちは。かみちゃん です。
>今までの所で、うまく動くのは以下までです。
ご提示いただいたコードのうち、
Sheets("Sheet2").Select
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "12 入"
では、Sheet2のA6に"12 入"という文字が入るのですが、それでいいのでしょうか?
> Sheet2に横2枚、縦5枚のタックシール用のフォームを作りました。
> そのA1に品番、A2に入庫日、A3に品名、A4にサイズ、A5にカラー、A6に入数(入り数は数字だけなので、「入」と言う文字をつけます。)を配置します。
> それをB列、A列の空白セル、B列の空白のセル・・・の順にC/T数に入っている数分だけコピー
シートイメージがよくわかりません。
【Sheet2】
A B C D
1 品番
2 入庫日
3 品名
4 サイズ
5 カラー
6 入数
7
というイメージですか?
> B列、A列の空白セル、B列の空白のセル・・・の順に
これはどういう意味ですか?
あと、提示されたコードを整理すると、以下のようなコードになるかと思います。
Sub 貼付2()
Sheets("Sheet2").Range("A1").Value = Sheets("Sheet1").Range("A5").Value
Sheets("Sheet2").Range("A2").Value = Sheets("Sheet1").Range("E5").Value
Sheets("Sheet2").Range("A3").Value = Sheets("Sheet1").Range("B5").Value
Sheets("Sheet2").Range("A4").Value = Sheets("Sheet1").Range("C5").Value
Sheets("Sheet2").Range("A5").Value = Sheets("Sheet1").Range("D5").Value
Sheets("Sheet2").Range("A6").Value = Sheets("Sheet1").Range("F5").Value
Sheets("Sheet2").Range("A6").Value = "12 入" '←不明
Sheets("Sheet2").Range("A1:A6").Copy Sheets("Sheet2").Range("B1")
End Sub
|
|