エクセルのデータ処理

質問

A列に英文データがあります。前から数えて指定の語（１語または２語）だけを（　　　　）に置き換えたいのです。
A列
English and French are spoken in Canada.

B列 4
C列
English and French ( 　　　 ) spoken in Canada.

D列　　are

E列 4,5
F列
English and French ( 　　　 ) ( 　　　 ) in Canada.

G列　　are spoken

１つ１つ手作業で変換していたのですが、関数とかでうまく処理できる方法があるでしょうか。よろしくお願いします。

回答No.7

fumufumu_2006 · ベストアンサー

ANo.6です。
>>この状態で、シートに戻って、B1の数字を変えてみてください。
>>モジュールが表示され、先ほど赤く反転させた場所が、黄色の反転表示になるはずです。
>黄色に反転しません。
マクロが有効になっていないか、名前が違うか、場所が違うか、その他か・・・
と言う訳で、以下を試してください。

まず、新規作成された、何も無いブックで試してください。
Excelの画面で[ツール][マクロ][マクロ]で、[マクロ名]に[makeQuestion]と入力して[作成]ボタンを押す。
すると、画面がVBE(VBAを編集する画面)に変わります。
1行追加して、下記のようにしてください。
Sub makeQuestion()
MsgBox "test"
End Sub
次に、Excelの画面で[ツール][マクロ][マクロ]で、[makeQuestion]を選択して（これしかないので選択されているはずです）、[実行]ボタンを押す。
これで、メッセージボックスで"test"と表示しなければ、マクロが実行できない状態です。
その場合は、gooやgoogleで「excel マクロが実行できない」で調べて、実行できるようにしてください。
ただ、ANo.3への捕捉で、
>実行しますと、「１３　型が一致しません」というエラーが出ます。
という状況から、マクロは実行できるはずなので、それは無いとは思いますが・・・
以下は、メッセージが表示した場合です。
Sub makeQuestion()
の「Sub」を「Function」に変更してみてください。
Function makeQuestion()
MsgBox "test"
End Function
と「End Sub」が自動的に「End Function」に変わると思います。
この状態で、Excelに戻り、C1に「=makeQuestion()」と入力してください。
メッセージボックスで"test"と表示するはずです(C1の値は0になる）。
これが表示しない場合は・・・打ち込みミスしてないか、「=」や「()」を忘れていないかを確認してください。
以上で、関数が動く事が確認できます。
もう一度標準モジュールの画面に戻って、先ほどの3行のプログラムを消して、その場所にANo.2のモジュールをコピーしてください。（同じ関数名があるとエラーになります）
一応[デバッグ][VBAProjectのコンパイル]で、エラーが出ない事を確認してください。
Excelに戻って
A1:English and French are spoken in Canada
B1:4
C1:=makequestion(A1,B1,20)
D1:=makeanswer(A1,B1)
E1:4,5
F1:=makequestion(A1,E1,20)
G1:=makeanswer(A1,E1)
を入れてください。
これでもC1,D1,F1,G1に何も表示しないでしょうか？
または、期待した文字列にならないでしょうか？

期待した通りに表示されたら、うまく動かなかったブックのモジュールのなどを比較してみてください。

お礼

なんだか入れ違いになったようですみません。先ほど下に成功と感動とお礼の言葉を送ったとこです。どうもありがとうございました。
うまくできて大変喜んでおります。