Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31128 / 76732

←次へ　｜　前へ→


	【50859】Re:文字列の一部を指定範囲し別シートに複写したい

neptune - 07/8/19(日) 23:06 -


	引用なし

	パスワード

こんにちは

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

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

　　ret = GetWord("フリードリヒＩＩ世は、フランスの英雄ナポレオンや第三帝国総統ヒトラーに信奉されていた。" _
　　　　　　, "ナポレオン")
　　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