エクセル2000で化学式を大量に入力したいのですが、
現在はH2Oなどの数字部分をいちいち下付きに変更しています。
(かなり面倒です)
これをもっと簡単に入力する方法はないでしょうか?

出来れば「水」と入力して「H2O」と表示させたいのですが、
単語登録、VLOOKUP関数、入力規則(リスト)、オートコレクト
以上のものは全部試してみたのですが、
いずれも一部分だけの下付きは出来ませんでした。

セルをコピーすると出来るんでしょうけど、
他に方法があったら教えて下さい。
よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (5件)

指摘のあったパターンと『小文字、2桁以上の数値』を可能にしました。


少し書き方を変えています。次を下付きにする文字と解除する文字を分けていますので、追加・修正は容易かと思います。標準モジュールに貼り付けます。

Public Sub ShitaTukiMoji()
  Dim rg As Range '選択した範囲
  Dim L As Integer '文字カウンタ
  Dim Shiki As String '化学式
  Dim maeKigo As String '数値の前の文字は元素記号?
  Dim sitatukiFlg As Boolean '下付にする、しない

  For Each rg In Selection
    Shiki = rg
    For L = 2 To Len(Shiki)
      '全角入力を考慮
      maeKigo = StrConv(Mid(Shiki, L - 1, 1), vbNarrow)

      Select Case maeKigo
        Case "A" To "Z", "a" To "z", ")"
          'この文字の次の数字は下付きにする
          sitatukiFlg = True
        Case "・", "(", "+", "-", "=", " "
          'この文字の次の数字は下付きにしない
          sitatukiFlg = False
      End Select

      If sitatukiFlg Then
        If IsNumeric(Mid(Shiki, L, 1)) Then
          '数字なら下付文字にする
          rg.Characters(L, 1).Font.Subscript = True
        End If
      End If
    Next
  Next
End Sub
    • good
    • 0
この回答へのお礼

お礼が遅れて申し訳ありません。
何度もわがままな質問に回答いただきありがとうございます。
姉が大変喜んでおりました。
マクロっておもしろいですね♪

お礼日時:2001/09/17 12:53

>もう一つ質問なんですが、「ショートカットキーに割り当てる」


>とはどのようにしたらいいんでしょうか??

マクロを登録したらシートに戻って、ツール→マクロ→マクロ で出てくるダイアログボックスでマクロを選択し、オプションボタンを押すとマクロオプションダイアログボックスが出てきます。Ctrl+の右のテキストボックスに半角アルファベット(例えばZ)を入力します。
これでこのマクロは Ctrl+Shifh+Z キーで起動します。
CtrlとShifhキーを押しておいてZキーを押す要領です。

この回答への補足

対応出来ない化学式があったので補足させてください。

Mg(NO3)2・6H2O  
    ↑    ↑
この数字は下付きに変換されるのですが、
( )の後ろの2が変換されません。
こういう形式の化学式は他にもたくさんありますので、
マクロで一度に変換できれば、、、と思いまして。。。
可能であればお願いできないでしょうか?

ショートカットキーの解説ありがとうございました♪


 

補足日時:2001/09/14 08:52
    • good
    • 0

No.1のmaruru01です。


Vectorで検索したら、下記のURLのソフトがありました。
ただし、シェアウェアソフトなので私は試してません。
mimi1504さんの使用意図に沿うかどうかもわかりませんが、
参考までに。

参考URL:http://www.vector.co.jp/soft/win95/writing/se086 …
    • good
    • 0
この回答へのお礼

こんな便利なものがあったんですね(*^0^*)
実はこれを必要としているのは姉なんです。
さっそく報告します!
ありがとうございました。

お礼日時:2001/09/10 17:13

マクロを作ってみました。



最初は普通に入力し、下付文字にしたいセル(複数可)を選択して実行します。ショートカットキーに割り当てると早いと思います。
H2Oなら2文字目の2を、H2O+H2O=2H2O (?) は2H2Oの最初の2は下付きにはしないはずです。対応できない式があったら補足して下さい。化学式も忘れてしまいました・・・

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入し、そこに貼り付けます。
'(Public Sub ~ End Sub の範囲です)

Public Sub ShitaTukiMoji()
  Dim rg As Range '選択した範囲
  Dim L As Integer '文字カウンタ
  Dim Shiki As String '化学式
  Dim maeKigo As String '数値の前の文字は元素記号?

  For Each rg In Selection
    Shiki = rg
    For L = 2 To Len(Shiki)
      maeKigo = StrConv(Mid(Shiki, L - 1, 1), vbNarrow) '全角入力を考慮
      '分子の数、元素のみの数の場合は下付にしない。(例)2H2Oの最初の2など
      If 65 <= Asc(maeKigo) And Asc(maeKigo) <= 90 Then
        If IsNumeric(Mid(Shiki, L, 1)) Then
          '数字なら下付文字にする
          rg.Characters(L, 1).Font.Subscript = True
        End If
      End If
    Next
  Next
End Sub

この回答への補足

感激です!痛快です!どうもありがとうござました。
実はこれを必要としているのは私の姉なので、
すべての化学式に対応出来るかどうか、試してもらいます。
もしダメだったら、またよろしくお願いします。
もう一つ質問なんですが、「ショートカットキーに割り当てる」
とはどのようにしたらいいんでしょうか??

補足日時:2001/09/10 16:44
    • good
    • 0

IME2000の単語登録は出来ますよ。


