Excel VBA質問箱 IV

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

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


19460 / 76736 ←次へ | 前へ→

【62707】Re:外字を全角にするには
質問  にしもり  - 09/8/25(火) 12:46 -

引用なし
パスワード
   ▼kanabunさん、脱 初心者 さん:
有難うございます。外字の定義をよみました。変換したい外字はとりあえず(株)(有)の2つでしたので
一覧までは用いず、下記のようにしました。
が、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 質問
【62700】Re:外字を全角にするには kanabun 09/8/25(火) 11:22 発言
【62703】Re:外字を全角にするには 脱 初心者 09/8/25(火) 11:39 発言
【62707】Re:外字を全角にするには にしもり 09/8/25(火) 12:46 質問
【62708】Re:外字を全角にするには 脱 初心者 09/8/25(火) 13:21 発言
【62710】Re:外字を全角にするには kanabun 09/8/25(火) 13:31 発言
【62711】Re:外字を全角にするには にしもり 09/8/25(火) 14:32 お礼

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