へなちょこがゆく-JUGEMU連動-

この不況の真っ只中。
製造業はかなりのあおりをくらっているようですね。
うちの会社も人員整理でとうとう100人を軽くこえての人員削減。
派遣社員はもちろん、準社員や特別社員まで。
まだ正社員には手が伸びてませんが、
売り上げが激減、人が余っている状態。
こんな厳しい中でも、一部の派遣社員さんは残っています。
外国籍の方も含めてです。
確かに派遣の方が切りやすいですが、
有能な方であれば一概には言えないのかもと思ったり。
しかしながら、明日はわが身。

暗い。。。。

そんななか、突如出てきた休業情報。
仕事がないから休業。
でも給料は保証しますって。
助成金の申請が通ったみたい。
会社としては、大変な状況ですが
私個人としては、スノボシーズンに５連休。
もちろん世間様は平日なので、ゲレンデはガラガラのはず。
どうなるかわからない時代だしね
楽しめるうちに楽しもうと、さっそく平日スノボ予定たてました。
DEELUXEの焼き直し、まだ出来てないんですけど^^;

とりあえず今日は帰ってワックスかけようっと♪

スノーボードシーズン到来！
よく行くゲレンデも、100cmを超えて先週も
新雪でふかふか〜〜〜〜〜。
今週も行く予定なんだけど、問題が一つ。

DEELUXEのサーモインナーのブーツを履いているのだけれど
かかとが浮いて踏み込めず、一本滑るとかなり足が痛い。
いやはや、何シーズンか前からなんだけどね。
先週がもう最悪で、こりゃぁいかんなぁ〜と。

かかとが浮くおかげで、こけても中で足が動く余裕があるので
軽く捻挫っぽくなるだけなんだけどさ・・・。

購入当時４万以上したから、なかなか買い換えられず
でも、考えてみればもう何年も使ってる！？
先週、初滑りに行く前に、ブーツ買い替えを検討した結果
とりあえず様子見でやめて、そのお金で車のキャリアー購入。
どうせ買い換えるつもりなら、ダメもとで自分で焼き直そうかと
色々情報収集。

やるだけやってみようかな？
最新boaのブーツも欲しいけれど、インナーさえフィットすれば
まだまだ使えるし、もったいないもんね。
今週末までに、時間作ってやってみよう！！！

ちなみに、ウェアーの撥水性は、みごと復活。
まだまだ使えますよ〜。

いつもはクリーニングに出すんですけど
これがなかなかお高いし・・・。
そろそろヘタッてきたので、先シーズンの最後なんて
ウェアもその下の服までべちゃべちゃだったもんなぁ。
なので、どうせヘタッてるしダメもと？でやってみようかな。

専用の洗剤もあるんだけど、今回は使わずに
撥水剤だけ使おうと思います。
→撥水剤：NIKWAX(ニクワックス) TX ダイレクトWASH-IN EBE251

さてさて、今年は何回いけるかな？
雪が多いといわれつづけて、もう12月も中旬。
先シーズンよく行っていたゲレンデは、
積雪は絶望的。
遠出しないとダメか〜〜〜〜。

宝くじ当たったら、北海道スノボ三昧だよ！

重複するデータが入り乱れる列に
はたして何種類のデータがあるのか求める関数

| A列
-------------------
01| AA
-------------------
02| BB
-------------------
03| D
-------------------
04| A
-------------------
05| AA　
-------------------
06| C
-------------------
07| CC
-------------------
08| DD



例１）
=SUMPRODUCT(1/COUNTIF(A1:A8,A1:A8))
例２）
{=SUM(IF(A1:A8<>"",1/COUNTIF(A1:A8,A1:A8)))}
例３）
{=SUMPRODUCT(IF(A1:A8<>"",1/COUNTIF(A1:A8,A1:A8),0))}

※{}は、確定時に「Ctrl + Shift + Enter」とすると入る

◆自分の為の覚書

RectangleFをDrawStringで表示・印字するときに
折り返されると文字の上下が切れてしまう場合

StringFormatを宣言後、StringFormatFlagsを「NoClip」にする。

参照先のでは

Dim strfmt As New StringFormat()

strfmt.FormatFlags = strfmt.FormatFlags Or StringFormatFlags.NoClip
このフラグは、DrawStringメソッドに対して、表示するための矩形領域の外部にあるテキストの一部を切り取らないように指示します。このため、2行のテキスト行は、その一部が欠けることなくすべて表示されます（ただし、StringTrimming.Noneが有効なときは除きます）。

