![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセルに注文表、在庫表シートを作成し
注文書シートには
セルA1~A5には品番を入力
B1~B5には品名を入力
C1~C5には納期を入力
D1~D5にはコマンドボタン1~5を配置しました。
処理としてはA1,B1,C1,に入力されている項目を
D1に配置しているコマンドボタン1クリック時
在庫表に移し変える処理
With Worksheets("在庫表")
For idx = 4 To 70
If .Cells(idx, 1) = "" Then
.Cells(idx, 1) = Worksheets("注文表").Cells(1, 1)
.Cells(idx, 2) = Worksheets("注文表").Cells(1, 2)
.Cells(idx, 3) = Worksheets("注文表").Cells(1, 3)
Exit For
End If
Next idx
End With
以上で出来るのですが
さらに行いたいことは納期項目列(C1~C5)を昇順で並び替えた場合
コマンドボタン1の配置位置がD1からD4などに移動するため
この場合のコマンドボタン1の処理はA4,B4,C4を在庫表に
移し変えたいのですがどの様に書き込めば宜しいでしょうか?
No.2ベストアンサー
- 回答日時:
ご質問の意味を、きちんと把握できていないかもしれませんが、要するに、ボタンの位置がわかれば良いということでしょうか?
コマンドボタンを何で作成されているのか不明ですが、TopLeftCellプロパティでオブジェクトの左上端のセルの取得が可能です。
今回は行番号が必要なのでしょうから、コントロールのボタンの例であれば
r = ActiveSheet.CommandButton1.TopLeftCell.Row
などとしておいて、r行に対してコピーを行えばよいのでは?
.Cells(idx, 3) = Worksheets("注文表").Cells(r, 3)
意味が違っていましたら失礼。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドボタンで「終了ボタン...
-
PPTのコマンドボタンがクリック...
-
EXCELのシート名を指定してその...
-
エクセルVBAでOptionButtonのオ...
-
ShowAllDataのエラーを回避したい
-
押したボタンの位置取得(共通の...
-
Excel VBA --- コマンドボタ...
-
エクセルのコマンドボタンの位...
-
[ExcelVBA] コマンドボタンを押...
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
エクセルVBA
-
実行中の作業を中止させるコマンド
-
Accessのコマンドボタンの立体...
-
Excel VBA 複数のコマンドボ...
-
EXCELのコマンドボタンが消えて...
-
エクセル:マクロボタンが編集...
-
秀丸メール(旧鶴亀メール)返...
-
Wordでドラッグした文字列を括...
-
コマンドボタン 改行したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
押したボタンの位置取得(共通の...
-
スクロールしてもボタンを常に...
-
エクセルVBAでOptionButtonのオ...
-
ShowAllDataのエラーを回避したい
-
PPTのコマンドボタンがクリック...
-
エクセルVBA
-
Excel VBA --- コマンドボタ...
-
エクセルVBA シート上にあるコ...
-
Accessのコマンドボタンの立体...
-
コマンドボタンで「終了ボタン...
-
エクセルのコマンドボタンの位...
-
コマンドボタンがあるかどうか...
-
チェックボックスで「いずれか1...
-
EXCELでNo.を変えて印刷したい
-
Wordでドラッグした文字列を括...
-
MS_AccessからPDFファイルを開...
-
Accessユーザーフォームでコマ...
-
[ExcelVBA] コマンドボタンを押...
おすすめ情報