添付画像のような表を作成しました(添付の表は情報保護のため同類のサンプルです)。
①結合されたA列をダブルクリックして他の(シートの)セルに、$A$13の「A」と合わせて転記する。
②B列やC列をダブルクリックして他の(シートの)セルに、結合されたA列の内容と合わせて転記する。
以上の2点をしたいのですが(添付画像にしたいことの例を書いています)、マクロでどのようなコードを組めばいいのかわかりません。
他にしたいことがあってマクロを組んでいるのですが、その中に組み込みたいと思っています。
①rc1.Value〈転記先のセル〉 = Range("A13").Value & Target.Value〈$A$13の内容と結合されたA列のセルの内容〉
②rc2.Offset(0, 2).Value〈転記先のセル〉 = Target.Cells(1, 1).Offset(0, -1).MergeArea(1, 1).Value & Target.Value〈結合セルの内容とクリックしたセルの内容〉
このようなコードを書いてみたのですがうまくいかなくて・・・
いまひとつマクロを理解しきれていないところもあるので、理解されてる方が見るとバカなコードを書いてるなぁ、と思われるでしょうが(^^;
すみませんが、よろしくお願いします。
No.4
- 回答日時:
#2です。
間違いがありましたので訂正いたします。(すでにご理解いただいていると思いますが)
rc.Value.Offset(0, 2).Value =
コピペミスです。すみません。
rc.Offset(0, 2).Value =
ですね。
Offset(, -1)は0を省略してしまいました。
BeforeDoubleClickでのTargetに対する条件は、
設定済みと理解しています。
わざわざ訂正までしてくださり、ありがとうございました!
回答を下さった皆さんにはお世話になりました。
またお世話になるかもしれませんが、そのときは何卒よろしくお願いします。
No.3
- 回答日時:
こんにちは
存在するパターンのバリェーションがどのくらいあるのか(跨った形が存在するかなど)によって変わってきそうな気がしますが…
とりあえず、添付図の様な単純なもので、色付き部分(A14:C25)をダブルクリックした場合に、関連行の値を13行目のタイトルと合わせて順に取得する例です。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim msg As String, c As Range
If Intersect(Target, Range("A14:C25")) Is Nothing Then Exit Sub
Set c = Target
msg = Cells(13, c.Column).Text & ":" & c.Cells(1, 1).Text
While c.Column > 1
Set c = c.Cells(1, 1).Offset(, -1).MergeArea
msg = Cells(13, c.Column).Text & ":" & c.Cells(1, 1).Text & ", " & msg
Wend
Cancel = True
MsgBox "content= " & msg
End Sub
なるほど。
クリックしたセルと、合わせて欲しい情報をメッセージボックスで表示するにはこんな方法があるんですね!!勉強になります!
実際にしたいことは、ほかの方のアンサーでできましたがこちらのコードも役立たせていただきます!
ありがとうございました!
No.1
- 回答日時:
言ってることがよくわからないのと
他のシートがどうなっているのかがわからない
結合されたセルは 結合していようがいまいが、
結合前の左上のセル番地がその結合セルの番地になります
書き方が悪くて、すみません。
一応、したいことは添付画像のシートの14行以下のセルをダブルクリックすると、その内容が別のシートにある表の上から順に転記されるようにしています。
ただ、そのときに、あ、い、うのどれをクリックしても必ず「A(あ~うの選択した文字)」と転記される。また、1と2どちらをクリックしても「あ(1か2の選択した文字)」、3と4どちらをクリックしても「い(3か4の選択した文字)」のように転記される。
このようなことがしたいのです。
結合前の左上のセル番地が結合セルのセル番地、というのも知ってはいるのですがそれをどうやって返すかがわからなくて・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
VBAで結合セルを転記する法を教えてください
Excel(エクセル)
-
VBA:結合されたセルに対する「Target」について
Access(アクセス)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
-
4
エクセルのマクロで結合セルに値を貼り付けたい
Excel(エクセル)
-
5
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
-
6
エクセルマクロで結合されたセルをダブルクリックで指定文字を入力
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの関数について教えてくだ...
-
VBAについての質問です
-
Excelにいついて質問です。
-
一つのセルに(例えばA1)入力...
-
エクセルファイルがファイルの...
-
【マクロ】名前を保存する際に...
-
Excel 複数列 A列B列C列一致 D...
-
エクセル vbaについて教えてく...
-
エクセルであるセルに数字を入...
-
Excelについて教えてください
-
エクセル マクロ チェックボックス
-
【マクロ】顧客番号にて一致さ...
-
エクセル共有したが、アクセス...
-
Excel分析ツールでのポアソン回...
-
【Excel】数字を3倍にし、なお...
-
エクセルのデーターが2か月前の...
-
LOOKUP関数を使えばいいのでし...
-
エクセルの神よ、ご回答を! エ...
-
Excelでセルの値が同じか...
-
エクセルを使っていて2024/5/15...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報