Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4821 / 13646 ツリー ←次へ | 前へ→

【54203】大文字、小文字 まつもと 08/2/29(金) 13:42 質問[未読]
【54206】Re:大文字、小文字 Jaka 08/2/29(金) 14:53 発言[未読]
【54217】Re:大文字、小文字 りん 08/2/29(金) 20:48 発言[未読]
【54227】Re:大文字、小文字 まつもと 08/3/1(土) 7:03 質問[未読]
【54229】Re:大文字、小文字 まつもと 08/3/1(土) 8:50 お礼[未読]
【54230】Re:大文字、小文字 SS 08/3/1(土) 9:06 発言[未読]
【54241】Re:大文字、小文字 まつもと 08/3/2(日) 7:37 発言[未読]

【54203】大文字、小文字
質問  まつもと  - 08/2/29(金) 13:42 -

引用なし
パスワード
   Cells.Replace What:="A", Replacement:="A", LookAt:=xlPart, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

以上のようなプログラムで全角から半角に変換するものを作ろうとしています。ほとんどは上手く行くのですが、
1.全てのシートに反映させる方法がわからない
2.物によって勝手に大文字から小文字に置き換わってしまう
という問題が発生しています。どなたか教えていただければありがたいです。

【54206】Re:大文字、小文字
発言  Jaka  - 08/2/29(金) 14:53 -

引用なし
パスワード
   ▼まつもと さん:
>Cells.Replace What:="A", Replacement:="A", LookAt:=xlPart, SearchOrder _
>    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
>1.全てのシートに反映させる方法がわからない
for each Sh in thisworkbook.Sheets
  Sh.Cells・・・・
next
とか。

>2.物によって勝手に大文字から小文字に置き換わってしまう
再現できないので、わかりませんでした。
何となく、このへん
MatchCase:=True
ReplaceFormat:=True
にしてみたらどうでしょう?

【54217】Re:大文字、小文字
発言  りん E-MAIL  - 08/2/29(金) 20:48 -

引用なし
パスワード
   こんばんわ。

>>2.物によって勝手に大文字から小文字に置き換わってしまう
これは、(ツール→)「オートコレクトのオプション」で、自動修正が有効になっていませんか?

【54227】Re:大文字、小文字
質問  まつもと  - 08/3/1(土) 7:03 -

引用なし
パスワード
   ▼Jaka さん:
>▼まつもと さん:
>>Cells.Replace What:="A", Replacement:="A", LookAt:=xlPart, SearchOrder _
>>    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
>>1.全てのシートに反映させる方法がわからない
>for each Sh in thisworkbook.Sheets
>  Sh.Cells・・・・
>next
>とか。
>
>>2.物によって勝手に大文字から小文字に置き換わってしまう
>再現できないので、わかりませんでした。
>何となく、このへん
>MatchCase:=True
>ReplaceFormat:=True
>にしてみたらどうでしょう?


Jakaさんの方法試してみました。しかし、Shが選択された状態で、「コンパイルエラー:変数が定義されていません」とメッセージが出ます。

【54229】Re:大文字、小文字
お礼  まつもと  - 08/3/1(土) 8:50 -

引用なし
パスワード
   ▼まつもと さん:
>▼Jaka さん:
>>▼まつもと さん:
>>>Cells.Replace What:="A", Replacement:="A", LookAt:=xlPart, SearchOrder _
>>>    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
>>>1.全てのシートに反映させる方法がわからない
>>for each Sh in thisworkbook.Sheets
>>  Sh.Cells・・・・
>>next
>>とか。
>>
>>>2.物によって勝手に大文字から小文字に置き換わってしまう
>>再現できないので、わかりませんでした。
>>何となく、このへん
>>MatchCase:=True
>>ReplaceFormat:=True
>>にしてみたらどうでしょう?
>
>
>Jakaさんの方法試してみました。しかし、Shが選択された状態で、「コンパイルエラー:変数が定義されていません」とメッセージが出ます。

ありがとうございました。2に関しては無事解決しました。

【54230】Re:大文字、小文字
発言  SS  - 08/3/1(土) 9:06 -

引用なし
パスワード
   ▼まつもと さん:
おはようございます。
横から失礼いたします。

>ありがとうございました。2に関しては無事解決しました。

何が問題で、どのように解決したか教えていただけませんか?
Jaka さんの回答が正しかったのでしょうか?前問いとの関連で
状況が分からないです。
質問掲示板は情報、技術の共有が目的だと思うのでお願いします。

>>>>2.物によって勝手に大文字から小文字に置き換わってしまう
>>>再現できないので、わかりませんでした。
>>>何となく、このへん
>>>MatchCase:=True
>>>ReplaceFormat:=True
>>>にしてみたらどうでしょう?
>>
>>
>>Jakaさんの方法試してみました。しかし、Shが選択された状態で、「コンパイルエラー:変数が定義されていません」とメッセージが出ます。
>
>ありがとうございました。2に関しては無事解決しました。

【54241】Re:大文字、小文字
発言  まつもと  - 08/3/2(日) 7:37 -

引用なし
パスワード
   >>>>MatchCase:=True
>>>>ReplaceFormat:=True

これに書き換えることで、大文字から小文字へ書き換わるトラブルを回避できたということです。説明不足ですみません。

4821 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free