2012-08-04から1日間の記事一覧

ExcelVBA 指定するセルの列(アルファベット)をループさせる

Excel

Sub sample() Dim rng As Range For Each rng In Range("A6:Z6").Columns 'A6:Z6の列を1つずつ rng.Select 'その列を選択 '処理 MsgBox rng.Address Next End Subネタ元 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1242037112

ExcelVBA Range(”A1”) で、Aを取得したい（列をアルファベットで取得したい）なら　Split(Range("A1").Address,"$")(1)

Excel

chrCulum = Split(Range("A1").Address,"$")(1) ネタ元 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1312976258