Excel VBA質問箱 IV

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

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


62219 / 76732 ←次へ | 前へ→

【19121】Re:略語リストから一括置換
発言  つん E-MAIL  - 04/10/22(金) 9:43 -

引用なし
パスワード
   おはようございます。
ちゃっぴさんがよりよりコードを提示してくださっていますが、
一応、momoさんのやり方を修正してみました。
これで当方では動いているようです。

Sub test()

  Dim 変換対象列 As Integer ’string型だとエラーになるのでIntergerで
  Dim 略語リスト As Integer
  Dim 変換対象列範囲 As String
  Dim 略語 As String
  Dim 正式名 As String
  Dim i As Integer  
 
   変換対象列 = ActiveCell.Column
   略語リスト = 1

  'Columns(数値)の形の方が良いと思いますので
  ’以下の一文は必要ないです。
  '以下の形でしようとおもったら、「ActiveCell.Column」で取得した
  ’数値から、対応するアルファベットを割り出さないとダメなんだと思います。 
  '''' 変換対象列範囲 = 変換対象列 & ":" & 変換対象列

  'この↓行は何をしているのかわからないけど、必要ないのでは?
  '''Cells(1, "I").Value = 変換対象列
  '''Cells(2, "I").Value = 変換対象列範囲

  i = 1
  
  Do Until Cells(i, 略語リスト).Value = ""
    
     略語 = Cells(i, 略語リスト).Value
     正式名 = Cells(i, 略語リスト + 1).Value
     ’↓Selectしなくても直接出来ます。
     Columns(変換対象列).Replace What:=略語, Replacement:=正式名, LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False
     i = i + 1
  Loop

End Sub

ところで、「Cells(1, "I").Value」みたいな書き方あるんですね。
MsgBox Cells(2, "I").Address
ってしたら、ちゃんと「$I$2」が返ってきました(^^;

2 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 お礼

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