エクセルで、合計数字を表示するセルをクリックしてプルダウンのようなものを出せて、そこに数字を入力し、その合計をセルに返すことはできるのでしょうか?
........A...............B.....
1...商品......販売数
2.....あ............140
3.....い..........1000
4.....う.............300
上の様に見える表を完成させたいのですが、例えばB列の商品"あ"の販売数を、
B2をクリックするかなにかして、プルダウンで
3/15 A社 50
2/06 B社 10
4/10 C社 80
と入力し、その合計数をB2に表示させたいのです
このような事はエクセルでできますでしょうか?
入力する”3/15 A社 50”ののような項目は1品目で最大30項目くらいになりますので、
あくまで行数や列数を増やしたりしたくないもので、入力サブシート?的なものに入力し、
合計数を目的のセルへ表示したいのです
VBなどあまりいじった事ないのですが、お分かりの方がおられましたらご教授願えませんでしょうか
どうぞ宜しくお願い致します
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
VBEではありませんが添付図参照して以下試してください
このシート名を"商品別集計"に変更、シート2の名前を"あ明細"に変更、以下"い"も同様
”あ”シートを商品ごとの明細票を入力し、合計セル C8に集計する
合計セル C8を右クリック し”コピー”
”商品別集計”シートに戻り
B2に”形式を選択して貼り付け” →”リンク貼り付け”
(これで”あ”シートの合計がここに反映される)
"商品別集計"B2セルを選択し
右クリック →ハイパーリンク →ブックマーク →"あ"シート指定 →OK
すると文字色がかわる、以後セルを選択すると”あ”に飛ぶ
集計に戻るにはシート名をクリックする、
これでいかがでしょうか
No.2
- 回答日時:
こんにちは!
ご希望通りになるかどうかわかりませんが・・・
セルをダブルクリックする場合の一例です。
↓の画像のようにSheet2にデータがあるとします。
画面左下のSheet1のSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストして、Sheet1のB列をダブルクリックしてみてください。
'↓の行から
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Columns(2)) Is Nothing Then Exit Sub
On Error Resume Next
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")
If Target.Offset(, -1) <> "" Then
Target = WorksheetFunction.SumIf(ws.Columns(2), Target.Offset(, -1), ws.Columns(4))
End If
Cancel = True
End Sub 'この行まで
※ Sheet2の配置はこちらで勝手に作っていますので、実状と異なる場合は全く機能しません。
(列番号等・・・)
参考になりますかね?m(_ _)m
No.3
- 回答日時:
No.2です!
たびたびごめんなさい。
3/15 A社 50
2/06 B社 10
4/10 C社 80
と表示させ・・・
の部分を見逃していました。
Sheet1のD列以降にSheet2のデータを表示させるとします。
もう一度コードを載せてみますので、前回のコードはすべて削除して
↓のコードをコピー&ペーストしてみてください。
'↓の行から
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Columns(2)) Is Nothing Then Exit Sub
On Error Resume Next
Dim i As Long
Dim str As String
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")
i = Target.Row
If Cells(i, 1) <> "" Then
Cancel = True
str = Cells(i, 1)
ws.Columns("A:D").AutoFilter field:=2, Criteria1:=Cells(i, 1)
ws.Columns("A:D").Copy Destination:=Cells(1, 4)
Target = WorksheetFunction.SumIf(ws.Columns(2), Cells(i, 1), ws.Columns(4))
End If
ws.Select
Selection.AutoFilter
Worksheets("Sheet1").Select
Cells(i, 2).Activate
End Sub 'この行まで
今回もSheet1のB列セルでダブルクリックです。
※ 外していたらごめんなさいね。m(_ _)m
No.4
- 回答日時:
いまだにExcel2002を使っているので操作が違ったらごめんなさい
VBAを使わなくても、プルダウンを表示するだけなら
セルを選択して、メニューの[データ]->[入力規制]を開いて、
[設定]タブの[入力値の種類]を[リスト]に変更
元の値に選ばせるデータ一覧を範囲指定すればプルダウン選択はできます。
条件によってプルダウンの値を変える場合はIF文を駆使すれば何とかなったりならなかったり
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) エクセル 関数について 4 2022/08/05 11:03
- Excel(エクセル) エクセルシートの合計の変動 5 2022/04/05 15:56
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) B列に、A列の数字が偶数の場合は1減算した数字、奇数の場合はそのまま数字を自動表示したい 4 2022/04/16 12:01
- Excel(エクセル) IF 関数で「〇〇 という文字を含む場合」の分岐処理で表示された数字はSUMで数字集計できますか? 3 2022/08/02 16:29
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでURL挿入後、名前を変...
-
EXCELで千円単位を百万円単位に
-
エクセル関数使用で赤色数字を...
-
表に日付と担当者を入力すると...
-
エクセルの3D参照で困っています!
-
エクセルで入力のあるセルのみ...
-
エクセルでの順位に応じた点数...
-
エクセルの列幅を一度に
-
エクセルで部屋番号や個人情報...
-
エクセルで逆さまに印刷したい
-
エクセルで前月までの平均を出...
-
EXCELのデータ修正時に、...
-
エクセルで1分あたりの作業量...
-
一つのセルに計算式を入れて別...
-
「マネージメント」と「マネジ...
-
ビジネスメールの添削をお願い...
-
小さな会社の事務全般の社員。...
-
新入社員っていつ名刺をもらえ...
-
飛び込み営業に来る人との名刺...
-
至急!!Microsoft365 スマート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでURL挿入後、名前を変...
-
エクセル関数使用で赤色数字を...
-
エクセルで入力のあるセルのみ...
-
一つのセルに計算式を入れて別...
-
EXCELで千円単位を百万円単位に
-
エクセルで1分あたりの作業量...
-
エクセルで逆さまに印刷したい
-
EXCELのデータ修正時に、...
-
列幅が変更できなくなった
-
エクセルでの順位に応じた点数...
-
表に日付と担当者を入力すると...
-
エクセルでセルの日付を和暦表...
-
Excel・プラス値とマイナス値を...
-
エクセルで部屋番号や個人情報...
-
画像(GIF/JPEG Image)をエ...
-
3つの条件のうち、2つを満た...
-
エクセルで前月までの平均を出...
-
エクセルで重複データから抽出...
-
異なる締め日に対応して支払日...
-
Mac版Excelの列移動?について
おすすめ情報