ファイル共有化時のエクセルスピンボタンのコピー

質問

先日、質問NO.9401071にてスピンボタンのコピーについて問い合わせたものです。
おかげさまでいただいた回答を基に作成しうまくいったのですが、ファイルを共有化したところエラーメッセージが出てスピンボタンが起動しなくなりました・・・。
共有化をはずすときちんと動くので、共有化が良くないのはわかるのですが、どこかを直せばうまくいくのでしょうか。

ちなみにいただいた回答は下記になります。
「フォーカスに追随して、スピンボタンが移動する」
ように組み直しました。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　' 名前が"Spin1"なシェイプがあったら削除
　　For Each sh In ActiveSheet.Shapes
　　　　If sh.Name = "Spin1" Then sh.Delete
　　Next

　　' スピンボタンを表示したいセル範囲はここで指定
　　' 指定範囲の「外」なら何もしないで終了
　　If Intersect(Target, Range("B1:J5")) Is Nothing Then Exit Sub

　　With ActiveSheet.Spinners.Add(Target.Left + Target.Width, _
　　　　　　　　　　　　　　　　Target.Top, _
　　　　　　　　　　　　　　　　24, 48)　　' スピンボタンのサイズはここ
　　　　　　　　　　　　　　　　　　　　　' なお、横, 縦で指定
　　　　.Name = "Spin1"　　' 名前は固定
　　　　.Value = Target.Value
　　　　.Min = 0
　　　　.Max = 30000
　　　　.SmallChange = 1
　　　　.LinkedCell = Target.Address
　　　　.Display3DShading = True
　　End With
　　Target.HorizontalAlignment = xlCenter
End Sub
これを該当シートのモジュールに書き込んでやればＯＫ。

ベストアンサーの方でもそれ以外の方でも良いのでご回答いただけたら幸いです。

回答No.2

watabe007 · ベストアンサー

Range("B1:J5") 外を選択した場合、正しく入力できませんので
下記と差し換えてください。
Private Sub SpinButton1_SpinDown()
　　With ActiveSheet.Shapes("SpinButton1").TopLeftCell.Offset(, -1)
　　　　.Value = .Value - 1
　　End With
End Sub
Private Sub SpinButton1_SpinUp()
　　With ActiveSheet.Shapes("SpinButton1").TopLeftCell.Offset(, -1)
　　　　.Value = .Value + 1
　　End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Intersect(Target, Range("B1:J5")) Is Nothing Then Exit Sub
　　With ActiveSheet.Shapes("SpinButton1")
　　　　.Top = Target.Top
　　　　.Left = Target.Offset(, 1).Left
　　End With
End Sub

お礼

ありがとうございます！
試したところ不具合もなく理想の形で対応できました！！
No.4の方も前回からお世話になっておりましたが、最初にご回答いただきましたのでベストアンサーにさせていただきます。
また困っていたら助けていただけると幸いです。

回答No.4

tsubu-yuki

一つ前のご質問に回答した者です。

前提として「ブックの共有」があるのであれば
先般のやり方では無理です。
「ブックの共有」をすると、
その辺りのコントロール（フォームもアクティブＸも）を含む
全てのシェイプが編集できなくなるからです。
先般、私が提示したモノを読めばお解りの通り、
「一度削除して新たに作り直す」コードですから、
シェイプの編集に当たります。
よって、共有されると動かない、という事です。

（私の知識で）考えやすい回避策があるとしたら、とりあえず２つ。

その１
極力シートの左上（Ａ１付近）にＡｃｔｉｖｅＸのスピンボタンを配置。
スピンボタンが残る程度の位置で「ウィンドウ枠の固定」。
SpinUpに
　Selection = Selection + 1
SpinDownに
　Selection = Selection + 1
を指定。
それから共有。

その２
スピンボタンのみのユーザーフォームを作成、
スピンボタンのSpinUpに
　Selection = Selection + 1
SpinDownに
　Selection = Selection + 1
を指定。
該当範囲がフォーカスを得たら、
モーダルモードでフォームを開く。
それ以外の範囲にフォーカスが抜けたら
フォームを閉じる。

どちらかですね。

他さまもおっしゃってますが、ここから先は有料でもおかしくない範囲。
業者を頼るか、お優しい回答者をお待ちください。

お礼

再びありがとうございました！
ブックの共有のことをすっかり忘れていてすみません。
素早く回答をいただけたこと、スピンボタンを30000個並べなくてもできたあの感動は忘れません。
また困っていたら助けてください。

回答No.3

imogasi

私などには、手に負えない問題のようだが参考に。
http://www.atmarkit.co.jp/ait/articles/0404/03/news018.html
の
＞「ブックを共有すると利用できなくなる機能」という記述を見つけた。この辺を詳しく調べてはどうだろう。
ーー
質問者はシステム会社の一員などで、周りにＶＢＡの特殊問題に詳しい人が居ないのだろうか。（Microsoft Support 担当者レベルの人を想定。）
それであれば、最初の質問において、（１）ワークシートに（ＵｓｅｒＦｏｒｍの方が普通かなと思う）（２）セルごとに（したがって数百になってしまう）コントロールを張り付けるなんて、ずいぶん素人の発想だと思ったが、共有問題まで控えているなら、近くに（商売的に）ＶＢＡに熟達した人が居ないと、行き詰まると思う．コントロールをプログラムで動的に作成する、というのもＶＢＡ熟達者向けの課題だと思う。
ーー
最初の質問で、スピン・コントロールを（当初の意向の）コピーではなく、ＶＢＡでシートに５００セルに、５００個、作るコードはテスト的に小生は作れたが、そうすると、ＡＤＤ（コントロールを増やす）は、利用中（共有中）は行わなくても良いのかもしれないが、私などの環境・技量を超えるのでわからない。
Microsoft Support 担当者レベルの人に聞いてみてはどうだろう。
この程度のスキルの人に相談するのは、有償になるかもしれないが。

お礼

VBAは苦手なのでこちらを利用させていただいています。
有償寸前の高難度な問い合わせに回答いただきありがとうございました。

回答No.1

watabe007

フォームのスピンボタンは使いません、
ActiveXコントロール のスピンボタンを１つ設けてください。
セルを選択する度に移動してみました。
Private Sub SpinButton1_SpinDown()
　　ActiveCell.Value = ActiveCell.Value - 1
End Sub
Private Sub SpinButton1_SpinUp()
　　ActiveCell.Value = ActiveCell.Value + 1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Intersect(Target, Range("B1:J5")) Is Nothing Then Exit Sub
　　With ActiveSheet.Shapes("SpinButton1")
　　　　.Top = Target.Top
　　　　.Left = Target.Left + Target.Width
　　End With
End Sub