三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。

よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

Split("〜","区切り文字") (1)とか使えるんだぁ、かなり感動

http://q.hatena.ne.jp/1250151269
の質問に、またまた、危なく変な回答付けそうになった。
じゃなくって、すごくイイ回答を見てしまい、またまた感動した。

まずは、危なくしくじりそうになった私の話から。(つかみは、いつもの自分落としから(ぉぃぉぃ))

>5 を E に変換したいのです
? Asc("A")
65
? Chr(65+1)
B
? Chr(64+5)
E

だから、
? Chr(64+Cells(4, 5).Column)
E
で、と思ったら、ExcelにはZ列以上のAA列とかあるんですね。
? Chr(64+Cells(4, 61).Column)
}
あらら、ダメだ。


で、かなりスマートな方法、
http://q.hatena.ne.jp/1250151269
の回答1

? Split(Cells(4, 61).Address, "$")(1)
BI
これが、正解です。

SALINGER さんの回答
Split(Cells(4, 5).Address, "$")(1)
って、なんかスゴイ、
分割のSplit関数は、使ったことあるけど、そこに(1)とかできるなんて、なんか別な場所でも使えそうな感じ。

? Split(Cells(4, 5).Address, "$")(1)
E

? Cells(4, 5).Address
$E$4
? Split(Cells(4, 5).Address, "$")(1)
E
? Split(Cells(4, 5).Address, "$")(2)
4

? Split("テスト,TSET,test", ",")(2)
test
? Split("テスト,TSET,test", ",")(1)
TSET
? Split("テスト,TSET,test", ",")(0)
テスト

※いつも XXX = Split("〜","区切り文字") と変数に一度入れてたけど、後ろに(1)とかできるなんて不思議な感じだけど、なれると使い易いかも。

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。

  1. [VBA・マクロ プログラミング]の解説
    当店の人気はVBA系のCreateObject("XXXXXX.application")で他のアプリケーションを操作するサンプルが人気です
  2. [プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
    三流君を踏み台にする
  3. [古いクラシック ASP(Active Server Pages)]の解説。
  4. [元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)