「お昼の放送」の思い出

いつもお世話になっております。
質問させていただきます。

現在、EXCELで個人スケジュール表を作成してます。
その際に、日別に"縄跳びの回数"を記入したいと考えているのですが、
それをスピンボタンで入力したいと考えております。

イメージ(アンダーバーはセル区切りを示しています)
A_____B
1月1日_1200回
1月2日_500回
1月3日_700回
1月4日_900回
  ・
  ・
  ・
それで、こちら様のコードhttp://www4.ocn.ne.jp/~yy3/Sub56.html
がベストだと思いまして該当シートに設定したのですが、
問題点がございます。

増減値(smallchange)がデフォルトの"1"になっているところを
を"100"にしたいのですが、http://www4.ocn.ne.jp/~yy3/Sub56.html
下部にあります
-------------------------------------------
With Me.OLEObjects("SpinButton1")
   .LinkedCell = Target.Address
   .Name = "MyButton"
-------------------------------------------

-------------------------------------------
With Me.OLEObjects("SpinButton1")
   .LinkedCell = Target.Address
   .Name = "MyButton"
   .SmallChange = 100
-------------------------------------------
と追記入したのですが、
エラー「オブジェクトはこのプロパティまたはメソッドをサポートしていません」となります。OLEObjectsが原因なのかな、とは漠然と察しますが、それ以上はどう対処してよいのか、数日、悩んでしまってします。

それで、思い切って、こちらに質問させていただきました。

アドバイスを頂戴いただけましたら幸甚です。
よろしくお願い申し上げます。

なお、EXCELのバージョンは2002で、OSはXP,HOMEです。

A 回答 (1件)

With Me.OLEObjects("SpinButton1")


   .LinkedCell = Target.Address
   .Name = "MyButton"
   .Object.Max = 10000
   .Object.SmallChange = 100
End With
でいかがでしょうか?
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


おすすめ情報