excel - マクロを使用したExcelの列形式の変更

Question

列名にCOSTという単語が含まれている場合は、Excelのマクロを使用して列の形式を通貨に変更します。

たとえば、列名が「最終コスト」、「合計コスト」、「アイテムコスト」の場合、列の形式を通貨に変更します。

ありがとう

Answer 1

次のようなものを試してください

Public Sub FormatCostColumnsAsCurrency()

  Dim sht As Worksheet
  Set sht = ActiveSheet

  Dim rng As Range
  Dim i As Integer

  For i = 1 To sht.UsedRange.Columns.Count

      Set rng = sht.Cells(1, i)
      If InStr(LCase(rng.Text), "cost") > 0 Then
          sht.Columns(i).NumberFormat = "$#,##0.00"
      End If

  Next

End Sub

Answer 2

Conditional Formattingこれは、マクロを必要とせずに実行できます。

1. テーブルの左側の列のセルを強調表示します。

2. Homeリボンのセクションで、をクリックConditional Formattingし、次にをクリックしますNew Rule。

3. Use a formula to determine which cells to format。

4. この式を入力します。行見出しがA1で始まらない場合は、それに応じて変更します。=SEARCH("cost",A$1,1)

5. をクリックしFormatてに設定NumberしCurrency、[OK]をクリックします。

6. で、テーブルを覆うようConditional Formatting Rules Managerに設定します。Applies to

Answer 3

以下のコードを試してください

Sub CurrFormat()
    Dim colHeader As Range
    Set colHeader = Range("A1:E1")

    Dim currCell As Range
    Set currCell = Cells.Find("COST")

    If Not currCell Is Nothing Then currCell.NumberFormat = "$#,##0.00"

End Sub