VBAの中心にアライメントする：コードが機能しない

-1

Sub belajar_case() 
Dim nilai As Single 
Dim huruf As String 
nilai = Cells(1, 1).Value 

Range("A1:B1").Select 
With Selection 
.HorizontalAlignment = x1Center 
End With 

Select Case nilai 
Case 0 To 20 
huruf = "F" 
Cells(1, 2) = huruf 

Case 20 To 100 
huruf = "E-A" 
Cells(1, 2) = huruf 

End Select 
End Sub

これは私のコードです。私はセルを中央に揃えたいが、うまくいかない。メッセージがポップアップし、 "ランタイムエラー '1004'：RangeクラスのHorizontalAlignmentプロパティを設定することができません。私がデバッグしたとき、それはライン：を参照しました。水平方向のアライメント= x1CenterVBAの中心にアライメントする：コードが機能しない

なぜそうですか？

出典

2017-10-25 Yoshua

、 'Select'を使うのが悪い考えである理由を知るには、このhttps://www.excelcampus.com/vba/how-to-avoid-the-select-method/を見てください。 – Mahesh

ヒント： 'Option Explicit'がすべてのモジュールの先頭に指定されている場合は、この質問をしません。 –

Option explitcitとはどういう意味ですか？ – Yoshua

あなたはどこかからコードをコピーしたようです。またはあなたはタイプミスをしました。

それは

x1Centerではありません：2番目の文字は数字の1（1）

それは

xlCenterあるべきである。まず2番目の文字はl（アルファベット）である必要があり

出典

2017-10-25 05:03:58 Mahesh

問題は解決しました。ありがとう兄貴。私はそれが1（1）だと思った。 – Yoshua

@Yoshua [ツアー]に記載されているように、この投稿に回答としてマークしてください。それでここで感謝の言葉を言うことができます。 – teylyn

VBAの中心にアライメントする：コードが機能しない

答えて

関連する問題