Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19456 / 76732

←次へ　｜　前へ→


	【62707】Re:外字を全角にするには

にしもり - 09/8/25(火) 12:46 -


	引用なし

	パスワード

▼kanabunさん、脱　初心者さん：
有難うございます。外字の定義をよみました。変換したい外字はとりあえず(株)(有)の２つでしたので
一覧までは用いず、下記のようにしました。
が、Rangeメソッドが失敗、とエラーがでます。
すみませんどこが悪いでしょうか。

あと、(株)を含むとき、(株)だけを（株）に置換するロジックはたぶん間違っているとおもいます。
みようみまねで[]を使っているからです。
(株)を含むとき、(株)だけを（株）に置換するにはどうしたら宜しいでしょうか？

　Dim k As Long

　With Range("J" & k)
　　'↑ここでエラーになります
　　　　For k = 2 To 65536
　　　　　　If .Value = "*(株)*" Then　　　　'(株)を含むときThenへ
　　　　　　.Value.[(株)] = .Value.[（株）]　'(株)だけを（株）に置換
　　　　　　End If
　　　　Next k
　 End With

0 hits

▼

【62698】外字を全角にするには にしもり 09/8/25(火) 11:13