Visio) (Application.FormatResult 方法
根據格式圖片，將字串或數位格式化為字串。 使用指定的單位進行調整和格式化。
語法
運算式。FormatResult (StringOrNumber、 UnitsIn、 UnitsOut、 Format)
expression 代表 Application 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| StringOrNumber | 必要 | Variant | 要格式化的字串或數字；可以傳遞為字串、浮點數或整數。 |
| UnitsIn | 必要 | Variant | 歸類至 StringOrNumber 所用的度量單位。 |
| UnitsOut | 必要 | Variant | 表示結果所用的度量單位。 |
| Format | 必要 | String | 結果字串外觀的圖片。 |
傳回值
字串
註解
如果是以字串的形式傳遞，則 StringOrNumber 可能是儲存格的公式或預期的公式，或是以字串表示之儲存格的結果或預期結果。 FormatResult 方法會評估此字串，並格式化所產生的結果。 由於此字串是在特定儲存格的公式內容之外進行評估，所以如果此字串有包含任何儲存格參考，則 FormatResult 方法會傳回錯誤。
StringOrNumber 可能的值包括：
- 1.7
- 3
- "2.5"
- "4.1 cm"
- "12 ft - 17 in. + (12 cm / SQRT(7))"
UnitsIn和UnitsOut 自變數可以是字串，例如 「inches」、「inch」、「in.」 或 「i」。 字串可用於所有支援的 Microsoft Office Visio 單位，例如公分、公尺、英哩等等。 您也可以使用 Visio 型別程式庫在 VisUnitCodes中宣告的任何單位常數。 [ 關於量值單位] 中也會包含有效單位的清單。
如果 StringOrNumber 是字串， UnitsIn 會指定如何解譯評估的結果，而且只有在結果是純量時才會使用。 例如，表達 "4 * 5 cm" 式評估為 20 公分，這不是純量，因此 會忽略 UnitsIn 。 表達 "4 * 5" 式會評估為 20，這是純量，並使用指定的 UnitsIn來解譯。
UnitsOut 自變數會指定傳回字串應該表示的單位。 如果您想要以與評估運算式相同的單位表示結果，請傳遞 「NOCAST」 或 visNoCast。
Format 是一個字串，會指定由 FormatResult 方法所產生的範本或字串的圖片。 如需詳細資訊，請參閱 FORMAT 函數。 以下列出一些可能的情況：
#- 輸出單一數位，但如果它是前置或尾端 0 則不輸出。0- 輸出單一數位，即使它是前置或尾端 0 也一樣。.- 十進位預留位置。,- 千位分隔符號。"text"或'text'- 輸出目前所含的文字。\c- 輸出字元 c。
範例
指定字串的位置。
' Prints 1.00
Debug.Print Application.FormatResult("0.5 * 2", "ft", "ft", "#.00 u")
' Prints 12.00 in.
Debug.Print Application.FormatResult("0.5 * 2", "ft", "in", "#.00 u")
' Prints .39 in.
Debug.Print Application.FormatResult("1 cm", "ft", "in", "#.00 u")
' Prints 1.00 cm.
Debug.Print Application.FormatResult("1 cm", "ft", "NOCAST", "#.00 u")
' Prints 0.39
Debug.Print Application.FormatResult("1 cm", "ft", "", "0.00 u")
' Prints 1858.06 sq. cm.
Debug.Print Application.FormatResult("1 sq. ft. * 2", "in^2", "cm^2", "0.00 u")
' Throws an exception because of bad measurement unit ("bz")
Debug.Print Application.FormatResult("1 cm", "ft", "bz", "#.00 u")
指定數位的位置。
' Prints 1.00
Debug.Print Application.FormatResult(1, "ft", "ft", "#.00 u")
' Prints 12.00 in.
Debug.Print Application.FormatResult(1, "ft", "in", "#.00 u")
' Prints .08 ft.
Debug.Print Application.FormatResult(1.0, "in", "ft", "#.00 u")
' Prints 12.00
Debug.Print Application.FormatResult(1.0, visFeet, "", "#.00 u")
' Throws an exception because of bad measurement unit ("bz")
Debug.Print Application.FormatResult(1, "bz", "in", "#.00 u")
下列巨集會示範如何使用 FormatResult 方法，將公分的值轉換為英吋，並將結果顯示在訊息方塊中。
Public Sub FormatResult_Example()
Dim strOldValue As String
Dim strNewValue As String
'Set old value.
strOldValue = "1 cm"
'Format value.
strNewValue = Application.FormatResult _
(strOldValue, "ft", "in", "#.00 u")
'Display new value.
MsgBox (strNewValue)
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。