Excel VBA質問箱 IV

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

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


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

28383 / 76732

←次へ　｜　前へ→


	【53647】Re:文字列を配列に変更したいのですが？

ichinose - 08/1/29(火) 7:04 -


	引用なし

	パスワード

おはようございます。

>文字列を配列に変更して、１文字ずつで処理をしたいので、以下の方法で
>行っていますが、もっとsimpleな方法はないでしょうか？
>
Sub 配列処理_Click()
　　Dim i As Long
　　Dim work0
　　work0 = "1234567890"
　　ReDim work1(1 To Len(work0))
　　For i = 1 To 10
　　　 work1(i) = Mid(work0, i, 1)
　　　 Next i
End Sub

↑これが一番simpleだし、わかりやすいし、速いし・・と、思いますけどねえ！！

Simpleではなく、他の方法　というのなら・・・、

'================================
Sub test()
　　Dim g0 As Long
　　Dim mystr As String
　　Dim myarray As Variant
　　mystr = "1234567890"
　　myarray = Application.Transpose(Evaluate("if(row(a1:a" & _
　　　　　　　　　　 Len(mystr) & ")<=" & Len(mystr) & _
　　　　　　　　　　 ",mid(""" & mystr & """,row(a1:a" & _
　　　　　　　　　　 Len(mystr) & "),1))"))
　　MsgBox mystr
　　For g0 = LBound(myarray) To UBound(myarray)
　　　 MsgBox myarray(g0)
　　　 Next
End Sub

0 hits

▼

【53645】文字列を配列に変更したいのですが？ 坊主頭のプログラマ 08/1/28(月) 23:58