ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ð¦p¦ó­pºâÀx¦s®æ¤½¦¡¤¤¡A"+"¸¹ªº­Ó¼Æ

[µo°Ý] ½Ð±Ð¦p¦ó­pºâÀx¦s®æ¤½¦¡¤¤¡A"+"¸¹ªº­Ó¼Æ

°²³]Àx¦s®æ¤§¤½¦¡¬°=1+2+3+4

¦³µL¤½¦¡¥i­pºâ¸ÓÀx¦s®æ¤¤¥[¸¹("+")ªº­Ó¼Æ¡H¡H

¦^´_ 1# fpoqua
VBA  ¤@¯ë¼Ò²Õ(Module) ¦Û­q¨ç¼Æ
  1. Option Explicit
  2. Function Ex(Target As Range) As String
  3.     Dim A As String, i As Integer
  4.     A = Target(1).Formula
  5.     For i = Len(A) To 1 Step -1
  6.         If Mid(A, i, 1) Like "[!+]" Then A = Replace(A, Mid(A, i, 1), "")
  7.     Next
  8.     Ex = Len(A)
  9. End Function
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

·PÁÂGBKEE¤jªº°ª©Û

¦ý°£¤F¦Û­q¨ç¼Æ¥~¡A¦³µL¤º«Ø¨ç¼Æ¥i¸Ñ¨M¦¹ÃD°Ú¡H

TOP

¦^´_ 3# fpoqua
ÁÙ¨S§ä¨ì­ü!!

TOP

A1 ¬O¤½¦¡ =1+2+3+4

¥ý©w¸q¦WºÙ AA ¤½¦¡¦p¤U
=LEN(GET.CELL(6,$A1))-LEN(SUBSTITUTE(GET.CELL(6,$A1),"+",))

B1¿é¤J¤½¦¡
=AA
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 5# ML089

ML089¤jªº¤½¦¡¸g´ú¸Õ¥i¸Ñ¦¹°ÝÃD

·PÁ°ª¤â¸Ñ´b¡AÆg!!

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD