過去ログ

                                Page     121
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼「ピカつーる」が完成しました。  ぴかる 02/9/3(火) 12:40
   ┣Re:「ピカつーる」の質問  ひで 02/9/3(火) 15:54
   ┃  ┗Re:「ピカつーる」の質問  ぴかる 02/9/3(火) 16:36
   ┃     ┗Re:「ピカつーる」の質問  ひで 02/9/3(火) 16:51
   ┃        ┗Re:「ピカつーる」の質問  ぴかる 02/9/3(火) 17:29
   ┃           ┗Re:「ピカつーる」の質問  ひで 02/9/3(火) 18:32
   ┗ダウンロード出来るようになりました。  ぴかる 02/9/24(火) 9:22

 ───────────────────────────────────────
 ■題名 : 「ピカつーる」が完成しました。
 ■名前 : ぴかる
 ■日付 : 02/9/3(火) 12:40
 -------------------------------------------------------------------------
   みなさん、こんにちは。

お待たせしました。ようやく「ピカつーる」が完成いたしました。目安箱にて紹介させていただいております。非常に長いマクロとなっているので少し面倒な作業となってしまいます。お時間と少し根気のあられる方、よろしければお試し下さい。よろしくお願いします。

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=4;id=FAQ
 ───────────────────────────────────────  ■題名 : Re:「ピカつーる」の質問  ■名前 : ひで  ■日付 : 02/9/3(火) 15:54  -------------------------------------------------------------------------
   ▼ぴかる さん こんにちは

完成おめでとうございます!

早速、質問なんですが、作成方法の1〜4を実施
したのですが、デスクトップ上にpikaToolフォルダが
できましぇーん。
新規BooK….xls の名前はそのままで閉じています。

win98-エクセル2000 です。
宜しくおねがいします。
 ───────────────────────────────────────  ■題名 : Re:「ピカつーる」の質問  ■名前 : ぴかる  ■日付 : 02/9/3(火) 16:36  -------------------------------------------------------------------------
   ひでさん、こんにちは。

>完成おめでとうございます!
ありがとうございます。お待たせしました。でも、うまく行かなかったのは少し残念です。

>早速、質問なんですが、作成方法の1〜4を実施
>したのですが、デスクトップ上にpikaToolフォルダが
>できましぇーん。
>新規BooK….xls の名前はそのままで閉じています。
>
>win98-エクセル2000 です。
同じ環境で作成したんですけどね・・・。なんでかなぁ?。
セッティングのピカせっと作成が動作してますか?。まず、これを確認して下さい。
手間をおかけしてゴメンです。ほかにもこんな方いてるのかな?。
 ───────────────────────────────────────  ■題名 : Re:「ピカつーる」の質問  ■名前 : ひで  ■日付 : 02/9/3(火) 16:51  -------------------------------------------------------------------------
   ▼ぴかる さん たびたびすいません

>>win98-エクセル2000 です。
>同じ環境で作成したんですけどね・・・。なんでかなぁ?。
>セッティングのピカせっと作成が動作してますか?。まず、これを確認して下さい。
>手間をおかけしてゴメンです。ほかにもこんな方いてるのかな?。

作動してないようなので、コードを見てみたところ

Sub AUTO_CLOSE()

  If (ThisWorkbook.Path = "") And (フラグ <> 1) Then
  ピカせっと作成
  End If

End Sub

もしかして
If (ThisWorkbook.Path = "")
            ↑
            <> かな?

フラグの方はわからないですが・・・

違ってたらごめんなさい。
 ───────────────────────────────────────  ■題名 : Re:「ピカつーる」の質問  ■名前 : ぴかる  ■日付 : 02/9/3(火) 17:29  -------------------------------------------------------------------------
   ひでさん、どもどもです。

>もしかして
>If (ThisWorkbook.Path = "")
>            ↑
>            <> かな?
>
>フラグの方はわからないですが・・・
もしかして手動で保存されてませんか?。保存を行わずに実行するとパスが無いから
ピカせっと作成が作動します。対処方法は、VBE上で直接、ピカせっと作成を作動
させて下さい。多分、これで出来ると思います。

フラグは、消すの忘れてました。動くから、まぁ〜ええかぁ〜。
 ───────────────────────────────────────  ■題名 : Re:「ピカつーる」の質問  ■名前 : ひで  ■日付 : 02/9/3(火) 18:32  -------------------------------------------------------------------------
   ▼ぴかる さん ありがとうございました。

>もしかして手動で保存されてませんか?。保存を行わずに実行するとパスが無いから
>ピカせっと作成が作動します。対処方法は、VBE上で直接、ピカせっと作成を作動
>させて下さい。多分、これで出来ると思います。

そのとーりです、すいませんでした。
作動させたところ、セット画面がでましたー(感動!)
そして、ツールばーが出てきましたー、やったー!

ありがとうございました!
 ───────────────────────────────────────  ■題名 : ダウンロード出来るようになりました。  ■名前 : ぴかる  ■日付 : 02/9/24(火) 9:22  -------------------------------------------------------------------------
   みなさん、こんにちは。

管理者谷様にダウンロード出来るようにして頂きました。
これにて楽チン楽チンとなったので是非ともお試しくださいませませです。
どうぞ、よろしくよろしく! (^_^)v

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=29;id=FAQ
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 121