[[20090621183331]]　『個人用マクロ』（たき）　ページの最後に飛ぶ

『個人用マクロ』（たき）

 下記のコードを個人用マクロに入れることは、可能ですか？
 宜しくお願い致します。

 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
     Dim A As Range, ct As Long, b As Integer　 'ページ

 　　　　 ct = 0
 　　　　　　 For b = 1 To 144 Step 36
              Set A = Intersect(Target, Range("A1：F36").Offset(b - 1))
                  ct = ct + 1
        If Not A Is Nothing Then Userform1.Label56.Caption = "P" & ct
     Next
                   Set A = Nothing

 >下記のコードを個人用マクロに入れることは、可能ですか？
 個人用ブック、つまり、PERSONAL.XLSにマクロを作成すると言うことですよね！！

 言葉どおり、投稿されたVBAコードをPERSONAL.XLSに登録する手順がわからないということですか？
 だとしたら、現状既にPERSONAL.XLSが存在しているか否の情報も記述してください。

 どのような理由で投稿ＶＢＡコードを個人用マクロ（PERSONAL.XLS）に入れたいのか？
 説明してください。

 考えられるのは、

 １　Excelを起動したら、当該ＶＢＡコードが使用可能な環境にしておきたい。

 ２　当該ＶＢＡコードをPERSONAL.XLSに登録することによって、
 　　全てのブックに対して、対象ＶＢＡコードが作動するようにしたい。

 １の場合なら、何もPERSONAL.XLSに登録しなくても運用方法はあります。

 ２の場合なら、ざっと見た限り、投稿されたコードでは、不十分です。
 （投稿されたコードでは、ＶＢＡコードが記述されたブックのみが作動対象ですから）

 詳細な情報を記述してください。

 ichinose

ichinoseさん　有り難うございます。　

上手く説明できませんが、今までbook内にあった、Userformを

いろいろなbook(書式等、形式がすべて同じ）でも共通して

使うので、個人用マクロに入れました。

ただ、ThisWorkbookにあるWorkbook_SheetSelectionChangeは、

個人用マクロのThisWorkbookに入れましたが、上手く行きませんでした。

個人用マクロを出した時に使っているシートにだけ

上記のコードを使い、そんな都合のいい事できますか？

粗末な説明でお解り頂けたでしょうか？

宜しくお願い致します。

（たき）

 個人用マクロブックのThisworkbookのモジュールに

 '====================================================================
 Option Explicit
 Private WithEvents app As Application
 '====================================================================
 Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim rng As Range
    Set rng = Application.Intersect(Target, Sh.Range("a1:a5"))
    If Not rng Is Nothing Then
       rng.Value = "ok"
    End If
 ’ここでは、簡単にA1:A5のどれかを選択したら,当該セルに　okと入力する仕様にしてあります。
 '本来は、このプロシジャーに行いたい処理を記述します。
 End Sub
 '====================================================================
 Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Set app = Nothing
 End Sub
 '====================================================================
 Sub Workbook_Open()
    Set app = Application
 End Sub

 一度保存して、Excelを終了した後、再びExcelを起動して試してください

 ichinsoe

ichinsoeさん　

無理なお願いをしたようで、申し訳ありません。

本当に有り難うございました。

（たき）

 >無理なお願いをしたようで

 ということは出来なかったということですか？

 伺った限りでは、ＶＢＡで制御可能な仕様です（私も同じようなことは何回もしています　アドインですが）。

 上記のコードを新規ブックなどで再度試してみてください。

 ichinose

ichinsoeさん　

出来たので、御礼の意味で書いたのですが

言葉足らずで、申し訳ありませんでした。

再度、本当に有り難うございました。

（たき）

コメント返信：

[ 一覧(最新更新順) ]

[[20090621183331]] 『個人用マクロ』（たき） ページの最後に飛ぶ

[[20090621183331]]　『個人用マクロ』（たき）　ページの最後に飛ぶ