Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12689 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8874】ThisWorkbook.Saveで不可解なことが・・・ つん 03/11/6(木) 22:53 質問
【8884】Re:ThisWorkbook.Saveで不可解なことが・・・ Jaka 03/11/7(金) 11:05 発言
【8885】Re:ThisWorkbook.Saveで不可解なことが・・・ つん 03/11/7(金) 12:25 発言
【8888】Re:ThisWorkbook.Saveで不可解なことが・・・ Jaka 03/11/7(金) 13:53 回答
【8889】↑ただの発言です。 Jaka 03/11/7(金) 13:55 発言
【8891】Re:ThisWorkbook.Saveで不可解なことが・・・ つん 03/11/7(金) 15:47 発言
【8892】Re:ThisWorkbook.Saveで不可解なことが・・・ Jaka 03/11/7(金) 17:18 発言
【8918】Re:ThisWorkbook.Saveで不可解なことが・・・ つん 03/11/8(土) 15:04 お礼
【9066】Re:ThisWorkbook.Saveで不可解なことが・・・ Jaka 03/11/17(月) 9:20 回答
【9071】Re:ThisWorkbook.Saveで不可解なことが・... つん 03/11/17(月) 16:14 お礼
【9100】試しました♪ つん 03/11/18(火) 16:14 お礼
【9124】上の上へのお返事です。 Jaka 03/11/19(水) 9:16 発言
【9126】Re:上の上へのお返事です。 つん 03/11/19(水) 9:28 発言
【9133】Re:上の上へのお返事です。 Jaka 03/11/19(水) 10:35 回答
【9134】度々ありがとう！ つん 03/11/19(水) 11:43 お礼
【9127】追伸 Jaka 03/11/19(水) 9:28 発言
【9129】ごめん・・・ つん 03/11/19(水) 9:41 発言
【9175】Re:ごめん・・・ Jaka 03/11/20(木) 12:09 発言
【9176】Re:ごめん・・・ つん 03/11/20(木) 13:04 お礼
【8874】ThisWorkbook.Saveで不可解なことが・・・
質問  つん E-MAIL  - 03/11/6(木) 22:53 -
引用なし
パスワード
   こんばんは。
いつもお世話になっております。

久々に質問させて頂きます。（なんか緊張^^;）
ThisWorkbook.Saveに関して、不可解（だと思う）なことに直面しております。
えとですね・・・・

シート上にコマンドボタンを１つ配置して、

Private Sub CommandButton1_Click()

　　Dim i As Integer
　　
　　i = MsgBox("yesでファイル、noでエクセルを閉じます", vbYesNo)
　　
　　If i = vbYes Then
　　　　ThisWorkbook.Close
　　Else
　　　　Application.Quit
　　End If
　　
End Sub

というように、ブックを閉じるか、エクセルを終了させるか選択できるようにして、終了処理します。
そして、終了時に

Private Sub Workbook_BeforeClose(Cancel As Boolean)

　　ThisWorkbook.Save

End Sub

として、ブックの保存（更新）処理をしています。
しかし、これを実行すると、
「エクセルを終了」を選ぶと、ちゃんとブックを保存して終了出来るのですが、
「ブックを閉じる」にすると、確かに「BeforeClose」を通っているのですが、
保存されずに、最後にイルカちゃんに「保存する？」って聞かれてしまいます。
「いいえ」にすると、保存されずに終わってしまいます。
これって何ででしょう？
ステップ実行すると、確かに「ThisWorkbook.Save」を通っているけど、
なんかあっさり通り過ぎちゃう感じです。

よろしくお願いします。
【8884】Re:ThisWorkbook.Saveで不可解なことが・...
発言  Jaka  - 03/11/7(金) 11:05 -
引用なし
パスワード
   適当に聞き流してください。

Private Sub Workbook_××のたぐいって、
XPになってもろくに動かない時があるみたいですよ！

私自身ろくに解っていないので、
「これって何ででしょう？」って、聞かれると、
どうしてなんでしょうね！
御決まりの使用って奴じゃないんですか？
ってな事になっちゃって、ごめんなさい。

んで、どっちも上書き保存しちゃっているみたいなんで、こんな風にして見ました。

