[[20090707164139]]　『ローマ字をひらがなに変換』（ほし）　ページの最後に飛ぶ

『ローマ字をひらがなに変換』（ほし）

いつもお世話になっております。

社員のメールアドレス一覧表があるのですが、そのアドレスは社員の名前になっているのです。

例えば、hiroko○○○○.○○○○
で社員のふりがなを振りたいのですが、このアドレスから拾えないものなのでしょうか？

hiroko＝ひろこといった感じです。

このような関数ってあるのでしょうか？？？

宜しくお願いします。

 関数では無理だと思います。

 VBAでよろしければ、データの入力規則とSendKeysを使ったサンプルです。
 （ｍｏｍｏ）

  Option Explicit
  Sub Test()
  Dim strMailAddress As String
  Dim strName As String
  Dim AcCell As Range
  Dim i As Long

  strMailAddress = "kaori.inoue@abc.co.jp" 'メールアドレス

  strName = Replace(Split(strMailAddress, "@")(0), ".", "~ ")

  Application.ScreenUpdating = False
  Set AcCell = ActiveCell
  With ActiveSheet.Range("IV1")
    With .Validation
      .Delete
      .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
      .IMEMode = xlIMEModeOn
    End With
    .Activate
    For i = 1 To Len(strName)
      Application.SendKeys Mid$(strName, i, 1)
    Next i
    Application.SendKeys "{ENTER}"
    DoEvents
    strName = .Value
    .Validation.Delete
    .ClearContents
  End With
  AcCell.Activate
  Application.ScreenUpdating = True

  MsgBox strName

  End Sub

momoさんありがとうございます。
社員の人数が８０人くらいいるのですが、このVBAで出来るのでしょうか？？

度々すいません

（ほし）

 >サンプルです。

 なので、そのまま使うコードにはなっていません。
 ほしさんのＶＢＡの理解度もわかりませんし
 ８０人というのも今回で出てきた条件です。
 ＶＢＡでやるのであればもっと細かい仕様が必要です。（なのでサンプルしか掲示できません）

 アドレスが記入してある場所や、ふりがなの出力場所
 また、アドレスの表記のルールなど細かく必要です。
 （ｍｏｍｏ）

ｍｏｍｏさん、度々ありがとうございます。

ＶＢＡ勉強中ですので、↑のコードをお手本にして、頑張ってみます。

（ほし）

コメント返信：

[ 一覧(最新更新順) ]

[[20090707164139]] 『ローマ字をひらがなに変換』（ほし） ページの最後に飛ぶ

[[20090707164139]]　『ローマ字をひらがなに変換』（ほし）　ページの最後に飛ぶ