Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7984 / 13655 ﾂﾘｰ

←次へ　｜　前へ→

▼

【35764】入力したデータを別シートにログとして残す　やり方教えてください。 あいら 06/3/12(日) 16:49

【35766】Re:入力したデータを別シートにログとして... かみちゃん 06/3/12(日) 16:52

【35767】Re:入力したデータを別シートにログとして... あいら 06/3/12(日) 17:04

【35768】Re:入力したデータを別シートにログとして... かみちゃん 06/3/12(日) 17:09

【35769】Re:入力したデータを別シートにログとして... あいら 06/3/12(日) 17:22

【35770】Re:入力したデータを別シートにログとして... かみちゃん 06/3/12(日) 18:19

【35777】Re:入力したデータを別シートにログとして... あいら 06/3/12(日) 20:28

【35779】Re:入力したデータを別シートにログとして... あいら 06/3/12(日) 20:33

【35780】Re:入力したデータを別シートにログとして... かみちゃん 06/3/12(日) 20:35

【35771】Re:入力したデータを別シートにログとして... かみちゃん 06/3/12(日) 18:31

【35772】Re:入力したデータを別シートにログとして... あいら 06/3/12(日) 19:31

【35774】やってみました。すみません　もう一度教え... あいら 06/3/12(日) 20:02

【35775】Re:やってみました。すみません　もう一度... かみちゃん 06/3/12(日) 20:13

【35776】Re:やってみました。すみません　もう一度... あいら 06/3/12(日) 20:21

【35778】Re:やってみました。すみません　もう一度... かみちゃん 06/3/12(日) 20:30

【35781】Re:やってみました。すみません　もう一度... あいら 06/3/12(日) 20:41

【35782】Re:やってみました。すみません　もう一度... かみちゃん 06/3/12(日) 20:50

【35783】Re:やってみました。すみません　もう一度... あいら 06/3/12(日) 20:57

【35784】Re:やってみました。すみません　もう一度... あいら 06/3/12(日) 21:01

【35786】Re:やってみました。すみません　もう一度... かみちゃん 06/3/12(日) 21:28

【35787】Re:やってみました。すみません　もう一度... あいら 06/3/12(日) 22:20

【35788】Re:やってみました。すみません　もう一度... ネット徘徊者 06/3/13(月) 9:26


	【35764】入力したデータを別シートにログとして残...

あいら - 06/3/12(日) 16:49 -


	引用なし

	パスワード

入力するワークシートでは、印刷するとデータを消去してしまいます。
印刷したものは、印刷済みとして　別なワークシートにログとして残しておきたいのですが、やり方がさっぱり分かりません。すみません。教えてください。

できれば、入力するワークシートで、印刷ボタンを押した時にそのマクロを実行させたいのですが。。。使用しているエクセルは、エクセル2000です。

よろしくお願いします。


	【35766】Re:入力したデータを別シートにログとし...

かみちゃん - 06/3/12(日) 16:52 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>入力するワークシートでは、印刷するとデータを消去してしまいます。
>印刷したものは、印刷済みとして　別なワークシートにログとして残しておきたい

具体的にどのようなデータをどのようにしたいのですか？
元々のデータを印刷シートにコピーするのか、
印刷したら、別のシートにコピーするのか？
印刷対象のデータのフォーマットは、行単位なのか？
行単位でとしたら、Excelの最大行を超えたらどうかるのか？

いろいろと考える必要があるのですが・・・


	【35767】Re:入力したデータを別シートにログとし...

あいら - 06/3/12(日) 17:04 -


	引用なし

	パスワード

>印刷対象のデータのフォーマットは、行単位なのか？
行単位ではありません。

但し、別シートでは、行単位でログを残しておきたいです。
印刷ボタンを押す度に、別シートでは

例）行に　
　　作成日　機種名　ロット　台数
追加）
追加）
・
・
・
こんな感じです。よろしくお願いします。


	【35768】Re:入力したデータを別シートにログとし...

かみちゃん - 06/3/12(日) 17:09 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>>印刷対象のデータのフォーマットは、行単位なのか？
>行単位ではありません。
>
>但し、別シートでは、行単位でログを残しておきたい

何か矛盾しているように思います。
私だけかもしれませんが、少なくとも、[#35766]でおたずねしていることのような
具体的なしたいことを教えていただけないと、アドバイスは難しいです。


	【35769】Re:入力したデータを別シートにログとし...

あいら - 06/3/12(日) 17:22 -


	引用なし

	パスワード

▼かみちゃんさん：
すみません。
ワークシートは、2つあります。
ひとつは、データを入力して印刷するもの。（入力シート）
もうひとつは、そのデータのログを残しておくためのシート。（印刷済みログ）

（入力シート）は、行単位ではなく、
　　　　　　　　作成日「　　」
　機種名
「　　　　」
　ロット　　　台数
「　　　　」　「　　　」　　　【印刷】ボタン
　　　　　　　　　　　　　　　【クリア】ボタン　　

になっています。

このシートは、印刷したらデータをクリアし、新たなデータを入力して、
また印刷するというものです。

ここで、印刷ボタンを押した時。もしくは新たに【保存】ボタンを作成し、
入力したデータを印刷済みとして、
作成日　機種名　ロット　台数
（追加）
（追加）
（追加）
・
・
・
↑の様に行の追加でログをとりたいのです。


	【35770】Re:入力したデータを別シートにログとし...

かみちゃん - 06/3/12(日) 18:19 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>すみません。

何がしたいのかはよくわかりました。
今後は、このように質問内容を示すようにしましょう。

解決方法をご紹介する前に、
以下のご質問をされている方と同じ方ですか？教えてください。
http://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=84501&rev=0


	【35771】Re:入力したデータを別シートにログとし...

かみちゃん - 06/3/12(日) 18:31 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

> 行の追加でログをとりたい

こんな感じです。
Sub Macro1()
　Dim myData As Variant
　
　With Sheets("Sheet1")
　　myData = Array(.Range("B1").Value, _
　　　　　　　　　 .Range("A3").Value, _
　　　　　　　　　 .Range("A5").Value, _
　　　　　　　　　 .Range("B5").Value)
　End With
　Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1).Resize(, 4).Value = myData
End Sub


	【35772】Re:入力したデータを別シートにログとし...

あいら - 06/3/12(日) 19:31 -


	引用なし

	パスワード

▼かみちゃんさん：
質問は、リンク先と同じ人物です。
仕事で、この悩みが解決せずに早、１ヶ月。
本を読んでもさっぱりで。出来た？と言われ
早く解決したかったのが本音です。

すみません。

これから、やってみます。


	【35774】やってみました。すみません　もう一度教...

あいら - 06/3/12(日) 20:02 -


	引用なし

	パスワード

▼かみちゃんさん：
入れてみましたが　ならないのです。
私の入力が間違えていますか？
印刷ボタンの所に入れました。
それとも、（入力シート）のデータで、
セル結合していると出来ないのでしょうか？

Private Sub 工程確認表_Click()
Worksheets("工程確認表").PrintOut
　End Sub
Sub Macro1()
Dim myData As Variant

　With Sheets("工程表確認")
　　myData = Array(.Range("O4:Q4").Value, _
　　　　　　　　　 .Range("B8:K11").Value, _
　　　　　　　　　 .Range("B15:K18").Value, _
　　　　　　　　　 .Range("N15;R18").Value)
　End With
　Sheets("印刷済み").Range("A65536").End(xlUp).Offset(1).Resize(, 4).Value = myData
　　　　
End Sub


	【35775】Re:やってみました。すみません　もう一...

かみちゃん - 06/3/12(日) 20:13 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>印刷ボタンの所に入れました。
>それとも、（入力シート）のデータで、
>セル結合していると出来ないのでしょうか？

