Excel VBA質問箱 IV

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

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


36925 / 76732 ←次へ | 前へ→

【44982】Re:住所の表示
発言  初診者  - 06/12/8(金) 18:45 -

引用なし
パスワード
   かみちゃん お世話になっています。

>「お名前」か「氏名」の位置をInStrで検索して、Mid関数で取り出し、
>その取り出した文字列の後に、一定の文字列「●●●●様方」か「●●●●殿」を
>付加するのではいけませんか?

InStr、Mid関数がどんなものか調べてみますが、今できた所まで・・・


「様方」の後ろの名前まで入れようか悩んで、できれば欲しい部分を
増やしたいと思って改造してみました。
セルへの出力はこのくらいなら変えられますので受取人の最後に「殿」を付けます。

C1  〒123-4567 東京都台東区1丁目-15お名前 石田ケンジ様方山田太郎殿
C2  01-1111-1111
C3
C4
C5  〒888-8888東京都〇〇市1番-1235氏名山川豊様方 鈴木二郎殿03-3333-3333
C6  
C7  
C8
C9
C10
C11 東京都足立区10番-253 お名前木村卓也様方佐藤三郎殿
C12 04-4444-4444

maverickさんのを利用して

Sub test()
  Dim i As Long, txt As String
  For i = Range("C65536").End(xlUp).Row To 1 Step -1
    txt = Cells(i, 3).Value
    If txt Like "*東京都*殿*" Then
      Cells(i, 3).Value = Mid$(txt, InStr(1, txt, "東京都"), _
      InStr(1, txt, "殿") - InStr(1, txt, "東京都") + 1)
    Else
      Rows(i).Delete
    End If
  Next i
End Sub


東京都台東区1丁目-15お名前 石田ケンジ様方山田太郎殿
東京都〇〇市1番-1235氏名山川豊様方 鈴木二郎殿
東京都足立区10番-253 お名前木村卓也様方佐藤三郎殿

      ↓

東京都台東区1丁目-15お名前 ●●●●様方山田太郎殿
東京都〇〇市1番-1235氏名●●●●様方 鈴木二郎殿
東京都足立区10番-253 お名前●●●●様方佐藤三郎殿

のように、「お名前」か「氏名」〜「様方」の間を
全て「●●●●」に変えたいです。


Keinさんのは長いので理解が不十分です・・・すみません。
東京都〇〇市1番-1235氏名山川豊様方 鈴木二郎殿0
と0が付いてきます・・・?


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 回答

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