Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
799 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【78225】下一桁を1あげるマクロ えり 16/5/31(火) 16:57 質問[未読]
【78226】Re:下一桁を1あげるマクロ β 16/5/31(火) 17:08 発言[未読]
【78229】Re:下一桁を1あげるマクロ 独覚 16/6/1(水) 14:25 発言[未読]
【78232】Re:下一桁を1あげるマクロ β 16/6/1(水) 16:22 発言[未読]
【78231】Re:下一桁を1あげるマクロ りった 16/6/1(水) 14:39 回答[未読]
【78245】Re:下一桁を1あげるマクロ えり 16/6/7(火) 16:20 お礼[未読]
【78225】下一桁を1あげるマクロ
質問  えり  - 16/5/31(火) 16:57 -
引用なし
パスワード
   001254
004526
009503
　　 ・
　　 ・
　　 ・
　　続く

このように1つの列に数字が並んでいる
全てのセルは「文字列になってれいる

数字の下1桁に➕1するしたい
001255
004527
009504
どのようなマクロを組めば良いでしょうか。
ご教授下さい。
【78226】Re:下一桁を1あげるマクロ
発言  β  - 16/5/31(火) 17:08 -
引用なし
パスワード
   ▼えり さん：

最後の１桁のみを１アップするのか
（　123499 --> 123490 )
それにともなって全体を変えるのか
（　123499 --> 123500 )

後者なら、どういうことはないはずですので前者ですか？
つまり　数式でいえば Ａ列に値があるとして
B1 に　=LEFT(A1,LEN(A1)-1)&VALUE(RIGHT(A1,1))+1
これを下にフィルコピーしたような結果をマクロで作成したいということですか？

で、元の値を置換ですか？
それとも別の列に表示ですか？
【78229】Re:下一桁を1あげるマクロ
発言  独覚  - 16/6/1(水) 14:25 -
引用なし
パスワード
   ▼β さん：

=LEFT(A1,LEN(A1)-1)&VALUE(RIGHT(A1,1))+1
これだと
123499 --> 1234910
になってしまいませんか？

=LEFT(A1,LEN(A1)-1)&MOD(RIGHT(A1,1)+1,10)
や
=LEFT(A1,LEN(A1)-1)&RIGHT(RIGHT(A1,1)+1,1)
でどうでしょうか？
【78231】Re:下一桁を1あげるマクロ
回答  りった  - 16/6/1(水) 14:39 -
引用なし
パスワード
   数字として計算してからゼロ埋めするのはどうでしょう？

Sub test()
　　Dim r As Range
　　For Each r In Selection
　　　　r = Right("000000" & (r + 1), 6)
　　Next
End Sub


▼えり さん：
>001254
>004526
>009503
>　　 ・
>　　 ・
>　　 ・
>　　続く
>
>このように1つの列に数字が並んでいる
>全てのセルは「文字列になってれいる
>
>数字の下1桁に➕1するしたい
>001255
>004527
>009504
>どのようなマクロを組めば良いでしょうか。
>ご教授下さい。
【78232】Re:下一桁を1あげるマクロ
発言  β  - 16/6/1(水) 16:22 -
引用なし
パスワード
   ▼独覚 さん：

>=LEFT(A1,LEN(A1)-1)&VALUE(RIGHT(A1,1))+1
>これだと
>123499 --> 1234910
>になってしまいませんか？

ひゃぁ！おっしゃる通りです。（汗）

要は、繰り上がりをするのかしないのかを質問したんですが
その際に不慣れな数式を使ってしまって墓穴を掘りましたね・・・・
【78245】Re:下一桁を1あげるマクロ
お礼  えり  - 16/6/7(火) 16:20 -
引用なし
パスワード
   みなさまありがとうございます。
返信が遅くなり申し訳ありません。
いただいたものを試したら上手くいきました。
作業効率が格段にあがります！
本当にありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
799 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free