No.2ベストアンサー
- 回答日時:
要するに、B~Hの1行目から最終行までを上下反転させればいいのなら下記のようにすればよいのではないですか。
今回は使用している領域の最終行を使っていますが、それぞれ一長一短がありますので参考にしてください。
No.8 ワークシートの最終行、最終列を取得する
http://www.niji.or.jp/home/toru/notes/8.html
標準モジュールではなく、シートのモジュールに記述することを想定しています。
====マクロの内容はココから====
Sub Macro上下反転()
Dim 最終行 As Long
Dim temp As Variant 'セルの内容によってはstring 等でも可能
Dim 上行 As Long
Dim 下行 As Long
Dim 列変数 As Long
最終行 = ActiveSheet.UsedRange.Rows.Count
'最終行の取得の仕方は複数あります。最適なものを使用してください。
For 上行 = 1 To Int(最終行 / 2)
下行 = 最終行 - 上行 + 1
For 列変数 = 2 To 8 '対象列をBからHまで順次
temp = Cells(上行, 列変数).Value '上側セルの値を取得=一端保存
Cells(上行, 列変数).Value = Cells(下行, 列変数).Value
Cells(下行, 列変数).Value = temp
Next 列変数
Next 上行
End Sub
回答ありがとうございます。
お陰様で上下の反転は出来たのですが、このマクロを他のボタンクリックのマクロの途中に動作させようとしました。
'上下を反転
Call Sub Macro上下反転()
このようにしてみたのですが、赤文字で表示され実行してみると構文エラーが出てしまうようなんですが、これはどうしたら良いでしょうか?
既にあるマクロは実際に動作しているものなので、構文だけが悪いという事ですよね?
お手数ですが教えて頂けないでしょうか、よろしくお願いいたします。
No.3
- 回答日時:
その「他のボタンクリックのマクロ」が何処に記述されているのかによって対処法は変わってきます。
同一シートのモジュールにあるのでしたら
Call Macro上下反転()
(※Call 呼び出したいSubプロシージャー名 としなければいけません。「Sub」が付いているのが明らかな構文エラーです。)
だけでよいのですが、標準モジュールのものでしたら別の記述になる可能性がありますし、呼び出せないことも考えられます。
また前回答のSubプロシージャを標準モジュールに記述すると、Cellsの指定が不明確で誤作動の原因になることも考えられます。
これ以上は、質問者さんの状況により
・シートモジュール内のSubプロシージャーを使いたい。
・標準モジュール内で標的シートの特定方法(記述方法)
等の質問になりますので、この質問が解決したのであれば別質問をたてることをお勧めします。
No.1
- 回答日時:
「選択範囲を上下反転」とはどういうことでしょうか?
「上から下」を選択しようと、「下から上」を選択しようと選択された範囲は一緒ですよね。
例えば
Range(Selection, Selection.End(xlDown)).Select
も
Range(Selection.End(xlDown),Selection).Select
も同じ範囲です。
「選択された範囲の値を上下を入れ替えたい」のでしょうか?
補足願います。
老婆心
Selection.End(xlDown)
では、結局B列の最終行の値になってしまうようです。また、1行目しか入力値が無い場合には最終行まで選択されてしまいますが、それでよろしいのでしょうか。
回答ありがとうございます。
選択された範囲の値の上下をを入れ替えたいのです。
ちなみに、B~Hは必ず同じ行数で、1行などの事はありません。
また、コードはマクロの記録で取得したものなのですが、提示頂いたコードが正解なのでしょうか?
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Excel(エクセル) 【VBA】エクセルで選択した範囲の値のみをクリップボードにコピーするコードについて 3 2023/03/08 17:41
- Visual Basic(VBA) A列の最終行に合わせて範囲をコピー 2 2022/09/04 19:10
- Excel(エクセル) 列の最終行に新たに入力されたらその値を自動参照 1 2023/01/21 09:59
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) ExcelVBAの転記について 1 2022/03/23 20:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Excel(エクセル) vba 複数の行を非表示の時コードのまとめ方 3 2022/11/17 15:01
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
☆エクセル マクロ 範囲の値を上下反転
Visual Basic(VBA)
-
excelで選択範囲の反転をしたいのですが
Excel(エクセル)
-
VBAで上下のセルを入れ替えるには?
Excel(エクセル)
-
-
4
エクセルで列を逆順に表示し直したい
Excel(エクセル)
-
5
逆さまに貼り付け(excel)
Excel(エクセル)
-
6
Excelで隠れてしまった図やテキストボックスを探す方法
Excel(エクセル)
-
7
XL:BeforeDoubleClickが動かない
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VLOOKUPの列番号の最大は?
-
「段」と「行」の違いがよくわ...
-
再質問です。マクロの修正箇所...
-
エクセルで離れた列を選択して...
-
VBAで別ブックの列を検索し、該...
-
エクセルの列をたたむ操作
-
最終行に合計(最終行が列によ...
-
LEFT関数とIF関数の組み合わせ...
-
データシートビューのタイトル...
-
エクセルでセル12個間隔で合...
-
条件付きの標準偏差をVBAを用い...
-
Excel文字列一括変換
-
エクセルマクロの組み方
-
Excel VBA マクロで複数列が共...
-
オートフィルターの複数抽出と...
-
横軸を日付・時間とするグラフ化
-
Alt+Shift+↑を一括で行うには、...
-
【マクロ】【VBA】条件付き書式...
-
エクセル 重複 隣の列 一番...
-
エクセルの列末のデータだけ表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
「段」と「行」の違いがよくわ...
-
VLOOKUPの列番号の最大は?
-
LEFT関数とIF関数の組み合わせ...
-
VBA 指定した列にある日時デー...
-
Alt+Shift+↑を一括で行うには、...
-
エクセルで住所を県と市・郡と...
-
エクセルで複数列の検索をマク...
-
Excelの行数、列数を増やしたい...
-
VBAで結合セルを転記する法を教...
-
エクセルマクロPrivate Subを複...
-
エクセルマクロの組み方
-
CSVファイルの「0落ち」にVBA
-
列方向、行方向の定義
-
リストからデータを紐付けしたい
-
エクセルのソートで、数字より...
-
Excel文字列一括変換
-
エクセルで最初の行や列を開け...
-
エクセルでセル12個間隔で合...
-
エクセル マクロ 範囲指定で...
おすすめ情報
こんにちは、もしよろしければもう一つ教えて頂けませんか?
AとBのブックがあったとして、Aのブックに書いた教えて頂いたコードでBのブックに動作させるにはどうしたら良いでしょうか?
コードが動作する対象をアクティブなブックのアクティブなシートにするという意味です。
お手数ですが、教えて頂だけませんでしょうか。
よろしくお願いいたします。