A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
#02です
行、列があべこべだったなら、完売サインを入力する列が何列になるのかを書いて欲しかったところですが、7列目(G列)と想定してマクロを書きました
以下のマクロを商品データシートの「シート名右クリック」→「コードの表示」で開く画面に貼り付けてください。
商品データシートに戻り、G列に「K」もしくは「K」を入力すると、その行のA列からF列のデータを完売シートに転記し、商品データの行は削除します。複数行まとめて「K」を入力してもOKです
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, trg As Range
Set trg = Intersect(Target, Columns("G"))
If trg Is Nothing Then Exit Sub
On Error GoTo end0
For Each r In trg
With r
If .Value = "K" Or .Value = "K" Then
Cells(.Row, 1).Resize(1, 6).Copy _
Destination:=Sheets("完売商品").Range("A65536").End(xlUp).Offset(1, 0)
End If
End With
Next r
Application.EnableEvents = False
trg.EntireRow.Delete
end0:
Application.EnableEvents = True
End Sub
もし完売サインを入力するのがG列ではない場合は、マクロの3行目の列指定を正しい列名に変更して下さい
なお#01さんが指摘されているように、マクロの実行結果は「Undo」でも元に戻せません。誤って別の商品に完売サインを入力すると元に戻すのが大変になりますよ。私も本当はオートフィルタで表示させないようにする方をお勧めしたいです
この回答への補足
再度、ありがとうございます!
コピーして、貼り付けてみましたがその後、どうやって
画面を閉じたらいいのでしょう?保存して反映させるのですか?
マクロっていうのはエクセルの何でしょうか?
裏画面みたいなものですか?質問ばかりで
すみません・・・
No.2
- 回答日時:
>あるひとつのセルにたくさんの商品データが入っていまして
一つのセルにですか?? シートにではないですか。
それはさておき、このシートは列単位に商品データが入力されているのですか(商品1はA列、商品2はB列という具合)。
なんか変な表ですね。OFFICE2003までなら列数は256しかありませんから、これでは完売商品が256を越えたらシートを分けなくてはならなくなりますよ
行単位に商品データを入れるのが一般的だと思うので確認です。
シートの作りを再度見直されたらいかがでしょうか
要望自体はマクロで実現は可能ですから、質問し直してもらえればマクロを書くこともできると思います
この回答への補足
間違いました、シートにデータを入力しているんです・・。
列単位でなく行単位でした、たびたびすみません・・・。
マクロって馴染みがないのですが難しそうなイメージが
あります・・・
ただ、前の回答者様も「関数でデータの移動を行うことは
できない」とおっしゃっていましたので、
マクロしかないのだと思いますが・・・
No.1
- 回答日時:
>瞬時に移動させたいのですが、そんなことができる関数って
ありますか
関数で、データーを動かすと云う事はできません
やるとすれば、マクロ(VBA)を使う事になりますが、
この様な場合は、あまり適当な方法じゃないと思います
例えば、間違って違う商品に"k"と入れてしまうと、すぐに移動してしまい
それを、直すのに、手間が余計に掛かります
"k"をキーワードに、並べ替え、非表示設定、色替え..などで対応する方が
良いのではないかと思います
この回答への補足
回答ありがとうございます。
そうですか、瞬時に動かすという関数はないのですね。
これだけでもチョットすっきりしました。
マクロを使用するとしても、「完売」と思った商品が
間違えて入力していたとなると直すことがやっかいなんですね?
それならば、瞬時でなくともいいのでデータの移動を
手動以外の方法でできませんか?
移動でなくとも、コピーでも良いですが・・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- その他(Microsoft Office) Excelで総数量を変動させたい 2 2022/11/04 23:49
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Excel(エクセル) VBAで同フォルダ内の別ブックを開かず参照して条件の一致する行の指定セルを抽出するには? 1 2022/07/21 19:29
- Excel(エクセル) Excelのマクロを教えていただけないでしょうか? 1 2023/07/06 19:56
- Excel(エクセル) Excelで全クラスのランキング表を作成したい 4 2022/05/24 15:28
- その他(IT・Webサービス) 高速処理可能な表計算ソフトについて ExcelやGoogleスプレッドシートのような表計算ソフトで、 2 2023/04/29 16:06
- Excel(エクセル) Excel 関数 vlookupなどの使い方について質問です。 シート1に品番、商品名、単価、発注条 6 2022/06/15 19:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
指定した条件でTRANSPOSE関数を...
-
エクセル ○印がついている行を...
-
2つのシート間での重複データ...
-
EXCELで受験票を作成したい(名...
-
2センチ四方くらいのタイルを...
-
ステンレス・ニロスタ鋼につい...
-
エクセルを利用して、日計と累...
-
エクセルの日々表計算の翌日繰越を
-
カップルシートがあるダイニン...
-
基本情報の表計算について VBA
-
スプレッドシート 重複している...
-
タイムシートと素朴な疑問
-
カッティングシートの看板につ...
-
excel シート1の奇数(偶数)...
-
メールでエクセルの添付方法
-
エクセルで1行だけ数式が反映さ...
-
エクセル 時間の列が不ぞろいな...
-
こちら防草シートの補修の仕事...
-
EXCELで○ヶ月を○年○ヶ月に変換...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
エクセルを利用して、日計と累...
-
毎日の日計を別シートに自動で...
-
2つのシート間での重複データ...
-
エクセルのシートをコピーして...
-
指定した条件でTRANSPOSE関数を...
-
エクセルで○のついた項目を抽出
-
条件にマッチする行を抽出するV...
-
excel シート1の奇数(偶数)...
-
エクセルで1行だけ数式が反映さ...
-
EOMONTH関数の代わり
-
チュロス袋の代用
-
エクセルで2つのシートに同じ名...
-
エクセルでフラグがたっている...
-
EXCELで受験票を作成したい(名...
-
excelマクロで複数シート間のデ...
-
エクセル ○印がついている行を...
-
VBA 縦のデータを横にするコード
-
Excelで複数のシートに列のグル...
-
Excel VBA 12ヶ月分のシート作成
おすすめ情報