ベストアンサー

移動のマクロ(エクセル)

2006/05/06 23:37

Selection.Cut Destination:=Selection.Offset(0, 1) 上記マクロで、選択領域にあるセルのデータを右に一セル分移動できますが、データだけでなく選択領域自体も同位置に移動させるには、どのような記述が必要になるでしょうか？

kayonon
お礼率100% (22/22)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

merlionXX
ベストアンサー率48% (1930/4007)

2006/05/07 00:25 回答No.1

そのまま、 Sub test1() Selection.Cut Destination:=Selection.Offset(0, 1) Selection.Offset(0, 1).Select End Sub ではいかがでしょう？

質問者

お礼 2006/05/07 07:33

有難うございました。

関連するQ&A

エクセルのマクロ

Sub test() Set x = Application.InputBox(Prompt:="", Type:=8) Selection.Cut Destination:=x End Sub 上記マクロは、選択されている領域を、指定したセルを基点として移動させるものです。実行後に、移動した領域を選択状態にするにはどういった記述が必要になるでしょうか？
カット＆ペーストのマクロ(エクセル)

Sub test1() Selection.Cut Destination:=Selection.Offset(0, -1) Selection.CurrentRegion.Select End Sub Sub test2() Selection.Cut Destination:=Selection.Offset(0, 1) Selection.CurrentRegion.Select End Sub K1：N1が選択状態になっている時にtest1を実行すると、4つのセルが一セル分だけ左に移動します。 test1を連続してもう一回実行すると二セル分だけ左に移動します。連続して3回だと三セル分です。が、test2だと、test1と同様に実行回数分だけ全体を右に移動させることができません。どうしてでしょうか？実行回数分だけ全体を右に移動させるには、どういった記述が必要でしょうか？
エクセルのマクロ

エクセル2002でマクロを記録しました。セルD5を選択した状態で、マクロの記録を始めました。（相対参照ボタンをクリックしています） D5のセルの色を黒にして、セルD6を選択して色を白にしました。ここで記録を終了しました。 VisualBasicEditorで見ると以下のような記述がありました。そこで教えてください。１）どの部分が相対参照をしているという意味の記述でしょうか？２）どの部分がD6を選択したという記述でしょうか？３）「Range("A1").Select」はどういう意味ですか？A1のセルはクリックしていないのですが・・・。教えてください。記述は以下です。 With Selection.Interior .ColorIndex = 1 .Pattern = xlSolid End With ActiveCell.Offset(1, 0).Range("A1").Select With Selection.Interior .ColorIndex = 2 .Pattern = xlSolid End With End Sub
コピーのマクロ（エクセル）

同一行で、データが入力されている連続した複数のセルの一部のセル(複数の時も有り)を選択状態にして実行した時に、選択状態になっているセルが含まれる連続したセルをコピーして指定位置に貼り付けるマクロとして以下を試してみましたが、うまくいきません。どこが間違っているのでしょうか？ a = ActiveCell.CurrentRegion.Column ActiveCell.CurrentRegion.Copy Destination:=Cells(30, a)
削除のマクロ（エクセル）

Sub test() 　Selection.Delete 　Selection.Interior.ColorIndex = xlNone 　Selection.Borders(xlDiagonalDown).LineStyle = xlNone 　Selection.Borders(xlDiagonalUp).LineStyle = xlNone 　Selection.Borders(xlEdgeLeft).LineStyle = xlNone 　Selection.Borders(xlEdgeTop).LineStyle = xlNone 　Selection.Borders(xlEdgeBottom).LineStyle = xlNone 　Selection.Borders(xlEdgeRight).LineStyle = xlNone 　Selection.Borders(xlInsideVertical).LineStyle = xlNone 　Selection.Borders(xlInsideHorizontal).LineStyle = xlNone 　Selection.ClearContents End Sub 上記マクロは、まず図形が選択状態にある時はそれを削除します。また、セルが選択状態にある時は、選択範囲内の文字を消し、罫線を消し、塗りつぶしの色を消します。上記マクロを実行すると不具合が生じます。選択範囲外のデータが消えたり、選択範囲外のセルが移動したりしてしまいます。　　　c5　d5　e5　f5 　　　c6　d6　e6　f6 　　　c7　d7　e7　f7 　　　c8　d8　e8　f8 上記の全てのセルにデータが入力されている場合、d6:e7を選択してマクロを実行すると、d6:e8のデータが消えてしまいます。 d6:d7を選択してマクロを実行すると、d6:e7のデータが消える上にf6:f7が一セル分左に移動してしまいます。マクロ内の"Selection.Delete"をコメントにして実行すると不具合は生じることなく、選択範囲内のデータだけに作用させることができます。ただ、"Selection.Delete"を外すと、「図形が選択されている時は図形を削除する」ができなくなります。どのようにマクロを修正すれば、セルのデータと図形のそれぞれを不具合なく削除させることができるでしょうか？
EXCELのマクロで複数選択したとき

