[[20060913111724]]　『クリックしたセルに表示されている数字を表示した』（まゆ）　ページの最後に飛ぶ

『クリックしたセルに表示されている数字を表示したい』（まゆ）
エクセルで出来るのかどうかも疑問ですが、単価表を作成しその当てはまる単価をクリックすると単価の欄に金額を表示したい！のです

 例　　単価　　　　数量　　請求額
　1　ここに表示　　1　　　A1*B1＝　　　　　
　2　　　　　　　　2
　3　　　　　　　　1
　4　　　　　　　　5
以下に単価表

つまり・・請求額を求めるために考えたですが・・どうでしょうか？？

 こんな表として
　　A　　　B　　　　　C　　　　D　
1 品名	単価	数量	金額		品名	単価表
2りんご	100	1	100		りんご	100
3バナナ	200	30	6000		バナナ	200
4みかん	300	200	60000		みかん	300
5スイカ	400	10	4000		スイカ　　400
　
 単価表に品名を追加してVLOOKUP関数で単価を表示するほうが、良いかと思いますが。。。
 >単価をクリックすると
と言うことになると、マクロになります。
ダブルクリックでやってみました。
たたき台程度に
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim tanka As Integer
  Dim myrow As Long

  tanka = Target.Value

     myrow = Range("b65336").End(xlUp).Row + 1

  Range("b" & myrow) = tanka

 End Sub
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(oni)

早速回答ありがとうございます。。すみません！言葉が足りませんでした。商品はすべて同じ商品なのです・・・

 >商品はすべて同じ商品なのです・・・
　
おや？失礼しました。同じ商品で単価の違う物が複数あるのですね？
　
例
　 A　 　B　　　　　　C　　　　D　
1　　　 単価　　　　数量　　請求額
2　1　 ここに表示　　1　　　A1*B1＝　　　　　
3　2　　　　　　　　2
4　3　　　　　　　　1
5　4　　　　　　　　5
6 単価表　100
　　　　　200
　　　　　300
 まゆさんの表でB列に単価を入れるとして

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim tanka As Integer
  Dim myrow As Long

  tanka = Target.Value

     myrow = Range("b5").End(xlUp).Row + 1

  Range("b" & myrow) = tanka

 End Sub
　
これで単価をダブルクリックすると、B列の５行目から上の空いているセルに
クリックした単価が入りますが。。。
　　　　　　　　　　　　　　　　　　　　　　　　　　　(oni)

 任意の単価を単価のリストから選択して表示したい…んですよね？ 
ここに表示、のセルに入力規則で単価表のリストから選択できるようにする…じゃ
イマイチなんでしょうか？

 設定方法は「ここに表示」セルを選択した状態で、メニューバーからデータ＞入力規則と進み、
入力値の種類をリスト、元の値に単価表の単価の範囲を指定。（範囲をドラッグ）OK。
 セルをコピペすれば、入力規則も貼り付けされます。
(かなれっと)

 あんりゃ衝突☆　かなれっとさんと同じ意見ですが、そのままＵＰします。
 目で見て判断する数字なら手打ちした方が早いと思うけど、間違いをなくすというなら
 入力規則でリストから選ぶようにする方法の方がよさそうですけど？
　
 簡易リストボックス Win
http://www.excel.studio-kazu.jp/lib/e2k/e2k.html
　
（純丸）(o^-')b

なるほど・・・ありがとうございます。！！がんばってやってみます。！！

コメント返信：

[ 一覧(最新更新順) ]

[[20060913111724]] 『クリックしたセルに表示されている数字を表示した』（まゆ） ページの最後に飛ぶ

[[20060913111724]]　『クリックしたセルに表示されている数字を表示した』（まゆ）　ページの最後に飛ぶ