次の設問を、以下の条件に従って解け。
問題群Ａ：為替手形の取引についての問題である。３商店の、①手形発行時②手形決済時の２つについてそれぞれ仕訳せよ。
問題群Ｂ：その直前の問題Ａの続きの問題である。（？？）部分の商店名を答えよ。また、仕訳は（？？）商店のみせよ。
問題群Ｃ：為替手形取引についての基本的な理論問題である。論述して答えよ。
問題群Ｄ：為替手形取引についての応用的な理論問題である。論述して答えよ。


Ａ１）藤田商店は、小川商店に対する買掛金\250,000支払のため、同額の売掛金のある太田商店を名宛人とした為替手形#61について呈示し、同店はこれを承諾した。

Ａ２）渋谷商店は、買掛金のある太田商店より、藤田商店受取の為替手形#11（額面金額\185,000）についての呈示を受け、引き受けた。

Ａ３）藤本商店は、堀江商店に商品\410,000を売り上げ、代金は同店振出、松山商店引受け済みの為替手形#32を受け取った。

Ａ４）塚本商店は、親泊商店より上萩商店を受取人とする為替手形#80を呈示され、同店に対する買掛金\360,000の控除を条件として引き受けを承諾した。

Ｂ１）上記取引について、その後（？？）商店は為手#80を銀行で割り引き、割引料\7,000を差し引かれ、手取り金は当座預金とした。

Ａ５）小原商店は、高坂商店より商品\500,000を仕入れ、代金のうち半分は小切手#42を振り出して支払い、残額については為替手形#39を降り出して支払った。尚この手形は、同額の売掛金のある富田商店が引受済である。

Ｂ２）（？？）商店は、奥田商店に対する買掛金支払のため、上記取引で得ていた為手#39を裏書譲渡して支払った。


Ｃ１）振出人、支払人、受取人が完全に別の会社（親会社・子会社などの関係性がない）である場合、何故振出人は為替手形を振り出し、名宛人に呈示することが可能であるか。

Ｃ２）問Ａ５、Ｂ２について、為手#39が不渡りになった場合、手形を保有する奥田商店が遡及できる可能性のある商店を全て挙げよ。ここで奥田商店はこの手形の最終受取人であり、裏書はしていないものとする。


Ｄ１）上記のような為替手形取引において、受取人が受け取った為替手形を、その後振出人か名宛人に裏書譲渡するケースを考える。この時、借方に「支払手形」が来る仕訳をするのは振出人、名宛人どちらの立場の者か。またそれは何故か、説明せよ。

Ｄ２）為替手形取引を考える上で、振出人は利便性を得る代わりに２つの責任・義務を負う。１つは名宛人に対し、取引を迅速かつ円滑に進めるために根回しをする義務である。あともう１つは何か。

以下の取引を、（）内の立場で仕訳せよ。
尚、各取引は連続して起こっており（例題を除く）、全ての店舗は当座取引に関して一勘定制を用いている。

例
Ｑ）愛知商店は、三重商店へ商品1,000を売り上げ、代金は掛けとした。（愛知商店、三重商店）
Ａ）愛知商店：売掛金 1,000 / 売上 1,000
三重商店：仕入 1,000 / 買掛金 1,000


6/30
黒木商店は、磯谷商店より商品¥450,000を仕入れ、代金のうち¥200,000は小切手#22を振り出して支払い、残額は約束手形#10（期日：9/29）を振り出して支払った。（黒木商店、磯谷商店）

7/5
磯谷商店は、小川商店に対し買掛金¥300,000を支払うため、かねてより受け取っていた黒木商店振り出しの約束手形#10を裏書きし、残額は磯谷商店振り出しの約束手形#68（期日：10/4）を振り出して支払った。（磯谷商店、小川商店）

7/19
小川商店は、かねてより受け取っていた黒木商店振り出しの約束手形#10を銀行で割り引き、割引料¥6,000を差し引かれ、差額を当座預金とした。（小川商店）

8/1
小川商店は、大平商店より現金¥400,000を借り入れた。尚借り入れの際、同額の約束手形#93（期日：10/30）を振り出した。（小川商店、大平商店）

8/20
大平商店は、黒木商店より商品¥400,000を仕入れ、代金はかねてより小川商店より受け取っていた同店振り出しの約束手形#93を裏書きした。（大平商店、黒木商店）

9/3
磯谷商店は、黒木商店に対し買掛金¥300,000を支払うため、同額の約束手形#41（期日：11/2）を振り出して支払った。（磯谷商店）

9/27
磯谷商店は、かねてより振り出していた約束手形#68について小川商店に手形の更改を打診したところ、これについての了承を受けたので、約束手形#68を回収し、新たに約束手形#70（期日：12/26）を振り出した。尚、これにかかる延滞利息¥4,000は、手形決済時に現金で支払う約束をした。（磯谷商店、小川商店）

10/3
黒木商店は、小川商店より商品¥500,000を仕入れ、代金のうち¥400,000はかねてより大平商店より受け取っていた、小川商店振り出しの約束手形#93を裏書きし、残額は小切手を振り出して支払った。（黒木商店、小川商店）

10/31
磯谷商店は、かねてより振り出していた約束手形#41について黒木商店に手形の更改を打診したところ、拒絶された。（磯谷商店）

11/3
黒木商店は、かねてより受け取っていた、磯谷商店振り出しの約束手形#41が本日不渡になったため、即座に磯谷商店に対し遡及し、それに際する証書作成費用¥7,000は現金で支払った。（黒木商店、磯谷商店）

*
「愛してる」っていうあなたの言葉は
「さよなら」よりも哀しい
これ以上　何も言わなくていい
だから　この夜を止めてよ

息するみたいに　二人は出会ったね
疑いもせずに
傷つけ　傷つき
痛みこそ愛だと　信じてきた日々

声をひそめながら 二人だけの秘密を
ひとつずつ増やすたび
つくり笑い　心で泣いてる

同じ色の夢見ていたいのに
違う道に離れてく
出会いの時を選べないのなら
せめて　この夜を止めてよ


大きな背中を　見つめていられたら
それでよかったのに
どんなに激しく　あなたを愛しても
答えは見えない

終わりにしたいのなら　５秒だけ下さい
目を閉じて深呼吸
その間に忘れてあげるわ

*Rep


あまい過去の記憶なんて
私は惜しくない
かたちのある未来なんか
しがみつきたくはない

同じ色の夢見てたつもりで
違う道を歩いてた
別れの時も選べないのなら
せめて　この夜を

*Rep


ねえお願い
この夜を止めてよ

仕入先一柳商店より商品\250,000を仕入れ、代金のうち半分は現金で支払い、残額は掛けとした。

得意先今吉商店にかねてより販売した商品代金の未収分のうち30%を現金で受け取った。

販路拡大を狙い、藤本商店へ商品\70,000(うち利益\10,000)の販売交渉をしていたが、来月に買い取るという旨の連絡を受けた。

半年分の水道光熱費\30,000を現金で支払った。

社員の総務課太田氏が一万円をシュレッダーにかけてしまった。尚、これにかかる損失は雑損勘定を用いて記録する。

かねてより得意先今吉商店に販売していた商品のうち不良品があったとの事だったので、一部返品された。返品された商品の原価は\2,000であり、うち\200の利益を見込んでいたものである。これにかかる代金は、当店の売掛金から控除した。

決算にあたり、固定資産（建物、備品）の減価償却を行う。いずれも残存価格は取得価格の10%とし、定額法、直接法により減価償却を行え。

聞いて欲しい歌があるよ
いつか言いたかった言葉があるよ

それは特別なことなんかじゃないんだ
そうそれは難しいことなんかじゃないんだ

ただ地図を広げて
ただ風を待ってたんだ　答えもなく
いま僕は行くのさ
イメージの向こう側へ　僕の向こうへと
さぁ飛び立とう


君が　君だけが　教えてくれたよ
いつまでも色褪せない憧れがあるよ

だから行かなくちゃ
サヨナラのかわりに　君がくれたんだ
この勇気をくれたんだ

ただ雨に打たれ
ただ虹を待ってたんだ疑いもせずに

いま僕は行くのさ
イメージの向こう側へ　空の向こうへと
この翼で

僕がいつか風を追い越せるその時
僕がいつか虹を手に入れるその時
君は笑ってくれるのかな
また逢えるかな

ただ地図を広げて
ただ風を待ってたんだ　答えもなく
いま僕は行くのさ
イメージの向こう側へ　僕の向こうへと

ただ雨に打たれ
ただ虹を待ってたんだ疑いもせずに

いま僕は行くのさ
イメージの向こう側へ　君の空へ
僕の虹へ　飛び立つのさ

「ごめんね」
どうして素直に言えないんだろう

「ありがとう」
本当はね　いつでも思ってる

口下手なとこ　背が高いとこ
嫌いじゃないかな
好きになってくれるかな

愛したい　あなたに逢いたい
いまこの胸の奥で叫んでるよ

愛される明日を夢見る
もうこの心　ぜんぶあなたのもの
あなただけのもの


「バカだな」
笑ってたまに叱ってくれる

「頑張れ」
本気でね　励ましてくれる

わたし哀しい恋をしてたこと
知っているから
あなたやさしくするのかな

でも大好きよ　あなたに逢いたい
また眠れぬ夜の終わらない祈り

お喋りしたり　手を繋いだり
今夜夢で逢えたら　うれしすぎて
泣いてしまうかも


同じバス停　雨の坂道　ひとつの傘で
貰ったミルクティ　教えてくれた歌
そのすべてが暖かくて

愛したい　あなたに逢いたい
いまこの胸の奥で叫んでるよ

愛される明日を夢見る
もうこの心　ぜんぶあなたのもの
あなただけのもの

口に出した途端に
心に留めておけばよかったって悔やむけど

Hey what is real? Life is up and down.
When I look up dark sky, it's totally upside down.
（ねぇ、何が本当？人生いいこともあれば悪いこともあるよ
暗い空を見上げれば、完全に逆さま）

大人ぶった笑顔を並べたって
心の扉叩けるはずはないのに
当たり障りのない言葉ばっか飛び交っていく

Oh get real（本当をしりたい？）
手に入れたいのなら心で伝えて
怖くて言えずにしまいこんだ思いがこぼれ

Fallin' down with tears floating in the ocean
（涙がこぼれ落ちて海に浮かんでいる）
波のように

Deep inside of my heart
（私の心の奥深く）
胸に押し寄せる

Oh get real
抱きしめたいのなら心で伝えて

愛ですら届けずに隠すの？そして想いは
うねる　ゆれる　灰色の海へと流されて

Deep inside of my heart
蓄積されていく


口に出した途端に
傷つけてしまうのを恐れている自分がいて

Hey what is real? Life is up and down.
When I look up dark sky, it's totally upside down.

その海の向こう側に並ぶ大人達が
笑いながら手招きしているけれど
私はまだその場所まで行きたくはない

Oh get real
気づいてほしいなら心で伝えて
寂しくても一人で抱えてる渦巻く痛み

Fallin' down with tears sinking in the ocean
（涙がこぼれ落ちて海に沈む）砂のように

Deep inside my heart
積もり積もっていく


Oh get real
抱きしめてほしいともしも言えたら
その腕に受け止めてくれるの？涙と共に

うねる　ゆれる　藍色の海へととめどなく
Deep inside of my heart
満たされてくのに

Oh I feel the same as you.
It is the hardest thing to be understood for real.
（君と同じように感じているの
現実を理解すること程難しいこともないよ）


Oh get real
つきたくない嘘に染まる日は来る
増える罪と言えずにしまい込んだ思いはやがて

Fallin' down on the earth like sweet rain drops
（甘い雨が落ちるかのように地球に落ちる）
降り注ぎ

Deep inside of my heart
呑み込まれる前に

Oh get real
抱きしめてほしいと心で伝えて

この腕に受け止めてあげるわ涙と共に
うねる　ゆれる　藍色の海へととめどなく

Deep inside of my heart
満たされてくの

I know you are trying to tell me something
I know how you feel, but you are acting like it's alright, aren't you?
（何かを伝えようとしてくれているんだよね
どう感じてるか私には分かる、でも気丈に振る舞ってる…違う？）

I’m in love with Judas Judaas,私はユダに恋しているの
,
When he calls to me, I am ready,彼が私を呼ぶとき、私はもう準備万端
I’ll wash his feet with my hair if he needs,望むなら私の髪であなたの足を洗ってもいいわ
Forgive him when his tongue lies through his brain,彼の脳が舌を操作して嘘を言わせているというなら許してあげる
Even after three times he betrays me,たとえ私を３回裏切った後でも
,
I’ll bring him down, bring him down, down,私は彼を制する
A king with no crown, king with no crown,その無冠の帝王を
,
I’m just a Holy Fool, oh baby he’s so cruel,私は高潔な馬鹿者よ、だって彼はあんなに意地悪なのに
But I’m still in love with Judas, baby,私ったらまだ恋してるんだから
I’m in love with Judas Judaas,私はJudasに恋しているの
,
I couldn’t love a man so purely,男をこんなに一途に愛せたことはなかった
Even prophets forgave his goofy way,予言者さえ彼の愚行を許した
I’ve learned our love is like a brick,まるでレンガのような愛なんだって思った
Build a house or sink a dead body,家を建てるか、死体を沈めるか
,
*1,
,
- Rap::,
In the most Biblical sense,,聖書的な表現をするなら
I am beyond repentance,私は"悔い改め"過ぎてる
Fame, hooker, prostitute wench, vomits her mind,名声、娼婦、売春婦、彼女の物言い
,
But in the cultural sense,ただ文化的な意味で
I just speak in future tense,私は先のことを話してるだけ
Judas kiss me if offenced,,ねぇユダ、これが罪深いならキスして
Or wear an ear condom next time,それか次は耳にコンドームをかぶせて
,
- throus,
,
I wanna love you,,あなたを愛したい
But something’s pulling me away from you,でも何かがあなたから引き離そうとする
Jesus is my virtue,,キリストは私の天使
Judas is the demon I cling to,ユダは私のしがみつく悪魔

T.Takuya

11/2
17:30-19:00

11/9
17:30-19:00

11/16
17:30-19:00

1/11
17:30-19:00

1/18
17:30-19:00

1/25
17:30-19:00

2/1
17:30-19:00

2/8
17:30-19:00

2/19
10:00-12:00

2/22
18:00-19:30

2/26
12:00-13:30



A.jui

11/1
19:00-20:30

11/8
19:00-20:30

11/15
19:00-20:30

11/20
19:30-21:00

11/22
19:00-20:30

1/10
19:30-21:00

1/15
10:30-12:00

1/17
19:30-21:00

1/22
10:30-12:00

1/24
19:30-21:00

1/26
19:30-21:00

1/29
10:00-11:30

1/31
19:30-21:00

2/7
19:30-21:00

Option Explicit





Sub outp()


' ----------------------------------------------------------------
' - <<< 変数説明 >>>
'
' - limit_kosuu :　募集個数
' - sum_kosuu : 合計個数

' - r : 行数
' - c : 列数
' - nowrow : 現在処理中の行数

' - <<< 定数説明 >>>
' - syoutensu : 商店数
' - jump_row : 作業領域における、
'　　　　　　　　　　　　　　商品ごとの処理の開始行数
' - jump_col : 入力フォーマットにおける
'　　　　　　　　　　　　　　商品ごとの処理の開始列数


' ----------------------------------------------------------------


Dim limit_kosuu As Long
Dim sum_kosuu As Long

Dim r As Integer
Dim c As Integer
Dim nowrow As Integer
dim yomitobashi as integero

dim wk_r as integer

dim sequence as integer
dim kensu as integer
dim rank as integer

Const syoutensu = 8
Const jump_row = 10
const title_jump_row = 4
Const jump_col = 4




'*************************
'１．入力データ転記処理 **
'*************************

Sheet4.Select

'商品は３種類。よって３回ループする
For sequence = 0 To 2 Step 1

'現在の作業行数はnowrowとする
nowrow = sequence * jump_row

For r = 1 To syoutensu Step 1
'１列目：レコードに対するキーとして１からの連番を付する
Cells(r + nowrow, 1) = r

'２列目：単価を転記する
Cells(r + nowrow, 2) = Sheet1.Cells(r + 6, 4 + (jump_col * sequence))

'３列目：注文数を転記する
Cells(r + nowrow, 3) = Sheet1.Cells(r + 6, 3 + (jump_col * sequence))

'５列目：商店を転記する
Cells(r + nowrow, 5) = Sheet1.Cells(r + 6, 2 + (jump_col * sequence))
Next r


'第１キーとして単価の昇順、第２キーとして先着順にソート

Range(Cells(1 + nowrow, 1), Cells(syoutensu + nowrow, 5)).Sort _
Key1:=Cells(1 + nowrow, 2), Order1:=xlAscending, _
Key2:=Cells(1 + nowrow, 1), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal



'４列目：注文数の累積を計算する

Cells(1 + nowrow, 4) = Cells(1 + nowrow, 3)

For r = 2 To 8 Step 1
Cells(r + nowrow, 4) = Cells(r - 1 + nowrow, 4) + Cells(r + nowrow, 3)
Next r


'*****************
'２．敷居数処理 **
'*****************

'発注を掛けていない商店は読み飛ばす
r = 1 + nowrow

Do While Cells(r, 3) = 0
r = r + 1
Loop

'この時点のｒは、データがある行の先頭行番号に一致する

'仕入累積数が敷居数を超えるか、全ての仕入れデータを読むまで
Do While Cells(r, 4) <= Sheet1.Cells(3, 3 + (sequence * jump_col)) And r <= (syoutensu + nowrow)
r = r + 1
Loop

'敷居数を超えるデータがあった場合
If Cells(r, 4) > Sheet1.Cells(3, 3 + (sequence * jump_col)) Then

Cells(r, 3) = Sheet1.Cells(3, 3 + (sequence * jump_col)) - Cells(r - 1, 4)

'それ以降の仕入希望は却下
Do While r <= syoutensu + nowrow - 1
r = r + 1
Cells(r, 3) = 0
Loop

End If


Next sequence


'***************
'３．出力処理 **
'***************

sheet2.select

r=4: c=2
sequence = 0: kensu = 0

do while sequence <= 2

'出力シート側入力準備
call rayout(r,c,kensu,sequence)
r = r + title_jump_row

'作業領域の行ポインタ設定
wk_r = 1
do while sheet4.cells(wk_r,2) <> 0
wk_r = wk_r + 1
loop



************************
'読み飛ばしデータ数記録
yomitobashi = wk_r - 1
************************


'データ件数表示項目を終端行と仮定
kensu = kensu + r
rank = rank + 1

do while r <= kensu

'順位転記
cells(r,2) = rank

'商店名転記
cells(r,3) = sheet4.cells(wk_r,5)

'単価転記
cells(r,4) = sheet4.cells(wk_r,2)

'数量転記
cells(r,5) = wf.vlookup(cells(r,3), sheet1.range(cells(7,2+(sequence * jump_col)), cells(14,3+(sequence * jump_col))),2,false)

'落札数量転記
cells(r,6) = sheet4.cells(wk_r,3)

'金額計算
cells(r,7) = cells(r,4) * cells(r,6)
















sequence = sequence + 1










Sub rayout(ByVal r As Integer, ByVal c As Integer, ByRef kensu As Integer, byref sequence as integer)

'----------------------------------------------------------------
'属性：副プロシージャ
'役割：処理結果に左右されないデータの転記及び
'　　　処理件数に即した罫線を描写する
'引き渡された引数

' - r : レイアウト描写開始行数
' - c : レイアウト描写開始列数
' - kensu : 入札した商店の数（リミットに使うだけ）
' - sequence : 商品の順番(0-2)

'----------------------------------------------------------------

'主タイトル行（１行目のみ）
if sequence = 0 then
cells(r-3,c) = "※入札システム※"
end if

'処理番号記入
cells(r,c) = "(" & sequence+1 & ")"


'商品名記入
cells(r+1,c) = "商品名"
cells(r+1,c+1) = sheet1.cells(2,3+(sequence*jump_col))

'入札数記入
cells(r+1,c+4) = "入札数"
kensu = sheet1.cells(3,3+(sequence*jump_col))
cells(r+1,c+5) = kensu

'入札商店数記入
cells(r+2,c+4) = "入札商店数"
cells(r+2,c+5) = sheet1.cells(16,3+(sequence*jump_col))

'タイトル行
r = r + title_jump_row
cells(r,c) = "商店"
cells(r,c+1) = "数量"
cells(r,c+2) = "単価"
cells(r,c+3) = "順位"
cells(r,c+4) = "落札数量"
cells(r,c+5) = "金額"

　 r = r + 1



End Sub