Excel VBA質問箱 IV

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

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


62184 / 76738 ←次へ | 前へ→

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

引用なし
パスワード
   こんなFunctionを作って、ユーザー定義関数として使うか、
VBAのコードから使うかすれば善いのでは?

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
  
  lngLenght = Len(cstrFindTop)
  lngPosTop = InStr(1, vntValue, cstrFindTop, vbTextCompare)
  lngPosEnd = InStr(1, vntValue, cstrFindEnd, vbTextCompare)
  
  GetData = Mid(vntValue, lngPosTop + lngLenght, _
              lngPosEnd - lngPosTop - lngLenght)
  
End Function

ユーザー定義関数として使うなら、A2のセルに

=GetData(A1)

で善いのでは?

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 発言

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