[[20070226122807]]　『囲み数字の計算について』（ひがしたろう）　ページの最後に飛ぶ

『囲み数字の計算について』（ひがしたろう）

囲みの数字（\x{fffd}@など）を数字として計算する方法はありますか？
教えてください。

 囲みの数字は「記号(文字)」なので、無理だと思います(ローマ数字も然り…)

 対応表を作成して、VLOOKUPで引っ張ってきた数値で計算させてみてはいかがでしょうか？
 (e1tw)VLOOKUP
https://www.excel.studio-kazu.jp/func/vlookup.html

 (Ohagi)

 しょうとつ～（笑
 ----			
 	Ａ	  Ｂ	  Ｃ
　　　1	製品Ａ\x{fffd}B		
　　　2	製品Ｂ\x{fffd}D		
　　　3	製品Ｃ\x{fffd}K		
　　　4	製品Ｄ\x{fffd}N		
 こんな塩梅にデータが並んでいるとしますと、どっか抽出したいセルに	
 =nakami(a1:a4)と入力します。			
 ○文字は確か20までしか設定でけんっちゅう事ですからそれ以上あれば没ですワ。			
 Alt+F11でVBEを開き　挿入→標準モジュールを選択してそのモジュールに下のコード
 をコピペしてくらはい。			
 　　　　　　　（弥太郎）			
 '------------------			
 Option Base 1			
 Function nakami(adrs As Range)			
    Dim totl As Long, c, ary

    With CreateObject("vbscript.regexp")			
        ary = Array("\x{fffd}@", "\x{fffd}A", "\x{fffd}B", "\x{fffd}C", "\x{fffd}D", "\x{fffd}E", "\x{fffd}F", "\x{fffd}G", "\x{fffd}H", "\x{fffd}I", _			
                "\x{fffd}J", "\x{fffd}K", "\x{fffd}L", "\x{fffd}M", "\x{fffd}N", "\x{fffd}O", "\x{fffd}P", "\x{fffd}Q", "\x{fffd}R", "\x{fffd}S")			
        .Pattern = "(\x{fffd}@|\x{fffd}A|\x{fffd}B|\x{fffd}C|\x{fffd}D|\x{fffd}E|\x{fffd}F|\x{fffd}G|\x{fffd}H|\x{fffd}I|\x{fffd}J|\x{fffd}K|\x{fffd}L|\x{fffd}M|\x{fffd}N|\x{fffd}O|\x{fffd}P|\x{fffd}Q|\x{fffd}R|\x{fffd}S)"			
        For Each c In adrs			
            If .test(c) Then			
                totl = totl + Application.Match(.Execute(c)(0), ary, 0)			
            End If			
        Next c			
        nakami = totl			
   End With			
 End Function
 　\x{fffd}Pが２個有ったのでしゅうせぇ。尚この丸文字は機種依存なんで、アカンかもしれ
 まへん、その際は悪しからず（汗　　14:12　ていせぇ

できました。ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20070226122807]] 『囲み数字の計算について』（ひがしたろう） ページの最後に飛ぶ

[[20070226122807]]　『囲み数字の計算について』（ひがしたろう）　ページの最後に飛ぶ