選択したセルに一つ左側の文字列をふりがなとして表示させる方法をマクロで簡単に実行させたいのですが複数のセルを選択するとエラーになってしまいます。 Sub test() Selection.Characters.PhoneticCharacters = Selection.Offset(0, -1) Selection.SetPhonetic Selection.Phonetics.Visible = True End Sub マクロはさきほど調べたばかりでほとんど理解できていません。おそらく2行目のSelection.Offset(0, -1)の部分がエラーの原因かと思うのですが下記のような表現ができるマクロを教えて下さい。 B1～B10を選択してるときマクロを実行するとA1～A10の文字列をB1～B10にふりがなの文字になる。 *　B1にはA1、B2にはA2の文字列とがふりがなになるようにしたい。マクロに詳しい方よろしくお願いします。
Excelのマクロについて

Excelについて全くの初心者で、今から勉強を始めるところですが、急遽、次のようなマクロを作成したいです。アクティブなセルから右に６つ目のセルとそのセルから右に１つ、下に１つ目のセルに現在の時間を記入どのように記述すればよいでしょうか。ちなみに、的はずれかもしれませんが、以下のようなマクロを作りましたが、うまくいきませんでした。よろしくお願いします。 Sub 時間入力() ActiveCell.Offset(0, 6).Activate SendKeys "^(:)" SendKeys "{TAB}" ActiveCell.Offset(1, 0).Activate SendKeys "^(:)" SendKeys "{TAB}" End Sub
エクセル　マクロで画像を指定したコマへ移動する

よろしくお願いします。マクロは触ったばかりです。何度も検索をかけたのですがどうしてもうまくヒットさせることが出来ずこちらで相談させて頂くことにしました。画像を毎回決まった大きさにトリミングしその後その画像の左端をセルB17に移動させたいのですがマクロの記録で行うと右へどれくらい、左へどれくらいと指定されてしまい必ず同じ場所へ移動してくれません。「その画像の左端をセルB17に移動」このコードを教えてください。出来上がっているコードは Selection.ShapeRange.PictureFormat.CropBottom = 224.39 Selection.ShapeRange.PictureFormat.CropTop = 21.6 Selection.ShapeRange.PictureFormat.CropRight = 11.4 Selection.ShapeRange.PictureFormat.CropLeft = 9.6 Selection.ShapeRange.ScaleWidth 0.76, msoFalse, msoScaleFromBottomRight Selection.ShapeRange.ScaleHeight 0.76, msoFalse, msoScaleFromTopLeft End Sub ここまでです。（右へどれくらい移動というのは消しました。）よろしくお願いします。
エクセルのマクロ

Sub test() x = Selection.Row y = Selection.Column z = Selection.Columns.count Range(Cells(x, y), Cells(x, y + z - 2)).Select Selection.ClearContents End Sub 上記マクロは、同一行の連続するセルを二つ以上選択状態にして実行すると、範囲内の最も右にあるセルの値のみが残って他のセルの値は全て消去されます。上記マクロを、複数のセレクションに対して対応できるようにするには、どうすればいいでしょうか？例えば、c1～f1、d3～h3、e10～g10を選択して実行すると、f1とh3とg10の値のみ残って他の値は消えるということです。
Excelで渦巻状にセルを移動するマクロを作りたいのです

