lrc********

2022/7/3 1:57

22回答

エクセル2010で、カーソルで上部の列の選択を切り替えるたびにその列と同じ内容を一番最初のA列に表示させることってできますか？ 関数名だけでも、もしあれば教えてください。よろしくお願いします。

エクセル2010で、カーソルで上部の列の選択を切り替えるたびにその列と同じ内容を一番最初のA列に表示させることってできますか？ 関数名だけでも、もしあれば教えてください。よろしくお願いします。

Excel | Excel・67閲覧・xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

1
kabuto_yh

2022/7/3 5:52

下の画像では １．A2のセルをデータの入力規則のリストでC2:G2の値をプルダウンで選択 ２．A3のセルに ＿＿=IF(A$2="","",INDEX($C$3:$G$19,ROW(A1),MATCH($A$2,$C$2:$G$2,0)))&"" ＿＿あるいは ＿＿=IF(A$2="","",OFFSET($B$2,ROW(A1),MATCH($A$2,$C$2:$G$2,0)))&"" ３．A3のセルを下のA19のセルまでコピー としたものです。 A2のセルで「項目D」を選択すればF3:F19の値がA3:A19に表示されます。

画像

1人がナイス！しています

ThanksImg質問者からのお礼コメント

上手くいきました。 ありがとうございました。

お礼日時：7/4 22:15

その他の回答（1件）

1
tak********

2022/7/3 4:48

マクロになりますが、以下のようなものでしょうか？解釈が違っているようでしたら、ごめんなさい。 ・選択セルが１つの場合です。 ・「・・・上部の列の選択・・・」は曖昧なので、選択したセルの列です。 ・イベントの性質上、同じセルを指定されても動作しません。今回は、意味はないですが、念のため。 ・対象シートに作成してください。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.CountLarge <> 1 Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False Columns(Target.Column).Copy Range("A1") Application.EnableEvents = True Application.ScreenUpdating = True End Sub

1人がナイス！しています