Excel VBA質問箱 IV

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

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


24461 / 76732 ←次へ | 前へ→

【57619】Re:連番
回答  ハチ  - 08/9/5(金) 10:01 -

引用なし
パスワード
   ▼M さん:

0で補完する必要がないなら・・・

For j = 1 To Len(str)
  If Mid(str, j, 1) Like "#" Then Exit For
Next
i = Val(Mid(str, j))
i = i + 1
Msgbox Mid(str,1,j-1) & i

とかで出来ないですかね?
試してませんので、動かなかったらすいません。

数字のみの場合の考慮はしてません。追加してください。

0 hits

【57613】連番 M 08/9/5(金) 8:11 質問
【57614】Re:連番 Abebobo 08/9/5(金) 8:29 発言
【57616】Re:連番 M 08/9/5(金) 8:42 回答
【57617】Re:連番 ハチ 08/9/5(金) 9:14 発言
【57618】Re:連番 M 08/9/5(金) 9:30 回答
【57619】Re:連番 ハチ 08/9/5(金) 10:01 回答
【57620】Re:連番 Abebobo 08/9/5(金) 10:45 発言
【57621】Re:連番 M 08/9/5(金) 10:53 お礼
【57644】Re:連番 M 08/9/6(土) 18:03 お礼

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