![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.3ベストアンサー
- 回答日時:
ほんとに、もう少しシートとセルを表現して、質問しないと、回答のし様がないですよ。
たとえ回答が載っても、自分で、自分のケースに合わせて、コードを微修正できるのか心配です。
下記は、VBAコード行数を少なく、簡単な内容のコードに限定し、誰でもできるように考えました。見慣れないとすればEND(xlUp)、ForNext,PrintOutしか
使ってません。
例データ
A1:C9
領収明細
連番 相手 領収額
1A商事100
2B産業200
3C商店300
4D工業400
5E物産500
6F洋行600
7G建物700
A列は連番で、空白でよい。プログラムで振ります。
Sheet2に
5
領収書
E物産殿
請求金額500円
のうち
(1)領収書、殿、請求金額は、手入力(1回だけ、不動文字だから)。
(2)500円のセルに#、###1円の書式設定。1回だけ。コードでもできるが、コードを簡単のために。
(3)関数の設定。この場合は得意先名、領収金額の2箇所。
関数はVLOOKUPを使う。Sheet2で、項目をセットしたいセルに入れるわけです。
得意先セルは
=VLOOKUP($A$1,Sheet1!$A$3:$C$11,2,FALSE)
領収金額セルは
=VLOOKUP($A$1,Sheet1!$A$3:$C$11,3,FALSE)
2,3はSheet1の表のなん列めかを指定している。
印刷コード
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
'---最終行
d = sh1.Range("B65536").End(xlUp).Row
MsgBox d
n = 1
'---最終行まで自動採番
For i = 3 To d
sh1.Cells(i, "A") = n
n = n + 1
Next i
'----番号をSheet2のA1に一時的にセット
For i = 1 To d - 2
sh2.Cells(1, "A") = i
sh2.Range("A2:H10").PrintOut 'A2:H10を印刷
Next i
End Sub
A1:h10は実際に合わせて変えて指定してください
この回答へのお礼
お礼日時:2005/12/28 14:15
こんにちは。
すみません。
でも、ご回答は確かに受け取り実行しました。
基本にさせていただいてカスタマイズを実行しようと思います。
No.2
- 回答日時:
何となくやりたいことは分かりますが、それぞれのシートがどうなっている
かも分かりませんし・・・。
詳細を書いて頂くと、質問者様の意図する回答が得られるかもしれませんよ。
No.1
- 回答日時:
ソースを書くには漠然としすぎています。
フリーのものならvectorあたりで見つかります。
http://www.vector.co.jp/soft/win95/business/se38 …
http://www.vector.co.jp/soft/win95/business/se28 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 会計ソフト・業務用ソフト Excelマクロに詳しい方教えてください 1 2023/06/29 16:18
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/02/07 09:58
- Excel(エクセル) Excelでポイントの管理表を作成したいです。 個人ごとにシートを作成し、発行者のシートでポイントを 3 2023/08/22 16:59
- Excel(エクセル) ExcelのVBAコードについて教えてください。 1 2022/06/20 09:22
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) VBAでPowerPointからExcelにレイアウト通りに出力する 4 2023/07/05 12:22
- Excel(エクセル) 再度掲載させていただきます。 Excelでポイントの管理表を作成したいです。 個人ごとにシートを作成 4 2023/08/22 20:24
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ある表にフィルターをかけて出...
-
Lookup関数
-
セルの数を求めたい
-
Excelを無料で使うには? パソ...
-
IFとIFS関数
-
エクセルの数式バーのフォント...
-
EXCELの散布図で日付が1900年に...
-
エクセル日付 文字列の関数がエ...
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
エクセルで「ページレイアウト...
-
【ExcelVBA】名前を付けて保存→...
-
Excelピボットテーブルの1行目
-
エクセルの問題です。絶対値の...
-
Excelの表示についての質問
-
Excel関数について教えてくださ...
-
エクセルのツールバーから数値...
-
Excelで表を作ったところに文字...
-
DATE関数で現在の年齢を出した...
-
Excelデータをコピペして、ペー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報