[[20181008180730]] 『スピンボタンを使うと・・・』(おとうさん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『スピンボタンを使うと・・・』(おとうさん)

質問です。
スピンボタンは便利と思い使いました。
するとシートが保護しているために保護を外して動かしています。
これも結構面倒です。
保護を外さなくても使うことは出来るのでしょうか。
やり方をご存じの方は教えてください。

< 使用 Excel:Excel2003、使用 OS:Windows7 >


「リンクするセル」を選んで
セルの書式設定から、ロックのチェックを外してください

(マナ) 2018/10/08(月) 18:25


 ちんたら書いているうちに回答が付きましたが、そのままアップします。

 プロパティのLinkedcellでセルの値を変えているのでしょうか?

 Linkedcelを止めて、↓のようにスピンボタンのイベントでセル
 の値を変えるようにしてはいかがでしょう?

 Private Sub SpinButton1_SpinDown()
   ActiveSheet.Unprotect
   With ActiveSheet.Cells(1, 1)
    .Value = .Value - 1
   End With
   ActiveSheet.Protect
 End Sub

 Private Sub SpinButton1_SpinUp()
   ActiveSheet.Unprotect
   With ActiveSheet.Cells(1, 1)
    .Value = .Value + 1
   End With
   ActiveSheet.Protect
 End Sub

 スピンボタンに関連付けるものをセル以外にする、あるいは、
 ユーザーフォームのスピンボタンで、セル以外のものを制御する、
 という方法もあります。
(カリーニン) 2018/10/08(月) 18:29

マナさん
チェックは外しましたがすぐに元に戻ります。
カリーニンさん
すみません、ユーザーフォームのスピンボタンではありません。
簡単なフォームのスピンボタンでやりました。

(おとうさん) 2018/10/08(月) 19:03


 フォームですか。名案が浮かびません。

 スピンボタンではなく、ボタンを二つ配置してコード
 を登録、とすればできないこともないと思いますが。
(カリーニン) 2018/10/08(月) 19:10

カリーニンさん
ユーザーフォームですとうまく動きます。
ボタンを二つ作るのがベターなのかな。
On Errorも試してみましたがだめでした。

(おとうさん) 2018/10/08(月) 19:31


>チェックは外しましたがすぐに元に戻ります。

意味がわからないです。再びロックがかかるという意味ですか?
こちらでは、最初に1回設定するだけで、
普通にシート保護状態のままで使えています。

(マナ) 2018/10/08(月) 20:45


もしかして:セルじゃなくてスピンボタンのほうのロックを解除している
マナさんが言ってるのは、セル(「リンクされたセル」に設定したセル)の方ですよ。

(名無し) 2018/10/08(月) 20:52


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.