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ランキング
-
エクセルVBA、別ブックへ転記す...
-
【Excel】数字を3倍にし、なお...
-
エクセルのデーターが2か月前の...
-
エクセル マクロ チェックボックス
-
Excel分析ツールでのポアソン回...
-
エクセル共有したが、アクセス...
-
エクセルの計算
-
【マクロ】顧客番号にて一致さ...
-
(マクロ)データをAブックからB...
-
Excelでセルの値が同じか...
-
UNIQUE関数が使えないバージョ...
-
エクセル:一覧表に存在する文...
-
Excel フィルターを掛けた状態...
-
エクセルを使っていて2024/5/15...
-
Googleスプレッドシートでファ...
-
エクセルで日付を数字+アルフ...
-
エクセル②
-
エクセル 文字を増やしたい。
-
【マクロ】毎回、ファイル名が...
-
[関数得意な方]教えて下さい・...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報