自分で試してみたり、本でサンプルを探したり、ネットで探してみたのですが、
調べ方が悪いのかどうしても見つからなかったのでご質問です。
入力フォームから縦にデータを蓄積する方法として、
With Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Value = TextBox1.Text
.Offset(0, 1).Value = TextBox2.Text
.Offset(0, 2).Value = TextBox3.Text
基本的にこのコードを使っています。
横にデータを蓄積していく場合、End(xlUp)の部分を
End(xlToRight)かEnd(xlToLeft)に変更すればいいものだと
思い込んでいましたが、この変更だけではエラーが出てしまいます。
やりたいことは、
（日付） １ ２ ３・・・・３１（合計）
（商品名）
りんご ２ １ ３０
みかん １ ２ ２０
バナナ ３ ２ １０
合 計 ６ ２ ３ ６０
こんな感じで縦にその日売れた個数を入力していきます。
売れなかった場合は「０」を入力ではなく空白セルとなります。
さらに問題があり、最後の列にも合計があるため、
この合計をスルーして入力ができるようにしなければなりません。
実際のデータは売上個数表ではなく、
最後の合計列の前に小計列がありますので２列分スルーしなければなりません。
もしよろしければ教えてください。
よろしくお願いしますm(__)m
エクセル２００３を使っています。
調べ方が悪いのかどうしても見つからなかったのでご質問です。
入力フォームから縦にデータを蓄積する方法として、
With Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Value = TextBox1.Text
.Offset(0, 1).Value = TextBox2.Text
.Offset(0, 2).Value = TextBox3.Text
基本的にこのコードを使っています。
横にデータを蓄積していく場合、End(xlUp)の部分を
End(xlToRight)かEnd(xlToLeft)に変更すればいいものだと
思い込んでいましたが、この変更だけではエラーが出てしまいます。
やりたいことは、
（日付） １ ２ ３・・・・３１（合計）
（商品名）
りんご ２ １ ３０
みかん １ ２ ２０
バナナ ３ ２ １０
合 計 ６ ２ ３ ６０
こんな感じで縦にその日売れた個数を入力していきます。
売れなかった場合は「０」を入力ではなく空白セルとなります。
さらに問題があり、最後の列にも合計があるため、
この合計をスルーして入力ができるようにしなければなりません。
実際のデータは売上個数表ではなく、
最後の合計列の前に小計列がありますので２列分スルーしなければなりません。
もしよろしければ教えてください。
よろしくお願いしますm(__)m
エクセル２００３を使っています。
|
|
|
|
コメント(13)
色々と質問して申し訳ないのですが、
もうひとつお願いします。
縦にデータ入力の場合、
With Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Value = TextBox1.Text
.Offset(0, 1).Value = TextBox2.Text
.Offset(0, 2).Value = TextBox3.Text
となるので、今回のコードは↓のようになるのかなと思っていましたが、
With Selection.End(xlToLeft).Select
.Value = TextBox1.Text
.Offset(1, 0).Value = TextBox2.Text
.Offset(2, 0).Value = TextBox3.Text
「.Value = TextBox1.Text」
この部分でエラーが出てしまいます。
根本的にやり方が違うのでしょうか？
もうひとつお願いします。
縦にデータ入力の場合、
With Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Value = TextBox1.Text
.Offset(0, 1).Value = TextBox2.Text
.Offset(0, 2).Value = TextBox3.Text
となるので、今回のコードは↓のようになるのかなと思っていましたが、
With Selection.End(xlToLeft).Select
.Value = TextBox1.Text
.Offset(1, 0).Value = TextBox2.Text
.Offset(2, 0).Value = TextBox3.Text
「.Value = TextBox1.Text」
この部分でエラーが出てしまいます。
根本的にやり方が違うのでしょうか？
ご質問を読まずにアップしてました。
携帯は打つのも時間がかかるもので・・・。すびばせん。
今はＰＣからです。
＞マクロの記録で→を最後に押すと
＞Range("B3").Select
でしたね。これは失礼。
ただ改めて書くと最初の構文は
Cells(Rows.Count, 1) .End(xlUp). Offset(1)
Ａ列最下行のセル、 からコントロール＋↑キーで飛んだ先の 。一つ下の
て構文でして
Offset(0,1)
と変えればひとつ右のとなります。
ＯＦＦＳＥＴは本来 Offset（ｙ、ｘ）という形でいくつ縦横にずらせたセルを
参照するかということです。
詳細はヘルプの
Offset プロパティ (Range オブジェクト)
を参照してください。
一つ一つの構文の意味が理解できないと
ご自分で作ることはほぼ無理に近いです。
一気には理解できなくても、そう心がけて進めないと
ゴールは見えてきません。
With Selection.End(xlToLeft).Select
ＳｅｌｅｃｔはメソッドなのでＷｉｔｈを使っても
後ろに構文を続けることはできません。
オブジェクト、メソッド、プロパティをまず理解しましょう。
ヘルプとにらめっこしながら、使用例などをアレンジして
期待する変化が起こるか確かめるなどを、百種類ぐらい
試せば自ずとのみこめてくると思います。
Ｓｅｌｅｃｔはマクロの記録では多用されますがそれは手で操作するから
選択しないと何も出来ないのですが、マクロでは９０％以上のことは
Ｓｅｌｅｃｔ省略で実現できます。
携帯は打つのも時間がかかるもので・・・。すびばせん。
今はＰＣからです。
＞マクロの記録で→を最後に押すと
＞Range("B3").Select
でしたね。これは失礼。
ただ改めて書くと最初の構文は
Cells(Rows.Count, 1) .End(xlUp). Offset(1)
Ａ列最下行のセル、 からコントロール＋↑キーで飛んだ先の 。一つ下の
て構文でして
Offset(0,1)
と変えればひとつ右のとなります。
ＯＦＦＳＥＴは本来 Offset（ｙ、ｘ）という形でいくつ縦横にずらせたセルを
参照するかということです。
詳細はヘルプの
Offset プロパティ (Range オブジェクト)
を参照してください。
一つ一つの構文の意味が理解できないと
ご自分で作ることはほぼ無理に近いです。
一気には理解できなくても、そう心がけて進めないと
ゴールは見えてきません。
With Selection.End(xlToLeft).Select
ＳｅｌｅｃｔはメソッドなのでＷｉｔｈを使っても
後ろに構文を続けることはできません。
オブジェクト、メソッド、プロパティをまず理解しましょう。
ヘルプとにらめっこしながら、使用例などをアレンジして
期待する変化が起こるか確かめるなどを、百種類ぐらい
試せば自ずとのみこめてくると思います。
Ｓｅｌｅｃｔはマクロの記録では多用されますがそれは手で操作するから
選択しないと何も出来ないのですが、マクロでは９０％以上のことは
Ｓｅｌｅｃｔ省略で実現できます。
＞よこまや様
毎回的確なご指摘ありがとうございますm(__)m
今までは初心者向け本の例題のコードをコピーしたり、
マクロの記録を使ったりしていただけなので、
意味もわからないままなんとなくで作ってきました。
もちろん、できる限り調べたりしていたのですけど。
これは言い訳ですね。
でも、少しずつでも理解したいという気持ちはあります。
フォームを使う意図ですが、１日分と１月分の表があります。
例えば２６日分のデータを入力するとしたら、
同じデータを１日分用と１月分用に入力しなければなりません。
当然、１日分と１月分の書式は全然違います。
データ入力も多いので、できるだけ手間とミスをなくすために、
フォームに１回入力しただけで両方にデータ入力をしたいなと思ったのです。
確かに労力に見合うかと言われればその通りなのですが、
自分が使うわけではなく、ＰＣがあまり得意ではない人が使うので、
何とかならないかなと思った次第です。
自分の理解できる範囲で表を変えればいいのですが、
もうすでにデータもかなりあるため、
今後の集計などを考えると書式を変えたくないなと思いました。
色々とありがとうございましたm(__)m
今後のためにもヘルプや本をよく読んで色々と試してみます＾＾
毎回的確なご指摘ありがとうございますm(__)m
今までは初心者向け本の例題のコードをコピーしたり、
マクロの記録を使ったりしていただけなので、
意味もわからないままなんとなくで作ってきました。
もちろん、できる限り調べたりしていたのですけど。
これは言い訳ですね。
でも、少しずつでも理解したいという気持ちはあります。
フォームを使う意図ですが、１日分と１月分の表があります。
例えば２６日分のデータを入力するとしたら、
同じデータを１日分用と１月分用に入力しなければなりません。
当然、１日分と１月分の書式は全然違います。
データ入力も多いので、できるだけ手間とミスをなくすために、
フォームに１回入力しただけで両方にデータ入力をしたいなと思ったのです。
確かに労力に見合うかと言われればその通りなのですが、
自分が使うわけではなく、ＰＣがあまり得意ではない人が使うので、
何とかならないかなと思った次第です。
自分の理解できる範囲で表を変えればいいのですが、
もうすでにデータもかなりあるため、
今後の集計などを考えると書式を変えたくないなと思いました。
色々とありがとうございましたm(__)m
今後のためにもヘルプや本をよく読んで色々と試してみます＾＾
二カ所の入力が一度で済む、勿論それは十二分に正当かつ合理的な理由ですよ。開発コストは一年あればかなり回収出来そうじゃないですか。
ただ、僕なら片方に入力したものを転記するマクロにすると思います。
転記した日付の列にマークをつけてマークのない列に入力があれば転記みたいな形で。
僕がフォームでなくシートへの直接入力にこだわるのは、単なるパンチャーに入力させるなら別ですが、仕事の一環として入力する方なら普段の数値と、入力中の数値はどう違うか普段通りなのか、見比べながらやって欲しいからです。
その事は単なる入力に留まらず必ずその方のスキルアップに繋がると同時に入力ミス、入力元データの記入ミス等の検出チャンスも産みます。
以上はあくまでも僕の考え方だけで状況により適用出来ないケースも多々あるかとは思いますが。
話しを戻してフォームを使う場合、記入列の決定には、シートの上で日付を探して、そこの列を書き換える仕様が妥当ではないかと考えます。
その仕様はデータ修正モードを作成する時にもそのまま流用する事が期待出来ると思うので。
きつい事も書きましたが開発へのご健闘をお祈りしますと共に、引き続いてのご質問をお待ちしております。
ただ、僕なら片方に入力したものを転記するマクロにすると思います。
転記した日付の列にマークをつけてマークのない列に入力があれば転記みたいな形で。
僕がフォームでなくシートへの直接入力にこだわるのは、単なるパンチャーに入力させるなら別ですが、仕事の一環として入力する方なら普段の数値と、入力中の数値はどう違うか普段通りなのか、見比べながらやって欲しいからです。
その事は単なる入力に留まらず必ずその方のスキルアップに繋がると同時に入力ミス、入力元データの記入ミス等の検出チャンスも産みます。
以上はあくまでも僕の考え方だけで状況により適用出来ないケースも多々あるかとは思いますが。
話しを戻してフォームを使う場合、記入列の決定には、シートの上で日付を探して、そこの列を書き換える仕様が妥当ではないかと考えます。
その仕様はデータ修正モードを作成する時にもそのまま流用する事が期待出来ると思うので。
きつい事も書きましたが開発へのご健闘をお祈りしますと共に、引き続いてのご質問をお待ちしております。
- mixiユーザー
- ログインしてコメントしよう！
|
|
|
|
Excel VBA 製作所 更新情報
-
最新のイベント
-
まだ何もありません
-
-
最新のアンケート
-
まだ何もありません
-
