Excel VBA質問箱 IV

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

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


31128 / 76732 ←次へ | 前へ→

【50859】Re:文字列の一部を指定範囲し別シートに複写したい
回答  neptune  - 07/8/19(日) 23:06 -

引用なし
パスワード
   こんにちは

間違って質問を理解しているかもしれませんけど、こういう事ですか??
作ってから思うとなんか変ですが。。。

'GetWord 関数の使い方。
Sub t()
Dim ret As String

  ret = GetWord("フリードリヒII世は、フランスの英雄ナポレオンや第三帝国総統ヒトラーに信奉されていた。" _
      , "ナポレオン")
  If ret = "" Then
    MsgBox "単語はありません"
  Else
    MsgBox ret & " が抽出されました。"
  End If
End Sub

'取得用関数
Private Function GetWord(pTarget As String, pSearchWord As String) As String
  Dim lStart As String
  Dim lEnd As String
  
  lStart = InStr(1, pTarget, pSearchWord)
  If lStart <= 0 Then
    GetWord = ""
    Exit Function
  End If
  
  GetWord = Mid(pTarget, lStart, Len(pSearchWord))
  
End Function
1 hits

【50854】文字列の一部を指定範囲し別シートに複写したい 07/8/19(日) 18:51 質問
【50856】Re:文字列の一部を指定範囲し別シートに複... Lindy 07/8/19(日) 20:59 発言
【50857】Re:文字列の一部を指定範囲し別シートに複... 07/8/19(日) 21:37 発言
【50858】Re:文字列の一部を指定範囲し別シートに複... 07/8/19(日) 22:59 お礼
【50860】Re:文字列の一部を指定範囲し別シートに複... neptune 07/8/19(日) 23:09 発言
【50859】Re:文字列の一部を指定範囲し別シートに複... neptune 07/8/19(日) 23:06 回答
【50861】Re:文字列の一部を指定範囲し別シートに複... 07/8/20(月) 0:59 お礼

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