Excel VBA質問箱 IV

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

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


19453 / 76732 ←次へ | 前へ→

【62710】Re:外字を全角にするには
発言  kanabun  - 09/8/25(火) 13:31 -

引用なし
パスワード
   ▼にしもり さん:

>あと、(株)を含むとき、(株)だけを(株)に置換するロジック

範囲を限定して、実行してみてください:

 Dim r As Range
 Set r = Range("J2", Range("J65536").End(xlUp))
 With Application
   r.Value = .Substitute(.Substitute( _
    r.Cells, "(株)", "(株)"), "(有)", "(有)")
 End With


> Dim k As Long
>
> With Range("J" & k)
>  '↑ここでエラーになります
>    For k = 2 To 65536

> が、Rangeメソッドが失敗、とエラーがでます。
> すみませんどこが悪いでしょうか。


> With Range("J" & k)
↑の行に[F9]キーでブレークポイントを設定して、
 [F8]で1行実行して
 k に何が入ってるのか、確かめてみましょう
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 お礼

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