ベストアンサー エクセルのマクロですが 2004/01/29 23:25 現在選択しているセルから10行下のセルまでを選択状態にするマクロを知りたいのですが。 (現在A5を選択している時に実行すると、A5からA15までが選択状態になります) よろしくお願いします。 みんなの回答 （1） 専門家の回答 質問者が選んだベストアンサー ベストアンサー imogasi ベストアンサー率27% (4737/17070) 2004/01/29 23:41 回答No.1 標準モジュールに下記を貼りつけ、実行するはどうですか。 Sub Macro1() r = Selection.Row c = Selection.Column Range(Cells(r, c), Cells(r + 10, c)).Select End Sub 質問者 お礼 2004/01/30 05:41 ありがとうございました。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ パソコン・スマートフォンソフトウェアオフィス系ソフト 関連するQ&A Excel 2000で それを実行すると、現在選択しているセルから99行下のセルまで を選択状態にするマクロを教えて頂きたいのですが。 A1を選択している時は、A1からA100までが選択状態になります。 また、そのマクロをボタンにしてツールバーに貼り付けることは可 能でしょう。可能でしたら方法を教えて下さい。 お願いします。 マクロでの行選択 Excelのマクロについて質問です。 例えば、A1～A5セルをセル結合したときに、3行目～5行目を行選択 しようとしたときに手動で行なうとうまく選択できるのですが、マクロ で実行するとなぜか結合されている1行目から5行目が選択されて しまいます。 具体的に以下のようなマクロを書きました。 Rows.("3:5").select 手動のみでマクロ化は無理なのでしょうか？ 今のままですと、一回連結をといてセルを選択して処理を実行、その のちにセルを再び連結させるということをやらなければいけなくなって しまいます。 エクセルで連番をマクロで こんにちは いつもお世話になっています。 Windows7、エクセル2010で教えてください。 B3から仮にB100まで文字列があるとします、空白セルはありません。 この状態でA3からA100まで１から始まる連番をマクロで実行したいのです。 実際はB列のデータの最終行は不定です。つまり、B列にデータがなくなるまで（空白セルになるまで）A列に連番をつけたいのです。現在はA3,A4に１，２と入力し、オートフィルで該当セルを選択し「予測」で連番をつけています。 マクロ記録ではB列にデータがなくなる判断ができなくて作れません。 この作業が頻繁にあるものですからマクロができれば助かります。 よろしくお願いいたします。 携帯料金を賢く見直す！格安SIMと端末選びのポイントは？ OKWAVE コラム エクセル/マクロ/セルの選択について（初心者です） 最近マクロ機能を使い始めた初心者です。 マクロの記録を使い、ちょっとだけVBEで触っています。 以下のような場合、なんと記述すればよいでしょうか？ 詳しい方にはとても簡単だと思われ、お恥ずかしいですが、 教えていただけましたら幸いです。 【実現したい内容】 あるセル範囲を指定している時に、実行すると、 指定していた範囲の行の、A列のみが選択される ※例えばB1:B3、またはC1:C3、またはD1:E3 のをセル範囲を選択している時に、マクロを実行すると いずれの場合もA1:A3を選択する。 表現が分かりにくいでしょうか…？ コピーのマクロ（エクセル） 同一行で、データが入力されている連続した複数のセルの一部のセル(複数の時も有り)を選択状態にして実行した時に、選択状態になっているセルが含まれる連続したセルをコピーして指定位置に貼り付けるマクロとして以下を試してみましたが、うまくいきません。 どこが間違っているのでしょうか？ a = ActiveCell.CurrentRegion.Column ActiveCell.CurrentRegion.Copy Destination:=Cells(30, a) 【再】エクセル2013 マクロをご教示ください Sheet1で選択しているセルの行をSheet2に転写したいです。 Sheet1とSheet2の4行目に見出し。 Shet1にはA～U列までデータがあります。(途中空白セルの場合もあり) Sheet1の5行目以降の、あるセルを選択してマクロを実行すると Sheet1のC～S列までをSheet2のA～Q列へコピペしたいです。 Sheet1は H列に必ずデータがあるので それらを最終行の判断基準とします。 Sheet1での選択セルは複数の場合もあります。 ただし、同じ行のセルを複数選択しても Sheet2への貼り付けは1行とします。 マクロを実行する度に、Sheet1での選択セルの該当行が Sheet2へ追加されるようにしたいです。 (Sheet2へコピペされたデータは残します) また、Sheet2への貼り付け内容が同じだった場合は 注意喚起のため メッセージで 「重複データが存在します」を表示したいです。 重複の判断基準はSheet2の B、D、F列とします。 宜しくお願い致します。 Excelマクロ：選択したセルに通し番号を入れたい 任意のセルを選択している状態で、マクロの実行をすると左上から下へ、一番したへ来たら次の行の一番上から通し番号を入れるというマクロを作りたいのですが、どのようなコードを書けば良いのでしょうか？ 「新しいマクロの記録」機能を使っての行挿入 「新しいマクロの記録」機能を使って１行と２行の間に10行の空白行を挿入後、A13のセルを選択というマクロを作りました（マクロ１とします）。このマクロを実行すると１行と２行の間に10行の空白行が挿入された後、A13が選択されます。ここでもう一度、マクロ１を実行すると１行と１２行の間にさらに空白行が10行挿入されA13が選択されます。このようになるのは当たり前と言えば当たり前なのですが、２回目にマクロを実行したときに12行と13行の間に10行の空白行が挿入された後、A24が選択されるようにするには、どのようにマクロを記録すればよいのでしょうか？ ようは、１０行の空白行を挿入した後、セルを１１行下に移動させるというマクロを作りたいのです。ＶＢＡの記述方法はほとんど分からないので「新しいマクロの記録」機能を使うことを前提にご教授ください。 Excel マクロについて Excelで、セルを選択して、マクロを実行すると、その選択したセルに赤マル（オートシェイプの）がはいるようなマクロをつくりたいのですが・・・。まだ、マクロは使ったことが無いもので・・・。詳しくお願いします。 エクセルのマクロについて エクセルのマクロ実行についてですが、 例えば、 E1セルの値が1ならばこうする（マクロ名 E1セル1） E2セルの値が2ならばこうする（マクロ名 E1セル2） E3セルの値が3ならばこうする（マクロ名 E1セル3） というマクロを別々に作りました。 これをボタンで実行する時に、 If Range("E1").Value = 1 Then ElseIf Range("E1").Value = 2 Then 2行目には作ったマクロを全部貼り付けないといけないのでしょうか？ それとも簡単にこの場合は、マクロ名E1セル1を実行するという命令することができるのでしょうか？ できるのであれば、入力方法を教えてください。 質問が分かりにくいと思いますが、よろしくお願いします。 Excelでのマクロ作成について 次のようなマクロをExcelで作りたいのですが上手くできませんでした。みなさんのお力をお借りしたいと思い質問しました。 ［質問内容］ A B C 1 20030303120000 2 3 20030406120000 4 5 20030512120000 6 7 このようなシートで、セルA1の内容を「03/03/2003」に変更して行2を削除する。（セルの内容ではなく行そのものを削除する。） この作業を繰り返して次のようなシートにする。 A B C 1 03/03/2003 2 04/06/2003 3 05/12/2003 4 5 ひとつのマクロを繰り返し実行するのでも構いませんが、数が多いのでできれば100行程度を一度に実行できれば助かります。 よろしくお願いします。 エクセルマクロ）VBAの書き方について 初めてのマクロ作成に挑戦しようとしたのですが、さっそく壁に当たってしまい助けていただきたいです。 ■質問 A行に下記の数字が入っているとします。 この時、一番下の1300を元に、一番上の1300のセルをSelectしたいのですが、どのようにしたらよいのでしょうか？ 今、試みていたのは、一番下の1300を使って、レンジA：Aを検索してみる方法です。それもできませんでしたが。。。 ※一番下の1300は、ここまでの過程でSelect状態になっています。 ※オフセットでの移動は希望していません。 ※選択中のセル(値)をみて、同じセル(値)が入った同列一番上のセルを選択したいです。 ※選択中のセルが下記の1200であった場合、一つしかないので、それを選択して欲しいです。 1000 1000 1100 1200 1300 1300 1300 1400 すみません、同じ内容の質問を見つける事が出来なかったので質問させていただきました。 よろしくお願いいたします。 ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策 OKWAVE コラム エクセルのマクロで最終行 マクロでセルの選択をしたいのですが、 Range("$A$5:$EH$5605") のEH5605が毎回変わります。 A5はそのままで、EH5605だけをその時の最終行をしていするようにするにはどうしたらいいのでしょうか？ マクロはほとんど初心者です。 お分かりになる方、よろしくおねがいします。 エクセルのショートカットＯＲマクロ お世話になります。 ＸＰ／エクセル2003使用です。 早速ですが、質問させていただきます。 エクセルのショートカットで、 同じ値の最後のセルまでセル範囲を選択するショートカットを探しています。 -------- 同じ値の1個目のデータが複数行に渡ってあります。 そして、１個目のデータに続いて、１個目とは異なる値の２個目のデータが複数行に渡ってあります。 ３個目以下同じ繰り返しです。 例えば、Ａ列の １～８００行目 あああ ８０１～１１００行目 いいい １１０１行目～１２０５行目 ううう １２０６行目～１３１０行目 えええ １３１０行目～１４９９行目 おおお 同じ値が入力された連続する行の数に規則性はありません。 また、異なる値の個数も作業の都度変わります。（”あああ”などの値の個数のことです） エクセルのショートカットで、 入力された最後のセルを探すのは、 「Ctrl」＋「Shift」＋「↓キー」で可能ですが、 同じように、同じ値が入力された最後のセルまで 何かのショートカットでセル範囲の選択をできますでしょうか？ または、マクロで記述するとすると どのようなコードになりますでしょうか？ 作業としましては、 Ａ１セルを選択した状態でＡ８００セルまでセル範囲を選択し、ある作業をします。 次に、Ａ８０１セルを選択した状態でＡ１１００セルまでセル範囲を選択し、上記と同じ作業をします。 これの繰り返しです。 行数が多いので、セル範囲を選択するときに スクロールで上手く上下させることができず面倒になっています。 よろしくお願いします。 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の文字列とがふりがなになるようにしたい。 マクロに詳しい方よろしくお願いします。 エクセルのマクロ セルＡ１に、ａ２からａ９０までの任意の文字を入力した後にマクロを実行します。 セルＡ１にａ７と入力されている時はセルＢ１にａ６と表示され、セルＡ１にａ８６と入力されている時はセルＢ１にａ８５と表示されるようなマクロを教えてもらいたいのですが。 Ｂ１は必ずＡ１の数字の部分が１つ少なくなるということです。 エクセルのマクロについてです。 マクロを作ったのですが、実行させようとすると『実行時エラー1004』というのが出て、うまく実行できません。微妙な操作（一つのセルをソートして選択すると実行できます）をすると実行出来ますが、毎回上記のエラーが出てしまいます。これを解消するにはどうすればよいでしょうか？ エクセルで特定のセルを選択したい（マクロ） 以下のようなマクロを組もうとしていますが、出来ません。 sheet1において １）マクロを実行すると、メッセージボックスが出る。 ２）メッセージボックスに入力した文字と同じ文字が入力されているセルを選択する。 ３）２）のセルの１行下のセルを選択する。 ２）で必ずエラーが出てしまいます。どのような方法が良いのか教えていただけるとありがたいです。よろしくお願いします。 ExcelVBAのマクロを特定条件まで繰り返し。 初めて質問させていただきます。 ExcelVBAで特定マクロを特定回数あるいは隣のセルが空欄になるまで実行させたいのですが、VBAの知識が乏しく判りません。例えば、セルB1～D1を選択してマクロAを実行し、セルA2が空欄で無ければ改行、セルB2～D2を選択してマクロAを実行、、、とセルAが「空欄」になるまで繰り返します。この作業を約1000行程度行わせるため、手作業では途方も無い時間を費やすことになります。 ご指導いただければ助かります。 エクセルでのマクロ作成 エクセルで作成したボタンをクリックすると以下の事を行うマクロを作りたいと思っています。 (1)最初に貼り付けたいセルの範囲をドラッグで選択する。（手動） (2)マクロを登録したボタンを押す。 (3)マクロ内で指定したセル（たとえば $A$1）をコピーして、(2)でボタンを押してマクロを実行する前に(1)で選択したセルの範囲に貼り付ける。 ＶＢＡが分からないので難儀しています。 宜しくお願いします。 注目のQ&A " Some " や " How " が入った曲。 「生ごみと一緒に出さないようにする」の意味について 吹奏楽部で同じパートの後輩が好きです パーテーションのドライブが一杯になった場合？ 電動ドライバー マツダはロードスターにロータリーを乗せたら❓ 『冷める』ってどこから？ 好きな人との連絡を自分から断ちました このパソコンにはDドライブ的なものはない？ 数学A 余事象の問題 カテゴリ パソコン・スマートフォン ソフトウェア Excel（エクセル）Word（ワード）PowerPoint（パワーポイント）Access（アクセス）その他MS Office製品オフィス系ソフトPhotoshop（フォトショップ）Illustrator（イラストレーター）その他Adobe製品画像・動画・音楽編集ホームページ作成ソフト筆まめ・はがき作成フリーウェア・フリーソフトその他(ソフトウェア) カテゴリ一覧を見る OKWAVE コラム 人命救助の最後の砦！過酷な任務に挑む！航空救難団になるためには？ 楽しく踊って痩せる？ZUMBAの魅力とは 3月生まれは不利？早生まれのメリット・デメリットを解説 筋トレで痩せやすくなる？基礎代謝アップ＆アフターバーン効果の秘密とは！ 🎥 ガンダムシリーズを見たい！どこから見るのがオススメ？🔍 あなたにピッタリな商品が見つかる！ OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
ありがとうございました。