Excel VBA質問箱 IV

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

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


62177 / 76732 ←次へ | 前へ→

【19163】Re:文字列の切り取りについて
回答  Hirofumi  - 04/10/24(日) 8:32 -

引用なし
パスワード
   この方が確実かも?

Public Function GetData(vntValue As Variant) As Variant

  Const cstrFindTop As String = "values("
  Const cstrFindEnd As String = ");"
  
  Dim lngPosTop As Long
  Dim lngPosEnd As Long
  Dim lngLenght As Long
  
  GetData = ""
  lngLenght = Len(cstrFindTop)
  lngPosTop = InStr(1, vntValue, cstrFindTop, vbTextCompare)
  If lngPosTop = 0 Then
    Exit Function
  End If
  lngPosEnd = InStr(lngPosTop + lngLenght + 1, _
              vntValue, cstrFindEnd, vbTextCompare)
  
  GetData = Mid(vntValue, lngPosTop + lngLenght, _
              lngPosEnd - lngPosTop - lngLenght)
  
End Function
0 hits

【19161】文字列の切り取りについて けんた 04/10/24(日) 6:37 質問
【19162】Re:文字列の切り取りについて Hirofumi 04/10/24(日) 7:43 回答
【19163】Re:文字列の切り取りについて Hirofumi 04/10/24(日) 8:32 回答
【19166】Re:文字列の切り取りについて ちゃっぴ 04/10/24(日) 12:33 回答
【19167】Re:文字列の切り取りについて Kein 04/10/24(日) 13:02 回答
【19169】Re:文字列の切り取りについて ちゃっぴ 04/10/24(日) 13:52 発言
【19170】Re:文字列の切り取りについて Kein 04/10/24(日) 14:17 発言

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