エクセルの活用に関して。[化学分野での使用]

質問

エクセルを使っていて、こんなことできないかな？とおもったことです。

エクセルで、IMEの辞書を自作しており、エクセルで作ったあとで、必要な領域をコピーしてテキストにはると、タブ切りなので、そのまま使えます。
それをマクロでできないものでしょうか？

（例）
　　　A　　　 B　　　　　C　　　　 D
1　物質名　べんぜん　　benzene　　名詞
2　物質名　とるえん　　toluene　　名詞
3　条件　　しつおん　　r.t.　　　 名詞
4　操作　　じょうはつ　evaporate　名詞

というように、A系列には、自分ながらの分別、B系列、C系列、D系列には、辞書用に。
と書いて、その後、B,C,D列をコピーして（A系列を除外したい）テキストに出力ってできませんか？

また、他に、水って、Ｈ2Ｏ（2は下付き文字）なので、H2Oという文字列を探し出して、その文字列の中の2を下付きにするということを、マクロでできませんか？

量をかいていると、いちいちやっていると時間がかかる以外に、下付きにし忘れたなどが、でてきてしまって、困っています…
また、実際は水以外にもあるので…

以上二つなのですが、分かりにくいかもしれませんので、ガンガン補足いたしますので、どうぞよろしくお願いします。

回答No.5

nishi6 · ベストアンサー

○テキストに出力ってできませんか？
　　シートをコピーし、コピーしたシートのＡ列を削除してテキスト出力　で可能でしょう。

○また、他に、水って、Ｈ2Ｏ（2は下付き文字）なので、H2Oという・・・
　　QNo.133017『化学式を簡単に入力する方法』
　　　　http://okweb.jp/kotaeru.php3?q=133017

かなり前ですがマクロを書いています。

参考URL：

http://okweb.jp/kotaeru.php3?q=133017

お礼

テキスト出力ですが、N,N-dimethyl formamideなど、長い化合物名ですと、ハイフンが入っていて、その文字の場合、””がテキストにすると”N,N-dimethyl formamide”のようになってしまうんです…
皆様が仰られていた方法を手でやってみたら、こんな問題が…

下付き文字のことですが、試したすごいですね♪
このマクロは、ワードでもできますか？
卒論で使いたいなぁ…とおもったので…

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

回答No.6

imogasi

＃４です。
＞上付き文字の場合⇒^1とか^n、^(-1)、^(-15)
というような、TeX風に書いて、^の次の数字軍もしくは、()を上付きにする。
下付き文字の場合⇒_1、_n、_(-1)、_(-n)
とあったら、下付き文字にする。
私が言いたかったのは、IME辞書に入れて、候補を出したとき、表示を下付きにする方法が判らならないでしょうと言うものでした。
エクセルシートの世界の中だけのためなら、＃５のご回答のプログラムを使うか、H＄２のように、下付き数字の前に特殊記号を入れることにすれば、下付きに変えるプログラムが簡単になります。数字だけだと、化学式では下付きにならない数字（２Ｈ２（下付き）Ｏのような）もあったと思うので、判別ができない。化学式で上付きはありましたかね。

お礼

これは…申し訳ありませんでした。
勝手に、IME辞書では困難かな？とおもって勝手な考えが先行しておりませんた。

そのため、WORDもWXCELも両方化学式を入れて使っていることもあり、マクロできれば両方という、質問文に入ってないことまで考えてしまっていたので…

また、化学式では確かに一般的には上付き文字はありませんが、同位体を使っている場合もありまして、水素の同位体ですと、Dという記号やTという記号がありますが、Cの13(カーボンサーティーン)などがあるものでして…

質問の域から出てしまっていますね。
申し訳ありませんでした。
何度も回答ありがとうございました。

回答No.4

imogasi

下記私の（疑問）をまず読んで、考えて見てください。
＞A系列を除外したい
（１）A列を除いて、コピーし、別シートへ貼りつけ。
（２）シートコピーをして、コピー（副）の方でA列削除
その後１シートだけにして、テキスト形式保存
＞下付き文字
エクセル・ワード内で下付き文字にマクロでするのは簡単
と言うか１行。ただ数字の場所が不定。
（A)語句から数字桁を割り出す
科学式の場合は１桁で、上付きは原子（質量数、陽子数）のようには無かったですよね。
（B)下付き文字にするには
With ActiveCell.Characters(Start:=2, Length:=1).Font
のStartをプログラムでセット
.Subscript = True
End With
でよい。
（C）数字桁の探索のプログラムを作るのに少し経験が要る。
（D)各行の処理をするためのロジックが分かっていること。別シートに書く書き方とか。これはVBAで何をするにも必要なことです。
これらをお望みなら書いて見ますが。
（疑問）
下付き・上付き文字表現は、表示するソフト（台紙に当たるものを提供するソフト）がそれに対応している必要があります。メモ帳で考えれば判ります。エクセル上でいくら
下付き表現に直しても、保存するのはテキスト形式なら、
下付き情報は捨てられます。
IME辞書ファイルに加わる時は、下付きの痕跡が無いでしょう。
（A)IME辞書を使って表示するIMEにおいて、下付き表現が可能か（多分ｍ２（平方メートル、上付き）の例があるので、可能かと）
（B)どのようにするのか
（B)は、この点に特化した、もっとプロ級の知識（Inside知識）が必要と思われます。
そしてVBでは扱えないかも知れない。C++などでくむ必要
とか。
OKWEBを見ている人にいるかな（過去の回答振りからいないように思う）。

