なんか押し合いへし合いになっていたようですが、犯罪国家の北朝鮮人なんか強制送還した方が良いのではないか？ なんか、一部で恫喝する朝鮮人と思われる人が写っていたが、これが科学者？ 薬事法違反だそうだが、COCOM規制違反容疑並びに拉致監禁容疑もあるようで、そちらの方の犯罪でも多くの北朝鮮人を捕まえ強制送還する方が日本のためになるだろう。 無論、何の罪もなく暮らしている北朝鮮人は別に日本にいてもらってもかまわないのだが、朝鮮総連と日本政府間で行われたらしい密約による既得権益が本当であるならば、そのあたり見直すべきだろう。 この事件が、本当の意味での日朝の国交にとって正常化になることを期待する。 しかし個人的には、国交が正常化が望めない場合には、国交断絶・在日北朝鮮人強制送還でもかまわないと思う。送還を希望しない場合、帰化という選択肢もあるのだから。 そのぐらい、危険の多い国だと考えている。

キター！予想どおりというか、予想より早かったというか... IT業界による放送業界の買収。似たもんだしね。方向も同じだしね。。。 今のネット業界ってコンテンツってテレビの二次放送じゃないですか、コンテンツ制作能力が有ればネット配信が一時放送でも何の問題もないわけですよ... ただ今だと、一般に普及している割合が低いからというのが問題ですが... 放送業界の人間によるとどうも自分たちが一番だと決め込んでいるようで... 今は放送業界がコンテンツ制作してますが、今後はコンテンツ制作と放送業界が分かれてくることは有るのでしょうか？ 予想どおりとか書いたのには理由があって、PC Watch で■笠原一輝のユビキタス情報局■ ライブドアショックは放送とITの融合を進める起爆剤となるか?で予想されていたんですね。 いつも PC Watch の記事はほとんど読んでいるくろねこなので、この記事を読みながら納得していた訳なんですよ。 1年は先かな～と思っていたんですが、村上とか出てきたんでもうちょっと早い？とか考えるより先に来ちゃった...みたいな感じですか？ 敵対買収とか世間では言われているようですが、メディアもね自分たちが買収されてるからって敵意をむき出しにしすぎですよ。 全然公正な立場で報道できてない。そんな気がしますね。だから家の嫁が「卑怯者ー！」って言うんですよ。 ちゃんとルールに従って、市場でどうぞ買って下さいと公開されているものを、買って何が卑怯なのか？ いやなら、上場するな！。敵対買収がいやなら、株主と仲良くしていろ。株主の意向に沿った経営をしていて、適当な配当が有るならそんなに手放すことは無いでしょ。ポイズン・ピルより有効ですよ。 しかし、海外のハイエナ企業に買収されて経営権強奪されるよりはかなりましだと思うのですが、何がそんなにいやだったのでしょうか？ 自分の会社が乗っ取られるのは何か身分が悪い。それは納得出来るんですが。社員にとってリストラも無いということは、職場改善される可能性も...あ三木谷や堀江もんならそれはないか... でも、会社に資本が増えると言うことは会社が活性化して良い仕事が出来る機会が増えると言うもんですよ。どうせ買収されなくても、いらない社員はリストラ対象ですし... 個人的には楽天ってあんまり好きじゃないですけどね。サイト見にくいし、探しにくいし、良いコンテンツもすくない。 最近システムのずさんさが発見できましたが、利用のしやすさではアマゾンの方が全然利用しやすいですね。 あ、話それちゃいましたが、日本企業が大きくなって世界に羽ばたいていって、世界で利益を稼いできて日本本社に利益を落として、税金たくさん納めてくれると暮らしやすくなるな。

今日も悪質懸賞サイトネクシーズより自宅に電話有ったらしい.. くろねこは仕事で外に出かけているので、当然家にはいない... 数年前、懸賞サイトで携帯番号書き込みしたら、スカパー!のセット当たったとかで、電話があった。 当たったは良いけど、視聴セットは上げるが契約して月々払ってね～というもの。 断っても結構しつこい。懸賞サイトに携帯番号書いたことは有るけど、ネクシーズなんかに応募した覚えが全くなかった。 今回も、最近面倒で決まったところにしか応募してなかったのにな～。 あ、携帯で応募したところが悪かったかな？最近思うのは懸賞サイトに広告出している懸賞サイトには信用できない懸賞サイトが入ってると言うこと。 おおむね今使ってるアイセブンドットコム、5050jp、BIGLOBE のビンゴ は大丈夫だと思って使っているのだが... ネクシーズは、ググると良い評判は全く書いてないので、電話がかかってきたらきっぱり断った方が無難です。

VBA で配列の中身を順番に処理する場合、LBound から UBound をまでを順に処理します。
しかし、要素が 0 個の空配列は LBound も UBound も同じく 0 なので、必ず一度処理されてしまいます。

空になる可能性のある配列を扱う場合には、配列の宣言後以下の処理を行っておくと便利です。

SafeArrayAllocDescriptor 1, [配列]

この関数を使用するには、以下の定義文を Decralation に記述しておく必要があります。

Private Declare Function SafeArrayAllocDescriptor Lib "oleaut32" 
   (ByVal cDims As Long, _
    ByRef ppsaOut() As Any) As Long

この関数 (Windows API) を使用すると、UBound の値が -1 になります。
ですから、

for i = LBound([配列]) to UBound([配列])

と書いても、空配列の場合には一度も処理されることはありません。
もちろん、要素がある場合には要素数の回数だけループします。

要素数を求める場合には、以下の式で求めることができます。

UBound([配列]) - LBound([配列]) + 1