是非教えてください。急いでいます。
エクセルで請求書台帳管理をしています。
Sheet1に各行に各ユーザ毎の情報が10項目程度あるのですが、請求書に選択した行のユーザに対して、Sheet2に作ってある請求書フォーマットから請求書を出力したいと思っています。
Sheet1で印刷したい行の左側に○つけた時だけ、各項目の内容をSheet2の請求書フォーマットにデータを自働で移して印刷することは出来ますか?
○でなくてもいいので、とにかく選択した行の情報だけを別シートに自働で移せる方法を教えてください。
とても急いでいるので、どうか宜しくお願いいたします。
No.6ベストアンサー
- 回答日時:
> マクロ良く分からないのですが、
まずALTとF11そ同時に押してください
するとVBE(マクロ編集画面)が開きますので左側のSheet1などと書かれている
(○を入力したいシートの名前)でダブルクリックすると
右側に入力できる画面が開きますのでそこに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Range("A:A").Clear
Range("A" & Target.Row).Value = "○"
End If
End Sub
をそのまま貼り付けてください。
既に何かあればそれはそのままにして最終行の下に入れてください。
この回答への補足
ありがとうございます。出来ました。本当に助かります。ありがとうございます。
何回も申し訳ないのですが、後、2個質問させてもらっていいですか?
一つ目ですが、今回の一連の仕様の中で、○をA列として他の列がB~T列まで有るのですが、その内のF~J列はどれか一つしか選択できないようにするにはどうすればいいですか?うまく書けないのですが、例えばF列目に◎を選択したら、残りのG~J列には何も出ない様にしたいです。当然台帳ですので印刷したい行以外の行も同じようにしたいです。
二つ目ですが、これは一つ目の質問に絡むのですが、○で印刷行を選択した後、F列目の◎が付いたところをSheet2の請求書印刷に教えていただいたVLOOKUPでデータを移した後、◎が出ないG~J列の分に「0」が出てしまわない様にするにはどうすればいいですか?
何回も申し訳ありませんが、お願いします。
No.5
- 回答日時:
> ちなみに○を重複させないように、今回印刷したい行に○を付けたら、他の行
> の○は消してしまうということは出来ますか?
> 前に印刷した時の行の○を消し忘れたときに対応できるようにしたいのですが?
> また○をプルダウンで出したいのですが、どの様にすればいいですか?
該当するシートのマクロに以下のコードを記載してください。
A列のセルを選択すると選択したセルに○が表示されます
列を変更したい場合
Target.Column = 1の1を列数にあわせて変更してください。
Range("A:A").ClearのA:Aを列にあわせて変更してください。
Range("A" & Target.Row).Value = "○"の"A"を列にあわせて変更してください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Range("A:A").Clear
Range("A" & Target.Row).Value = "○"
End If
End Sub
この回答への補足
すみません。
マクロ良く分からないのですが、
マクロ開くと、以下が行がすでにあるのですが、
ここから
Sub Macro1()
'
' Macro1 Macro
'
Application.Goto Reference:="Macro1"
End Sub
ここまでがすでにあります。
上記を編集して
Sub Macro1()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Range("A:A").Clear
Range("A" & Target.Row).Value = "○"
End If
End Sub
とすればいいと思うのですが、これで実行するとEnd Subがあるのに
「End Subが必要です」のエラーが出るのですが、どの様にするのが正しいですか?
No.4
- 回答日時:
マクロで行うのが一番の方法だと思いますが
できないのであれば
シート1に請求情報が一行一件づつある。
シート2に印刷する請求書の様式がある。
という条件でしたら
シート1に顧客コードみたいなのがあればそのキーでソートしておく
シート2のシート1から転記するセルに顧客コードをキーとするVlookup 関数でシート1から抽出したデータを表示するようにする。
シート2に対象の顧客コードを入力しては印刷するというのはどうでしょう。
No.3
- 回答日時:
マクロならば可能ですがそうでない場合にはワードで請求書を作りワードの差し込み印刷を利用して対応するのがよいでしょう。
いずれにしろ自動で印刷となりますとマクロで対応することになりますね。
No.2
- 回答日時:
シート範囲を選択して○の列にオートフィルタを掛けて、抽出したデータを丸ごとコピーし、任意のシートに貼り付けます。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/filte …
No.1
- 回答日時:
どのセルにデータが入っているのか分かりませんが
たとえばSheet1のA1からC7までデータがあるとした場合
Sheet2のデータを取り出したいセルに
=VLOOKUP("○",Sheet1!$A$1:$C$7,2,FALSE)
とすれば○の付いた行のデータが取り出せます。
上記の場合はA列に○を入力しB列のデータを取り出しています。
2を3にすればC列のデータが取り出せます。
ありがとうございました。
早速試してみます。
ちなみに○を重複させないように、今回印刷したい行に○を付けたら、他の行の○は消してしまうということは出来ますか?
前に印刷した時の行の○を消し忘れたときに対応できるようにしたいのですが?
また○をプルダウンで出したいのですが、どの様にすればいいですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 仕事術・業務効率化 使用中のソフトで、インボイス制度に対応する為の作業料が30万以上。普通? 4 2023/06/15 21:26
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- その他(税金) 例えば、取引先よりインボイス制度の連絡がきて 用紙にある 適格請求書発行事業者に登録しない の項目を 2 2023/08/03 00:19
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- 弁護士・行政書士・司法書士・社会保険労務士 行政書士試験の行政法についての質問になります。 行政法の行政法総論についての質問になります。 問 地 1 2023/08/09 17:19
- 個人事業主・自営業・フリーランス インボイス制度について、ホームページを見たりして調べたのですが、今ひとつ要領を得ません こういうこと 1 2023/02/12 15:50
- Visual Basic(VBA) Excel VBA 複数選択したリストボックスからテキストボックスに転記したいです。 3 2023/03/19 18:31
- Word(ワード) エクセル→ワード差し込み印刷 1 2022/10/05 17:32
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
フラグを立てた物のみを別シートへ反映したい
Excel(エクセル)
-
エクセルで、チェックボックスにチェックをいれた行のデータのみを別シートに転記するには
Excel(エクセル)
-
【エクセル関数】特定のフラグのデータだけ抜き出す方法について
その他(Microsoft Office)
-
-
4
エクセルでフラグがたっている場合、そのレコードを抽出して別シートに表を作りたい
Excel(エクセル)
-
5
【エクセル関数】特定のフラグのデータだけ抜き出す方法について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
Officeの字体
-
Outlookで、任意のメールアドレ...
-
Microsoft365で自動保存が出来...
-
英数字のみ全角から半角に変換
-
Microsoft Formsの「個人情報や...
-
Office2021を別のPCにインスト...
-
エクセルでXLOOKUP関数...
-
Outlook で宛先が複数の場合の人数
-
複数の写真を1枚に印刷
-
Outlook 電源OFFの受診の仕方
-
Excel テーブル内の空白行の削除
-
outlookのメールが固まってしま...
-
マイクロソフト 一時使用コード...
-
office365って抵抗感ないですか?
-
会社PCのメールが更新されない
-
Excelで空白以外の値がある列の...
-
ウィンドウィズ メモ帳で日付だ...
-
マクロ自動コピペ 貼り付ける場...
-
VBAファイルの保存先について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
【スプレッドシート】指定の日...
-
英数字のみ全角から半角に変換
-
会社PCのメールが更新されない
-
マイクロソフト 一時使用コード...
-
Office 2021 Professional Plus...
-
エクセルで例えば、関数を使っ...
-
Microsoft Formsの「個人情報や...
-
1つのPCに「Excel 2010」「Exc...
-
エクセルで例えば、A1に㈱ベ...
-
理由を教えてください。
-
エクセルでXLOOKUP関数...
-
マイクロソフト オフィスについて
-
VLOOKUP関数について
-
teams設定教えて下さい。 ①ビデ...
-
Googleのスプレッドシートでシ...
-
【Excel VBA】PDFを作成して,...
-
Microsoft365で写真をアルバム...
-
Outlook で宛先が複数の場合の人数
-
Excel テーブル内の空白行の削除
おすすめ情報