Private Sub CommandButton1_Click()
　　Dim i As Integer
　　i = MsgBox("yesでファイル、noでエクセルを閉じます", vbYesNo)
　　If i = vbYes Then
　　　 ThisWorkbook.Close (True)
　　Else
　　　 ThisWorkbook.Save
　　　 Application.Quit
　　End If
End Sub


マクロで保存する、しないを分けるとなると色々問題がありそうで．．・
私が前に色々テストした感じでは．．。
その時は、結局うまく行かなかったんで、今回こんな感じにして見ました。
（このうまく行くいかないは、Excel.Ver等の違いでも違うでしょうけどマシンスペックでも代わるって来ると思います。）
意味不明な雑談は終了して、
保存しないで終了が入った場合、こんな風にして見ました。
これがなかなかうまく行かなくて．．．。
やっぱしボツやね！

Private Sub wwCommandButton1_Click()
　　Dim i As Integer
　　i = MsgBox("yesで保存して終了、noで保存しないで終了", vbYesNo)
　　If i = vbNo Then
　　　　Application.DisplayAlerts = False
　　　　'ThisWorkbook.Save
　　　　DoEvents
　　　　Application.OnTime Now(), "qqqq"
　　　　ThisWorkbook.Close (False)
　　Else
　　　　ThisWorkbook.Save
　　　　DoEvents
　　　　Application.Quit
　　End If
End Sub

標準ジュール
Sub qqqq()
　　Application.Quit
End Sub
【8885】Re:ThisWorkbook.Saveで不可解なことが・...
発言  つん E-MAIL  - 03/11/7(金) 12:25 -
引用なし
パスワード
   Jaka さん、こんにちは〜

>Private Sub Workbook_××のたぐいって、
>XPになってもろくに動かない時があるみたいですよ！

えっ！そうなの？

>御決まりの使用って奴じゃないんですか？
>ってな事になっちゃって、ごめんなさい。

んんんんーーーー「仕様です」ＭＳお得意の奴ですね（＾＾;


>んで、どっちも上書き保存しちゃっているみたいなんで、こんな風にして見ました。
>
>Private Sub CommandButton1_Click()
>　　Dim i As Integer
>　　i = MsgBox("yesでファイル、noでエクセルを閉じます", vbYesNo)
>　　If i = vbYes Then
>　　　 ThisWorkbook.Close (True)
>　　Else
>　　　 ThisWorkbook.Save
>　　　 Application.Quit
>　　End If
>End Sub

ありがとうございます。
や、私もそれもちらと考えたのですが、
Workbook_BeforeCloseで、セルの初期化処理をしてるんですよ。
ボタンで終了させても、エクセルの「×」で終了させても通るように。
初期化処理を、サブルーチン化しといて、
ThisWorkbook.Close (True)の前と、Workbook_BeforeCloseの両方で呼び出すようにするしかないかなあ？

ところで

>Private Sub wwCommandButton1_Click()
>　　Dim i As Integer
>　　i = MsgBox("yesで保存して終了、noで保存しないで終了", vbYesNo)
>　　If i = vbNo Then
>　　　　Application.DisplayAlerts = False
>　　　　'ThisWorkbook.Save
>　　　　DoEvents
>　　　　Application.OnTime Now(), "qqqq"
>　　　　ThisWorkbook.Close (False)
>　　Else
>　　　　ThisWorkbook.Save
>　　　　DoEvents
>　　　　Application.Quit
>　　End If
>End Sub
>
>標準ジュール
>Sub qqqq()
>　　Application.Quit
>End Sub

これ、実行してみました。
そしたら、「いいえ」を押すと、何故かもう一度
「マクロを有効にするか、無効にするか？」を聞いてくるダイアログが出ちゃいます。
何ででしょう？
Jakaさんとこでは、そんな現象なかったですか？

あ、うちはWindows98se＋Excel2002なんですけど
【8888】Re:ThisWorkbook.Saveで不可解なことが・...
回答  Jaka  - 03/11/7(金) 13:53 -
引用なし
パスワード
   >そしたら、「いいえ」を押すと、何故かもう一度
>「マクロを有効にするか、無効にするか？」を聞いてくるダイアログが出ちゃいます。
>何ででしょう？

=NOW() 関数とか使ってたりしませんか？
今気付いたけど、セルがリンクされてたりしてもダメでしょうね！
すみません。