マクロで渦身状＆時計回りにアクティブセルを移動させるにはどのように記述したらよいでしょうか。例えば、E16を選択しているときにマクロを実行したら E16→D16→D15→D14→E14→F14→F15→F16→F17→E17→D17→C17→… と移動していく感じです。キーボード記録マクロで[↑][↓][←][→]キーで移動してみても何も記録されなかったので、移動→黄色に塗りつぶし、という繰り返しを記録してみると、文末のようにはなりました。が、渦巻き状に移動というアルゴリズムがさっぱり思いつきません。無限でなく、例えば１０周くらいまわれば十分です。最終的には、移動するごとに、踏んだセルの値を評価（1だったら赤に塗る、のように）していきますが、まずは選択セルを基点に渦巻状にセルを移動する方法が知りたいです。よろしくお願いします。 Sub Macro1() With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With Range("E16").Select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With Range("D16").Select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With ' ■中略■ Range("C17").Select With Selection.Interior End Sub .ColorIndex = 6 .Pattern = xlSolid End With （ちなみに）エクセル上に、日本地図が碁盤目状に描かれています。セルには、平野＝１、山＝２、海＝３のように記述されています。これを特定法則で塗り分けるのに利用します。
Excel VBA CHAR( ) でエラーになる

Excel VBA でマクロ処理を作成してます。現在エラー直らず困っています。処理は内容は以下になります。セルを指定 →『Q11』選択 offset() で+1して列を右に1個移動で、選択したセルには今計算式が入っているが… その計算式を修正する修正前　　修正後 Q11/3 → Q11 オートフィルでセルの最下位まで確定させるその後,列を右に３コ移動して (offset関数を使用して移動してます) 後はfor文で繰り返せ…　といった処理で,以下がソースになります。 Sub test() Dim str As String n = 1 For i = 1 To 2 Range("Q11").Select.Offset(, n).Select ▲ActiveCell.FormulaR1C1 = "=RC[123]" ★str = CHAR(CODE("Q") + n) Selection.AutoFill Destination:=Range(str & "11:" & str & "160") n = n + 3 Next End Sub ★マークで現在エラーになっている様です。関数の使用方法が間違っているのか？エラーが直らず困っています。 ▲マークもあまりよくない記述かもしれませんが…試しマクロで作成してコピーしただけのものなので…この辺りもよい記述があればご教授ください。アドバイス宜しくお願いします。
エクセル VBAマクロセルの単純移動

基本的な質問ですが、よろしくお願いします。エクセルのVBAで、Selectセルを１つだけ上下左右に移動させることを ”汎用的に書く”としたらどのようにすれば良いでしょうか？例えば、Selectセルを一番上や、一番下、へというのであれば、 Selection.End(xlUp).Select Selection.End(xlDown).Select 一番右や、一番左なら、 Selection.End(xlToRight).Select Selection.End(xlToLeft).Select のように書いて、実行できます。それでは、今いる所のすぐ隣りのセルへ移動させるということを同じように表現するには、どのようにしたら良いでしょうか。事の発端は、マクロの自動記録を使って、セルを移動していっても、 Range("A1").Select Range("B1").Select Range("B2").Select Range("C2").Select Range("C3").Select : のように、絶対セル位置で記録されてしまうため、同じような処理を順に隣りや後の行・列に向かって繰り返すような処理を書こうとしたときに、汎用的には動いてくれないところからです。参考になるページを自力では見つけられませんでした。よろしくお願いします。
エクセルのマクロのことで

選択範囲を左右対称形でカット＆ペーストするマクロを作成したいのですが。 F1あ　　　 F2い　　G2う F3え　　G3お　　H3か上記でF1：H3を選択して実行すると、InputBoxに貼付け先を指定し、仮にD1を選ぶと以下の結果になります。　　　　　　　　D1あ　　　　C2う　D2い　　　　　　 B3か　C3お　D3え　　　　以下のマクロを作成しましたがうまくいきません。 rc = Selection.Rows.count cc = Selection.Columns.count Set pt = Application.InputBox("貼り付け先", "Paste", Type:=8) For j = 1 To rc For i = 1 To cc Selection.Offset(j - 1, i - 1).Cut pt.Offset(j - 1, 1 - i) Next i Next j 実行結果ですが。 InputBoxの指定先を基点に左右対称ではなくそのままの向きでカット＆ペーストされます。また、カット＆ペースト処理のところでエラーになって止まってしまいます。どこがおかしいのでしょうか？ご指摘お願いします。
エクセルマクロ

キーボード操作では、→→→↓shiftキー押しながら→→↓↓の手順操作のマクロを作成したい（セル番地で指定したマクロでなく、開始時のアクティブセル（任意セル番地の基点）から右３下１の位置から右２、下２の範囲指定をしたい）仮に例を示すと、アクティブセル（仮にアクティブセル番地B5だったとすると）からカーソル左へ３つ、下へ１つ移動（アクティブセルはE6）し、右に２、下に２（E6：F7）を範囲選択するマクロを作成したい。
EXCELでENTERキーでセルの移動マクロ

こんにちは。 EXCELでENTERキーでセルの移動マクロを使いたいのですが、下記のマクロで改良を教えてもらいたいと思います。まず、最初は必ず、セルB5にフォーカスしたいということ。そうして、できればOFFSETを使わないで、rangeかcellを使いたいのですが、お願いします。 Sub セル移動() Range("B5").Select Select Case ActiveCell.Column Case 1 ActiveCell.Offset(1, 1).Activate Case 2 ActiveCell.Offset(2, 2).Activate Case 3 ActiveCell.Offset(1, 1).Activate Case 4 ActiveCell.Offset(1, 1).Activate End Select End Sub
マクロのｉｆ文

「もしアクティブセルの一つ上のセルが選択状態だったら」上記のマクロ文は以下では違うと思いますが、正しいものを教えて下さい。 If ActiveCell.Offset(1, 0) = Selection Then
エクセルのマクロ

縦方向に連続したセルを選択状態にした時に、選択セルを基点として右横方向に連続してデータが入力されているセルを罫線で囲う、という処理をマクロで実行したいのですが。例えば、以下の図で黒丸がデータ入力セルであるとすると、C1～C4を選択状態にして実行すると、C1～D1とC2～F2とC4が罫線で囲われます。　ＡＢ　ＣＤ　ＥＦＧ１○●●●○○○ ２●●●●●●○ ３○○○○○○○ ４●●●○○○○ 以下のマクロを実行すると、上図の3行目と4行目のところがかなり余計に罫線が引かれてしまいます。どう修正すればいいでしょうか？ Sub test1() 　yc = Selection.Rows.count 　aa = ActiveCell.Address 　For y = 0 To yc - 1 　ActiveCell.Offset(y, 0).Select 　Range(ActiveCell, ActiveCell.End _ 　　　　　　(xlToRight)).Select 　　　　　　With Selection.Borders(xlEdgeLeft) 　　　　　　.LineStyle = xlContinuous 　　　　　　.Weight = xlThin 　　　　　　.ColorIndex = xlAutomatic 　　　End With 　　　With Selection.Borders(xlEdgeTop) 　　　　　　.LineStyle = xlContinuous 　　　　　　.Weight = xlThin 　　　　　　.ColorIndex = xlAutomatic 　　　End With 　　　With Selection.Borders(xlEdgeBottom) 　　　　　　.LineStyle = xlContinuous 　　　　　　.Weight = xlThin 　　　　　　.ColorIndex = xlAutomatic 　　　End With 　　　With Selection.Borders(xlEdgeRight) 　　　　　　.LineStyle = xlContinuous 　　　　　　.Weight = xlThin 　　　　　　.ColorIndex = xlAutomatic 　　　End With 　　　Range(aa).Select 　　Next y End Sub
ExcelでのVBAマクロについて

