1

指定された範囲をフォーマットしようとしています。以下のコードのクラスのBorderStyleプロパティには、文字列データ型の値として「xlMedium」がありますが、weightプロパティには定数としてxlMediumが必要です。この文字列値を定数に変換するにはどうすればよいですか？

ありがとうございました。

Function applyFormat(ByRef objRng As clsRange)

 ' Select the Range

     Worksheets(objRng.SheetName).Select

     Worksheets(objRng.SheetName).Range(objRng.RangeValue).Select

            With Selection.Borders(xlInsideVertical)
                 .LineStyle = xlContinuous
                 .ColorIndex = 0
                 .TintAndShade = 0
                 .Weight = (Me.BorderStyle)
            End With

            With Selection.Borders(xlInsideHorizontal)
                 .LineStyle = xlContinuous
                 .ColorIndex = 0
                 .TintAndShade = 0
                 .Weight = (Me.BorderStyle)
            End With

End Function
4

1 に答える 1

2

文字列から同等の列挙型メンバーに変換する簡単な方法はありません。

BorderStyle as XlBorderWeight各メンバーを手動で検索する必要がある場合は、明示的な整数値に変更して使用する必要があります。

public property get BorderStyleValue() as XlBorderWeight   
   select case Me.BorderWeight 
      case "xlMedium": BorderStyleValue= XlBorderWeight.xlMedium
      case "xlThick" : BorderStyleValue= XlBorderWeight.xlThick
      ...

...

.weight = Me.BorderStyleValue
于 2012-08-09T11:10:11.057 に答える