Excel VBA質問箱 IV

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

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


6116 / 76734 ←次へ | 前へ→

【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

3 hits

【76209】番号を並べて表記したいのです。 シェバルブラン 14/10/16(木) 9:34 質問
【76210】Re:番号を並べて表記したいのです。 kanabun 14/10/16(木) 12:36 質問
【76211】Re:番号を並べて表記したいのです。 Yuki 14/10/16(木) 12:50 発言
【76214】Re:番号を並べて表記したいのです。 シェバルブラン 14/10/16(木) 13:47 お礼
【76215】Re:番号を並べて表記したいのです。 Yuki 14/10/16(木) 16:07 発言
【76217】Re:番号を並べて表記したいのです。 シェバルブラン 14/10/17(金) 8:29 発言
【76218】Re:番号を並べて表記したいのです。 Yuki 14/10/17(金) 11:12 発言
【76220】Re:番号を並べて表記したいのです。 Yuki 14/10/17(金) 11:18 発言
【76222】Re:番号を並べて表記したいのです。 シェバルブラン 14/10/17(金) 13:48 お礼
【76224】Re:番号を並べて表記したいのです。 Yuki 14/10/17(金) 16:37 発言
【76242】Re:番号を並べて表記したいのです。 シェバルブラン 14/10/20(月) 8:32 お礼[未読]
【76212】Re:番号を並べて表記したいのです。 kanabun 14/10/16(木) 12:50 発言
【76213】Re:番号を並べて表記したいのです。 シェバルブラン 14/10/16(木) 13:04 お礼

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