参考：MicroSoft .NET Framework Developer Center
→http://www.microsoft.com/japan/msdn/net/books/progwinvbnet/chapter17.aspx

いや、朝から愚痴なんですけどね

企業サイトの更新をしたんですよ。

事実どおりに。。。。

印刷物の会社案内どおりにしろってメールがきたよ。

印刷物には、今は閉鎖になった事業所が記載されててさ

電話番号とか住所とかＦＡＸとか

万が一、サイトみて連絡とかあったら？？とか思ってさ

消したんだけど・・・・・ダメなんだって。

ＷＥＢにも記載しとけってさ。

うん、そだね、勝手に消した自分が悪いんだ。

直したよ、直したけど、愚痴りたかっただけ。

実は「工事進行基準」ってさっきまで知らなかった。
ソフトウェアの開発をしていても
社内SEとかの部類になるので、会計基準は関係ないからね。
会社にとっても、単なる事務員（システム担当）だし。
おかしいなぁ・・まぁシステム部がないのだから
仕方がないのだけれどね。

2009年4月にスタート（2009年3月決算企業から適用）
ITProの記事（→工事進行基準適用まで，後190日）を読んでて知ったんだけど
あまりにも対象となる企業が知らないということ。
「工事進行基準」って言葉で色々ググッてみると
デスマーチはなくなる？とか業界では飛びつきたいタイトルも
とびかっていたのだけれど、それほど浸透しなかったのかなぁとか。

多分、業種としてその業界にはいかないと思うけれど
知識としては知っておこうかな。
一応、会計基準の話題だしな。

[不具合]
・OutlookExpressで添付のPPTファイルが開けない
・添付を任意の場所に保存してからなら開ける
・ファイルの関連付けは出来ている

[問題のPC]
・WindowsXP SP2
・PowerPointViewer2003がインストール済み
・メールはOutlookExpressを使用

[対処方法]
１）一旦任意の場所に保存してから開く
２）レジストリキーを追加する


マイクロソフトのサポートページで調べると、そのものズバリがありました。
PowerPoint 2003 Viewerのインストール時にレジストリに追加されないっていうバグです。
わかっているなら修正版をUpして頂きたいのだけれど、
Vistaは2003サポート外だっけ？なので、これは期待できないね。


→http://support.microsoft.com/kb/894894/ja

■Outlook Express の電子メール メッセージでプレゼンテーションを開くと、 PowerPoint Viewer 2003 にプレゼンテーションを開けません。

PowerPoint 2003 Viewer のレジストリ必要なキーを追加するために、以下の手順を実行します。1. ファイル名を指定して実行をクリックする、種類 開始をクリックします regedit にボックスを開いて、 OK を次にクリックします。
2. 次のレジストリ キーを見つけてクリックします。
HKEY_CLASSES_ROOT\PowerPointViewer.Show.11\shell
3. 手順 2 で指定されるキーに ファイルを開くコマンドを追加するために、以下の手順を実行します。 a. 編集メニューで 新規作成をポイントし、 キーを次にクリックします。
b. データ OpenEnter キーが次に押す、。
c. Open 選択されたキーで 編集メニューの 新規作成をポイントし、 キーを次にクリックします。
d. データ commandEnter キーが次に押す、。
e. コマンド選択されたキーで (標準)を右クリックし、 変更を次にクリックします。
f. 値のデータ ボックスで次のように入力し、 OK を次にクリックします。
C:\Program Files\Microsoft Office\PowerPoint Viewer\pptview.exe "%1"
注意: Pptview.exe ファイルのパスがコンピュータに異なる場合、正しいパスを入力します。

4. 次のレジストリ キーを見つけてクリックします。
HKEY_CLASSES_ROOT\PowerPointViewer.SlideShow.11\shell
5. 手順 4 で指定されるキーに ファイルを開くコマンドを追加するために、以下の手順を実行します。 a. 編集メニューで 新規作成をポイントし、 キーを次にクリックします。
b. データ OpenEnter キーが次に押す、。
c. Open 選択されたキーで 編集メニューの 新規作成をポイントし、 キーを次にクリックします。
d. データ commandEnter キーが次に押す、。
e. コマンド選択されたキーで (標準)を右クリックし、 変更を次にクリックします。
f. 値のデータ ボックスで次のように入力し、 OK を次にクリックします。
C:\Program Files\Microsoft Office\PowerPoint Viewer\pptview.exe "%1"
注意: Pptview.exe ファイルのパスがコンピュータに異なる場合、正しいパスを入力します。

