指定範囲のダブルクリック EXCEL VBA [マクロ]
指定された範囲を選択すると別のマクロを実行します。
Private Sub worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set A = Range("C1:D20", "E1:F20")
If Intersect(Target, A) Is Nothing Then Exit Sub
Call macro1
End Sub
Sub macro1()
MsgBox "macro1"
End Sub
クリック募金 各サイトに直接つながります。Private Sub worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set A = Range("C1:D20", "E1:F20")
If Intersect(Target, A) Is Nothing Then Exit Sub
Call macro1
End Sub
Sub macro1()
MsgBox "macro1"
End Sub
http://www.cosmo-oil.co.jp/kankyo/charity/
http://www.able.co.jp/company/contribute/new-action/clickable/
http://kakaku.com/donation/
http://www.j-energy.co.jp/cp/society/click_tp.php
http://www.chintai.net/contribution/index.html
http://www.nittsu.co.jp/corporate/contribution/1click.html
http://www.daiichisankyo.co.jp/csr/clickdonation/index.html
http://www.nippn.co.jp/csr/unicef/oneclick.html
コメント 0