Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3626 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 さん：
ありがとうございました。
参照してウロウロやってみたら出来ました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3626 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free