セル結合というのは、初めて聞きました。
あいらさんのシートやＰＣはこちらには見えていません。
そういうことを十分考えた上で、もう一度、きちんとシート構成を説明してください。

>myData = Array(.Range("O4:Q4").Value, _
>　　　　　　　　　 .Range("B8:K11").Value, _
>　　　　　　　　　 .Range("B15:K18").Value, _
>　　　　　　　　　 .Range("N15;R18").Value)

O4:Q4
B8:K11
B15:K18
N15:R18
が、それぞれセル結合されているのですか？
それとも、別々のデータ入力セルなのでしょうか？

また、
.Range("N15;R18").Value
の「;」は何ですか？

あと、私が示しましたＵＲＬのご質問もあいらさんがされたものならば、
それは、マルチポストという一般的には、マナー違反として嫌われる行為です。
一応、以下のＵＲＬにエチケットのような説明がありますので参考にされてはいかがでしょうか？
http://www.ippo.ne.jp/g/53.html
http://ja.wikipedia.org/wiki/%E3%83%9E%E3%83%AB%E3%83%81%E3%83%9D%E3%82%B9%E3%83%88


	【35776】Re:やってみました。すみません　もう一...

あいら - 06/3/12(日) 20:21 -


	引用なし

	パスワード

▼かみちゃんさん：
>O4:Q4
>B8:K11
>B15:K18
>N15:R18
>が、それぞれセル結合されているのですか？
はい。そうです。

>.Range("N15;R18").Value
>の「;」は何ですか？

入力ミスでした。

>あと、私が示しましたＵＲＬのご質問もあいらさんがされたものならば、
>それは、マルチポストという一般的には、マナー違反として嫌われる行為です。
>一応、以下のＵＲＬにエチケットのような説明がありますので参考にされてはいかがでしょうか？
>http://www.ippo.ne.jp/g/53.html
>http://ja.wikipedia.org/wiki/%E3%83%9E%E3%83%AB%E3%83%81%E3%83%9D%E3%82%B9%E3%83%88

了解しました。教えてくれてありがとうございます。
以後気を付けます。

セル結合の事、軽く考えていました。
やってみたら出来るかな～と。
教えてもらう立場として大変失礼な態度ですね。
本当に申し訳ありません。


	【35777】Re:入力したデータを別シートにログとし...

あいら - 06/3/12(日) 20:28 -


	引用なし

	パスワード

▼かみちゃんさん：
あちらのは削除します。
本当にごめんなさい。


	【35778】Re:やってみました。すみません　もう一...

かみちゃん - 06/3/12(日) 20:30 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>>.Range("N15;R18").Value
>>の「;」は何ですか？
>
>入力ミスでした。

投稿時の入力ミスであれば、それを防ぐ意味でも、
できるだけVBEで入力したものをコピーして、投稿欄に貼り付けるようにしましょう。
VBEで入力すると、ある程度エラーが防げる場合もあります。

>セル結合の事、軽く考えていました。

なぜ、セル結合を使っているのか、その必要性が本当にあるのかわかりませんが、
以下のような感じでできます。
（こちらで、サンプルシートを作って検証してあります。）

Sub Macro1()
　Dim myData As Variant

　With Sheets("Sheet1")
　　myData = Array(.Range("O4").Value, _
　　　　　　　　　 .Range("B8").Value, _
　　　　　　　　　 .Range("B15").Value, _
　　　　　　　　　 .Range("N15").Value)
　End With
　Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1).Resize(, 4).Value = myData
End Sub

※個人的見解ですが、私は、セル結合を使うと、マクロがうまく処理されない場合
　が多いので、できるだけ使わないようにしています。


	【35779】Re:入力したデータを別シートにログとし...

あいら - 06/3/12(日) 20:33 -


	引用なし

	パスワード

▼あいらさん：
>▼かみちゃんさん：
>あちらのは削除します。
>本当にごめんなさい。