ごまかしで、自分で自分ブックを再起動させる方法を応用してみました。
ブックを開いた時に内容を書き変えられちゃうと．．．．。
ごまかせきれないようでした。

もう少し考えて見ようと思いますが、前に保存できない様にするしないで挫折したからなぁ！
【8889】↑ただの発言です。
発言  Jaka  - 03/11/7(金) 13:55 -
引用なし
パスワード
   訂正。
【8891】Re:ThisWorkbook.Saveで不可解なことが・...
発言  つん E-MAIL  - 03/11/7(金) 15:47 -
引用なし
パスワード
   Jaka さん、どもども〜

>=NOW() 関数とか使ってたりしませんか？
これって、現在の時刻まで取得する関数ですよね？
あんま使ったことないです。

>ごまかしで、自分で自分ブックを再起動させる方法を応用してみました。
>ブックを開いた時に内容を書き変えられちゃうと．．．．。
>ごまかせきれないようでした。

ええ！？あのコードは、自分を再起動してることになるの？
だから、また「マクロの有効無効」のお尋ねダイアログが出てきたのか。
でも、あのコードのなにがどうなって、再起動になってるのでしょうか？
全然わかんないや……なさけなや(T_T)
【8892】Re:ThisWorkbook.Saveで不可解なことが・...
発言  Jaka  - 03/11/7(金) 17:18 -
引用なし
パスワード
   >だから、また「マクロの有効無効」のお尋ねダイアログが出てきたのか。
>でも、あのコードのなにがどうなって、再起動になってるのでしょうか？

win98se exc97 だと出ないんですけどねぇ。
OnTimeで、マクロを実行していますよね！
閉じているブックもrunメソッドで実行されるとブックが開きますよね！
その辺を応用していると思うんですけど．．。
ただ、Application.OnTime Now()　ではなく数秒後とかだったらブックを閉じちゃっているので動かないかもしれませんね。あまり検証してないんです。ごめんなさい。
（速いＰＣとかだとうまく行かないかも、ただペン150）

標準モジュール

Sub qqqq()
　　Application.ScreenUpdating = False
　　Application.DisplayAlerts = False
　　Application.Quit
　　ThisWorkbook.Close (False)
　　Application.ScreenUpdating = True
End Sub

Sub clcl()
　　i = MsgBox("yesで保存して終了、noで保存しないで終了", vbYesNo)
　　If i = vbNo Then
　　　　Application.DisplayAlerts = False
　　　　DoEvents
　　　　Application.OnTime Now(), "qqqq"
　　　　ThisWorkbook.Close (False)
　　Else
　　　　Application.OnTime Now(), "qqqq"
　　　　ThisWorkbook.Close (True)
　　End If
End Sub

シート上のコントロールボタンで試しました。
Private Sub CommandButton1_Click()
　　clcl
End Sub
【8918】Re:ThisWorkbook.Saveで不可解なことが・...
お礼  つん E-MAIL  - 03/11/8(土) 15:04 -
引用なし
パスワード
   Jakaさん　こんにちは
お返事が遅くなりました。すみません。

>標準モジュール
>
>Sub qqqq()
>　　Application.ScreenUpdating = False
>　　Application.DisplayAlerts = False
>　　Application.Quit
>　　ThisWorkbook.Close (False)
>　　Application.ScreenUpdating = True
>End Sub
>
>Sub clcl()
>　　i = MsgBox("yesで保存して終了、noで保存しないで終了", vbYesNo)
>　　If i = vbNo Then
>　　　　Application.DisplayAlerts = False
>　　　　DoEvents
>　　　　Application.OnTime Now(), "qqqq"
>　　　　ThisWorkbook.Close (False)
>　　Else
>　　　　Application.OnTime Now(), "qqqq"
>　　　　ThisWorkbook.Close (True)
>　　End If
>End Sub
>
>シート上のコントロールボタンで試しました。
>Private Sub CommandButton1_Click()
>　　clcl
>End Sub

実行してみました。
やっぱり、「マクロの確認」ダイアログが出てきますね(T_T)

しかたないので、
やはり、セルの初期化処理は、
Workbook_BeforeCloseと、Worksbook.Closeの前と
両方に設定して対応してみます。

ありがとうございました。
しかし、なんかわからん、バグ（仕様？）が多いなあ〜
【9066】Re:ThisWorkbook.Saveで不可解なことが・...
回答  Jaka  - 03/11/17(月) 9:20 -
引用なし
パスワード
   こんちは。
