Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5171 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52250】ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 ゆばーば 07/11/4(日) 14:40 質問[未読]
【52251】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 かみちゃん 07/11/4(日) 14:42 発言[未読]
【52252】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 ゆばーば 07/11/4(日) 15:10 回答[未読]
【52254】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 かみちゃん 07/11/4(日) 15:16 発言[未読]
【52255】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 ゆばーば 07/11/4(日) 15:33 質問[未読]
【52256】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 かみちゃん 07/11/4(日) 16:20 発言[未読]
【52258】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 ゆばーば 07/11/4(日) 16:55 お礼[未読]
【52259】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 かみちゃん 07/11/4(日) 17:44 発言[未読]
【52261】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 ゆばーば 07/11/4(日) 18:08 お礼[未読]
【52262】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 かみちゃん 07/11/4(日) 18:13 発言[未読]
【52263】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 ゆばーば 07/11/4(日) 18:41 お礼[未読]
【52264】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 かみちゃん 07/11/4(日) 18:59 発言[未読]
【52265】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 ゆばーば 07/11/4(日) 19:36 お礼[未読]
【52257】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置 Km 07/11/4(日) 16:29 発言[未読]
【52250】ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
質問  ゆばーば  - 07/11/4(日) 14:40 -
引用なし
パスワード
   教えて下さい！
Sheet1A列〜G列に商品CD・品名・サイズ・カラー・入庫日・入数・C/T数が入って、それが複数行あります。
Sheet2に横2枚、縦5枚のタックシール用のﾌｫｰﾑを作りました。
そのA1に品番、A2に入庫日、A3に品名、A4にサイズ、A5にカラー、A6に入数（入り数は数字だけなので、「入」と言う文字をつけます。）を配置します。
それをB列、A列の空白セル、B列の空白のセル・・・の順にC/T数に入っている数分だけコピーをし、それが終わったら、2行目も繰り返す・・と言うのを作りたいのですが、うまくいきません。
どうかお知恵を貸してください。
【52251】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
発言  かみちゃん  - 07/11/4(日) 14:42 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> うまくいきません。

どこまでできていますか？
できているものがあれば、提示されてはいかがでしょうか？
【52252】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
回答  ゆばーば  - 07/11/4(日) 15:10 -
引用なし
パスワード
   かみちゃんさん

　ありがとうございます。
そーですね、どこまで出来ているかと言うと、Sheet2の1枚目のラベル貼付けまでです。
その後の「C/T」欄に入っている数分だけ順番にコピーをするところから解かりません。
まず、始めからやり方が間違っているかもしれないので、全ての流れを書かせて頂きました。超初心者で申し訳ございませんが、何卒よろしくお願いいたします。
【52254】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
発言  かみちゃん  - 07/11/4(日) 15:16 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> Sheet2の1枚目のラベル貼付けまでです。

さきほどのコメントにきちんと書かなかったのですが、そのできていることは、
ＶＢＡでしているのですか？手作業ですか？
ＶＢＡでしているならば、そのコードを、手作業でしたら、「マクロの記録」で
記録したコードを提示できませんか？

ここは、ＶＢＡの掲示板です。
まずは、ご自身でできているコードをきちんと提示しないと、丸投げ質問になって
しまいますよ。
コードのとっかかりもわからないので、何もできていないなら、その旨書かれたほうがいいです。
【52255】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
質問  ゆばーば  - 07/11/4(日) 15:33 -
引用なし
パスワード
   かみちゃん さん

そうですね。失礼致しました。
今までの所で、うまく動くのは以下までです。

Sub 貼付_Click()
'
' 貼付_Click Macro
' マクロ記録日 : 2007/11/4　ユーザー名 : yukari kikuchi
'

'
　　Range("A5").Select
　　Selection.Copy
　　Sheets("Sheet2").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheets("Sheet1").Select
　　Range("E5").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("Sheet2").Select
　　Range("A2").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheets("Sheet1").Select
　　Range("B5").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("Sheet2").Select
　　Range("A3").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheets("Sheet1").Select
　　Range("C5").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("Sheet2").Select
　　Range("A4").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheets("Sheet1").Select
　　Range("D5").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("Sheet2").Select
　　Range("A5").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheets("Sheet1").Select
　　Range("F5").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　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　入"
　　ActiveCell.Characters(4, 1).PhoneticCharacters = "ニュウ"
　　Sheets("Sheet2").Select
　　Range("A1:A6").Select
　　Selection.Copy
　　Range("B1").Select
　　ActiveSheet.Paste
　　
End Sub

いかがでしょうか？
【52256】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
発言  かみちゃん E-MAIL  - 07/11/4(日) 16:20 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>今までの所で、うまく動くのは以下までです。

ご提示いただいたコードのうち、

　　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
【52257】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
発言  Km  - 07/11/4(日) 16:29 -
引用なし
パスワード
   ▼ゆばーば さん：

タックシールの簡単な作り方は・・・

タックシールは２列×５行で仕上がっているのですね(仕上げシートはシート１にする方が分かりやすい…コマンドボタンもシート１に作成させ）

このようなことで、

シート２に１０行(項目行を除き）
A列からG列の７項目
　　A　　 B　　　C　　　D　　　 E　　　 F　　　 G　　　
1商品CD　品名　サイズ　カラー　入庫日　入数　　C/T
2
3
:
11
２行目から１１行目にシート３の元データを貼り付けるための中間処理的な
シートです

シート３に全データを作成する…これはデータに制限は有りません

このような状態で
シート３から１０列単位に、順次シート２のA2に貼り付ける…これをルーティン処理で
１０行ずつ、シート２に貼り付けるコードを組みます。

シート２に貼り付けたデータとシート１とはエクセルの普通のリンク処理で
タックシールを作成する。

こんな構成でコードを作成されると非常に簡単なコードで済むと思いますが…
小生もタックシールを５種類ほど組んでいますが「基本的な方法は全てこのようなやり方でしていますが…大変楽です」
【52258】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
お礼  ゆばーば  - 07/11/4(日) 16:55 -
引用なし
パスワード
   かみちゃんさん、ｋmさん　ありがとうございます。

kmさんの言う通り、いっぺんにやろうとしないで中間処理ｼｰﾄを作るほうが良いのでしょうか？

かみちゃんさん、コード訂正ありがとうございます。
G5の部分は、入っている数字（カートン数）の後に「入」と付けたいと思ったらあのようになってしまいました。

タックシールはA列とB列のみを使用し、1枚のｼｰﾙがA1からA5で出来ています。
次にB1〜B5を使って同じシールを作り、次にA6〜A10、次にB6〜B10の順に指定枚数（C/T数）作りたいのです。
そのコピーする順番を指定するのと、「C/T」数のセルに入っている数分繰り返すところがよくわからないのです。
初心者過ぎて、大変申し訳ございません。
【52259】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
発言  かみちゃん E-MAIL  - 07/11/4(日) 17:44 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>タックシールはA列とB列のみを使用し、1枚のｼｰﾙがA1からA5で出来ています。
>次にB1〜B5を使って同じシールを作り、次にA6〜A10、次にB6〜B10の順に指定枚数（C/T数）作りたいのです。
>そのコピーする順番を指定するのと、「C/T」数のセルに入っている数分繰り返すところがよくわからないのです。

とりあえず、以下のような感じでいかがでしょうか？

Sub 貼付3()
　Dim lngRow As Long
　Dim lngTuckRow As Long
　Dim cntCT As Integer
　
　lngTuckRow = 1
　'Sheet1の5行目〜10行目までを処理する場合
　For lngRow = 5 To 10
　　Sheets("Sheet2").Range("A" & lngTuckRow).Value = Sheets("Sheet1").Range("A" & lngRow).Value
　　Sheets("Sheet2").Range("A" & lngTuckRow + 1).Value = Sheets("Sheet1").Range("E" & lngRow).Value
　　Sheets("Sheet2").Range("A" & lngTuckRow + 2).Value = Sheets("Sheet1").Range("B" & lngRow).Value
　　Sheets("Sheet2").Range("A" & lngTuckRow + 3).Value = Sheets("Sheet1").Range("C" & lngRow).Value
　　Sheets("Sheet2").Range("A" & lngTuckRow + 4).Value = Sheets("Sheet1").Range("D" & lngRow).Value
　　Sheets("Sheet2").Range("A" & lngTuckRow + 5).Value = Sheets("Sheet1").Range("F" & lngRow).Value

　　cntCT = Sheets("Sheet1").Range("G" & lngRow).Value
　　If cntCT >= 2 Then
　　　Sheets("Sheet2").Range("A" & lngTuckRow).Resize(6).Copy Sheets("Sheet2").Range("B" & lngTuckRow)
　　　If cntCT >= 2 Then
　　　　Sheets("Sheet2").Range("A" & lngTuckRow).Resize(6, 2).Copy _
　　　　　Sheets("Sheet2").Range("A" & lngTuckRow).Resize(6 * Int((cntCT + 1) / 2), 2)
　　　End If
　　　'C/T数が奇数の場合は、B列の最終行から6行を消去
　　　If cntCT Mod 2 = 1 Then
　　　　Sheets("Sheet2").Range("B" & lngTuckRow).Offset(6 * Int(cntCT / 2)).Resize(6).ClearContents
　　　End If
　　End If
　　lngTuckRow = lngTuckRow + 6 * (Int((cntCT + 1) / 2))
　Next
End Sub

ポイントは、C/T数を2で割った数（小数点の場合は切上）分A列とB列を6行単位
でコピーしているところです。
C/T数が奇数の場合は、B列の最後の6行は余分なので消去しています。
これをSheet1の必要な行数分繰り返しています。（下記コードでは、5行目〜10行目までを処理しています）
【52261】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
お礼  ゆばーば  - 07/11/4(日) 18:08 -
引用なし
パスワード
   かみちゃんさん

　ありがとうございます！！
完璧に出来ました。
「C/T数を2で割る」と言う発想には脱帽です！
最後までご親切にお世話頂き心から感謝いたします。
重ねてお礼申し上げます。
【52262】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
発言  かみちゃん  - 07/11/4(日) 18:13 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>完璧に出来ました。
>「C/T数を2で割る」と言う発想には脱帽です！

言い忘れていましたが、C/T数が奇数のものが途中の行にあると、B列の部分に
所々空きが出て、シールが印刷されませんので、確認してみてください。
ここを詰めて印刷できるようにしたいという話であれば、もっとややこしいコード
にする必要があります。
【52263】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
お礼  ゆばーば  - 07/11/4(日) 18:41 -
引用なし
パスワード
   かみちゃん さん

>言い忘れていましたが、C/T数が奇数のものが途中の行にあると、B列の部分に
>所々空きが出て、シールが印刷されませんので、確認してみてください。
>ここを詰めて印刷できるようにしたいという話であれば、もっとややこしいコード
>にする必要があります。

はい、そのようでうすが、かえって境目がわかっていいですし、十分な結果だと思っています。
ありがとうございます。

ちなみに、貼り付けた数字の後に決まった文字を足すと言うのはやっぱり無理なのでしょうか？
【52264】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
発言  かみちゃん  - 07/11/4(日) 18:59 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> 貼り付けた数字の後に決まった文字を足す

Sheets("Sheet2").Range("A" & lngTuckRow + 5).Value = Sheets("Sheet1").Range("F" & lngRow).Value & "　入"
という感じでいかがでしょうか？
【52265】Re:ｼｰﾄ1のリストをｼｰﾄ2でタックｼｰﾙに配置
お礼  ゆばーば  - 07/11/4(日) 19:36 -
引用なし
パスワード
   かみちゃんさん

　重ね重ねありがとうございます。
もう、本当に完璧です。
これで明日から1時間は早く仕事を終わらせて帰宅することが出来ます。
感謝いたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5171 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free