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 -
引用なし
パスワード
   いつもお世話になっております。

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

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

表示は５ケタで表示する様にしたいです。
テキストＢＯＸは初めてなのでヒントだけでもよろしくお願いします。。
【25991】Re:テキストボックスより連続数値取得
回答  かみちゃん  - 05/6/21(火) 0:33 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

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

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

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

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

※そういえば、[#25828]のご質問は解決されたのでしょうか？
　投稿者のお名前が同じでしたので・・・違う方なら、ご容赦ください。
【25993】Re:テキストボックスより連続数値取得
質問  たま  - 05/6/21(火) 0:51 -
引用なし
パスワード
   かみちゃんさん、いつもお世話になっております。

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

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


>>表示は５ケタで表示する様にしたいです。
>
>「セルの書式設定」を「マクロの記録」で記録してみてください。
>
>※そういえば、[#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