![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.4ベストアンサー
- 回答日時:
こんにちは
ボタンを押すと、、であればVBAマクロを使う必要があります。
既に回答があるように私も#1様の回答を支持いたします。
マクロを使用した事が無いのであれば、#1様提案の通り、デモ作業をマクロ記録しボタンに登録しましょう。その上で空き行を作らない方法などを調べるのが良いと思います。
表題のキーで検索されこのスレッドを参考にされる方もいらっしゃるかもしれませんので、サンプルコードを書きます。
VBAの基礎知識が必要である事と処理の内容を理解する事も必要です。
Sub 注文反映()
Dim shp As Shape
Dim shpName As String
Dim n As Long, r As Long
Dim TrgSh As Worksheet
Set TrgSh = Worksheets("Sheet2")
shpName = Application.Caller
With ActiveSheet
Set shp = .Shapes(shpName)
r = shp.TopLeftCell.Row
n = TrgSh.Cells(Rows.Count, "B").End(xlUp).Row + 1
TrgSh.Cells(n, "B").Value = .Cells(r, "B").Value
TrgSh.Cells(n, "C").Value = .Cells(r, "D").Value
End With
End Sub
簡単な説明
各ボタンに同じマクロ 注文反映 を登録して使います。
シートに作成したシェイプ以外から実行するとエラーになります。
シェイプの押された行順に上に詰めて出力されます。
ActiveSheetとは押されたシェープの設置されたシートです。
Set TrgSh = Worksheets("Sheet2")は出力先のシートです。
shpName = Application.Callerは、押されたシェイプの名前です。(特定する為)
Set shp = .Shapes(shpName)は、押されたシェイプの特定
r = shp.TopLeftCell.Rowは、押されたシェイプの設置されている行№取得
n = TrgSh.Cells(Rows.Count, "B").End(xlUp).Row + 1は、
出力するシートB列の使われている行№+1(新規行№)を取得
これらを使い対象セルを特定して参照(代入)式で値を取得しています。
変更などを行う場合
出力シートを変える場合 "Sheet2" を出力したいシート名に変更
出力列を変える場合 左辺の"B"などを変更
参照列を変える場合は右辺の"B"など
No.3
- 回答日時:
別解、です。
Sheet1 の範囲 B2:D7 を選択⇒Alt+MC⇒“上端行”のみにチェック残し
⇒[OK]⇒式
=IFERROR(INDEX(注文数,MATCH(B4,名前,0)),"")
を入力した Sheet2 のセル C4 を下方にズズーッとオートフィル
オ・シ・マ・イ
No.2
- 回答日時:
Sheet1 の範囲 B2:E7 に例えば 在管表 という名前を付けておけば、式
=VLOOKUP(B4,在管表,3,FALSE)
を入力した Sheet2 のセル C4 を下方にズズーッとオートフィル
オ・シ・マ・イ
No.1
- 回答日時:
マクロを使う事になります。
質問者さんはマクロを作れますか?
ここは「代わりにマクロを作ってください」と作業依頼をする場所ではありません。
自力で問題を解決するためにマクロを作るアドバイスを受ける場所と思ってください。
そんなわけで、まずは質問者さんがどの程度マクロを扱えるのかを教えてください。
きっとそれを見た人から適切なアドバイスをもらえると思います。
・・・
「マクロの記録」でマクロを作れるなら、
範囲を指定してコピペする手順を記録しましょう。
そうして作られたマクロをボタンに割り当てれば良い。
質問のケースならマクロを4つ作り、それぞれボタンに割り当てれば良いことになります。
正直、一から作るよりもこの方が確実に動作するマクロを短時間に作れます。
……マクロ(VBA)に詳しい人からは、冗長なことをしていると思われるかもしれませんが、
希望する結果を容易に得られるのです。気にしちゃダメ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
Excelのマクロでボタンを押すと...
-
エクセルで、「いいね」のよう...
-
エクセル ボタンに設定したマク...
-
エクセル マクロ名にブック名...
-
エクセルの、記録を終了したマ...
-
エクセルで明日の日付を表示す...
-
エクセルの表を複数枚印刷した...
-
複数のマクロボタンをまとめて...
-
マクロをマクロを使ってコピー...
-
エクセルで作られた?マクロを...
-
(Excel VBA)シートコピー時マ...
-
Excelマクロで、稼働中のマクロ...
-
エクセルでマクロ(Excel 4.0)...
-
LDPlayerのマクロの編集方法を...
-
検索はマクロで記録できないの...
-
Excelのマクロ名の並び順の法則...
-
別シートのマクロボタンをマク...
-
エクセル起動時、ActiveXコント...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
エクセル ボタンに設定したマク...
-
Excelのマクロでボタンを押すと...
-
エクセルで、「いいね」のよう...
-
エクセルの表を複数枚印刷した...
-
エクセルの、記録を終了したマ...
-
エクセル マクロ名にブック名...
-
複数のマクロボタンをまとめて...
-
エクセルでマクロ(Excel 4.0)...
-
エクセルマクロで、別のブック...
-
Excelマクロで、稼働中のマクロ...
-
(Excel VBA)シートコピー時マ...
-
Excelのマクロ名の並び順の法則...
-
エクセルで明日の日付を表示す...
-
マクロをマクロを使ってコピー...
-
エクセル ボタンを押すと色が変...
-
Excelマクロをバックグラウンド...
-
Excel:マクロを消す方法教えて...
-
EXCELのマクロが他のパソコンで...
おすすめ情報