Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46164 / 76732 ←次へ | 前へ→

【35545】Re:マクロボタンの 登録マクロ切り替え
質問  下働き  - 06/3/7(火) 15:48 -

引用なし
パスワード
   Kein さん 回答ありがとうございます。
UPしていただいた内容で動作確認いたしましたが、2回目の質問の(1)でも書いておりますが、やはり
>  .OnAction = AcPro1: .Characters.Text = Cap1
でエラーになります。  ~~~~~~~~~~~~~~~~~~~~~~~~~~
ちなみに使用している環境は、WinXP Excel2000(SP3)です。
図々しいとは思いますが、対処法をお教え願います。

>セル選択イベントだと、ちょっと頻繁に発生しすぎるので、適切ではないように
>思います。私なら右クリックイベントに変えて

についてですが、上述の《.Characters.Text = Cap1》を除いて試してみましたが右クリックで切替を行う場合、右クリックせずにボタンを押してしまう可能性があります。マクロ実行にActiveCellの色で禁則条件を加えれば良いのかもしれませんが、不特定の人間が作業することを目標としていますので、ちょっと問題があるかなと思えます。スピードかクリック回数減か検討してみます。

また、シート中に計算式として、以下のFunction R_XXX_test()が複数配置されてており、罫線の記入にてシート上の数値をリアルタイムで変化させたいため、A1セルをセル選択イベントで書換えFunction R_XXX_test()を再計算させています。

Function R_XXX_test(YOKO As Variant, XXX_P As Variant, _
      XXX_XX As Double, リフレッシュ As Variant)
  'リフレッシュにA1を取り込みセル移動で毎回計算させる
  '罫線情報取得テスト
    Dim shoukei, YOKO_XX
    shoukei = 0
    If YOKO.Value = "" Then YOKO_XX = 0 Else YOKO_XX = YOKO.Value
    If KIKI_P.Borders(xlEdgeRight).LineStyle <> xlNone Then
         shoukei = shoukei + XXX_XX
    If YOKO.Borders(xlEdgeBottom).LineStyle <> xlNone Then
         shoukei = shoukei + YOKO_XX
    If shoukei = 0 Then R_XXX_test = "" Else _
         R_XXX_test = shoukei
End Function


>
>Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
>Cancel As Boolean)
>  Dim AcPro1 As String, AcPro2 As String
>  Dim Cap1 As String, Cap2 As String
>
>  Cancel = True
>  Select Case Target.Interior.ColorIndex
>    Case 24
>     AcPro1 = "model_11": AcPro2 = "model_12"
>     Cap1 = "道具L字追加": Cap2 = "道具T字追加"
>    Case 35
>     AcPro1 = "model_31": AcPro2 = "model_32"
>     Cap1 = "コネクタ横伸長": Cap2 = "コネクタ縦伸長"
>    Case Else
>     AcPro1 = "": AcPro2 = ""
>     Cap1 = "": Cap2 = ""
>  End Select
>  With ActiveSheet.Shapes("Button 8")
>    .OnAction = AcPro1: .Characters.Text = Cap1
>  End With
>  With ActiveSheet.Shapes("Button 9")
>    .OnAction = AcPro2: .Characters.Text = Cap2
>  End With
>End Sub

16 hits

【35484】マクロボタンの 登録マクロ切り替え 下働き 06/3/6(月) 17:16 質問
【35493】Re:マクロボタンの 登録マクロ切り替え Ned 06/3/6(月) 20:40 発言
【35502】Re:マクロボタンの 登録マクロ切り替え ponpon 06/3/7(火) 0:09 発言
【35513】Re:マクロボタンの 登録マクロ切り替え 下働き 06/3/7(火) 10:08 質問
【35536】Re:マクロボタンの 登録マクロ切り替え Kein 06/3/7(火) 14:40 回答
【35545】Re:マクロボタンの 登録マクロ切り替え 下働き 06/3/7(火) 15:48 質問
【35551】Re:マクロボタンの 登録マクロ切り替え Kein 06/3/7(火) 16:07 発言

46164 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free