Excelの列とVBA配列の相互変換

Posted on 5月 27, 2007

Micro$oft世代な僕らは、当然Excelでプログラムを書く機会が多かったりする。そんな時、
Excelワークシートの列を、まるごと配列としてVBAで処理したい
あるいは逆に、
VBAの配列を、丸ごとワークシートの列に出力したい
と思う事が少なくない。
そこで、VBAで相互変換する関数を作ってみた。列をdouble型の配列に格納する関数と、配列を列として返す関数。

Function Col2Arr(Col As Range) As Double()
　
Dim ret() As Double
Dim r As Long
Dim i As Long
　
r = Col.Rows.Count - 1
ReDim ret(r) As Double
　
For i = 0 To r
ret(i) = Col.Cells(i + 1, 1)
Next
　
Col2Arr = ret()
End Function
　
Function Arr2Col(Arr() As Double) As Variant
　
Dim ret() As Double
Dim i As Long
ReDim ret(UBound(Arr()), 0) As Double
　
For i = 0 To UBound(Arr())
ret(i, 0) = Arr(i)
Next
　
Arr2Col = ret
End Function

使うときはこんな感じ。

Function mul2(data As Range) As Variant
　
Dim ret() As Double
Dim i As Long
　
'ワークシート列を配列に変換
ret() = Col2Arr(data)
　
'全要素を２倍
For i = 0 To UBound(ret())
ret(i) = ret(i) * 2
Next
　
'配列をワークシート列に変換して返す
mul2 = Arr2Col(ret())
End Function

ワークシートでA1からA10に適当に数字を書いて、B1:B10範囲を選択して
=mul2(A1:A10)
と書いてCtrl+Shift+Enterを押すと、2倍になった列が作れる。ワークシート関数で間に合わない処理をするときや、セル1つずつで計算するとめっちゃ重くなるときに便利、だと思う。
↑のときはExcel使うなよ！とは言えない状況は多々ある。。

清澄庭園

Posted on 5月 18, 2007

江東区に清澄庭園で散歩しました。

岩が孤島みたいになってて、そこで亀が亀頭を突き上げて天空を見上げています。至る所でヤッてました。ものすごいタクマシイ。

コバルト爆弾αΩオフィシャルショップその１　木島呉服店

Posted on 5月 15, 2007

コバルト爆弾αΩのライブにお越し頂いた皆さんであれば一度は見たことある、あの黄色い学帽。ファンの方から、「どこに売ってるんですか？」「購入することはできますか？」と良くお問い合わせを受けます。そこで今回イェルサレムこと聖地愛知県豊橋市にあるコバルト爆弾αΩ的にオフィシャルなグッズを取り扱っているショップを紹介します。

これであなたもギリシャ文字！

ショップ「木島呉服店」

概観は、昭和の佇まいを残した風情のあるお店。ガラス越しのディスプレイは今は無きSHOP33を彷彿とさせます。コバルト爆弾αΩイメージカラーの黄色学帽の他にも各種ノベルティグッズを店長の気分しだいで購入することが可能です。3月4月の入学卒業シーズンに来ると品数、在庫も豊富です。少し入りづらい雰囲気を持っていますが、店長は初見の方にも優しく様々な商品を説明してくれますヨ！

 

現在のコバルト爆弾αΩ的にオフィシャルな取り扱い商品は、

・学帽[男・女][M L LL][ 約800円] 女の子用は若干値が張ります。

・ヘルメット[M L LL][ ****円]

・校章シール[数十円]

となっております。

ネット通販等行っておりませんが 、遠隔地から購入希望の方は電話をしてみてください。ですがイェルサレムの中心地に程近いオフィシャルショップで直接購入する方が聖地巡礼も出来るのでオススメですよ！

地図 : Google Map

Radio走馬灯Vol.1　ジャケット

Posted on 5月 14, 2007

タイトル通り走馬灯をモチーフに作りました。

走馬灯とは本来お盆に飾る回り灯籠のことを言うらしいのですが、ここではもちろん死の直前に見るというフラッシュバック現象のほうを指しています。

画像が思い出、空白が薄れる意識。渦状に連続することで個人の力ではどうにもならない強制的な進行を表しています。

一番手前の画像が桜なのは季節がら、ではなくて、人間爆弾→人間ロケット「桜花」という連想からです。靖国神社の境内にある博物館「遊就館」に桜花のレプリカが展示されていますので、興味のある方は行ってみてください。

はじめまして

Posted on 5月 14, 2007

「コバルト爆弾αΩ」のΩこと、Ωです。ＣＤジャケットやチラシ、またサイトの原案といったデザインを主に担当しています。
blogではコバルト爆弾の視覚に関する制作物の話と、時々は関係のない趣味の話をしていきたいと思います。

どうぞよろしく。

WONDER WORKER

Posted on 5月 13, 2007

自分が生きてきて、スッゴイ上手くいったこと何て何にも無い（と思ってる）。

音楽が好きだけど、そこまでレコードに詳しく無いし、レコードでDJなんて出来ないし、作曲だって初心者の域を脱していない。恋愛も満足した経験なんて思い出せない。勉強だってどこか妥協続きのくせに、大学院なんて所に来てしまった。何にも出来ないんだけど、なんかしたい！ホントダメ、何にも出来ない。

（僕にとって）コバルト爆弾αΩは、僕の曲がった青春が無限に続くためにあります。

無限モラトリアムを体現する西千葉Tシャツ。

今は無い小学校のユートピアを求めて被るは、豊橋市向山小学校の学帽。

ところで題名のWonder Workerですが、これはShakkaZombieの名盤Journey Of Foresightに収録された曲。ShakkaZombie自らがメジャーの土台でやってきた自らを自画自賛。見せ付けてくれる名曲です。

2000年前後はDoragonAshを筆頭にメジャー進出を開始したジャパニーズラップが流行していました。僕自身も音楽なんて全く関係の無い人間だったのに、Viva La Revolutionから一気にハマリ込んでいました。TSUTAYAのヒップホップコーナーで発見したJourney Of Foresight。このアルバムのジャケットは西遊記をモチーフにしたもので、他のギャング系ラップの「オレがオレが！！」みたいジャケとは違って、主張しない感じが印象に残り借りたのを覚えています。内容も周りのラップと一線を引くような繊細なラップ＆トラックで一気に気に入りました。僕は現在 TechnoやHouseを中心に音楽を聴いていますが、打ち込みとサンプリングを利用したトラック作りに壮大なロマンを感じたのは ShakkaZombieだったりします。

彼らの最近の活動をネットで調べてみたのですが2003年頃を期にShakkaZombieとしての活動は止まってしまっているようで残念！

COPYRIGHT c 2007 Webコバルト爆弾αΩ • Powered by Wordpress and 555 Theme by eMarc • Original Source By Brian Gardner.