EXCEL2010_VBAで cas番号を扱う

質問

化合物を特定するCAS番号というものがあり、これを利用したVBAマクロをEXCEL2003で
使用してたのですが、このたび2010にVerUPしたところ、エラーが頻発(>_<)
あらかた直したのですが、どうしてもCAS番号が日付に認識され、そのまま取ることができません。

　CAS番号は、「66-71-7」や「68441-17-8」のように
　　2～5桁の数字－２桁の数字－１桁の数字　で表されるものです。

最初が５桁の場合は、問題ないのですが、２or４桁だと日付と認識してしまいます。
下のような　CAS番号「66-71-7」が文字列として入力されているセルから 文字型のCasNに入れる場合
Dim CasN As String
Cells(４, 6).Activate
　　CasN = ActiveCell.Offset(0, code - 2).Text

2003までは、素直に「66-71-7」が入ったのですが、
2010では、「50017」　とMJD？の日数に返還されてしまいます。
66-71-7がどうして日付なのかとも思いますが、最初が2桁だと　無理やり日付になるようです。

なんとかCAS番号を文字列として、取り扱う方法がないか　お知恵をお貸しください。
宜しくお願いいたします。

回答No.2

MackyNo1 · ベストアンサー

>実は、これはやっていたのですが、記載忘れていました。
２０１０では、セルの書式で文字列指定しても　「xx-xx-xx」を
いれると、「！」でて、日付が文字列になっているぞという警告が出ます。

こちらでもExcel2010で確認してみましたが、「66-71-7」と入力すれば通常の文字列としてエラーオプションは表示されません（もちろん、１－２－３のように日付として認識される文字列データを入れた場合は表示されますが）。

また、確認ですが、最初に文字列設定してから（数値になったデータを後から表示形式を変えても、データは変更されません）マクロを走らせているのですよね。

いずれにしろ、こちらでは、「66-71-7」がシリアル値として認識されるような現象は発生していませんので（シリアル値から判断してもどのような日付変換が行われているのかも不明）、F8キーで1行ずつコードを走らせ、CasN にどのような値が入っているか確認するなどして、なにか思い違いがないか調べてみてください。

お礼

ご回答ありがとうございます。

当該マクロを含むブックは、EXCEL2003で作成したものをEXCEL2010で読み込みダイアログにしたがい、2010のブックに返還されたものです。

そこで、はたと思い、まっさらなブックを作成し、シートにデータ(数値として)とマクロを複製し、走らせてみました。
すると、期待通りに「.Text」プロパティで「66-71-7」、試しに「.Value2」プロパティ(無理やりシリアル値になるかと)でも「66-71-7」（セルの指定を文字列にしてるので当たり前ですが）が得られました。

結論としては、2010に変換した際に何らかの不具合が生じたのか　値が表示と内部で違っている　ということと思われます。（値を消して、入れなおしても変わらないので　セルの内部でおかしいのかもしれません。）

というわけで、まっさらなシートで　一から入れなおし．．．((+_+))　しかないようです。

補足

入れ直しかと　おもったら　シートを新しいシートにコピーしなおして、マクロを走らせたら、治りました。(-_-;)　この2日間悩みまくったのは．．．

というわけで、MackyNo1のアドバイスのおかげで　好転しました。　ありがとうございます。

回答No.3

WindFaller

こんにちは。

せっかく回答が出ているのに、水をさすようで恐縮なのですが、書式の仕様は、2010でも、2003でも変わらなかったはずです。

>まっさらなシートで　一から入れなおし．．．((+_+))　しかないようです。

Dim CasN As String
　　CasN = Cells(4, 6).Offset(0, code - 2).Text
　　Cells(4, 6).Value = "'" & CasN

のように、書式はそのまま（デフォルトで可）で、プレフィックス文字(')をつけるのが一般的です。
ただ、見栄えが悪いので嫌う人はいますが、そういうこだわりに対する、マイナス面を受け入れるかどうかにも関わりますが、Microsoft は、書式--文字列には不具合があるにも関わらず、Lotus123の仕様をいつまでも継子にしているようです。

プレフィックス文字(')は、見えるけれども、入力した数字が、文字列になるだけで、検索等には掛かりません。また、書式を文字列にすると、書式文字列を参照したセルが同じく不活性化してしまいますので、できるならしないほうがよいです。

お礼

ご指摘ありがとうございます。

プレフィックスをつけるのは、考えたのですが、
1500件もあったので　躊躇してたのです。（マクロで処理するにも原因が不明だったのもあります）
あのとき、
　　CasN = Cells(4, 6).Offset(0, code - 2).Text
の段階で、　CasNに　すでにCAS番号としてはいっていなかったのです。

たぶん、ファイル自体が壊れていたのかも？
（下に書いた通り、コピペして　新しくシート作ったら治りました）

今後は、プレフィクスをいれて、明示的に区別したほうがいいですね。
ありがとうございました。

回答No.1

MackyNo1

そのままのコードで対応するなら、CAS番号を代入するセルの書式を、初めから（あるいはVBAで）文字列に設定しておけばよいと思います。

お礼

ご回答ありがとうございます。

実は、これはやっていたのですが、記載忘れていました。
２０１０では、セルの書式で文字列指定しても　「xx-xx-xx」を
いれると、「！」でて、日付が文字列になっているぞという警告が出ます。
一応、右クリックのメニューで無視するに設定すると、警告はきえるのですが
VBAで操作すると　上記のように日付に．．．．
「.Text」にすれば、入力されたままでとれるはずなのに　ある意味バグ？
と思っております。

補足

下にも書きましたが、セルは書式設定で　文字列に設定してありますが、
やはり日付と判断します。