Excel VBA質問箱 IV

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

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


37348 / 76732 ←次へ | 前へ→

【44555】Re:マクロを相対座標で記録するには?
発言  りん E-MAIL  - 06/11/21(火) 19:17 -

引用なし
パスワード
   fuku さん、こんばんわ。
>記録終了の横には、セキュリティボタンがありまして、
>上の方法をしても、セキュリティが出てくるだけになってしまします・・
相対参照のボタンがあるかどうか確認してみましょう。
以下のコードを実行してみてください。

Sub test()
  Dim cb As CommandBar, cbc As CommandBarControl
  Dim RR As Long, CC As Long
  Dim ws As Worksheet
  '新しいシート
  Set ws = Application.Workbooks.Add.Worksheets(1)
  '
  For Each cb In Application.CommandBars
   RR = RR + 1: CC = 1
   ws.Cells(RR, CC).Value = cb.NameLocal
   '
   For Each cbc In cb.Controls
     If cbc.Type = msoControlButton Then
      CC = CC + 1
      ws.Cells(RR, CC).Value = cbc.Caption
     End If
   Next
  Next
  '
  On Error Resume Next
  ws.UsedRange.Find("相対参照", Lookat:=xlPart).Select
  '
  ws.Parent.Saved = True
  Set ws = Nothing
End Sub

あったらセルが選択されますので、その行のA列のツールバーにボタンが乗っているはずです。

0 hits

【44479】マクロを相対座標で記録するには? fuku 06/11/17(金) 17:49 質問
【44480】Re:マクロを相対座標で記録するには? Reco 06/11/17(金) 18:33 発言
【44482】Re:マクロを相対座標で記録するには? 飛ばない豚 06/11/17(金) 19:05 発言
【44483】Re:マクロを相対座標で記録するには? りん 06/11/17(金) 19:20 発言
【44543】Re:マクロを相対座標で記録するには? fuku 06/11/21(火) 10:07 質問
【44550】Re:マクロを相対座標で記録するには? 飛ばない豚 06/11/21(火) 17:13 発言
【44551】Re:マクロを相対座標で記録するには? fuku 06/11/21(火) 17:19 お礼
【44552】Re:マクロを相対座標で記録するには? りん 06/11/21(火) 17:38 発言
【44553】Re:マクロを相対座標で記録するには? fuku 06/11/21(火) 18:16 発言
【44555】Re:マクロを相対座標で記録するには? りん 06/11/21(火) 19:17 発言
【44623】Re:マクロを相対座標で記録するには? fuku 06/11/24(金) 14:46 お礼
【44624】Re:マクロを相対座標で記録するには? りん@通りすがり 06/11/24(金) 14:59 発言
【44625】Re:マクロを相対座標で記録するには? fuku 06/11/24(金) 15:07 質問
【44627】Re:マクロを相対座標で記録するには? りん 06/11/24(金) 19:11 発言

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