可愛くてもゆとり

社員で一番若い子。可愛いんだこれが。 まだ10代ということもあり、まだまだな所は多いが、これからだろうと思っていたんだ。 しかしなかなか成長しない。 その意気込みも無い。 結構無責任。不思議な自信は有り。 やればできる子かもしれないが、それ以前の問題が多すぎる。 これがゆとり教育の結果なのか？

気になる気になる

http://www.widestudio.org/ja/index.html
マルチプラットフォームでの開発環境とのこと。
調べる価値ありかも。

iPhoneでExcelが使えた！

これ便利。iPhoneでエクセルが使えるようになりました。 なんていうか、仕事の幅が広がりんぐ。 ネットワークの資料入れてみたり、簡単な家計簿付けてみてちょっと鬱になってみたり輦 操作性も高いので、これはオススメっす。 アプリはここから

チラシの裏

カウントダウン

夢は何ですか？そう聞かれる事が一番つらい。

夢…。彼女がほしい。
お台場とかでデートして、ちょっと遠出のドライブしたり、2泊3日でスノボしにいったり。
でもきっとかなわないんだ。ほかの人にとっては当たり前のことでも、僕には一生かなわないことなんだ。
一生・・・。
あいまいにだけど、まあ少なくとも孫まで見て死ぬんだろう。
そんな風に思っていた。

…思っていた。

余命1年以内。
よく聞く台詞だがまさか自分が言われることに成るとは思わなかった。

医師からの宣告にそうですか。とだけ答えた。

クールに答えたわけじゃない。それしかいえなかった。
当たり前のように明日はあって、その次の日も次の日も次の日も・・・。
当然のようにやってくるもんだと確信していた。それこそ何の疑いもなく。
ただ、突然に奪われた未来を、嘆くことも悲しむことも、むしろ受け入れることすらできていない状態。
ただそれだけ。

納得したわけじゃないが、医者の言うことだ、うそではないだろう。
明日が、最後の日かもしれない。
ただそれだけは理解ができた。

Access で ファイルを選ぶダイアログボックスを開く方法

ネットで見つけたものですが
http://billyboy.blog81.fc2.com/blog-entry-53.html
上記にあるものが完璧かつ使いやすいかと。

個人用メモということで。
以下コピペ。詳しくは上記のサイトを詳しく見るとよい。

モジュールとして下記を保存 Function GetFileName(OpenOrSaveFlg As Boolean) As String Dim returnValue As Integer Dim strFilePath As String WizHook.Key = 51488399 'WIZHOOKを有効化する returnValue = WizHook.GetFileName( _ 0, "", "", "", strFilePath, "", _ "テキストファイル (*.txt,*.csv,*.tab)|*.txt|*.csv|*.tab", _ 0, 0, 0, OpenOrSaveFlg _ ) WizHook.Key = 0 ' WizHook 無効化 GetFileName = strFilePath End Function


ボタンなどに下記を記入して保存 Sub test1() Dim strFileName As String strFileName = GetFileName(True) 'この引数をFalseにすると保存ダイアログ If Len(strFileName) = 0 Then 'キャンセルボタンが押されたときの処理を記述 MsgBox "キャンセルが押されました。" Else 'ファイルが指定されたとこの処理を記述 MsgBox strFileName End If End Sub

とりあえずはこれだけで実現可能。
ボタンに貼り付けるソースのif文にて保存のやエクスポートのコードを記入すればよい。

これべんり！
上記アドレスの管理人の方ありがとうございます。仕事がはかどります。