読者です 読者をやめる 読者になる 読者になる

ichiroc subset

書きながら考える・考えをまとめる場所

Excel でセル値の取得、設定をするマクロの書き方

Microsoft

背景

Excel でのVBAの書き方をよく忘れる。

  • どうやってセルの値を取得するのか?
  • どうやってセルの値を設定するのか?
  • 違うシートの値はどうやって取得するのか?

Excel 自体でやりたいことは単純なことなので、とりあえずこれだけで十分。

コード

Function generateCode()
    Dim fieldId, action As String
    Dim row As Integer
    dim sheet2 as WorkSheet
    row = 1
    Do Until (Range("A" & row).Value = "")
        fieldId = Range("A" & row).Value  ' 値の取得
        action = Range("B" & row).Value
        row = row + 1
        set sheet2 = WorkSheets(2)        ' シートの取得
        sheet2.Range("A1").Value = fieldId & "/" & action ' 値の設定
    Loop
End Function