|
おしばらくぶりです、みなさん。もう、やめたと思ったでしょう。
確かに、やめちゃおうかなくらいには思っていました。
でも、しなかったというよりは、できなかったというほうが正しいのです。
ひとつには、どうしても落とすことのできない試験がありました。
いまひとつには、ホームページに使っているベクターの許容量がいっぱいになってしまっていたことです。
そんなわけで、片手間に追加するということができなくて今日に至ってしまいました。
みなさんの期待に応えようといろいろな案を考えましたが、肯定的な現実と否定的な現実が１：５０くらいで気が滅入ってしまい、ようやく２０１２年になって、たまには自分も人の役に立ちたいという当初に自分に立ち戻ることができた次第です。
長い言い訳になってしまいましたが、ちゃっちゃとやってちゃっちゃと終わらしてしまいましょう。
ＶＢＡでユーザー定義関数を含む計算式をファイルオープン時にだけ動かす方法は至極簡単です。
標準モジュールのAuto_Openで、セルのFormulaを指定するサブルーチンをコールするだけです。そのFormula内でユーザー定義関数を使用します。
一般に、ファイルオープンに１回だけ実行したい計算式は、日付に関連したものが多いと思われるので、その大元となる日付の入ったセルさえ更新してしまえば、あとはどうとでもなります。
いきなりそのセルに文字列で日付を入れてもいいのですが、どこでやっているかを明示するために、コードを読ませないで計算式でやるわけです。
ワークシート関数をネストすると可読性が落ちますし複雑な条件を作りづらいので、ユーザー定義関数で行います。
ただし、ユーザー定義関数にはVolatileを入れないと再計算してくれません。ですが、入れると今度はひっきりなしに再計算がかかるので、ファイルオープン時にだけ実行するようにした次第です。
Formulaを指定するとその直後でRecalcを実行すれば、Volatileなしのユーザー定義関数に対してRecalcを実行しても、一回だけ実行してくれます。ただし、そのためには、設定したいセルの数だけFormulaを設定しなければならないのはご愛嬌です。
まあ、神クラスのＶＢＡ使いの方々には、こんなやり方は笑い話くらいにしかならないでしょうが。
さて、次のお題はＮＴＦＳアクセス権の変更です。
解決方法はズバリ下記ＵＲＬにあるＶＢスクリプトをダウンロードして、サンプルのように実行するだけです。
ＮＴＦＳアクセス権の変更方法ＵＲＬ＝
恥ずかしながら、私は自分のおかれている状況に気づかず、このページにたどり着くまでに半日かかりました。
そもそも、なんでこんなわずわらしいことに巻き込まれたかというと、全てはウォークマンの楽曲管理ツールのSonic Stageのせいなのです。
そういえば、インストールの際に、自分のユーザーだけにするか、他のユーザーにも権限を与えるか訊かれたような。普通この手のインストールをしているときにそう訊かれたら、自分だけって選択しますよね。
ああ、そうなんです。たしか、そう選択したような気が。 共有接続のときは、ドメイン名が違っていてもユーザー名とパスワードがあっていればいいんですが、ＮＴＦＳアクセス権はドメインごとに登録しなければならないのですね。知らんかった。
だから、\Everyoneの指定にするかどうかを訊かれたようです（私はオーナーだけにしたわけですね）。
このためか、Sonic Stageのデータフォルダを共有フォルダに指定しても、アクセス権変更のダイアログがほとんど動きません。
そもそも、もとはといえば１０年間使い続けたＴＮＴ２のグラボが（いまどきこんなグラボを使っているのって私くらいでしょう）、昨年末にめでたく天に召され、今更ＡＧＰのグラボなんて買いたくても売ってないんで、サブＰＣにデータを洗いざらい転送しようとしたのがきっかけです。
どうやってもSonic Stageのデータだけ転送できない。
そのときはＮＴＦＳアクセス権の問題だとは思ってもみませんでした。転送ツールのバグだろうくらいにしか考えていませんでした。
ああ、そのために原因究明に約半日、ＮＴＦＳアクセス権変更での検索にたどり着くのに約１時間。正月休みはこれでなくなりました。
ちなみに、ＡＧＰのグラボはＦＸ５２００の中古を９８０円で購入。送料は代引き込みで１３００円でした。本体価格より送料の方が高いってどういうこと？
１月の小遣いもこれでキレイさっぱり使い果たしました。
ああ神様、なんか私悪いことしましたか？
というオチで、皆様にとっていい年でありますように。
あけましておめでとうございます。
|
