Excel VBA - 將屬性值傳遞給屬性

在Excel VBA中，我試圖將一個參數值傳遞給屬性'VerticalAlignment'。我得到的錯誤是：「無法設置Range類的HorizontalAlignment屬性」。很明顯，問題出在'horzAlign'的'vertAlign'值，但是，什麼？Excel VBA - 將屬性值傳遞給屬性

' Merge the range & horizontal & vertical 
' alignment as per arguments 
Sub mergeCellsWithLeftAlign(ByVal curRange As Range, _ 
    ByVal horzAlign As String, ByVal vertAlign As String) 

     With curRange 
      .HorizontalAlignment = horzAlign 
      .VerticalAlignment = vertAlign 
      .MergeCells = True 
     End With 
End Sub

這是被稱爲在另一個過程是這樣的：

Call mergeCellsWithLeftAlign(Range("F10:F11"), "xlLeft", "xlBottom")

來源

2015-08-13 Kayote

什麼是已經回答了你的'horzAlign'和'vertAlign' – psychicebola

@psychicebola保羅的可能值。它是一個整數常量。謝謝 – Kayote

@psychicebola：不管：它們不應該是String的開始。 –

望着VBA幫助值不能"xlLeft", "xlBottom"但xlLeft, xlBottom，即不帶引號 - 他們是整型常量。

來源

2015-08-13 11:38:18

Aaaahhhh，你陛下，是個天才。非常感謝。 – Kayote

RTFM。從幫助：

此屬性的值可以設置爲以下常量之一：

xlBottom xlCenter xlDistributed xlJustify xlTop

來源

2015-08-13 11:39:27

根據MSDN

，屬性值必須是這些中的一個：

水平：

xlCenter
xlDistributed
xlJustify
xlLeft
xlRight

垂直：

xlBottom
xlCenter
xlDistributed
xlJustify
xlTop

來源

2015-08-13 11:39:40 psychicebola

Excel VBA - 將屬性值傳遞給屬性

回答

相關問題