6. 次のレジストリ キーを見つけてクリックします。
HKEY_CLASSES_ROOT\PowerPointViewer.Template.11\shell
7. 手順 6 で指定されるキーに ファイルを開くコマンドを追加するために、以下の手順を実行します。 a. 編集メニューで 新規作成をポイントし、 キーを次にクリックします。
b. データ OpenEnter キーが次に押す、。
c. Open 選択されたキーで 編集メニューの 新規作成をポイントし、 キーを次にクリックします。
d. データ commandEnter キーが次に押す、。
e. コマンド選択されたキーで (標準)を右クリックし、 変更を次にクリックします。
f. 値のデータ ボックスで次のように入力し、 OK を次にクリックします。
C:\Program Files\Microsoft Office\PowerPoint Viewer\pptview.exe "%1"
注意: Pptview.exe ファイルのパスがコンピュータに異なる場合、正しいパスを入力します。

8. ファイル メニューで、レジストリ エディタを終了するために、 終了をクリックします。
9. Outlook Express を起動し、電子メール メッセージから添付プレゼンテーションを次に開きます。

久々の書き込みは覚書。

＜備忘録＞
VisualBasic2005でClickOnceのアプリケーション作成。
これまで何度も更新・削除できていたのに、起動はもちろん更新も
プログラムの削除もできない・・・。

そのときのログには
■ライセンス認証により例外が発生しました。
■参照されたアセンブリはシステムにインストールされていません。
■HRESULT からの例外: 0x800736B3

発行場所の変更はしていないし、これまでこんなメッセージ出たことない。
何より、クライアントによっては正常に更新・起動できる。

[対処方法]
問題のクライアントの下記のファイルを削除して、再インストール

C:\Documents and Settings\【ユーザ名】\Local Settings\Apps\2.0



でも、何がダメだったんだろう。
この更新時に変更したのは、
・社内のサーバーの時間を取得する
→NetRemoteTOD（Netapi32)
・プログラムの更新を内部で実行する
→ApplicationDeploymentのCheckForUpdateでTrueの場合Updateを実行

色々差し迫ってきましたッス。
敵前逃亡が、国家反逆罪だとしても逃げたいっす。
そんなん、敵見た瞬間に、手を上げて無抵抗
もしくは、一目散にバックダッシュで逃亡じゃね？

ま、そんな感じの毎日です。
で、お酒のお話。

好きです、呑んべぇです、強いかもです。

ジンベースも好きですが、一番好きなのはシャンパン。
えぇ、もちろん、スパークリングワインでもいいですが
ちゃんとフランスはシャンパーニュ地方で作られた例のアレですよ。


ついさっき、衝動買いでポチっとな、してしまったのだよ。

モエ・エ・ヘネシー社のシャンパン！！

あ、モエ・エ・ヘネシーとはいっても、ドンペリでは無いっす。
そんなセレブなのは衝動では買えないっすｗ

「モエ・エ・シャンドン」のシャンパンには
めずらしい甘口のほのかに桃の香りのアレですよ！！！


「モエ・エ・シャンドン・ネクター・アンペリアル」


正規品は、輸入量が少ないと聞きますが・・・
さて、楽天のこのお店、並行品じゃないよね？
750mlで約5000円。
届くまでどきどきですわ。
だって、氷を入れて飲む「ネクター・オン・アイス」。
やってみたいんだもの。

もう一個は、「ヴーヴクリコ」のホワイトラベル
黄色じゃなくホワイトね♪
ウェディングケーキに最も合うシャンパンらしいです。
これは知らなかったんだけどねｗ
ちょっち甘いシャンパン飲みたくなってさ。

２本で１万円越え。
私にしては、かなり奮発です。
いつもは、750mlで2000円位で抑えてるからさ。
それ以上はドキドキですよ＜へたれ？？

カートに入れてポチっとなしたあと、
我に返って、もう一回店舗のサイトみたら「売り切れ」
・・・ちゃんと届くのかな。
希望は10/27夜間配達指定。

さ、お仕事しよっと。