Excelマクロについてお尋ねします。
アクティブなセルがある行の○列目の内容を別のセルに表示させたいのです。
コード 商品名 内容量 入数 金額 商品サイズ 箱サイズ JANコード ITFコード 商品説明(数十文字)
が行方向に多数並ぶ表があります。
時々規格を調べる必要があり、検索語句をそのままオートフィルタにかけるマクロを組んで使用していますが、問題がひとつ。
横方向でも一画面に収まらない表ですので、数十文字も並んでいる「商品説明」を見るときにいちいちスクロールバーを操作するのがわずらわしくてなりません。
現在は
A1=ADDRESS(CELL("row"),10)
と
A2=INDIRECT(A1)
の組み合わせで上記の表のすぐ上にカレント行の商品説明の項目を9列分セルを結合させて表示していますが、いかんせん関数ですので、F9を押さないと内容が反映されないため、ミスの原因にもなりかねません。
たとえば、D1を選択していようがD8、D15を選択していようが、D10の値をA2に表示させるためにはどんなマクロをどこに記述すればよいのでしょうか?(sheet1に記述するのか標準モジュールに記述するのかもよくわかっていません)
webで検索しましたがメッセージボックスを使用した表示方法しか見つかりませんでした。
もちろん、関数で対応できるのだとしてもOKです。
No.2ベストアンサー
- 回答日時:
こんな感じでしょうか?
ワークシートに以下のマクロを記述:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim row As Range
With ActiveSheet
Set row = .Range("A" & CStr(Target.row))
.Range("A1").Value = row.Value
.Range("B1").Value = row.Offset(0,1).Value
End With
End Sub
No.1
- 回答日時:
>アクティブなセルがある行の○列目の内容を別のセルに表示させたいのです。
A列にキーとなる、データ(商品名とか)があって、
(例えば商品説明があるとして)をテキストボックスに表示する、ことを考えました。
A列以外をクリックするとテキストボックスが消えます。
指定列が下の方に行くとテキストボックスも移動します。
ワークシートのSheet1のSelectionChangeイベント
プロシージュアーに貼りつけてやって見てください。
またSheet1に1つテキストボックスを貼りつけて
下さい。
ただ2セルを範囲指定するとエラーになったり、脆くて、実用に耐えるか心配で、お遊び程度のものかなと思いますが、何しろコード行数が少ないので作り易いです。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then 'A列なら
Sheet1.TextBox1.Visible = True
TextBox1.Text = Target.Offset(0, 8) 'I列を
Else
Sheet1.TextBox1.Visible = False
End If
Sheet1.TextBox1.Top = ActiveCell.Top + 10
End Sub
とっても面白いです。
惜しむらくはおっしゃるとおり、A列の複数セルの選択ができないことですね。A列のコードは連番になっているため、新アイテムの追加のときなどはオートフィル機能を使用したくなります。
しかし、教えていただいたマクロを使用していればワークシートのどの部分からもテキストボックス内を見ることができますので、他でも使用してみたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Visual Basic(VBA) VBAコードで質問があります 2 2022/10/20 15:27
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
- Excel(エクセル) IF 関数で「〇〇 という文字を含む場合」の分岐処理で表示された数字はSUMで数字集計できますか? 3 2022/08/02 16:29
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) VBAで質問があります 1 2022/10/19 10:32
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
直近の5個の平均を求めたい
-
[EXCEL]ボタン押す→時刻が表に...
-
【Excel関数】UNIQUE関数で"0"...
-
アクティブになっている行をマ...
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
【EXCEL】連続データの個数を抽...
-
エクセルで特定の文字列が入っ...
-
Excel 時刻の並び替え
-
エクセルのセルに指定画像(.jpg...
-
チェックボックスをクリックし...
-
セルの色によって条件文をつけ...
-
エクセル マクロ オートフィ...
-
エクセル2016で時間を入力して...
-
電話番号の入力方式が違うデー...
-
このような複雑な表をワードで...
-
エクセルで、ポインタのある行...
-
Excel マクロで特定のセルに入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
[EXCEL]ボタン押す→時刻が表に...
-
結合されたセルをプルダウンの...
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
AのセルとB行を比較して、一致...
-
エクセル 上下で列幅を変えるには
-
Excel ウインドウ枠の固定をす...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
エクセル2016で時間を入力して...
-
excel 小さすぎて見えないセル...
-
EXCELで最後の行を固定
-
エクセルVBA 最終行を選んで並...
-
VBAで色の付いているセルの行削除
-
エクセルマクロで偶数行(又は...
-
エクセルのセルに指定画像(.jpg...
-
罫線の斜線を自動で引くマクロ
おすすめ情報