もうすんじゃったと思いますが。
ThisWorkbook.Saved　が有るのを今まで思い出せませんでした。
これがあるのをすぐ思い出していれば、保存できないようにするで挫折することは無かったのに．．．。

バグ？確認用（要するにこれじゃダメって事です。）

Sheet1モジュール

Private Sub CommandButton1_Click()
　　Dim i As Integer
　　i = MsgBox("yesでファイル、noでエクセルを閉じます", vbYesNo)
　　If i = vbYes Then
　　　　ThisWorkbook.Close
　　Else
　　　　Application.Quit
　　End If
End Sub

ThisWorkBookモジュール

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　　Range("A1").Value = "何かの処理"
　　DoEvents
　　ThisWorkbook.Save
　　DoEvents
　　ThisWorkbook.Saved = True
End Sub

（注意）
ThisWorkbook.Closeでブックを閉じると保存してくれない。
一応ここは通っているのだけれど．．．．。（バグくさいです。）
因みに、閉じるボタンでは保存されます。
Win98se & Exc2000SR1

****************************************
んなわけで、フラグ使ってこんな風に面倒くさい書き方をしないとダメみたいでした．
やっぱダメでしょうか？

標準モジュール

Public flg As Boolean

Sub hozon()
　　Range("A1").Value = "何かの処理"
　　ThisWorkbook.Save
End Sub


Sheet1モジュール

Private Sub CommandButton1_Click()
　　Dim i As Integer
　　i = MsgBox("yesでファイル、noでエクセルを閉じます", vbYesNo)
　　If i = vbYes Then
　　　 hozon
　　　 flg = True
　　　 ThisWorkbook.Close
　　Else
　　　 Application.Quit
　　End If
End Sub


ThisWorkBookモジュール

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　　If flg = False Then
　　　 hozon
　　End If
　　ThisWorkbook.Saved = True
End Sub

********************
保存できないようにするは、
Workbook_BeforeClose で、ThisWorkbook.Saved = True
Workbook_BeforeSave で、Cancel = True
と、するだけで十分でした。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　　ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　　'全く保存できないとテスト時に不都合なんで
　　'こんな風にしてあります。
　　If Range("A1").Value = "" Then
　　　 Cancel = True
　　End If
End Sub
【9071】Re:ThisWorkbook.Saveで不可解なことが・...
お礼  つん E-MAIL  - 03/11/17(月) 16:14 -
引用なし
パスワード
   Jaka さん、こんにちは


>んなわけで、フラグ使ってこんな風に面倒くさい書き方をしないとダメみたいでした．
>やっぱダメでしょうか？
>
>標準モジュール
>
>Public flg As Boolean
>
>Sub hozon()
>　　Range("A1").Value = "何かの処理"
>　　ThisWorkbook.Save
>End Sub
>
>
>Sheet1モジュール
>
>Private Sub CommandButton1_Click()
>　　Dim i As Integer
>　　i = MsgBox("yesでファイル、noでエクセルを閉じます", vbYesNo)
>　　If i = vbYes Then
>　　　 hozon
>　　　 flg = True
>　　　 ThisWorkbook.Close
>　　Else
>　　　 Application.Quit
>　　End If
>End Sub
>
>
>ThisWorkBookモジュール
>
>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>　　If flg = False Then
>　　　 hozon
>　　End If
>　　ThisWorkbook.Saved = True
>End Sub
>

なるほど、これでＯＫなんですね。
今日はちょっと試してみる時間がとれないのですが、
また試させてもらいます。（すみません）

>********************
>保存できないようにするは、
>Workbook_BeforeClose で、ThisWorkbook.Saved = True
>Workbook_BeforeSave で、Cancel = True
>と、するだけで十分でした。
>
>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>　　ThisWorkbook.Saved = True
>End Sub

ええ、そのやり方は最初検討したんですけど、
これじゃー自分も保存できへんやんけ！ということで、
初期状態に戻して保存→終了を考えてたんです。
それで、Workbook_BeforeCloseの不思議にぶつかってしまったの(T_T)

でも、あとで

Application.EnableEvents = False
ActiveWorkbook.Save
Application.EnableEvents = True

