A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
ActiveX コントロールのスピンボタンに取り付けてください。
'//ActiveX コントロールを付けたシートモジュール
Const L As Long = 1
Const U As Long = 10
Private Sub SpinButton1_SpinUp()
Dim t As Variant
Application.ScreenUpdating = False
If ActiveCell.Row <= L Or ActiveCell.Column <> 1 Then Exit Sub
If ActiveCell.Value = "" Then Exit Sub
t = ActiveCell.Value
ActiveCell.Value = ActiveCell.Offset(-1).Value
ActiveCell.Offset(-1).Value = t
ActiveCell.Offset(-1).Select
Application.ScreenUpdating = True
End Sub
Private Sub SpinButton1_SpinDown()
Dim t As Variant
Application.ScreenUpdating = False
If ActiveCell.Row >= U Or ActiveCell.Column <> 1 Then Exit Sub
If ActiveCell.Value = "" Then Exit Sub
t = ActiveCell.Value
ActiveCell.Value = ActiveCell.Offset(1).Value
ActiveCell.Offset(1).Value = t
ActiveCell.Offset(1).Select
Application.ScreenUpdating = True
End Sub
No.2
- 回答日時:
Application.Onkeyでそれぞれのマクロを設定すればできますけど
「セルを Shift +ドラッグで入れ替える」で何が問題なのでしょう。
「セルをクリックして上キーを押す」とそう大差はないように思い
ますけど。
No.1
- 回答日時:
上に行くマクロを書いてみました。
下に行くマクロは、質問者さんの方で、作ってみて下さい。
Sub 上へ()
If Intersect(Range("A2:A10"), Selection) Is Nothing Then Exit Sub
If Selection.CountLarge = 1 Then
Selection.Cut
Selection.Offset(-1).Select
Selection.Insert Shift:=xlDown
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Excel(エクセル) 【マクロ】マクロボタンをクリックしたら、セルに OK と表示される 3 2023/08/18 07:37
- Visual Basic(VBA) VBA 登録ボタンを省略してエンターキーで作業 4 2022/07/09 22:29
- Excel(エクセル) マクロでコピーすると数式が表示される 1 2022/09/09 20:21
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Excel(エクセル) EXCEL ActiveX コマンドボタンで実行する前にいったんmsgBoxで確認を求めたい 1 2022/07/06 19:41
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
勃起する時って痛いんですか? ...
-
EXCELで条件付き書式で空白セル...
-
【Excelで「正弦波」のグラフを...
-
至急!尿検査前日にオナニーし...
-
腕を見たら黄色くなってる部分...
-
口の中に黒い血の塊
-
精子が黄色?
-
舌の裏の痛みのないプツプツの...
-
これって喉仏ですか? 私は女性...
-
小数点以下を繰り上げたものを...
-
2つの数値のうち、数値が小さい...
-
尿検査前日に自慰行為した時の...
-
エクセルでθを求めたい。
-
足がまだら模様になります。ど...
-
納豆食べた後の尿の納豆臭は何故?
-
MIN関数で空白セルを無視したい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報