Excel VBA質問箱 IV

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

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


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

19457 / 76736

←次へ　｜　前へ→


	【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]で１行実行して
　k に何が入ってるのか、確かめてみましょう

0 hits

▼

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