のやりかたを知って、保存用のルーチンを作って対応させました。
Jakaさん、ほんとに色々ありがとうございました。
【9100】試しました♪
お礼  つん E-MAIL  - 03/11/18(火) 16:14 -
引用なし
パスワード
   Jaka さん、こんにちは♪

'=１=============================================
>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>　　Range("A1").Value = "何かの処理"
>　　DoEvents
>　　ThisWorkbook.Save
>　　DoEvents
>　　ThisWorkbook.Saved = True
>End Sub
'==============================================

'=２=============================================
>Sub hozon()
>　　Range("A1").Value = "何かの処理"
>　　ThisWorkbook.Save
>End Sub

>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>　　If flg = False Then
>　　　 hozon
>　　End If
>　　ThisWorkbook.Saved = True
>End Sub
'==============================================>

確かに、「１」では、エクセルの「×」ボタンで閉じた場合は、
「ThisWorkbook.Save」
が利いてなくて、「２」でやれば、ＯＫですね。
Workbook_BeforeCloseイベント内で、Saveを書いてもダメで、
サブルーチンにして呼び出せばOKってことか・・・・
へんな仕様（バグ？バグだよねー）ですね。
今回は、前回書いたように、「保存できないようにする」で対応しましたが、
とても勉強になりました。どうもありがとー(^o^)ノ
【9124】上の上へのお返事です。
発言  Jaka  - 03/11/19(水) 9:16 -
引用なし
パスワード
   こんにちは。

>ええ、そのやり方は最初検討したんですけど、
>これじゃー自分も保存できへんやんけ！ということで、

う〜ん。
手っ取り早いのは、マクロが完成したのを確認したら、マクロを無効にして開いて保存すればいいんですけど．．．。
新規作成の場合は、ダミーのマクロを書いてファイルを保存してからと、めんどいことになりますけど．．．。

あっさりしていてごめんなさい。
【9126】Re:上の上へのお返事です。
発言  つん E-MAIL  - 03/11/19(水) 9:28 -
引用なし
パスワード
   Jaka さん、おはよーございます。
お返事ありがとうございます(^o^)
この間から、背中から腰にかけてむちゃ痛怠いつんです。
内臓疾患やったら、どーしよー(T_T)

>う〜ん。
>手っ取り早いのは、マクロが完成したのを確認したら、マクロを無効にして開いて保存すればいいんですけど．．．。

おお！なるほどー！って思ったけど、「マクロを無効にして開いて保存」するまえに、閉じないとあかんやん。
そしたら、完成した部分が上書きされないやん。
あ、無効にして開いてから、「保存できないようにする」コードを書いて保存すればいいんかな？
【9127】追伸
発言  Jaka  - 03/11/19(水) 9:28 -
引用なし
パスワード
   >確かに、「１」では、エクセルの「×」ボタンで閉じた場合は、
>「ThisWorkbook.Save」
>が利いてなくて、「２」でやれば、ＯＫですね。

？？？
Win98se & 2000SR1　での検証での事になりますが、
エクセルの「×」ボタンで閉じた場合は、「ThisWorkbook.Save」は、動くんですが、マクロでThisWorkbook.Close から入った場合には動かなかったと思います。
バージョンによって違うのかなぁ？
【9129】ごめん・・・
発言  つん E-MAIL  - 03/11/19(水) 9:41 -
引用なし
パスワード
   >？？？
>Win98se & 2000SR1　での検証での事になりますが、
>エクセルの「×」ボタンで閉じた場合は、「ThisWorkbook.Save」は、動くんですが、マクロでThisWorkbook.Close から入った場合には動かなかったと思います。
>バージョンによって違うのかなぁ？

いや・・・ごめんなさい。
反対でした。ちょっと混乱してました（＾＾;

>マクロでThisWorkbook.Close
これも、ファイルを閉じると、エクセルを閉じるで違ってたんですよね。
ファイルを閉じるでは、ＮＧで、エクセルそのものを閉じる場合はＯＫでしたね？

ややこしいこと書いてしまってすみませんでした(T_T)
【9133】Re:上の上へのお返事です。
回答  Jaka  - 03/11/19(水) 10:35 -
引用なし
パスワード
   >あ、無効にして開いてから、「保存できないようにする」コードを書いて保存すればいいんかな？

はい。

