Excel VBA質問箱 IV

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

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


3612 / 13644 ツリー ←次へ | 前へ→

【61152】自動採番について kanabun 09/4/13(月) 9:15 質問[未読]
【61153】Re:自動採番について neptune 09/4/13(月) 11:06 発言[未読]
【61154】Re:自動採番について kanabun改めカナコブン 09/4/13(月) 12:15 発言[未読]
【61155】Re:自動採番について neptune 09/4/13(月) 13:41 発言[未読]
【61156】Re:自動採番について kanabun改めカナコブン 09/4/13(月) 14:38 お礼[未読]

【61152】自動採番について
質問  kanabun  - 09/4/13(月) 9:15 -

引用なし
パスワード
   ユーザーフォームのテキストとかで入力を促し、
「登録ボタン」でシートに反映するようにしています。
その入力順にA列に番号を自動採番するようにしたいのですが、
どうもうまくいきません。

  Range("a65536").End(xlUp).Offset(1).Select
  Selection = COM0599000# + Selection.Row - 2

変数が定義されていない、と言われてしまうのは
「COM0599000#」の部分が数値だけではないからできないのでしょうか?
こういった形で実行させたい場合はどうしたらいいでしょうか?

【61153】Re:自動採番について
発言  neptune  - 09/4/13(月) 11:06 -

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

お願い:
この掲示板では既に「kanabun」というハンドルネームで回答をつけている方が
居られて紛らわしいので、ここでは別のハンドルをお使い下さい。


COM0599000#がなんなのか良くわからないので勘ですが、
ただ単に文字列のプリフィクスだとすると

Range("a65536").End(xlUp).Offset(1).value = _
       "COM0599000#" & cstr(Selection.Row - 2)
という事ですか?

【61154】Re:自動採番について
発言  kanabun改めカナコブン  - 09/4/13(月) 12:15 -

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

すみません、ご指摘ありがとうございます。
名前を変更しました。

>COM0599000#がなんなのか良くわからないので
これまたすみません。
      A列     B列
3行目| COM05990001  ○○○
4行目| COM05990002  ×○○
5行目| COM05990003  △××

といったように、A列でユニークの番号を振りたかったのです。


>▼kanabun さん:
>
>お願い:
>この掲示板では既に「kanabun」というハンドルネームで回答をつけている方が
>居られて紛らわしいので、ここでは別のハンドルをお使い下さい。
>
>
>COM0599000#がなんなのか良くわからないので勘ですが、
>ただ単に文字列のプリフィクスだとすると
>
>Range("a65536").End(xlUp).Offset(1).value = _
>       "COM0599000#" & cstr(Selection.Row - 2)
>という事ですか?

【61155】Re:自動採番について
発言  neptune  - 09/4/13(月) 13:41 -

引用なし
パスワード
   ▼kanabun改めカナコブン さん:

無駄な引用はやめて下さい。長く見にくくなるだけで何の役にも立ちません。

>      A列     B列
>3行目| COM05990001  ○○○
>4行目| COM05990002  ×○○
>5行目| COM05990003  △××
↑でも例えばOM05990003のどこまでがプリフィクスで、どのような意味を
持ち、どの部分が変化するかはカナコブン さんしか知りません。
ので殆ど最初の状況と変わりません。
(後から実はってのがありそう。)

前と同じで基本は同じ。基本これでいけます。
下四桁だけの例。format関数を使うだけ。(未確認ですけど。)
Range("a65536").End(xlUp).Offset(1).value = _
       "COM0599" & format(cstr(Selection.Row - 2),"0.###");

そのまんまコピペで使えるようなコードを期待しているなら、
私にはそんな趣味はないので、お断りしておきます。

【61156】Re:自動採番について
お礼  kanabun改めカナコブン  - 09/4/13(月) 14:38 -

引用なし
パスワード
   ▼neptune さん:
ありがとうございました。
参照してウロウロやってみたら出来ました。

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