Excel VBA質問箱 IV

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

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


21904 / 76734 ←次へ | 前へ→

【60217】Re:数字キーだけで,セルに数値を入力
お礼  いちご  - 09/2/4(水) 21:20 -

引用なし
パスワード
   kanabun さん  面倒なことばかり申し上げて申し上げありません。


>う〜ん。ちょっと考えるのが億劫になってきました。
>
>それに、今使ってるテキストボックス(ActiveXコントロール)って
>ちょっと動作がかったるい(遅い)と思いませんか?
>なんだかこのままActiveX方式でやるのは実用的ではないような気が
>してきました。

とてのすごい方法だと思っていました。入力がなれてくると,遅い感じ
も持つかもしれませんが,サンプル数が限られているので,十分かなと
思っていました。それに,テキストボックスの動きが,なんとなく可愛
いですよね。この方法,これだけでも,ありがたい方法です。

その上,今回は,また新しい方法を提案してくださって,なんだか申し
訳なく,恐縮してしまいます。
 数字の列が,Enterキーの後,一度にスーと入っていくのは,気持ちが
いいです。また,数字列と文字列を自動に判断してくれるのもいいとこ
ろです。自動で,次の列に移動したり,矢印キーが使えるので,使い勝
手もいい感じがします。

>最後の質問32 を入力し終わると、プログラムは自動的に
>右隣の列の 2行目に 移動します。
>ただし、入力間違いで、質問28から「52242」と打ち込むところを
>間違って「522426」とタイプしたときも警告なしに 34行目に
>「6」が入力されてしまいます。
>ところが ScrollArea で 34行目には移動できないようになってい
>るので、このままでは修正することができません。
>そういうときは ScrollAreaをいったん解除します。

なぜか,質問32より下の方まで,進めていかないと,右隣の列の 2行目
にいないことがあるのですが,34行目,35行目…と入力されていくと,
Me.UsedRange.Rows.Count の値が大きくなっていくという理解でいいので
しょうか。
ScrollAreaについて,よくわからないにですが,データの入力が進んでい
って,列が右に進みはじめに表示されている画面より,右に進むと入力し
ているセルが表示されない(スクロールされない)のですが,なんとかな
らないでしょうか。

>提示のサンプルデータですと、
>数字1文字を入力する範囲が質問1〜質問3までの3セルしかない
>ので、この方法は却って効率悪いかもしれないけれど、
>実際は1文字の数字を連続入力する範囲がもっと多いということを
>想定して組んでみたものです。

実際は,ほとんどが数字です,最後の数項目だけが文字列の入力です。
なので,連続入力する部分が多いので,今回の方法でも,Enterキーを
回数は,ずっと減少し,効率化がはかれます。ありがとうございます。
4 hits

【60174】数字キーだけで,セルに数値を入力 いちご 09/2/1(日) 20:57 質問
【60175】Re:数字キーだけで,セルに数値を入力 kanabun 09/2/2(月) 0:13 発言
【60185】Re:数字キーだけで,セルに数値を入力 いちご 09/2/2(月) 20:30 お礼
【60186】Re:数字キーだけで,セルに数値を入力 kanabun 09/2/2(月) 20:42 発言
【60187】Re:数字キーだけで,セルに数値を入力 いちご 09/2/3(火) 4:18 お礼
【60188】Re:数字キーだけで,セルに数値を入力 kanabun 09/2/3(火) 10:02 発言
【60197】Re:数字キーだけで,セルに数値を入力 いちご 09/2/3(火) 20:44 質問
【60199】Re:数字キーだけで,セルに数値を入力 kanabun 09/2/4(水) 0:40 発言
【60217】Re:数字キーだけで,セルに数値を入力 いちご 09/2/4(水) 21:20 お礼
【60218】Re:数字キーだけで,セルに数値を入力 kanabun 09/2/4(水) 21:46 発言
【60246】Re:数字キーだけで,セルに数値を入力 いちご 09/2/5(木) 20:04 お礼

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