でも何かしらコードが書いていないと、マクロを無効にして開けませんので、初めに適当なコードを書いて保存してから、再度マクロを無効にして開いて、適当に書いたコードを消して本命のコードを書きこむって感じです。
【9134】度々ありがとう！
お礼  つん E-MAIL  - 03/11/19(水) 11:43 -
引用なし
パスワード
   >はい。
>でも何かしらコードが書いていないと、マクロを無効にして開けませんので、初めに適当なコードを書いて保存してから、再度マクロを無効にして開いて、適当に書いたコードを消して本命のコードを書きこむって感じです。

あ、そういうことか。
実は、「新規の場合は云々」ってちょっと意味がわかってなかったです（＾＾;
保存無効にするコードは最後の最後に書いて、
その直前に「無効で開く」→「保存無効のコードを書く」→「保存」にすればいいですね！
【9175】Re:ごめん・・・
発言  Jaka  - 03/11/20(木) 12:09 -
引用なし
パスワード
   今ごろすみません。

>Workbook_BeforeCloseイベント内で、Saveを書いてもダメで、
>サブルーチンにして呼び出せばOKってことか・・・・

いや、正確？にはそうではないです。
こんな風に同じコードを2度書くのもなんだと思って、保存コードを外に出しただけです。

ThisWorkbook.Close　で、Workbook_BeforeCloseイベントに入った場合だけ保存が行われないので、
単純にThisWorkbook.Closeの前に保存して置けばよいわけで．．．。

文書作成能力が無いので、チマチマ書いて余計わかりにくくしてごめんなさい。
おまけに途中で書き直したりしているくせに、文を見直さないんで意味不明なところが多々有りごめんなさい。
ぶ、文才がほしい。

Private Sub CommandButton1_Click()
　　Dim i As Integer
　　i = MsgBox("yesでファイル、noでエクセルを閉じます", vbYesNo)
　　If i = vbYes Then
　　　 Range("A1").Value = "何かの処理"
　　　 ThisWorkbook.Save
　　　 flg = True
　　　 ThisWorkbook.Close
　　Else
　　　 Application.Quit
　　End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　　'ThisWorkbook.Closeで、ここに入ってきた場合Saveされないので、
　　'2度保存されないようにと、フラグ判定で振分ける必要も無いのかも知れませんけど、
　　'バグくさいんで安全のためにフラグ判定を入れました。
　　If flg = False Then
　　　 Range("A1").Value = "何かの処理"
　　　 ThisWorkbook.Save
　　End If
　　ThisWorkbook.Saved = True
End Sub

>この間から、背中から腰にかけてむちゃ痛怠いつんです。
>内臓疾患やったら、どーしよー(T_T)

全然読んでませんでした。
大変だったんですね！
大事にしてください。

>ファイルを閉じるでは、ＮＧで、エクセルそのものを閉じる場合はＯＫでしたね？

はい。
【9176】Re:ごめん・・・
お礼  つん E-MAIL  - 03/11/20(木) 13:04 -
引用なし
パスワード
   Jaka さん、こんにちは〜

>いや、正確？にはそうではないです。
>こんな風に同じコードを2度書くのもなんだと思って、保存コードを外に出しただけです。
あ・・そうなのか

>文書作成能力が無いので、チマチマ書いて余計わかりにくくしてごめんなさい。
>おまけに途中で書き直したりしているくせに、文を見直さないんで意味不明なところが多々有りごめんなさい。

いえいえ。
実は、私自身も混乱してきて、なんだか訳がわからなくなってきました(>_<)
（Jakaさんの回答のせいではなく、ですよ！）
落ち着いたら、一度最初から整理してみます。
どうもありがとう。

>>この間から、背中から腰にかけてむちゃ痛怠いつんです。
>>内臓疾患やったら、どーしよー(T_T)
>全然読んでませんでした。
>大変だったんですね！
>大事にしてください。

ありがとう。
昨日、一昨日とマッサージしてもらってきました。
そんときに、「背中痛いのは内臓が悪いとかですか？」って聞いたら、
「押した感じではそーでもないと思うけど」と言われたので、ちと安心しました。
たぶん姿勢が悪いせいかなあ？
ずっと座りっぱなしとかだし。
たまには運動しないとね。Jakaさんも気を付けてね。
風邪も流行ってるし。

ではでは〜
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12689 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free