Gizport
1 回答
0
Share (facebook)
60
view
全般

EXCEL / VBAの入力フォームについて教えてください。>< ま...

EXCEL / VBAの入力フォームについて教えてください。>< まず、sheet1、sheet2があります。

sheet2は基データで、A列に数字が1から順番に入っており、B列~F列にはそれぞれデータが入っています。
(1行目には「1あいうえお」、2行目には「2かきくけこ」など。)

sheet1はsheet2を参照して、D3セルに数字を入れたらB6~B10にデータが表示されるよう、vlookup関数が設定されている雛型シートとなります。

そして、必要なデータを雛型のsheet1に表示させてsheet1を印刷をします。
それが少量なら問題ないのですが、例えば番号1~150のデータを全て印刷となると、1つ1つ番号を入れて1枚ごと印刷するのはとても手間がかかるため、これを入力用のユーザーフォームを使って簡略化させたいのです。

例えば、画像のように、入力フォームの開始番号欄に「1」、終了番号欄に「150」と入力し、印刷というボタンを押したら、sheet2の1~150までのデータがsheet1の雛型に表示され、それらが全て印刷されるといったものを作りたいです。(全部で150枚が印刷される。)
もちろん、他にもっと良い方法があり、誰でも簡単に使えそうなものがあれば、何でもOKです。

ものすごく伝わりづらい質問内容だったらごめんなさい・・・T_T
当方、VBAは超初心者で入力フォームなども初めて作成したド素人ですので、どうか優しい方、お力を貸して下さい。。。
Yahoo!知恵袋 4035日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
開始番号欄が、TextBox1
終了番号欄が、TextBox2
コマンドボタンが、CommandButton1
として
コマンドボタンのソースに以下のコードを記述してみてください。
(未実行のため結果は保証できません)

Private Sub CommandButton1_Click()
dim i as Long
For i = Me.TextBox1.Value To Me.TextBox2.Value
With Worksheets("Sheet1")
.Range("D3").Value = i
.PrintOut Copies:=1
End With
Next i
End Sub
Yahoo!知恵袋 4034日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
67
Views
質問者が納得下の図のようなことでしょうか? ・A列~D列は貴殿の画像のとおりで、一部データを変えています。 ・E列とF列に、合計数値の表示された品目と合計を集約しています。 ①D2セルには貴殿の=IF(SUMIF($A$2:$A$10,C2,$B$2:$B$10)=0,"",(SUMIF($A$2:$A$10,C2,$B$2:$B$10)))の数式が入っています。 ②E2セルには=IF(COUNT(D$2:D$7)<ROW(E1),"",INDEX(C:C,SMALL(I...
3584日前view67
全般
49
Views
質問者が納得B1セルの値が時刻のシリアル値になっているためにそのように表示されてしまいます。そのためB1セルの値をTEXT関数を使って時刻の表示に変えることですね。 =A1&IF(B1="","",TEXT(B1,"h:mm"))&C1&D1 IF関数を使っているのはB1セルが空白でしたら空白にするためです。
3593日前view49
全般
62
Views
質問者が納得やめとけ ドコモで機種変更したら大損しますよ。おそらく旧料金プランでしょうから、機種変更すると新料金プランに半強制変更。料金割高になります。 旧料金プラン タブレット 3791円(プラスXi割、7GB) 新料金プラン タブレット 5500円(2GB) ドコモがタブレット2500円で使える!と盛んに宣してますが、家族の誰かが9500円以上の負担をしているから使えるだけ。2台目プラスってのもありますが、容量全く増えないのにシェアするだけで2500円かかります。 機種はどれでもいいんで白ロムで購入しましょ...
3596日前view62
全般
52
Views
質問者が納得SIMカードはキャリアからの貸与品なので本来は返却する必要があります。しかし、今後もトランスミッター機能を使いたいと言えば返さなくても良いでしょう。
3593日前view52
全般
61
Views
質問者が納得>瞬時にシャッターを切れるようにしています。 ってことは、 被写体を発見したら、それを撮影すべく、急いで設定した撮影するってことでしょうか。 前もって良い撮影場所を研究し、 電車や飛行機の時刻表を元に計算し、 じっくりと計画的に被写体と向かい合って、 じっくりと構図セッティングや撮影設定を行う・・・、 私が思うに、それの方が良い作品に近づくと思います。 あと、私なら昼間は、ISOは基本は100にしますね。足りなかったら400とかにしますけど。ISOは大きいとノイズが入りやすくなります。出来るだけ...
3607日前view61

取扱説明書・マニュアル

921view
http://www.nttdocomo.co.jp/.../F-10D_J_OP_01.pdf
173 ページ6.56 MB
もっと見る

関連製品のQ&A