![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.4ベストアンサー
- 回答日時:
ANo3の補足を見ました。
> ありがとうございます。
そう思ったら「補足」ではなく「お礼」に書いた方が良いです。
補足ではわたしのところに通知がこないのであなたが書き込んだ追加質問をたった今まで知りませんでした。
> この中でA列と指令しているのはどこなんでしょうか?C列に変えたりB列からD列までを指定したりに変更することは可能ですか、可能な場合にはどの部分を替えたらよいのでしょうか?
If Target.Column <> 1 Then Exit Sub です。
Columnは列です。ここが1列目じゃなければマクロは終了します。
C列に変えるなら
If Target.Column <> 3 Then Exit Sub
B列からD列までを指定するなら
If Target.Column > 4 Or Target.Column < 2 Then Exit Sub
> 私の書いた自動マクロでは変更はできないのでしょうか?
指定したセルを変えることはできるでしょう?
> 回答いただいた言語の理解はできないレベルの者です。質問の程度のレベルの勉強するにはmerlionXXさんの経験上から推薦できる手段をご指示戴けるとありがたいです。
一応、ご参考のため先日のコードに解説をつけておきます。
下記でTargetとはダブルクリックしたセルのことです。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'ダブルクリックイベントマクロ
If Target.Column <> 1 Then Exit Sub '1列目じゃなければマクロ終了
Target.Copy Destination:=Cells(Target.Row, "E") 'Targetをコピーし同じ行のE列に貼る
Cancel = True 'ダブルクリック状態を解除
Target.Delete Shift:=xlUp 'Targetを削除
End Sub
本屋に行けばいくらでもエクセルVBAのテキストは売ってます。
それを読んで、試してみて、それでわからないことはここで質問すればいいんじゃないですか。
No.3
- 回答日時:
1. 該当のシートのタブを右クリックして、[コードの表示]。
2. 出てきた白い所に、以下のコードを貼付けます。
'********これより下**********
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub
Target.Copy Destination:=Cells(Target.Row, "E")
Cancel = True
Target.Delete Shift:=xlUp
End Sub
'********これより上**********
3.Alt+F11キーでワークシートへもどります。
これでOK
A列のお好みのセルをダブルクリックする都度、自動で実行されます。
この回答への補足
ありがとうございます。
素早くできて快適です。さらに次のことも教えていただけますか
この中でA列と指令しているのはどこなんでしょうか?C列に変えたりB列からD列までを指定したりに変更することは可能ですか、可能な場合にはどの部分を替えたらよいのでしょうか?
自動マクロの記録まではできるようになったのでこれを任意のセル選択で実行するように変更する方法を知りたかったのですが私の書いた自動マクロでは変更はできないのでしょうか?回答いただいた言語の理解はできないレベルの者です。質問の程度のレベルの勉強するにはmerlionXXさんの経験上から推薦できる手段をご指示戴けるとありがたいです。
No.2
- 回答日時:
行だけ指定したい場合は
Dim Select_Row As String
Select_Row = InputBox("行の指定", "行の指定")
Range("A" & Select_Row).Select
Selection.Cut Destination:=Range("E" & Selection.Row)
Range("A" & Select_Row).Select
Selection.Delete Shift:=xlUp
にしてください。
この回答への補足
ご指導ありがとうございます。
InputBoxに入力せずにマウスポインターで指定行をクリックして行えるようにはできませんでしょうか。
No.1
- 回答日時:
たとえば
Sub 移動と削除()
Dim Select_Range As String
Select_Range = InputBox("セルの指定", "セルの指定")
Range(Select_Range).Select
Selection.Cut Destination:=Range("E" & Selection.Row)
Range(Select_Range).Select
Selection.Delete Shift:=xlUp
End Sub
こんな感じですが、入力したデータが不正なときのエラー処理はしていませんので、その部分は適宜作成してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル 指定した文字列を含...
-
エクセルの関数SUBSTITUTEを、...
-
エクセルで同じ名前ごとの合計...
-
桁数が混在する並び替えの方法
-
エクセルで一部除外した数字を...
-
エクセル VLOOKUPが反映されない
-
Excelで数値→文字列変換で指数...
-
テキストボックス内の文字のふ...
-
エクセルにおける、グラフの指...
-
Excelで行ごとコピー、同じ行を...
-
Excelの関数について、特定の文...
-
エクセル
-
エクセルでグラフタイトルが折...
-
EXCEL・複数ある円グラフの円の...
-
【エクセル】表の中の文字だけ...
-
塗りつぶしの色をコピーするには
-
エクセル 入力中に表示されな...
-
たくさん作った同じ設定のグラ...
-
PDFの一部を切り取って別のシー...
-
日付が1年以内になると他のセル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル 指定した文字列を含...
-
エクセルで同じ名前ごとの合計...
-
エクセルの関数SUBSTITUTEを、...
-
エクセルVBA Unionはなぜ遅い?
-
桁数が混在する並び替えの方法
-
エクセルで一部除外した数字を...
-
EXCEL VBA 指定範囲内で特定の...
-
エクセルで列内の同じIDの商品...
-
ExcelVBA:列方向の並び替え O...
-
オートフィルについて(急ぎ!)
-
エクセルで2列を検索し2列とも...
-
エクセル VLOOKUPが反映されない
-
エクセル マクロで列を連続し...
-
エクセルvba 一つ上の行を指定...
-
エクセルに詳しい人!!!至急...
-
エクセル 2010 マクロ 残セル表...
-
Excelで自動的に並べ替えなんて...
-
パソコンで簡易検索を作るには
-
EXCEL 指定した曜日に番号を振...
-
エクセル【昇順・降順で並べ替...
おすすめ情報