Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8011 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【35624】別シートの行末へコピー オタピョン 06/3/8(水) 17:33 質問[未読]
【35640】Re:別シートの行末へコピー ponpon 06/3/8(水) 21:11 発言[未読]
【35670】Re:別シートの行末へコピー オタピョン 06/3/9(木) 19:55 お礼[未読]
【35651】Re:別シートの行末へコピー ゆと 06/3/9(木) 8:04 発言[未読]
【35671】ありがとうございます オタピョン 06/3/9(木) 20:03 お礼[未読]
【35624】別シートの行末へコピー
質問  オタピョン  - 06/3/8(水) 17:33 -
引用なし
パスワード
   こんにちは。　ＶＢＡ初心者のため、試行錯誤中です。どなたか、お知恵を拝借させてください。
　シート２の任意のセルをダブルクリックした場合、そのセルの値（テキストです）をシート１の指定行の行末にコピー貼付けしたいのです。

　コピーしたい対象列と貼付け先の列は決まっていて、シート２のＢ列とＤ列にあるセルをダブルクリックした場合には、シート１のＤ列の最終入力セルの下の空欄のセルへコピー・貼り付けし、
　シート２のＥ列のセルをダブルクリックした場合には、シート１のＥ列の最終入力セルの下の空欄のセルへコピー・貼り付けしたいのです。

　ちなみに、貼り付け先のシート「台帳」のＤ列とＥ列は、２行を結合して１つのセルとしています。つまり、Ｄ５とＤ６は結合して１つのセルとなっているので、Ｄ５の１つ下のセルはＤ７になっています。

　どうか、ご存知の方、教えてください。よろしくお願いします。
　この質問は、３月４日に質問しましたが返信がもらえませんでした。
　自分なりに、考えましたが、上手くいきません。

　ダブルクリックは、　　　Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) だと分かりました。
　Ｂ列は　　　　If .Column <> 2 Then Exit Sub だと思います。
　行末は　　　　Worksheets("Sheet1").Range("B65536").End(xlUp).Row + 1
なのでしょうか

　クリップボードを経由しないですぐに行えるコピペは、よく分かりません。

　よろしくお願いします。
【35640】Re:別シートの行末へコピー
発言  ponpon  - 06/3/8(水) 21:11 -
引用なし
パスワード
   こんばんは。
いくつかわからないことがありますので、質問させてください。

>そのセルの値（テキストです）をシート１の指定行の行末にコピー貼付けしたいのです。
>貼り付け先のシート「台帳」は

貼り付け先は、「シート１」ですか？「台帳」ですか？


結合セルがある場合、マクロはうまく動作しないことがありますので
うまくいかなかったら、ごめんなさい。
シート２のシートモジュールにコピペして実行してみてください。
シート１で考えてます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　
　　With Target
　　　　If .Count > 1 Then Exit Sub
　　　　If IsEmpty(.Value) Then Exit Sub
　　　　If .Column = 2 Or .Column = 4 Then
　　　　　 Sheets("Sheet1").Range("D65536").End(xlUp).Offset(1).Value = .Value
　　　　ElseIf .Column = 5 Then
　　　　　 Sheets("Sheet1").Range("E65536").End(xlUp).Offset(1).Value = .Value
　　　　End If
　　End With
　　Cancel = True
End Sub
【35651】Re:別シートの行末へコピー
発言  ゆと  - 06/3/9(木) 8:04 -
引用なし
パスワード
   オタピョンさんこんにちは。
コメントだけですが。

>　この質問は、３月４日に質問しましたが返信がもらえませんでした。
>　自分なりに、考えましたが、上手くいきません。
質問確認しましたが、文章が理解できない点が多々ありました。
第三者はシートの構造を見えませんので…。

>　ダブルクリックは、　　　Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) だと分かりました。
記載モジュールを気をつけてください。

>　Ｂ列は　　　　If .Column <> 2 Then Exit Sub だと思います。
列がB列ではない場合、Subを終了させる。

>　行末は　　　　Worksheets("Sheet1").Range("B65536").End(xlUp).Row + 1
結合セルを対象にしない場合は上記の様な記述と
Worksheets("Sheet1").Range("B65536").End(xlUp).Offset(1).Row
違いは、自分で試してみてくださいね。

>　クリップボードを経由しないですぐに行えるコピペは、よく分かりません。
Copy についてHelpを参照してみてください。
引数としては、Destinationの事だと思いますが。
【35670】Re:別シートの行末へコピー
お礼  オタピョン  - 06/3/9(木) 19:55 -
引用なし
パスワード
   ▼ponpon さん：
ありがとうございました。希望どおりの動きができました。

このようなＶＢＡができないかと、３週間近く悪戦苦闘していました。
おかげさまで、今日は満足感で何をするにも気分ウキウキでした。

ご確認いただいた
>>貼り付け先のシートは、
実際は「台帳」と名付けています。一般的なシート名の方がいいかと思い、
「シート１」として質問しました。

シートモジュールに貼り付ける際に、「台帳」として書き換えました。


>結合セルがある場合、マクロはうまく動作しないことがありますので

とご忠告いただきましたが、貼り付け先は結合セルでしたが、無事に動作しました。
ただ、コピー元のセルが２行ごとの結合セルの列があり、そこは動作しませんでしたが
セルの結合を解除して対応しました。

本当に、大感謝しています。ありがとうございました。
【35671】ありがとうございます
お礼  オタピョン  - 06/3/9(木) 20:03 -
引用なし
パスワード
   ▼ゆと さん：
いろいろ教えていただきありがとうございます。
ＶＢＡって難しいですが、分かったら世界が変わる気がします。

>>　行末は　　　　Worksheets("Sheet1").Range("B65536").End(xlUp).Row + 1
>結合セルを対象にしない場合は上記の様な記述と
>Worksheets("Sheet1").Range("B65536").End(xlUp).Offset(1).Row
>違いは、自分で試してみてくださいね。

確かめてみます。ありがとうございます。


>引数としては、Destinationの事だと思いますが。

実は、ネットで調べて、Destinationの事だと思っていましたが、自信がないのと、
使い方が分からなかったので記入しませんでした。

Destinationの事をもっと調べようと思います。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8011 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free