VBAなんでも質問スレ Part2 [転載禁止]©2ch.net

**デフォルトの名無しさん** · 2015/05/21(木) 10:52:44.71

VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ

ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください

VBAを開発環境としていろいろ作っちゃいましょう

前スレ

VBAなんでも質問スレ
http://peace.2ch.net/test/read.cgi/tech/1342087380/

関連スレ

Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/tech/1419718732/

Access VBA 質問スレ Part1
http://peace.2ch.net/test/read.cgi/tech/1328536426/

VBプログラマ質問スレ（Ver.6.0 まで） part64
http://peace.2ch.net/test/read.cgi/tech/1393069842/

Excel総合相談所 118 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/bsoft/1430352555/

**デフォルトの名無しさん** · 2021/08/25(水) 17:07:53.23

つかさ、rightとleftが逆だったわ
まぁ動くからいいわ

**デフォルトの名無しさん** · 2021/08/25(水) 17:18:37.37

あれだ、最期の方に「だけが単独であると無限ループだわな
ループの条件にその辺の修正いれておいてくれ

もう寝る

**デフォルトの名無しさん** · 2021/08/25(水) 17:34:31.79

おっきした
>>990を↓に修正
Function MakeText(text As String, rightChar As String, leftChar As String) As String
Dim startPosition As Integer
Dim endPosition As Integer
Dim InstrStartPosition As Integer
InstrStartPosition = 1
Do While InStr(InstrStartPosition, text, rightChar) <> 0
startPosition = InStr(InstrStartPosition, text, rightChar)
If startPosition <> 0 Then
endPosition = InStr(startPosition + 1, text, leftChar)
End If
Dim midText As String
midText = Mid(text, startPosition, endPosition - startPosition + 1)
Dim midTextChanged As String
midTextChanged = Replace(midText, vbLf, "")
text = Replace(text, midText, midTextChanged)

InstrStartPosition = startPosition + Len(midTextChanged)
MsgBox "無限ループになっちゃった時はctrl + Breakを押せ" & vbCrLf & vbCrLf & text

Dim textForCheck As String
If textForCheck = text Then
MakeText = text
Exit Function
End If
textForCheck = text

Loop
MakeText = text
End Function

**デフォルトの名無しさん** · 2021/08/28(土) 10:10:42.16

動けば良いんだよ

**デフォルトの名無しさん** · 2021/08/28(土) 12:36:26.70

腕が重くて

**デフォルトの名無しさん** · 2021/09/01(水) 00:13:05.25

ｈ

**デフォルトの名無しさん** · 2021/09/01(水) 00:13:11.43

ｔ

**デフォルトの名無しさん** · 2021/09/01(水) 00:13:18.16

ｌ

**デフォルトの名無しさん** · 2021/09/01(水) 00:17:13.66

ｎ

**小倉優子** ◆YUKOH0W58Q · 2021/09/01(水) 00:17:27.14

　　∧,,,∧　
　( 　・∀・)　1000ならジュースでも飲むか
　 (　　　)　
　　し─J　

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 2294日 13時間 24分 43秒