おしゃれにいけてる?

散歩やお買い物のことなどを書いています・・・

Archive [2008年05月28日 ] 記事一覧

いいお湯だったわねぇ
 今、お父さん犬と並んで、超、お気に入りの、天海祐希の「ダカラ」の CM 。

お母さんに、

   「いいお湯だったわねぇ・・・」

と、優しい天海祐希。
イヤ、世話になってないから
お母さんが、余分三兄弟を見つけ、

   「いつも娘がお世話に・・・」

と言いかけると、

   「イヤ、世話になってないから!」

と、キッパリ言い切る天海祐希。

   「余分三兄弟になりてぇ・・・」

たまりません。
 コラル地下で弁当を持ってレジに並んでたら、前のお父さんが唐揚げの袋を持ってた。ビミョウにちょこまか動いてて、

   「すんごく嬉しそう。」

駄菓子をゲットしようとしてるガキみたい。

たぶん、晩酌のおつまみなんだと思う。順番を待ってて、レジ前のザーサイのパックも手に取ったりして、

   「なんだか、可愛く見えてしまった。」

お母さんも、娘さんも、お父さんを大事にしてあげようね。そんな感じ。
 デジカメ Watch に 【実写速報】ソニー「サイバーショットDSC-W300」 の記事が。

このレンズ、けっこう歪曲収差がある。あと、等倍にすると、エッジの部分に、インクをチラした様な色の飛び散りが見える。ピンクの花飾りの周りとか。

パナソニックのに有った奴。ん?これ、もしかして、

   「 JPEG ノイズだったりするのか?」

その辺の知識がないので、よく分からない。

このカメラ、デジスコの野鳥研究室でも、高評価。でも、おしゃいけ的には、

   「 Z1200 から買い換えるほどの魅力は感じないかも。」

そんな感じ。
 EXCEL の仕事も、一段落したので、忘れてもすぐ思い出せるように、ブログにメモ。(自分用なので、他の人にはわかりにくいかも。)

エクセルの VBA って、ほんと、ちょっと間を開けると、すぐに忘れてしまう。これ、不思議。で、一番忘れてしまうのが、

   「 Range オブジェクトの扱い。」

 エクセルの値のある最終セルを見つけて、データの入力されている範囲の Range オブジェクトを取得する方法。(最大セル?最終行?最後のセル?)

Dim WS As Worksheet
Dim LastCell As Range

Set WS = Thisworkbook.Worksheets("Sheet1")
Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)

SpecialCells() は引数に常数を入れると、いろいろな条件でセルをグループ選択できる。 xlCellTypeLastCell を入れると、使われたセル範囲内の最後のセルの Range オブジェクトを返してくれる。

ただし、

102030
112131
122232

この表の[12]と[30]のセルにだけ値が入っていても、LastCell には、[32]のセルの Range オブジェクトが代入されるので注意が必要。

で、LastCell の行列番号を知りたいなら、

   列番号 = LastCell.Column
   行番号 = LastCell.Row

で取得できる。

 データが入力されている範囲の Range オブジェクト DataArea を取得したいのなら、例えば、左上のセルに「TopLeftCell」とかの範囲名を付けて、

   Dim TopCell As Range
   Dim DataArea As Range

   Set TopCell = WS.Range("TopLeftCell")
   Set DataArea = WS.Range(TopCell, LastCell)

の様に、データのある範囲のレンジを取得してもいい。

この DataArea の n行目と m列目までが見出しの場合、データの入っている範囲の Range オブジェクトを取得したいなら、

  With DataArea
   Set DataArea = .Range(Cells(n,m), LastCell)
  End With

って感じ。

DataArea の n 行目の Range オブジェクトを取得したいなら、

  DataArea.Rows(n)

n 列目のオブジェクトを取得したいなら、

  DataArea.Columns(n)

メモメモ。

左サイドメニュー

プロフィール

Author:ジョニー

ゆるゆると日々を過ごしてしまう、ダメダメ野郎の航海日記。



クリック (・。・)yoro

このブログ内を検索

最近の記事

カテゴリー

最近のコメント

QRコード

QRコード

月別アーカイブ

右サイドメニュー

カレンダー

04 | 2008/05 | 06
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31

スポンサードリンク

FC2カウンター

#1403 #1402 #1401 #1400