Excel VBA質問箱 IV

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

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


9678 / 13646 ツリー ←次へ | 前へ→

【25990】テキストボックスより連続数値取得 たま 05/6/20(月) 23:56 質問[未読]
【25991】Re:テキストボックスより連続数値取得 かみちゃん 05/6/21(火) 0:33 回答[未読]
【25993】Re:テキストボックスより連続数値取得 たま 05/6/21(火) 0:51 質問[未読]
【25994】Re:テキストボックスより連続数値取得 かみちゃん 05/6/21(火) 6:53 発言[未読]

【25990】テキストボックスより連続数値取得
質問  たま  - 05/6/20(月) 23:56 -

引用なし
パスワード
   いつもお世話になっております。

テキストBOXに数値を入力すると
連続した数値を表示したく思っています。

With Range("A2", Range("A2000").End(xlUp)).Offset(, 11)
    .Formula = "=ROW()-1"
    .Value = .Value
End With

表示は5ケタで表示する様にしたいです。
テキストBOXは初めてなのでヒントだけでもよろしくお願いします。。

【25991】Re:テキストボックスより連続数値取得
回答  かみちゃん  - 05/6/21(火) 0:33 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>テキストBOXに数値を入力すると
>連続した数値を表示したく思っています。
>
>With Range("A2", Range("A2000").End(xlUp)).Offset(, 11)
>    .Formula = "=ROW()-1"

この部分を
 .Formula = "=" & TextBox1.Value & "+ROW()-2"
とするといいかと思います。

>表示は5ケタで表示する様にしたいです。

「セルの書式設定」を「マクロの記録」で記録してみてください。

※そういえば、[#25828]のご質問は解決されたのでしょうか?
 投稿者のお名前が同じでしたので・・・違う方なら、ご容赦ください。

【25993】Re:テキストボックスより連続数値取得
質問  たま  - 05/6/21(火) 0:51 -

引用なし
パスワード
   かみちゃんさん、いつもお世話になっております。

>
>>テキストBOXに数値を入力すると
>>連続した数値を表示したく思っています。
>>
>>With Range("A2", Range("A2000").End(xlUp)).Offset(, 11)
>>    .Formula = "=ROW()-1"
>
>この部分を
> .Formula = "=" & TextBox1.Value & "+ROW()-2"
>とするといいかと思います。

この部分ってゆうのは
>>    .Formula = "=ROW()-1"
ですよね?
エラーが出てしまったという事は、事前になにか
書式がいるって事でしょうか??


>>表示は5ケタで表示する様にしたいです。
>
>「セルの書式設定」を「マクロの記録」で記録してみてください。
>
>※そういえば、[#25828]のご質問は解決されたのでしょうか?
> 投稿者のお名前が同じでしたので・・・違う方なら、ご容赦ください。

まさに、私です。申し訳ありませんでした。
過去のマクロを参考にして作成できました。。

【25994】Re:テキストボックスより連続数値取得
発言  かみちゃん  - 05/6/21(火) 6:53 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>この部分を
>> .Formula = "=" & TextBox1.Value & "+ROW()-2"
>>とするといいかと思います。
>
>この部分ってゆうのは
>>>    .Formula = "=ROW()-1"
>ですよね?

そうです。

>エラーが出てしまったという事は、事前になにか
>書式がいるって事でしょうか??

TextBox1に何を入力していて、出たエラーは何なのかを具体的に教えていただけませんか?こちらでは、動作確認済みなのですが・・・
なお、TextBox1.Valueは、数値が入っているものとしており、文字列など入っている場合のエラーチェックはしていません。

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