excel vbaの初歩的な質問です


セルA1に「&HCCCCCC」と入っている状態で

Dim bcolor As Long
bcolor = .Cells(1, 1)
Range(Cells(1, 1), Cells(5, 4)).Select
Selection.Interior.Color = bcolor

と入力したときに

エラー104
InteriorクラスのColorプロパティが設定できません

とのエラーが出ますが原因を教えてください。

回答の条件
  • 1人2回まで
  • 登録:2007/05/28 12:45:42
  • 終了:2007/06/04 12:50:03

回答(2件)

id:SALINGER No.1

SALINGER回答回数3430ベストアンサー獲得回数9692007/05/28 13:19:02

ポイント10pt

bcolor = .Cells(1, 1)

をその前にwithステートメントがなければ

bcolor = Cells(1, 1)

に変更してください。

id:SALINGER No.2

SALINGER回答回数3430ベストアンサー獲得回数9692007/05/28 13:28:44

ポイント10pt

1はたぶん間違いです。(エラーの種類が違うから)

シートが保護されているとそのようなエラーが出るようです。

シートが保護されていないか確認してみてください。

  • id:rikuzai
    あんまり美しくないですが参考まで。


    http://www2s.biglobe.ne.jp/~iryo/2vba/sankou.html


    Sub TEST()

    Dim bcolorR As Long
    Dim bcolorG As Long
    Dim bcolorB As Long
    bcolorR = "&H" & Mid(Cells(1, 1), 3, 2)
    bcolorG = "&H" & Mid(Cells(1, 1), 5, 2)
    bcolorB = "&H" & Mid(Cells(1, 1), 7, 2)
    Range(Cells(1, 1), Cells(5, 4)).Select
    Selection.Interior.Color = RGB(bcolorR, bcolorG, bcolorB)

    End Sub

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません