下記のマクロでブックの共有をすると
RANGEクラスの・・・とエラーが出ます。
ブックの共有をしてもエラーの出ないマクロはありませんか?
Sub 上へ()
Dim rng As Range
Dim col As Long, rw As Long
If Intersect(Range("T4:X53"), Selection) Is Nothing Then Exit Sub
col = Selection.Column
rw = Selection.Row
Set rng = Range(Cells(rw, "T"), Cells(rw, "X"))
rng.Cut
rng.Offset(-1).Insert Shift:=xlDown
Cells(rw - 1, col).Select
Set rng = Nothing
End Sub
Sub 下へ()
Dim rng As Range
Dim col As Long, rw As Long
If Intersect(Range("T8:X53"), Selection) Is Nothing Then Exit Sub
col = Selection.Column
rw = Selection.Row
Set rng = Range(Cells(rw, "T"), Cells(rw, "X"))
rng.Cut
rng.Offset(2).Insert Shift:=xlDown
Cells(rw + 1, col).Select
Set rng = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 正規表現を用いての並び替え 7 2022/04/04 09:27
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Visual Basic(VBA) VBAで教えて頂きたいのですが? 1 2022/04/29 02:36
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセル シート保護された共有ファイルのマクロ実行
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
-
4
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
5
Excelでブックの共有を掛けるとオートシェイプが操作できない。
その他(ソフトウェア)
-
6
ネットワーク上にある共有ファイルのVBAエラー
Excel(エクセル)
-
7
エクセル共有化のトラブル
Visual Basic(VBA)
-
8
ExcelVBAで今開いているユーザ情報を取得できますか?
Visual Basic(VBA)
-
9
作成したマクロを共有
Excel(エクセル)
-
10
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
11
エクセルでエラーが出て困っています。
Excel(エクセル)
-
12
Excelブックの共有をしているのに読み取り専用になる。
Excel(エクセル)
-
13
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
14
VBA 共有保護の解除
Excel(エクセル)
-
15
VBAで「致命的なエラー」が出ました。どのくらい致命的なんでしょうか?
Access(アクセス)
-
16
VBAでcallで呼び出したsubを終了させる
Visual Basic(VBA)
-
17
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
18
VBA+VBSによる別インスタンスBookOpen時のVBSエラーに関して
Excel(エクセル)
-
19
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
20
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで行コピーして挿入
-
VBA Shapes コピーと名前
-
エクセル連番自動印刷について
-
セルに入力するたびにマクロを...
-
エクセルのマクロについて教え...
-
Excelでマクロ実行中に画面を固...
-
EXCEL VBA 他のアプリケーショ...
-
【ExcelVBA】マクロブックを通...
-
別のexcelのデータをコピペするVBA
-
エクセル メニューバーの中の...
-
excel 2010 範囲内 同じ文字 ...
-
エクセルファイルを値でのみし...
-
WPSOffice_マクロの有効化について
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
Excelのマクロでボタンを押すと...
-
エクセルの表を複数枚印刷した...
-
名前の変わるブックをアクティ...
-
LDPlayerのマクロの編集方法を...
-
【マクロ】必要な項目(列)の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを値でのみし...
-
エクセルのマクロについて教え...
-
Excelでマクロ実行中に画面を固...
-
VBA Shapes コピーと名前
-
エクセル マクロ写真帳に一括で...
-
エクセル連番自動印刷について
-
エクセル 図形の寸法を取得したい
-
【Excel】マクロでページを追加...
-
セルに入力するたびにマクロを...
-
エクセルVBAで納期管理システム...
-
ブックの共有でVBAエラー
-
EXCEL VBA 他のアプリケーショ...
-
VBAで行コピーして挿入
-
EXCEL 行番号や列番号が選択で...
-
【ExcelVBA】マクロブックを通...
-
ExcelのVBAで自動採番したい...
-
エクセルファイルの回数期限の...
-
シート名を記入する
-
VB.NETによるEXCELの行挿入
-
エクセルのマクロを教えてください
おすすめ情報