[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『カタカナ画数について』(らーゆう)
お世話になります
セルにカタカナが入力されてまして
その画数合計を求めるにはどのようにしたら出来るのでしょうか
よろしくお願いいたします
< 使用 Excel:Excel2010、使用 OS:Windows10 >
セル値を分解するマクロを見つけました
これを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
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.