Windows2000の場合、スタートメニュー→プログラム→アクセサリ→システムツールの中に「文字コード表」があります。
その中に上付きと下付きの数字や+-などの記号があります。(少なくともゴシックと明朝には)
で、例えば下付きの"2"を、コピーする文字のところで選択して、その前後に"H"と"O"を付けてコピーし、IMEの単語登録を呼び出せば語句の欄に"H下付き2O"が入るので、読みに"みず"とでも入れて登録すればOKです。
上付きもあるのでイオン式もOKです。
あとは、必要なものを片っ端から登録していきます。
ちなみに、ExcelはOKですが、アプリケーションによっては文字化けします。
とりあえず、こんな力技しか思いつきません。
ひょっとすると、IME対応の化学式辞書のようなものがあるかも知れません。
Vectorなどのダウンロードサイトをのぞいてみては?
では。
    • good
    • 0
この回答へのお礼

アドバイスどうもありがとうございます。
教えて下さった文字コード表から下付きの数字を探したのですが、
見つけられませんでした。(^^;)
Windows2000じゃないからでしょうか・・・

お礼日時:2001/09/10 16:41

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExcel 上付き(下付き)文字のみの置換方法

Excelにおいて、上付きもしくは下付きの文字のみの置換方法を教えてください。

Aベストアンサー

一応、#2の補足にある、"T3-133"という文字列の"T3"の"3"のみ上付きはクリアしましたが
マクロは希望していないようなので、マクロでできるよの報告のみで失礼します

Sub test()
Dim i As Long, ii As Integer
Dim a As String
a = "T3"
For i = 1 To Range("a65536").End(xlUp).Row
If InStr(Cells(i, 1).Value, a) > 0 Then
ii = InStr(Cells(i, 1).Value, a) + 1
Cells(i, 1).Characters(Start:=ii, Length:=1).Font.Superscript = True
End If
Next i
End Sub

Qエクセル 条件付き書式でVLOOKUPの使い方?

エクセルで下記の様にA列に文字列が有り、B列と同じ文字列が有る場合
にA列の該当箇所のフォントの色などを変更したいのですが、やり方が
解りません。
A列の文字列は、今後どんどん増えて行きますが、B列の文字列は100個
程です。

 A   B
1 254 584
2 257 A58
3 846 GF8
4 A89 665
5 Y89 895
6 R56
7 584
8 PRE

どうか宜しくお願い致します。との質問に対し下記の回答を頂いて解決出来たと思われたのですが、数字のみの値に対しては
うまく行くのですが、アルファベットが含まれるとうまく行きません。

------先ほどの質問の回答---
 条件付き書式を使いますが、まずA1を選択、「書式」→「条件付き書式」で数式にして下記を入力、書式をクリック、フォントで色を選択してOKを押す。
=VLOOKUP(A1,$B$1:$B$100,1,0)
次に、A1をコピーして列のAをクリックする。「書式」→「形式を選択して貼り付け」で「書式」を選択。

Aベストアンサー

条件付き書式は、TRUE判定された場合に書式反映されますので、VLOOKUP関数はデータ抽出結果が数値ならばTRUEですが
文字列の場合、FALSEとなる為です。
仮にVLOOKUPでするのならば、=VLOOKUP(A1,$B$1:$B$100,1,0)=A1とすべきです。
前回、数値(0はFALSE、以外数値はTRUE)結果となるCOUNTIF提案をした次第です。

Q《エクセル2000》VLOOKUPのエラー#N/Aを、条件付き書式で表示させない方法

こんにちは。
IFとVLOOKUPを組み合わせて、エラーだった場合表させない方法はわかりますが、条件付き書式でエラーを表示させない方法はあるでしょうか。

ただしファイルの仕様の都合上、どこかにわざとエラー値のセルをつくって「そこと同じだったら」という条件にするのは、なしでお願いします。

Aベストアンサー

「数式が」「=ISNA(セル座標)」
でできます。

Qエクセルの一部分のセルに入力させない

教えてください。
エクセル2003で、例えばA列のみ入力をさせない方法はありますか。A列には計算式が入っていて、間違えてそこに数値などを入力してしまうと計算式が消えてしまいます。それを避けたいのです。質問の意味が理解して頂けますでしょうか。よろしくお願いします。

Aベストアンサー

1-1 セルの保護・ロック
http://asugi23.web.infoseek.co.jp/excel/soft37b.htm#1


セルの保護は勘違いしやすいのですが、セル単位で特定のセルのみ保護(ロック)するものではなく、ワークシート単位で保護するときに、特定のセルのみロックを解除できるということです。

Qエクセルのオートコレクト?カンマ(コンマ)の後に「i」が入力できない

いつもお世話になっています。
表題の通りです。。。
以下「」はわかりやすくするために付けたので
実際は「」を外して入力します。

「,i」と入力したい場面があります。

エクセルで半角の「,」or「.」の後に
同じく半角で小文字「i」を入力しようとしても
自動的に大文字「I」に変換されてしまいます。

オートコレクトの機能が働いているとは思うのですが
特にこの変換について触れているところは無いようです。

オートコレクトの機能を外してしまえばそのような変換はなくなるのでOKなのですが、
他に入力するときにオートコレクトに助けられる場面もあるので解除したくない機能です。

不思議なことに例えば
A1のセルに「,i」と入力⇒「,I」になる
A1をそのままにして「,i」と入力するとそのまま「,i」になります。

「,i」と「,I」が両方使い分けられるうまい方法をお願いします。


Excel2000を使用しています。
Excel2002では変換されませんでした。

Aベストアンサー

>オートコレクトの機能が働いているとは思うのですが
>特にこの変換について触れているところは無いようです。

i を I にするオートコレクトルールがありますよ。
オートコレクトダイアログの下半分はスクロールします。

>オートコレクトの機能を外してしまえばそのような変換はなくなるのでOKなのですが、
>他に入力するときにオートコレクトに助けられる場面もあるので解除したくない機能です。

オートコレクト自体はオフにせず、i -> I のルールだけ削除すればいいのでは?


人気Q&Aランキング

おすすめ情報