Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


53195 / 76732 ←次へ | 前へ→

【28356】Re:コンマ区切りの命令語について
回答  Hirofumi  - 05/9/3(土) 11:03 -

引用なし
パスワード
   Functionとして有ります
ユーザー定義関数としても使えます
ただし、「1.4.8.16.22.26.28」は、カンマでは無く
ピリオドで区切られていますが?

Public Function AddUp(ByVal vntMark As Variant) As Variant

  Dim i As Long
  Dim lngPos As Long
  Dim lngAdd As Long
  
  If vntMark = "" Then
    Exit Function
  End If
  
  vntMark = StrConv(vntMark, vbNarrow)
  i = 1
  lngPos = InStr(i, vntMark, ",", vbBinaryCompare)
  Do Until lngPos = 0
    lngAdd = lngAdd + Val(Mid(vntMark, i, lngPos - i))
    i = lngPos + 1
    lngPos = InStr(i, vntMark, ",", vbBinaryCompare)
  Loop
  lngAdd = lngAdd + Val(Mid(vntMark, i))
  
  AddUp = lngAdd
  
End Function

0 hits

【28351】コンマ区切りの命令語について 福岡人 05/9/3(土) 7:53 質問
【28353】Re:コンマ区切りの命令語について ponpon 05/9/3(土) 8:27 発言
【28449】Re:コンマ区切りの命令語について 福岡人 05/9/7(水) 5:45 お礼
【28356】Re:コンマ区切りの命令語について Hirofumi 05/9/3(土) 11:03 回答
【28450】Re:コンマ区切りの命令語について 福岡人 05/9/7(水) 5:50 お礼

53195 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free