すみません。なんて馬鹿な事を！
削除キー入力するの忘れ。削除できませんでした。

無智ですね。


	【35780】Re:入力したデータを別シートにログとし...

かみちゃん - 06/3/12(日) 20:35 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>あちらのは削除します。

マルチポストをされる気持ちはわからなくないのですが、
削除はできるのであれば、すればいいのですが、
あちらだけしか見ていない方もいらっしゃるので、その方たちのために、こちらで
解決できた内容をあちらの掲示板へご自分で報告されたらいかがでしょうか？
その際、マルチポストだったことを一言断りを入れた上で報告されると、印象は悪
くならないと思います。
初めは、誰でも失敗はしますから、今度から気をつければいいので。。。


	【35781】Re:やってみました。すみません　もう一...

あいら - 06/3/12(日) 20:41 -


	引用なし

	パスワード

▼かみちゃんさん：
【印刷】ボタンに教えていただいたマクロを入力しました。
で、その後【クリア】ボタンを押して、データクリアした後に、
もう一度、データ入力して【印刷】ボタンを押したんですけど、
行追加で、データが入りません。

Sub Macro1()
　Dim myData As Variant

　With Sheets("工程確認表")
　　myData = Array(.Range("O4").Value, _
　　　　　　　　　 .Range("B8").Value, _
　　　　　　　　　 .Range("B15").Value, _
　　　　　　　　　 .Range("N15").Value)
　End With
　Sheets("印刷済み").Range("A65536").End(xlUp).Offset(1).Resize(, 4).Value = myData
End Sub

何度もスミマセン。

やっぱりセル結合しない方がいいのかなぁ～？


	【35782】Re:やってみました。すみません　もう一...

かみちゃん - 06/3/12(日) 20:50 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>【印刷】ボタンに教えていただいたマクロを入力しました。
>で、その後【クリア】ボタンを押して、データクリアした後に、
>もう一度、データ入力して【印刷】ボタンを押したんですけど、
>行追加で、データが入りません。

ボタンではなく、まず、
1.データ入力する。
2.印刷処理する。
3.Macro1を実行する。
4.データをクリアする。
という操作ではいかがですか？
2.と3.は逆でも構いません。
これでできるようであれば、印刷ボタンをどのように設定しているのか？
に問題があると思われます。


	【35783】Re:やってみました。すみません　もう一...

あいら - 06/3/12(日) 20:57 -


	引用なし

	パスワード

▼かみちゃんさん：
流れがいまいち分かりません。

>ボタンではなく、まず、
>1.データ入力する。
>2.印刷処理する。
手動でですか？

>3.Macro1を実行する。
>4.データをクリアする。
手動ですか？

>という操作ではいかがですか？
>2.と3.は逆でも構いません。
>これでできるようであれば、印刷ボタンをどのように設定しているのか？
>に問題があると思われます。


	【35784】Re:やってみました。すみません　もう一...

あいら - 06/3/12(日) 21:01 -


	引用なし

	パスワード

すみません。１時間ぐらい　落ちます。


	【35786】Re:やってみました。すみません　もう一...

かみちゃん - 06/3/12(日) 21:28 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>流れがいまいち分かりません。

当方も、何をなさっているのか、いまいちわかりません。
データが入力してある状態で、Macro1を実行してみてください。
まず、そこの動作確認をしていただきたいだけです。


	【35787】Re:やってみました。すみません　もう一...

あいら - 06/3/12(日) 22:20 -


	引用なし

	パスワード

▼かみちゃんさん：
私の、マクロの入力方法が間違えていました。
なりました。
たくさん教えてくれて本当にありがとうございました。

そして、マナー違反してしまった事　本当にごめんなさい。


	【35788】Re:やってみました。すみません　もう一...

ネット徘徊者 - 06/3/13(月) 9:26 -


	引用なし

	パスワード

サロンのほうがまだ解決済みにされてませんよ。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7984 / 13655 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free