Excel VBA質問箱 IV

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

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


62245 / 76738 ←次へ | 前へ→

【19100】Re:略語リストから一括置換
発言  つん E-MAIL  - 04/10/21(木) 16:11 -

引用なし
パスワード
   こんにちは。

えーっと、momoさんの書かれたコードを拝見しますと、
ちょっとよくわからない部分や気になる部分が多々あるようです。

まず、「略語」「正式名」は変数ですよね?
変数は「””」で囲むといけません。
「略語」という文字列そのものになってしまいます。

それから、変数の宣言をループの中ではあまりするものじゃないと思います。
通常はプロシージャの先頭でまとめて宣言します。
途中で宣言するという人の話も聞いたことあるような気もしますが、
少なくともループ無いではないと思います。

>Dim 変換対象 As String
>変換対象 = columCounter & ":" & columCounter
「:」の右も左も同じですよね?だったら、
変換対象 = columCounter だけでいいような気も
>
>Range("A2,A2").Activate
ここも、A2をアクティブにするなら、
Range("A2").Activate でいいんでは?

>Do Until ActiveCell.Value = ""
アクティブセルって「A2」ですよね?
ループないで、A2の値が空白になる処理がないみたいなので、
このループは必要ないんじゃないですか?

> Range("A1").Select
>  Dim 略語 As String
>  略語 = Range("A1").Value
>  Dim 正式名 As String
>  正式名 = Range("B1").Value
>  Columns(変換対象).Select '変換対象の範囲を指定して略語を正式名に置換
>  Selection.Replace What:="略語", Replacement:="正式名", LookAt:=xlPart, _
> SearchOrder:=xlByRows, MatchCase:=False
>
>Loop
>
>End Sub

気になることを少々書きましたが、全体的には、イマイチどの範囲のデータをどう処理しようとしてるのかわからないです・・・

0 hits

【19098】略語リストから一括置換 momo 04/10/21(木) 15:37 質問
【19100】Re:略語リストから一括置換 つん 04/10/21(木) 16:11 発言
【19111】Re:略語リストから一括置換 momo 04/10/21(木) 22:26 質問
【19117】Re:略語リストから一括置換 つん 04/10/21(木) 23:48 回答
【19118】Re:略語リストから一括置換 ちゃっぴ 04/10/22(金) 1:09 発言
【19121】Re:略語リストから一括置換 つん 04/10/22(金) 9:43 発言
【19123】Re:略語リストから一括置換 momo 04/10/22(金) 11:44 お礼

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