是非教えてください。急いでいます。
エクセルで請求書台帳管理をしています。
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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル関数について
-
【スプレドシート】IMPORTRANGE...
-
会社PCのメールが更新されない
-
マイクロソフト 一時使用コード...
-
Microsoft Formsの「個人情報や...
-
【スプレッドシート】指定の日...
-
英数字のみ全角から半角に変換
-
会社のTeamsのことで相談です。...
-
エクセルでXLOOKUP関数...
-
office2010とoffice365の共存で...
-
会社のPCに入っているExcelでバ...
-
VBA
-
自分の専門分野の仕事。初見で...
-
Excel関数について質問ですm(__)m
-
マクロ自動コピペ 貼り付ける場...
-
【Excel VBA】PDFを作成して,...
-
マイクロソフト365の「無料でサ...
-
Outlook 電源OFFの受診の仕方
-
Microsoft365で写真をアルバム...
-
Excelで時間計算(負)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
マイクロソフト 一時使用コード...
-
outlookのツールバーが縦になっ...
-
【Excel】セル内の文字が正しい...
-
Excel テーブル内の空白行の削除
-
Microsoft 365 Apps for busine...
-
Microsoft Formsの「個人情報や...
-
【スプレッドシート】指定の日...
-
office2010とoffice365の共存で...
-
web上にあるエクセルをショート...
-
英数字のみ全角から半角に変換
-
Excel データの並び替えについて
-
何文字超えたファイルだけを抽...
-
エクセルマクロ(超初心者)
-
Microsoft Officeを2台目のPCに...
-
パソコン買い換え Office移行 ...
-
【スプレッドシート】白色のセ...
-
会社PCのメールが更新されない
-
IF(EXACT(B1,B2),"一致","不一...
-
http://oshiete.goo.ne.jp/qa/1...
おすすめ情報