[[20170818110124]] 『カタカナ画数について』(らーゆう) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『カタカナ画数について』(らーゆう)

お世話になります

セルにカタカナが入力されてまして
その画数合計を求めるにはどのようにしたら出来るのでしょうか
よろしくお願いいたします

< 使用 Excel:Excel2010、使用 OS:Windows10 >


タナカ と入力されてましたら  7という数字が出ればいいのですが
(らーゆう) 2017/08/18(金) 11:05

カタカナの数はそんなに多くないので、どこかにカタカナと画数の一覧を作っておけばいいのでは?
(とおりすがり) 2017/08/18(金) 11:19

画数を得る関数は、数式にもマクロにもないので、全てのカナに対する画数を貴方自身で数えて、文字と画数のデータにするしかありません。
データ化できれば、あとは1文字ずつデータと比較していき、文字数分合計するようなものを考えれば良いと思います。
(???) 2017/08/18(金) 11:19

とおりすがり様???様
有難う御座います

セル値を分解するマクロを見つけました
これをActiveCell対応でなく
A列入力されているすべての値に対応させたいです
教えていただけないでしょうか 
そのあとは 一覧表からvlookup等で
因数引き出して 合計を出したいと思います
よろしくお願いいたします

Sub セルに入力された文字列を一文字ずつ横方向に分解する()

  Dim str As String
  Dim i As Long

  With ActiveCell
    str = .Value
    For i = 1 To Len(str)
      .Offset(0, i).Value = Mid(str, i, 1)
   Next i
  End With

End Sub
(らーゆう) 2017/08/18(金) 11:58


A列全てに変えるだけなら、以下とか。
 Sub セルに入力された文字列を一文字ずつ横方向に分解する()
    Dim str As String
    Dim i As Long
    Dim R As Range

    For Each R In Range("A:A").SpecialCells(xlCellTypeConstants)
        With R
            str = .Value
            For i = 1 To Len(str)
                .Offset(0, i).Value = Mid(str, i, 1)
            Next i
        End With
    Next R
 End Sub
(???) 2017/08/18(金) 13:12

???様

 有難う御座いました
助かりました

(らーゆう) 2017/08/18(金) 13:25


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.