質問させていただきます。今現在、知人に設定していただいた一つのマクロを使って作業しています。（そのマクロ自体は【選択したセル】と【直下のセル】のデータを「テキスト」として『前後のスペース』を削除し「セル内改行」で結合する。高さ調整後、1セル分上がる。というものです）今までは１セルずつこれを使って結合し、セル内文章をまとめて一番上に持ち上げていました。しかし、今回私がやりたいのは１セルずつマクロを実行（ショートカットキーを使っていますが）するのが手間なので、５セル（上下方向にです）に対して一気に先ほどの既存マクロを適応する、という風にしたいのです。（選択セルと直下セルが結合されて選択セル内文章が増えるというやり方ですので、一番初めのポインタ位置は結合したいデータの下から二つ目でないといけません。その場合、この既存マクロを４回繰り返すマクロがほしいのです）私自身、「記録」機能を使ったマクロしか組んだことがなかったのでVBAのほうをいじってみても知識不足でエラーばかり出てしまい、困ってしまいました。とても説明がややこしく、分かりづらいとは思いますが、ご回答いただけると有り難いです。
EXCELでセルの移動マクロを作りたいのですが…

EXCELについての質問です。マクロを使ってセルの移動をさせたいと考えています。まず使うデータ範囲はA1:E11です。A1:E10にはデータが入っています。ちなみに、A列には名前、B～E列には数字が入っており、A11:E11は合計が表示される設定しており、合計の場所はここに固定させたいのです。その移動のさせ方ですが、 A1：E1に空欄があるとします。そのときに、マクロを再生させるとA2:E10のセルに入っているデータ（値のみ）を上に移動させたいのです。さらに、A3:E3の内容を消して空欄が出来たとします。その時に同じ操作によってA4:E10のデータを上に移動させたいのです。前者のマクロを単純に作ると縦に9つ分のセルを移動させるマクロでは、 A11:E11も上に移動させられてしまいます。なので、移動させるセルの一番下が10行目になるようなマクロを作りたいのです。何がしたいのかといいますと、いらないデータを消した時に空欄をマクロで詰めてしまいたいのです。乱文で判りづらいかと思いますが、知識のある方教えていただけないでしょうか。よろしくお願い致します。
Excxl セル移動マクロ

マクロの初心者です。 Excxl のマクロで、ActiveCell を選択されている"行"の左端からｎ番目にセル移動する場合 Cells(ActiveCell.Row, n).Select で目標のセルが選択されますが、選択されている"列"の上端からｎ番目にセル移動する場合は、どう記述するのでしょうか、ヘルプの文は難しいのでよくわかりません。教えて下さい。よろしくお願いします。

移動のマクロ(エクセル)

質問者が選んだベストアンサー

お礼 2006/05/07 07:33

関連するQ&A

エクセルのマクロ

カット＆ペーストのマクロ(エクセル)

エクセルのマクロ

コピーのマクロ（エクセル）

削除のマクロ（エクセル）

EXCELのマクロで複数選択したとき

Excelのマクロについて

エクセル　マクロで画像を指定したコマへ移動する

エクセルのマクロ

Excelで渦巻状にセルを移動するマクロを作りたいのです

Excel VBA CHAR( ) でエラーになる

エクセル VBAマクロセルの単純移動

エクセルのマクロのことで

エクセルマクロ

EXCELでENTERキーでセルの移動マクロ

マクロのｉｆ文

エクセルのマクロ

ExcelでのVBAマクロについて

EXCELでセルの移動マクロを作りたいのですが…

Excxl セル移動マクロ

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

移動のマクロ(エクセル)

質問者が選んだベストアンサー

お礼 2006/05/07 07:33

関連するQ&A

エクセルのマクロ

カット＆ペーストのマクロ(エクセル)

エクセルのマクロ

コピーのマクロ（エクセル）

削除のマクロ（エクセル）

EXCELのマクロで複数選択したとき

Excelのマクロについて

エクセル マクロで画像を指定したコマへ移動する

エクセルのマクロ

Excelで渦巻状にセルを移動するマクロを作りたいのです

Excel VBA CHAR( ) でエラーになる

エクセル VBAマクロ セルの単純移動

エクセルのマクロのことで

エクセルマクロ

EXCELでENTERキーでセルの移動マクロ

マクロのｉｆ文

エクセルのマクロ

ExcelでのVBAマクロについて

EXCELでセルの移動マクロを作りたいのですが…

Excxl セル移動マクロ

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセル　マクロで画像を指定したコマへ移動する

エクセル VBAマクロセルの単純移動

カテゴリ
一覧

専門家に質問してみよう
専門家登録