Excel VBA質問箱 IV

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

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


36994 / 76732 ←次へ | 前へ→

【44912】Re:住所の表示
回答  Kein  - 06/12/6(水) 0:23 -

引用なし
パスワード
   いつものように作業列(IV列)に数式を埋めて判定し、処理するコードです。

Sub Set_MyAddress()
  Dim MyR As Range

  Application.ScreenUpdating = False
  With Range("C1", Range("C65536").End(xlUp))
   With .Offset(, 253)
     .Formula = "=IF(OR(ISERR(FIND(""東京"",$C1))," & _
     "ISERR(FIND(""様方"",$C1))),1," & _
     "MID($C1,FIND(""東京"",$C1)," & _
     "FIND(""様方"",$C1)+2-FIND(""東京"",$C1)))"
     .Copy
     .PasteSpecial xlPasteValues
     Set MyR = .SpecialCells(2, 2)
   End With
   .ClearContents
   MyR.Copy .Cells(1)
  End With
  Columns("$C:$C").AutoFit
  Range("$IV:$IV").ClearContents: Set MyR = Nothing
  With Application
   .CutCopyMode = False
   .ScreenUpdating = True
  End With
End Sub

0 hits

【44908】住所の表示 初診者 06/12/5(火) 23:37 質問
【44909】Re:住所の表示 かみちゃん 06/12/5(火) 23:45 発言
【44911】Re:住所の表示 かみちゃん 06/12/6(水) 0:08 回答
【44910】Re:住所の表示 maverick 06/12/5(火) 23:57 回答
【44930】Re:住所の表示 Tk 06/12/6(水) 21:28 質問
【44931】Re:住所の表示 かみちゃん 06/12/6(水) 22:00 発言
【44932】Re:住所の表示 maverick 06/12/7(木) 0:07 発言
【44912】Re:住所の表示 Kein 06/12/6(水) 0:23 回答
【44950】Re:住所の表示 初診者 06/12/7(木) 19:40 発言
【44952】Re:住所の表示 かみちゃん 06/12/7(木) 19:55 発言
【44982】Re:住所の表示 初診者 06/12/8(金) 18:45 発言
【45000】Re:住所の表示 Kein 06/12/9(土) 14:34 回答

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