0

複数の列で動作するようにこのコードを変更するにはどうすればよいですか? 例：

Sub demo()
  Dim RaFound As Range
  Set RaFound = Rows(1).Find("cost", , , xlPart, , xlNext)
  If Not RaFound Is Nothing Then
    RaFound.EntireColumn.NumberFormat = "#,##0.00 _€"
  End If
End Sub

さらに「価格」や「数量」などの列もフォーマットしたいと思います。このコードをどのように変更する必要がありますか?

助けていただける方、よろしくお願いします

4

1 に答える 1

3

下記参照。単語はシートから取得するRange("A1:C5")か、配列にハードコーディングできます。

Dim RaFound As Range
Dim words() As Variant
Dim word As Variant

words = Array("cost", "price", "quantity")

For Each word In words

    Set RaFound = Rows(1).Find(word, , , xlPart, , xlNext)

    If Not RaFound Is Nothing Then
        RaFound.EntireColumn.NumberFormat = "#,##0.00 _€"
    End If

Next word
于 2012-12-18T15:13:44.053 に答える