お礼

実は自分なりに、実験の合間に試していたのですが、確かに、シート１に書いてあるものを、シート２に写して、A列を削除したのち、テキストに出す。
というのは、いいなーとおもってやってみました。（マクロではなく、ただ手で…）
そしたら、問題が出ました…
＃１の方の場所にも書かせていただきましたが、
例えば、N,N-dimethyl formamideなどの、ハイフンが入っている化学物だけなのか分からないのですが、””が入ってしまうんですよ…
初め書式設定のためかな？とおもったのですが、自分でやった分では、残ったままでした…
よろしければ、よろしくお願いします。

下付き文字に関してですが、質問文を書いた後に考えたことなのですが、
上付き文字の場合⇒^1とか^n、^(-1)、^(-15)
というような、TeX風に書いて、^の次の数字軍もしくは、()を上付きにする。
下付き文字の場合⇒_1、_n、_(-1)、_(-n)
とあったら、下付き文字にする。
というアンです。
ただ、自力では？？？でした…

もし、よろしければ、ご意見などいただけたら、幸いです。
回答ありがとうございます。

回答No.3

sim137

NO.1です。
補足です。
>また、他に、水って、Ｈ2Ｏ～～～
マクロでいけるかどうか不明ですが(試してください)一応楽な方法見つけました。
まずH2O(2が小さいの(作り方はわかりますよね？わからないなら言って下さい。))を1つ作ります。それをコピー(セルをすべて)
「編集→検索」検索でH2Oを検索H2OもH2O(2が小さいのも)すべてが検索にヒットします。検索した明細が下に出てきますので一番上をマウスでクリック、キーボードのShiftキーを押したままで一番下をクリック(これですべてのH2O(2が小さいのも)が選択されます。)
選択された後、検索の窓を閉じる。
その後貼り付け。これでセルの設定がH2Oすべてに反映されます。

回答No.2

anmochi

テキスト出力は簡単だぞい。とりあえずちょちょっとサンプルを作ってみたので参考になれば。保存するファイル名や場所を指定できるようにしたり、エラーチェックを追加したり機能を充実させて欲しい。

Public Function writeToTSV()
Dim row As Long
Dim fnum As Integer

fnum = FreeFile
Open "c:\dictionaly.tsv" For Output Access Write Lock Write As #fnum
row = 2
Do While Cells(row, 2) <> "" ' Bの列が空白になれば終了
Print #fnum, Cells(row, 2) & vbTab & Cells(row, 3) & vbTab & Cells(row, 4)
row = row + 1
If row > 65536 Then
Exit Do
End If
Loop
Close #fnum
End Function

これを、VBAを開いて(エクセルの画面でALT+F11だ)、データを書き込んでいるシートの名前があるオブジェクトを選択してコードを表示させ、上のを貼り付けて実行すれば良い。

で、2番目の下付文字だが、どうだろうか・・・・下付にする場合の条件が、コンピュータに理解できる内容であれば、前述の関数と同じようにループをまわしてセルを一つずつ舐めていけばできそうな気はするが・・・・。

お礼

これは、ビジアルベーシックエディターを開いて、張るだけですか？
マクロとかは、あまりやったことがないので…
なんか、End subがどうとか吐かれて何がなんだか…
申し訳ありません…
回答ありがとうございます。

回答No.1

sim137

A列削除は簡単ですよ？というか？？？
ただAを選択(ABC・・・と並んでいるところのAをクリック)すればA列全部選択となります。右クリックで削除が出来ます。(データを消したくない場合は一度消してからテキスト出力して元に戻すと良いかな。一応保存したデータをコピーして試してくださいね～慣れるまでは。)

>また、他に、水って、Ｈ2Ｏ～～～
こちらについてはセルの設定が入ってきますのでコピーしてペーストぐらいしか良い方法が思いつきませんでした。他の方に聞いてください。

お礼

試したことはあるんですよ、A列削除語後にテキスト出力。
ただ、ダブルクオートが入ってしまうんです。
例えば、N,N-dimethyl formamideみたいな、ハイフンが入っているものが主にです。
回答ありがとうございます。