Excel VBA質問箱 IV

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

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


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

6117 / 76735

←次へ　｜　前へ→


	【76220】Re:番号を並べて表記したいのです。

Yuki - 14/10/17(金) 11:18 -


	引用なし

	パスワード

>▼シェバルブランさん：
1行追加です。

>Function strRevers(expression As Variant) As Long
>　　Dim v　 As Variant
>　　Dim n1　As Variant
>　　Dim i　 As Long
>　　
>　　v = StrReverse(expression)
>　　For i = 1 To Len(v)
>　　　　On Error Resume Next
>　　　　If Not Application.IsNumber(CLng(Mid(v, i, 1))) Then
>　　　　　　If Err.Number <> 0 Then
　　　　　　　　 Err.Clear　　　　　　　 ' 追加行　　　　　　　　　　　　　>　　　　　　　　Exit For
>　　　　　　End If
>　　　　End If
>　　Next
>　　If i > Len(v) Then Exit Function
>　　strRevers = CLng(StrReverse(Left(v, i - 1)))
>End Function

0 hits

▼

【76209】番号を並べて表記したいのです。 シェバルブラン 14/10/16(木) 9:34