メールの返信ありがとうございます。
相変わらず優しいなぁ、と思って、ちょっと泣けました。
あまりメールを送っても負担になりそうなので、この場をお借りして、お礼申し上げます。
相変わらず優しいなぁ、と思って、ちょっと泣けました。
あまりメールを送っても負担になりそうなので、この場をお借りして、お礼申し上げます。
しかし。
男の人って、女性の指輪を良く見てるなぁ、と思う。
どちらがわの手の何の指にしてるか、そこまで見てて、びっくり。
職場に好きな人がいる場合、職場で指輪はしないほうがいいと思う。変に勘ぐられたり、勝手に(彼氏がいると思いこんで)諦めたりするので。
男の人って、女性の指輪を良く見てるなぁ、と思う。
どちらがわの手の何の指にしてるか、そこまで見てて、びっくり。
職場に好きな人がいる場合、職場で指輪はしないほうがいいと思う。変に勘ぐられたり、勝手に(彼氏がいると思いこんで)諦めたりするので。
プログラマー２名（両方リーダークラスの人）に、「悪魔の手先」と言われた。
理由は、私が彼らのところにバグ票を運んでいって、
『これを修正して頂戴。』
とお伝えしに行くからである。要は、彼らの仕事を増やしに行く係なのである。
（私はテスターさんが起票したバグ票を、プログラマーグループへ中継している。なので私は、ただの手先である。）
プログラマーさんたちは、バグ票の多さに苛立っている模様。
しかし、プログラマーグループのフロアは、２階上なので、私はバグ票配達に階段を往復しまくりである。昨日は６往復した。悪魔の手先は、結構地道なことをしているのであるｗ
理由は、私が彼らのところにバグ票を運んでいって、
『これを修正して頂戴。』
とお伝えしに行くからである。要は、彼らの仕事を増やしに行く係なのである。
（私はテスターさんが起票したバグ票を、プログラマーグループへ中継している。なので私は、ただの手先である。）
プログラマーさんたちは、バグ票の多さに苛立っている模様。
しかし、プログラマーグループのフロアは、２階上なので、私はバグ票配達に階段を往復しまくりである。昨日は６往復した。悪魔の手先は、結構地道なことをしているのであるｗ
☆任意のディレクトリを指定してExcelファイルをエクスポートする方法☆
（ダイヤログボックスを開く）
バージョン：Access2003
まずは「任意のExcelファイルを指定してインポートする方法」の【確認＆設定】を参照し、設定が出来ていることを確認すること。
＜サンプルソース＞
Dim objXL As New Excel.Application
Dim OpenFileName As String
OpenFileName = objXL.GetSaveAsFilename("えくすぽーと.xls", "Excel ブック
(*.xls), *.xls", , "エクスポート")
If OpenFileName = "False" Then
MsgBox ("エクスポートを中止しました。")
Exit Function
End If
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "えくすぽーとてーぶる", OpenFileName, True
MsgBox "エクスポート完了しました。", vbInformation
（ダイヤログボックスを開く）
バージョン：Access2003
まずは「任意のExcelファイルを指定してインポートする方法」の【確認＆設定】を参照し、設定が出来ていることを確認すること。
＜サンプルソース＞
Dim objXL As New Excel.Application
Dim OpenFileName As String
OpenFileName = objXL.GetSaveAsFilename("えくすぽーと.xls", "Excel ブック
(*.xls), *.xls", , "エクスポート")
If OpenFileName = "False" Then
MsgBox ("エクスポートを中止しました。")
Exit Function
End If
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "えくすぽーとてーぶる", OpenFileName, True
MsgBox "エクスポート完了しました。", vbInformation
☆任意のExcelファイルを指定してインポートする方法☆
（ファイル指定ダイヤログボックスを開く）
バージョン：Access2003
【確認＆設定】
１．ACCESSの画面のツールバーからツール＞マクロ＞Visual Basic Editor を開く。
２．Visual Basic Editor画面のツールバーからツール＞参照設定を選択。
３．参照設定ダイヤログボックスの「Microsoft Excel 11.0 Object Library」
にチェックが入っていればOK。入っていなければチェックを入れる。
「Microsoft Excel 11.0 Object Library」がない場合は、４．以降の
設定を行う。（11.0はバージョンにより10.0とかの場合もあり）
４．参照設定ダイヤログボックスの参照ボタンを押下。
５．C:Program FilesMicrosoft OfficeOFFICE11EXCEL.EXEを
選択。これで「Microsoft Excel 11.0 Object Library」が追加される。
６．「Microsoft Excel 11.0 Object Library」にチェックが入っていることを
確認し、OKボタンでダイヤログボックスを閉じる。
＜サンプルソース＞
Public Function excelFileImport()
Dim objXL As New Excel.Application
Dim OpenFileName As String
OpenFileName = objXL.GetOpenFilename("Microsoft Excelブック,*.xls")
If OpenFileName = "False" Then
MsgBox ("インポートを中止します。")
Exit Function
End If
'終了処理
objXL.Quit
Set objXL = Nothing
'インポート
DoCmd.TransferSpreadsheet acImport, 8, "インポートファイル",
OpenFileName, True
'終了メッセージ
MsgBox "インポート完了しました。", vbInformation
End Function
（ファイル指定ダイヤログボックスを開く）
バージョン：Access2003
【確認＆設定】
１．ACCESSの画面のツールバーからツール＞マクロ＞Visual Basic Editor を開く。
２．Visual Basic Editor画面のツールバーからツール＞参照設定を選択。
３．参照設定ダイヤログボックスの「Microsoft Excel 11.0 Object Library」
にチェックが入っていればOK。入っていなければチェックを入れる。
「Microsoft Excel 11.0 Object Library」がない場合は、４．以降の
設定を行う。（11.0はバージョンにより10.0とかの場合もあり）
４．参照設定ダイヤログボックスの参照ボタンを押下。
５．C:Program FilesMicrosoft OfficeOFFICE11EXCEL.EXEを
選択。これで「Microsoft Excel 11.0 Object Library」が追加される。
６．「Microsoft Excel 11.0 Object Library」にチェックが入っていることを
確認し、OKボタンでダイヤログボックスを閉じる。
＜サンプルソース＞
Public Function excelFileImport()
Dim objXL As New Excel.Application
Dim OpenFileName As String
OpenFileName = objXL.GetOpenFilename("Microsoft Excelブック,*.xls")
If OpenFileName = "False" Then
MsgBox ("インポートを中止します。")
Exit Function
End If
'終了処理
objXL.Quit
Set objXL = Nothing
'インポート
DoCmd.TransferSpreadsheet acImport, 8, "インポートファイル",
OpenFileName, True
'終了メッセージ
MsgBox "インポート完了しました。", vbInformation
End Function
お財布を家に忘れてきてしまった。
え～ん、晩ごはんが食べられないよう(TT)
仕方がないので買い置きのカロリーメイトを晩ごはんとする。
ついでにアホなことも考える。
これって、もしかして節約術じゃない？
何かを買いたくても、財布がないので買えない。→節約術
名づけて、「財布を家に置いてくる節約術」。
そして、これってダイエットじゃない？
おなかすいても財布がなくて買い食いできない。→ダイエット
名づけて、「財布を家に置いてくるダイエット」。
そうか、二日に一度ぐらい家に財布置いてくればいいんだ！
（相当荒療治ですが）
ただ、ちょっと社会人として恥ずかしい局面を味わうかもしれないケド。。。
（例１：家までタクシーに乗ったが支払できず、家の前でタクシーを待たせる。
例２：取引先に呑みに誘われても行けない。 等）
え～ん、晩ごはんが食べられないよう(TT)
仕方がないので買い置きのカロリーメイトを晩ごはんとする。
ついでにアホなことも考える。
これって、もしかして節約術じゃない？
何かを買いたくても、財布がないので買えない。→節約術
名づけて、「財布を家に置いてくる節約術」。
そして、これってダイエットじゃない？
おなかすいても財布がなくて買い食いできない。→ダイエット
名づけて、「財布を家に置いてくるダイエット」。
そうか、二日に一度ぐらい家に財布置いてくればいいんだ！
（相当荒療治ですが）
ただ、ちょっと社会人として恥ずかしい局面を味わうかもしれないケド。。。
（例１：家までタクシーに乗ったが支払できず、家の前でタクシーを待たせる。
例２：取引先に呑みに誘われても行けない。 等）
先日、久々にマネージャが食事に誘って下さったので、お供することにした。マネージャは美味しい店をたくさん知っているので、いつもワクワクしながらついて行く。
今回は、心斎橋のサービスも味も行き届いている和食のお店。
そこの店員さんに、
「今日は生で食べれるトウモロコシが入荷してますが、いかがですか？」
と勧められ、ちょっと興味があったので、いただくことに。
初めて見る、白いつやつやのトウモロコシ。かじると、ざくろのような食感と、甘いジュースが口の中で溢れる。これも初めての味。トウモロコシの味じゃなくて、立派なフルーツの味がした。
「ピュアホワイトっていう品種なんですよ」
と、店の人が教えてくれた。
生でトウモロコシを食べるのは、不思議な感じがしたけど、また食べたいなぁ。
今回は、心斎橋のサービスも味も行き届いている和食のお店。
そこの店員さんに、
「今日は生で食べれるトウモロコシが入荷してますが、いかがですか？」
と勧められ、ちょっと興味があったので、いただくことに。
初めて見る、白いつやつやのトウモロコシ。かじると、ざくろのような食感と、甘いジュースが口の中で溢れる。これも初めての味。トウモロコシの味じゃなくて、立派なフルーツの味がした。
「ピュアホワイトっていう品種なんですよ」
と、店の人が教えてくれた。
生でトウモロコシを食べるのは、不思議な感じがしたけど、また食べたいなぁ。
仕事場で○○さん(女性)と話していると、プログラマーの男性がすれちがい様に、
「○○さん、(プロジェクトに新しく参画した)100億の男って、誰だか分かったよ。」
と、言い残して行った。
今回、テスターを20名程増員したのだが、その中に100億の男がいるらしい。
100億の男？
セレブってこと？
と、彼女に聞くと、意外な答えが返ってきた。
正解は、
『100億円積まれても付き合いたくない男』
の略でした。
後日。その100億の男、私も見ただけで分かりました(^^;
「○○さん、(プロジェクトに新しく参画した)100億の男って、誰だか分かったよ。」
と、言い残して行った。
今回、テスターを20名程増員したのだが、その中に100億の男がいるらしい。
100億の男？
セレブってこと？
と、彼女に聞くと、意外な答えが返ってきた。
正解は、
『100億円積まれても付き合いたくない男』
の略でした。
後日。その100億の男、私も見ただけで分かりました(^^;
新婚の二年目君は、細い。しかし、激務のせいか、さらにやつれたような気がした。
「ねえ、痩せた？」
と聞くと、
「そ、そんなことないですよ」
と、わざとらしく胸をはって答えてくれた。
でも、あのうろたえぶりは何だろう？
周りの人の話を総合して、やつれたわけが分かった。
ヨメが料理下手らしい…(^^;
周りへは愚痴ってるみたいだけど、一生懸命ごはん作ってくれるんだし、幸せな悩みだよね(^-^)
「ねえ、痩せた？」
と聞くと、
「そ、そんなことないですよ」
と、わざとらしく胸をはって答えてくれた。
でも、あのうろたえぶりは何だろう？
周りの人の話を総合して、やつれたわけが分かった。
ヨメが料理下手らしい…(^^;
周りへは愚痴ってるみたいだけど、一生懸命ごはん作ってくれるんだし、幸せな悩みだよね(^-^)
仕事場で、ヨメに婚約指輪を買わなかった、という人がいる。
なんでですか？ と彼に聞くと、
「うちのヨメ、実用的なもののほうが良いらしくて、代わりにバイク買ってくれ、って言われた。」
とのこと。
エンゲージ・バイク？
そういうのもありなのか。なるほど。
なんでですか？ と彼に聞くと、
「うちのヨメ、実用的なもののほうが良いらしくて、代わりにバイク買ってくれ、って言われた。」
とのこと。
エンゲージ・バイク？
そういうのもありなのか。なるほど。