エクセル2000で見積書を作成しています。
項目名等のみのフォーマットを原紙として保存してあり、実際に明細を作成した時は別名で新規保存しているのですが、その原紙を起動した時点で自動的に新しい見積書NO.をつけてくれる簡単な機能などありますでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (3件)

最初の設定だけ少し手順が必要ですが


それ以降はボタン1つなのでご協力下さい。
もしもの場合に備えてバックアップをとってから実施して下さい。


では以下の手順でお願します。


「マクロの貼り付け」
「準備」
「実行」



「マクロの貼り付け」
1.見積のブックを開いて
2.Alt + F11 を押して VBE を起動して下さい。
3.ツールバーの「挿入」-「標準モジュール」
を選んで下さい。
4.出てきた白紙に下のソースを貼りつけて下さい。
5.ツールバーの「ファイル」-「終了してエクセルに戻る」
を選択してエクセルに戻って下さい。



「準備」
1.見積書のシート名を「見積」に変えて下さい。
2.ツールバーの
「ツール」-「マクロ」-「マクロ」を選んで
中から「準備」を選択して、実行して下さい。


これで準備完了です。



「実行」
表示された表に
1.会社名
2.支店名
3.パス
を入れて下さい。

1.会社名は実際にあるフォルダの名前を入力下さい。
まだ実際にフォルダが無い場合は、作成後に入力下さい。
3.パスは実際に1の会社名フォルダのある場所を記入下さい。
1と3はそれぞれディスク上に無いとエラーになります。



見積を作成後、スタートボタンを押して下さい。
設定のままだと下の場所に作られます。

C:\WINDOWS\日本株式会社\0001アフリカ支社.xls





「注意点」

1.「設定」では、会社名、支店名、パス以外は変更しないで下さい。
行や列の移動や削除は行わないで下さい。

2.シート「見積」は、名前を「見積」以外にしないで下さい。

3.準備作業は最初の1回だけ行って下さい。
2回やるとエラーになります。
(もし行う場合は、シート「設定」を削除してから行って下さい。)

4.登録するフォルダは事前に作っておいて下さい。
実行後に、実在しないフォルダが指定されているとエラーになります。

5.見積番号は、自動連番です。
1度スタートボタンを押すと、番号が1つ進みます。
もしも番号を操作する場合(一つ戻す、リセットするなど)は、
シート「設定」の非表示にしてある2行目の数字
「前回見積No.」を変更して下さい。
他は計算式が入っているので注意下さい。


スタートボタンは右クリックするとコピーができます。
場所やシートを移動する場合は、適当な位置へ動かして下さい。

その他何かあれば小さなことでも構いません、連絡下さい。



下をコピーして貼りつけて下さい。

Sub 見積連番保存()

見積番号 = Sheets("設定").Cells(4, 4)
会社名 = Sheets("設定").Cells(6, 4)
支店名 = Sheets("設定").Cells(7, 4)
パス = Sheets("設定").Cells(8, 4)
フルパス = パス & 会社名 & "\" & 見積番号 & 支店名 & ".xls"

Sheets("見積").Select
Sheets("見積").Copy
ActiveWorkbook.SaveAs FileName:=フルパス
ActiveWorkbook.Close

Sheets("設定").Cells(2, 4) = 見積番号
ActiveWorkbook.Save

Sheets("設定").Select
MsgBox "見積書を保存しました。 " & フルパス
End Sub
Sub 準備()
Sheets.Add
ActiveSheet.Name = "設定"

