お忙しいところ、すいませんがよろしくお願いいたします。
グループの最後の行に書式、計算式なども同じ行を追加する
A B C D
1 A商品 単価 金額 合計
2 A商品 単価 金額 合計
3 A商品合計
4
5 B商品 単価 金額 合計
6 B商品 単価 金額 合計
7 B商品合計
A商品を購入したら 3行目に行を追加してここに入力。
B商品を購入したら 7行目に行を追加してここに入力できるようにしたいと思います。
4行目は空白です。商品間は何行か空白としています。
No.7ベストアンサー
- 回答日時:
#6の追質について
表組みも変わっているし・・・
まぁ、改造も出来ていると言う事でしょうしコードも理解されたと言う事でしょうから、これだけで良いかな
Call r.CurrentRegion.Sort(Key1:=r.Offset(, 1), Order1:=xlAscending)
#6のコードを基に表組みに合わせた回答です
>グループの最後の行に書式、計算式なども同じ行を追加する
とは、内容が違いますので別スレにしてください。
(規約、マナー違反に牴触します)
No.6
- 回答日時:
こんばんは
>一旦入れて、値を消すのですか?
その方法が簡単がと思います。
>b商品の最後の行番号を取り出したいと思いますがこれも良くわかりません。
最後とは、挿入後?挿入前?
#5のコードを書き直してみるので 確認してください
*(A列に区切りの空白セルがある)場合
Private Sub CommandButton1_Click()
Dim zaiko As String
Dim r As Range, C As Range
zaiko = ListBox1.List(ListBox1.ListIndex, 0)
With ActiveSheet
Set r = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)) _
.Find(What:=zaiko, LookIn:=xlValues, LookAt:=xlWhole, After:=Cells(Rows.Count, 1).End(xlUp))
End With
If Not r Is Nothing Then
With r.End(xlDown)
MsgBox .Row 'これ?
.Resize(, 4).Copy
.Offset(1).Insert Shift:=xlDown
Application.CutCopyMode = False
For Each C In .Offset(1, 1).Resize(1, 3)
If Not C.HasFormula Then C.Value = ""
Next
MsgBox .End(xlDown).Row ''これ?
End With
End If
End Sub
No.5
- 回答日時:
#1#2を回答した者です
他のご質問者様のご質問を見て ご質問にある表組
(A列に区切りの空白セルがある)場合で
ユーザーフォームにボタンとリストボックスを設置した場合の参考コードです。
リストを作成するにあたり、Unique関数を使用していますので
Microsoft 365およびOffice 2021の Excel 又はOffice Insiderに参加しているExcelが対象になります
Unique関数が使用できない場合は、
セル範囲を利用してリストを作るか
DictionaryやCollectionなどなどで作って下さい
ユーザーフォームのモジュールに
Private Sub CommandButton1_Click()
Dim zaiko As String
Dim r As Range
zaiko = ListBox1.List(ListBox1.ListIndex, 0)
With ActiveSheet
Set r = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)) _
.Find(What:=zaiko, LookIn:=xlValues, LookAt:=xlWhole, After:=Cells(Rows.Count, 1).End(xlUp))
End With
If Not r Is Nothing Then
With r.End(xlDown)
.Resize(, 4).Copy
.Insert Shift:=xlDown
Application.CutCopyMode = False
End With
End If
End Sub
Private Sub UserForm_Initialize()
Dim myList, i As Long
myList = Application.Unique(Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)))
For i = 1 To UBound(myList)
If myList(i, 1) <> "" Then ListBox1.AddItem myList(i, 1)
Next
End Sub
No.4
- 回答日時:
こんにちは。
ご質問の内容だとピボットテーブルを使うのが良いと思います。
商品別、月別などで簡単に集計できますよ。
キーワード: ピボットテーブル
小計欄を挿入するのは、データ加工の支障になります。
VBAの学習目的であったり、印刷の都合があるなどの
事情が無い限り、集計欄は行頭など邪魔にならない場所、
あるいは別シートなどがオススメです。
No.2
- 回答日時:
私が回答できるかは分かりませんが
作成されたフォーム要件を掲示が必要です。
また、A商品は複数存在すると理解していますが、どこのセルを対象にするのかなど要件を提示する必要もあります
更に記せば、作成されたフォームのリストボックスの基データを
何処から参照するのか(商品リスト)の要件説明、重複データに対する処理、該当データがない場合の要件などを示す必要があります。
現在どこまで出来ているのでしょう?
思いついてすぐに質問したと言う事でしょうか?
出来上がるにつけ、次の思い付きで作ると言う事でしょうか・・・
しっかり行いたい処理を組立、自身で作成し分からない所を絞り
具体的にコードなどを示してご質問を作成される方が良いと思います
不要なやり取りが必要になる事になりますので
ご確認くださいね
No.1
- 回答日時:
こんにちは
>商品名は入力して検索をしたいと思います。
4列分で検索結果セルが選択されているとの解釈で良いなら
Sub test()
Selection.Resize(, 4).Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
A商品郡、商品名最後の行なら
Range("A1").End(xlDown).Resize(, 4).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
検索自体をVBAで行いたい場合は、キーワード入力要件が必要です
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「新商品」と「リニューアル商...
-
皆さんなら現品限り(展示品)の...
-
"スレスレ" "ギリギリ" を丁寧...
-
Safariでビジターアンケート参...
-
カールアイロン安物じゃダメ?
-
白いTシャツの日焼けあとをとる...
-
簿記論 商品評価損 洗替法について
-
EXCELからACCESSを更新するマクロ
-
スーパーなどの商品について
-
ハロッズ
-
マーケティング論と流通論の関係??
-
呉服店廃業につき、在庫の処分...
-
ロイヤルカスタマーって??
-
市場(いちば、しじょう)の使い...
-
玄関正面のニッチの照明、使っ...
-
アウトレット価格について疑問...
-
一物二価っていけないいんですか。
-
1坪ってどれくらいの大きさ?
-
メーカーのかたは、自社製品し...
-
金属の価格(鉄、銅)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
"スレスレ" "ギリギリ" を丁寧...
-
「新商品」と「リニューアル商...
-
持ち運びできるクーラー探して...
-
スギ薬局でクロックス風のが売...
-
皆さんなら現品限り(展示品)の...
-
excel VBAで、置換した結果を別...
-
シュガーレディーの無料試食会...
-
セブンイレブン無料引換券の対...
-
スリムドカンなどまるかん製品...
-
「売れ筋」に対して???
-
エクセルを使って、商品管理を...
-
TextBox.2 に Vlookupを入れる...
-
歩数計アプリが増えてきました...
-
Safariでビジターアンケート参...
-
グループの最後の行に書式、計...
-
ヤマダ電機OP!先着商品をゲッ...
-
サイトへアクセスされる優先順位
-
キツネみたいなブランドの名前...
-
USB4 Version 1.0の最大伝送距...
-
VOCALOIDのVY2
おすすめ情報
すいませんでした。商品名は入力して検索をしたいと思います。
商品名を入力フォームで入れて検索をしたいと思います。
検索もマクロで入力フォームで入れて検索をしたいと思います。
ありがとうございます。
b商品を選択してコマンドボタン(商品コード選択)を押すと11行迄のb商品後に追加されるようになりました。
この追加を書式、計算式のみにしたいのですが、どうもうまくいきません、よろしくお願いいたします。
どうも面倒くさい質問をしてすいませんが、素人でわかりませんが、色々調べてみましたが、書式計算式との選択は無いのですか?。
一旦入れて、値を消すのですか?b商品の最後の行番号を取り出したいと思いますがこれも良くわかりません。
前回の追加はありがとうございました。うまくできました。
同じフォーム、テキストボックスなので、あわせて教えて頂けないでしょうか。
テキストボックスで指定したもののみを選択して 品名、日付順にソートする。
忙しいところ誠にすいません。B商品の日付順です。
Qchan1962さん、おはようございます。 昨日は大変失礼を致しました。
色々、面倒な質問対応してくれてありがとうございました。
行の追加上手くできるようになりました。
ソートの件は別にしたいと思います。