エクセルVBAに詳しい方
エクセルVBAに詳しい方 例えばA1に、任意セル例えばAC600と入力したら、 A2にAC A3に600 となるようにできますか
文字と数字を認識する関数とかありそうですが。
Excel | Visual Basic・80閲覧
ベストアンサー
Address関数を使えば絶対参照になるので、Split関数を使い \ で区切った1番目と2番目というのはどうでしょうか。 0番目$1番目$2番目…のようにゼロスタートなので、$AC$600のゼロ番目は空白になります。 Private Sub Worksheet_Change(ByVal Target As Range) Dim v If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub v = Split(Range(Range("A1").Value).Address, "$") Range("A2").Value = v(1) Range("A3").Value = v(2) End Sub
質問者からのお礼コメント
スプリントでいけそうです。ありがとうございました
お礼日時:1/24 13:18