Range("C2") = "前回見積No."
Range("C4") = "今回見積No."
Range("C6") = "会社名"
Range("C7") = "支店名"
Range("C8") = "パス"
Range("C10") = "予定ファイル名"
Range("C11") = "予定登録先"
Range("D2").FormulaR1C1 = "0"
Range("D3").FormulaR1C1 = "=+R[-1]C+1"
Range("D4").Formula = "=REPT(0,4-LENB(D3))&D3"
Range("D6") = "日本株式会社"
Range("D7") = "アフリカ支社"
Range("D8") = "C:\WINDOWS\"
Range("D10").Formula = "=REPT(0,4-LENB(D3))&D3&D7"
Range("D11").Formula = "=D8&D6&""\""&REPT(0,4-LENB(D3))&D3&D7&"".xls"""
Range("E2") = "変更不可"
Range("E3") = "変更不可"
Range("E4") = "変更不可"
Range("E10") = "変更不可"
Range("E11") = "変更不可"
'青
Range("B5:C9,D5:E5,D9:E9,E6:E8").Select
With Selection.Interior
.ColorIndex = 34
End With
'グレー
Range("B2:E4,B10:E11").Select
With Selection.Interior
.ColorIndex = 15
End With
'太字
Range("C2:C4,C10:C11").Select
Selection.Font.Bold = True
'16ポイント
Range("D6:D8").Select
With Selection.Font
.Name = "MS Pゴシック"
.Size = 16
End With
'中中
Range("C6:C8").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
'height
Rows("6:8").Select
Selection.RowHeight = 30
'width
Columns("A").ColumnWidth = 1.88
Columns("B").ColumnWidth = 7.38
Columns("C").ColumnWidth = 14.5
Columns("D").ColumnWidth = 51.5
Columns("E").ColumnWidth = 8.75
'グループ化 非表示
Rows("2:3").Select
Selection.Rows.Group
Selection.EntireRow.Hidden = True
'罫線
Range(Cells(6, 3), Cells(8, 4)).Borders.LineStyle = xlContinuous
Range(Cells(4, 2), Cells(11, 5)).BorderAround xlContinuous

'ボタン作成
Range("C13").Select
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 63, 211.5, 90.75, 54).Select
Selection.ShapeRange.Shadow.Obscured = msoTrue
Selection.ShapeRange.Shadow.Type = msoShadow18
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 45
Selection.ShapeRange.Fill.OneColorGradient msoGradientHorizontal, 2, 1#
Selection.Characters.Text = "" & Chr(10) & "スタートボタン"
With Selection.Characters(Start:=2, Length:=7).Font
.Name = "MS Pゴシック"
.FontStyle = "太字"
.Size = 16
.ColorIndex = 7
End With
Selection.HorizontalAlignment = xlCenter
Selection.ShapeRange.ScaleWidth 1.31, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.89, msoFalse, msoScaleFromTopLeft
Selection.OnAction = "見積連番保存"
Range("D13").Select
ActiveWorkbook.Save
End Sub
    • good
    • 0
この回答へのお礼

ありがとうございました!
記入して頂いたそのまんましてみたら、完璧にできました!
その上、登録まで自動で出来てしまって感激です!
お礼が遅くなりましたが、また何かあれば教えて下さい。

お礼日時:2002/04/02 09:11

できます。


マクロになります。
簡単です。

保存は、ブック自体を別名で保存ですか。
名前の付け方の規則を教えて下さい。
見積書No.の付け方も。

保存する場所は一定のフォルダですか。

良かったら回答下さい。

この回答への補足

簡単にできますか?有り難うございます!

1.保存はブック自体を別名で保存です。
2.ファイル名は「1234大阪支店」というように、最初に見積NOで、その後ろに支店名などを付けてます。
3.フォルダは、「見積書」というフォルダに、元となる「原紙」のファイルと、同じフォルダ内に各会社名のフォルダを複数作ろうかと思っています。で、各会社のフォルダを開けると、2.の各支店の見積書のファイルがあるという感じで考えています。
4.見積書No.の付け方は、今はただ単に「0001」から初めて順番に連番でとっています。

すみません、わかりにくくて…
この説明で理解していただけましたでしょうか?
よろしくお願い致します。

補足日時:2002/03/28 16:22
    • good
    • 0

簡単にはできないような気がします。


『自動的に新しい見積書NO.をつけてくれる』が何に対して付けるのか不明ですが・・・

かなり前に同様の質問に回答した記憶があります。

『エクセルのワークシート(テンプレート)に自動連番を付けられますか』
http://www.okweb.ne.jp/kotaeru.php3?q=82921

ご参考に。

参考URL:http://www.okweb.ne.jp/kotaeru.php3?q=82921
    • good
    • 0
この回答へのお礼

ありがとうございました。
質問する前に検索して読ませて頂いたのですが、何分素人で理解ができませんでした。でも、これを機に、ベーシック?なるものを勉強していきたいと思いますので、また宜しくお願いします。

お礼日時:2002/04/02 09:14

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセル プルダウンの作り方

お世話になります。
エクセルでプルダウンの作り方を教えていただけませんでしょうか?
住所を▼のボタンでクリックしたら【北海道,青森,秋田,岩手・・・】などの選択ができるようにしたいのです。
宜しくお願いします。

Aベストアンサー

メニューから「データ」、「入力規則」、「設定」で「入力値の種類」を「リスト」を選択します。
そうすると「元の値」という表示がでますので、そこで前もって作っておいたリストの範囲を指定します。
多くないのでしたら、そのままそこにカンマで区切って入力しても出来ます。

QExcelで見積明細書を作成、小計の位置を自在に変更したい

C列:「寸法」
D列:「数量」
F列:「単価」
G列:「金額(D列×F列)」
行2~行83まで
G84セルにG列の合計が入ります。

こういう雛形の見積明細書で例えばC6セルに「小計」と入力すると、G2セル~G5セル間での小計をG6セル表示させるようにし、G7セルからは通常通りD列×F列の結果が表示され、さらにC15セルに「小計」と入力すると、G7セル~G14セル間での小計をG15セル表示させるようにし、最終的には全ての小計の合計がG84セルに結果表示させるようなことは可能でしょうか?

マクロでないと出来ないなら、当方は知識を全く持ち合わせておりませんので、かなり困難かと思いますので、関数だけで対処できると助かります。
不足情報は補足致します。
よろしくお願い致します。

Aベストアンサー

#05です
COUNTIFではなくSUMIFでした

Qエクセルでプルダウンメニューの作り方

  エクセルの画面で、よく三角形を逆さまにした形をクリックするといくつかメニューが出てき、どれかを選べるようになっていますが、その作り方を教えてください。
 会社で人事を担当していますが、三角形(プルダウンボタン)をクリックすると社員氏名一覧が表示され、そこから選択できるようにしたいのです。
 しばらく自力でいろいろやってみましたが、さっぱり見当がつかず、どうやればいいのか分かりませんでした。よろしくお願いします。

Aベストアンサー

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならないでしょうか?
Excel2007の場合は↓のURLが参考になるかもしれません。

http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-ny_kis2.html

尚、同一Sheetに「名簿表」を作成する場合は名前定義する必要はなくて
「元の値」の右側の四角をクリックし、リスト表示したいセルをそのまま範囲指定すればOKです。

以上、お役に立てば良いのですが・・・m(_ _)m

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならない...続きを読む

Qエクセル2000で見積書と請求書を作成するとき・・・

エクセル2000で、シート1に見積書、シート2に請求書を作っているところです。レイアウトと数式は完成しました。タイトル以外は見積書も請求書もまったく同じ内容なので、データを見積書分と請求書分2回入力せず、省略できればと思います。

シート1(見積書)に文字などを入力したら、シート2(請求書)の同じ位置のセルに文字が自動的に入力されている設定にしたいです。このようなことはできるのでしょうか?

Aベストアンサー

見積書と言う文字を請求書と出すにはマクロを書かないと無理でしょう(笑)
それは冗談として(目的が違いますね)

シート2を開いて自動入力したいセルに「=」と入れた状態で、シート1の
タブをクリックします。するとシート1を表示させます。その状態で入力する
セルをクリックし、エンターを押すだけで終りです。
シート2のセルに =Sheet1!A1 のような式が出来ていれば正解です。

複数のセルがある場合(当然ですね)形が同じなので上の方法で入れた計算式
を全体にコピーすれば完了です。

Qエクセル(Excel) 納品書の作り方【画像修正版

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が見にくかったのでシート<CENTER></CENTER>だけにしました。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルでコピー!
そのまま最後の24行目までコピーしておきます。

F4セルには
=IF(COUNTBLANK(B4:E4),"",D4*E4)
という数式を入れ、F24までオートフィルでコピー!

これでB列に商品番号を入力すればSheet2のデータが反映され、
E列に数量を入力でF列に金額が表示されると思います。

最後に合計金額のF26セルは
=IF(COUNT(F4:F24),SUM(F4:F24),"")
手数料のF27セルは
=IF(F26="","",F26*0.2)

これで何とか形にならないでしょうか?

※ 振込金額の欄は不明ですので手を付けていません。

参考になりますかね?m(_ _)m

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルで...続きを読む

Qexcelでの見積書作成ですが…

よろしくお願いいたします。
EXEL2003で見積書を自作しております。
項目、数値を入力すると自動的にもう一枚の「見積書(控)」に反映されるようにしたいのですが、うまくいきません。
たとえばA-5のセルに得意先名を入れたとすると、控えのほうの対応するセルに「=A5」と入力しても、数値以外は認識せず、「0」とでるのみです。
どなたか教えてください。お願いします。

Aベストアンサー

その控えって、もしかして別のワークシートではありませんか?
=Sheet1!A5という風にしないと、別シートは参照できません。
元の見積書をコピーして、別ワークシートに
[編集]→[形式を選択して貼り付け]から
「リンク貼り付け」というボタンを押せば参照式を自分で入れなくても済みます。

Qエクセル(Excel) 納品書の作り方【改めて】

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が貼り付けてあります。商品名は1番以外伏せさせていただいています。
くっつけてありますが、左側がシート1・右側がシート2です。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

画像がいまいちよく見えないのですが、納品書の項目は左から、No、商品番号、商品名、単価、数量、金額でいいのでしょうか(名前は多少違っていても意味があっていればもんだいないです)

でしたら、
C1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,2,FALSE))
D1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,3,FALSE))
E1セルは空白で
F1セルに=IF(D2="","",D2*E2)
といれて、C1からF1までをコピーしてその下の行にタテに貼り付ければ出来ますよ。
おそらくエラーが出たのは、コピーしたときにVLOOKUP関数の最初のセルの指定がずれてしまっているのでは無いかと思いますよ。     

QEXCELで作成した見積書に印鑑を押す方法。

はじめまして。
このたび、取引先のために見積書を作成しております。
以前、別の取引会社から提出いただいたPDF形式の見積書に印鑑が押されていました。

PC上で見ても印鑑が押されているのですが、これはどのようにすればできるのでしょうか?

おそらくエクセルで作成されたものがPDFに変換されているため、エクセル作成時点でこちらで質問させていただきました。

どうかよろしくお願いいたします。

Aベストアンサー

私の場合は、エクセル、ワードなどのソフトで見積書を作成し、
印鑑をスキャナーで画像(jpg)処理して、赤い部分(朱肉)のところ以外は透明にして、押印したい場所に貼り付ければ、あたかも押印したように見えます。
印鑑は、画像貼り付けということです。
なお、文字などに印鑑が重ならないのであれば、透明にする作業は省いてOKです。

Qエクセル2007でプルダウンで選んだものに反応

Excel2007でプルダウンで選んだものに反応して隣のセルが自動入力される方法(エクセル2007)
A1をプルダウンで「猫」「犬」から選べるようにし、「猫」を選んだ場合B1に自動に「111」が、「犬」を選んだ場合B1に自動に「222」と入力されるようにしたいです。
ご教授の程、宜しくお願いします。

Aベストアンサー

VLOOKUP関数での方法です。
(1)別シートに入力文字列と対応コード表を作成。(仮にSheet2のA:B列範囲で順不同)
(2)B1に=IF(COUNTIF(Sheet2!A:A,A1),VLOOKUP(A1,Sheet2!A:B,2FALSE),"")を設定
   入力文字列が存在しない場合は空白としています。

Q右クリック>新規作成>excel 保存はテキスト?

デスクトップ上などで、右クリックから新規作成を選び
excelファイルを選び、いざ保存しようとすると
なぜかファイルの種類が、デフォルトでテキストになってしまいます。

すべてのプログラムから、エクセルを選んだ場合の保存時は、
ファイルの種類は、デフォルトがエクセルのままとなります。

どちらも、ファイルの種類をデフォルトでエクセルとしたいのですが、
どのように設定すればいいのでしょうか?

OSは、XPです。
execlのバージョンは、97です。

Aベストアンサー

こんばんは。

おそらく、Office 97 +Win XP では、Office 側の OS の認識などがうまく行っていないのではないかと思います。それでも、レジストリ操作をすれば出来ると思います。

http://www.atmarkit.co.jp/fwin2k/win2ktips/282filenew/filenew.html

または、
ベクターから、ツールを探してみたらいかがですか?
検索語「右クリック」
(使ったことがないので、お勧めがありません)


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング