私はテーブルを持っています。各列の行2には、ユニットタイプの見出し($値、パーセントなど)が含まれています。行2のユニットタイプに基づいて列の値をフォーマットしたいと思います。
現在、マクロは手動で列を選択します。(以下の例を参照してください)。
ユニットタイプに基づいて列をフォーマットするマクロはありますか?
以下のマクロの代わりに、「行2が「パーセント」の場合は、列の形式を「0%」に変更します。
Sub Format()
Columns("Q:Q").Select
Selection.NumberFormat = "0%"
Columns("AA:AA").Select
Selection.NumberFormat = "0%"
Columns("AK:AK").Select
Selection.NumberFormat = "0%"
Columns("AU:AU").Select
Selection.NumberFormat = "0%"
Columns("BJ:BJ").Select
Selection.NumberFormat = "0%"
Columns("BR:BR").Select
Selection.NumberFormat = "0%"
Columns("BN:BN").Select
Selection.NumberFormat = "0%"
Columns("BZ:BZ").Select
Selection.NumberFormat = "0%"
Columns("BV:BV").Select
Selection.NumberFormat = "0%"
End Sub
正確な要件に合わせて、以下のサンプルコードを変更できるはずです。
Dim lngCol As Long, i As Long
Dim str As String
lngCol = Cells(2, Columns.Count).End(xlToLeft).Column
For i = 1 To lngCol
Select Case Cells(2, i)
Case "$": Columns(i).Style = "Currency"
Case "%": Columns(i).Style = "Percent"
End Select
Next
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加