[[20190107134356]] 『セルに入力した「ActiveCell.Column」を使いたい』(tororu) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セルに入力した「ActiveCell.Column」を使いたい』(tororu)

 A1セルに「ActiveCell.Column」と入力し
 マクロで使いたいのですが、ダブルクォーテーションで
 囲まれた値としてしか使えません。
 Msgbox Cells(2, cells(1,1))
        ↓
 Msgbox Cells(2, "ActiveCell.Column")

 Msgbox Cells(2, ActiveCell.Column)
 とすれば、取得できますが、A1セルに入力された「ActiveCell.Column」を
 使うことはできますでしょうか? 

 列番号をセルに入力して、参照する列番号を複数取得しているのですが、
 ある部分だけは、変動するので、マクロ実行時に選択しているセルの
 列番号を取得したいと思っています。

 どうぞよろしくお願いします。

< 使用 Excel:Excel2013、使用 OS:Windows10 >


 If Cells(1, 1).Value = "ActiveCell.Column" Then
     MsgBox Cells(2, ActiveCell.Column)
 Else
     MsgBox Cells(2, Cells(1, 1))
 End If
 まあ、セルに入力する値はActiveCell.Columnでなくとも構わないが(例えば"*"とか)
(ねむねむ) 2019/01/07(月) 14:14

なんかロジックに問題ある気がするな

> A1セルに「ActiveCell.Column」と入力し マクロで使いたい。
セルの列番号が知りたいなら「=COLUMN()」と入力して、これを読み込めばいいのでは。

A1にActiveCell.Columnを表示したいなら、SelectionChangeイベントで書き込むのが普通ではないか。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Range("A1").Value = ActiveCell.Column
End Sub

全体像がさっぱりイメージできない。
(通りすがり) 2019/01/07(月) 14:36


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.