![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
当方 XP で 2000 です。以下の様な処理を行いと思うのですが、どうしても分りません。
名前 入金額 月分
A 4,000 H21年3月分
A 800 H21年4月分
C 2,000H21年4月分
E 3,900 H21年3月分
E 2,100 H21年4月分
E 1,300 H21年5月分 のデータを以下の
ようプリントする。
(領収書)
A 4,800 H21年3月分
H21年4月分 プリント
(領収書)
C 2,000 H21年4月分 プリント
(領収書)
E 7,300 H21年3月分
H21年4月分
H21年5月分 プリント
1顧客1行でしたら Do~Loop で出来るのですが、n行あるので、どうしてもわかりません。
宜しくお願いします。
No.2ベストアンサー
- 回答日時:
デジタルライフ > ソフトウェア > Office系ソフト で質問した方が回答がたくさん来ますよ。
例えば、セル(i,x) からのデータの取得とブレーク処理はこんな感じでできます。
'1~3列目のデータを、11~13列目にコピーして印刷する場合
i = 2
j = 1
Do
Namae = Cells(i, 2).Value '2列目の名前を取得
Kingaku = Cells(i, 3).Value '3列目の金額を取得
Tsuki = Cells(i, 4).Value '4列目の月を取得
'ブレーク処理
If Namae <> Namae0 And i > 2 Then '名前が1つ前と違うか?(1個目は除く)
GoSub PrintShori '11~13列をプリントする処理へ
xxx '11列~13列をクリアする処理をここに入れる
j = 1 '印刷対象の行をリセット
ElseIf Namae = "" Then '終了条件 データがなかったら抜ける
Exit Do
End If
Cells(j, 11).Value = Namae '11列目にコピーしておく
Cells(j, 12).Value = Kingaku
Cells(j, 13).Value = Tsuki
Namae0 = Namae '次の処理のために名前を覚えておく
j = j + 1
i = i + 1
Loop
a = MsgBox("処理終了!!")
入口が デジタルライフ とは夢にも思いませんでした。
仕事の関係で利用させていただいてましたので ず~と このカテゴリーでしか おもいつかなかったです。
違うところにず~といて、本当の居場所をやっと発見したと言った気持ちで、本当にうれしくなりました。
ありがとうございました。
No.1
- 回答日時:
コードは分かる方とお見受けしますので発想だけ。
要は「名前・期間単位で集計して、ブレークしたら印刷」で良いわけで、
「ブレークする条件に"名前"と"期間"の2つがある」と考えれば済みます。
当然その外側に「レコードが終わってないか」という判断も必要ですから
ループは2重になりますね。
即ち、内側のループは
Do~ Loop While (名前が同じ) or (期間が同じ)
という発想で済むはずです。ブレークした後は合計値を0にして、
最後まで繰り返せば良いだけですから、その外側に
Do~ Loop While (金額>0)
これで外側のループはいいはずです。
この回答への補足
実は、コードも余り分っていません。VLOOKUP を使うのか INDEX を使うのか、変わるセル位置をどう指定するのかよく分りません。
補足日時:2009/06/19 17:38お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 列 A に同じ日が2つが必要です。 1 2023/03/28 07:25
- 年末調整 分かる方教えて頂きたいです。 4月から社会人の大学生です。令和5年分(1月から3月分)の源泉徴収票を 3 2023/03/30 11:43
- 法人税 銀行振込の領収書の書き方 4 2022/09/21 12:21
- 年末調整 令和4年分 給与所得者の基礎控除申告書 兼 給与所得者の配偶者控除等申告書 兼所得金額調整控除申告書 3 2022/11/04 03:46
- 厚生年金 離婚に伴う合意分割について。 結婚5年間のうち、4ヶ月だけ厚生年金に加入していた期間がありました。( 1 2022/11/11 18:08
- 妊娠 妊娠の可能性?生理不順? どちらかわからなくもしこのような経験がある方が居たら教えて頂きたいなとと思 1 2023/05/22 23:30
- その他(悩み相談・人生相談) 彼氏が都内住みなのに千葉市川の美容院に行き始めました。 1時間30分くらいかかるのに、、 ちなみに 2 2022/05/25 09:32
- その他(悩み相談・人生相談) 彼氏が都内住みなのに千葉市川の美容院に行き始めました。 1時間30分くらいかかるのに、、 ちなみに 5 2022/05/25 13:27
- 就職・退職 給料の支払いについて 3月7日に内定を貰い、8日から出勤、精神的に耐えられず4月8日に辞めました。前 3 2022/05/10 15:13
- 所得税 給与所得の源泉徴収税額について 2 2023/06/22 00:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複合機でのコピーとPCからの...
-
圧縮ソフト 7-Zipについて...
-
PDF Xchange viewer で編集する...
-
添付画像のように、Excel データタフ...
-
複数あるPDFファイルのページ数...
-
iphoneから[Documents」を取り...
-
PDFファイル
-
フォルダ内にあるPDFファイルを...
-
PDFファイルの表示方法の固定化...
-
ワードをPDFに変換する際、表ツ...
-
ExcelをPDF変換するときにハイ...
-
直前に閲覧していたページへ簡...
-
!!大至急!! 7-zipの「ソリ...
-
2個のA4サイズの複数ページPDF...
-
Windows10へDirectx11をインス...
-
PDFの文書をWordにしたら表示崩...
-
PFDでスキャンした画像の向...
-
圧縮したもの(ZIP)を更に圧縮...
-
WordからPDFに変換すると、文書...
-
PDFの画像を着色することはでき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複合機でのコピーとPCからの...
-
オリジナルナイロン生地の製作方法
-
個人で作れるオリジナル商品の...
-
キンコーズがあるまえはどうや...
-
Tシャツを手作りしたい!!
-
A4-2枚集約→A4-1枚にコピーし...
-
シルクスクリーンのデータ制作...
-
こんにちは、高校地歴公民教員...
-
プリントをくれました を敬語に...
-
コンビニのコピー機
-
イラストレーターを印刷したら...
-
イラストレーターで特定の版だ...
-
コピー機のデータ復元
-
コピー機の使い方を教えてくだ...
-
Tシャツ販売
-
キンコーズでプリント
-
コピー機から情報が漏れる? ...
-
excel のマクロ を教えてくださ...
-
ナイロン生地に転写プリントで...
-
圧縮ソフト 7-Zipについて...
おすすめ情報