ベストアンサー アクティブセルを参照したい 2008/01/28 14:12 Excelの同一シート内でアクティブセルの内容を別の”セル”に表示したいのですが方法がわかりません、教えてください。 みんなの回答 (2) 専門家の回答 質問者が選んだベストアンサー ベストアンサー merlionXX ベストアンサー率48% (1930/4007) 2008/01/28 14:33 回答No.1 アクティブセルはその都度変わるのですからワークシート関数では無理です。 以下のマクロをお試しください。 表示したい別のセルが仮にA1だとしたら、 1.該当のシートのシート名タブを右クリックし、「コードの表示」を選択。 2.出てきたVisualBasicEditor(白い部分)に下記のコードをコピペ。 '*****ここから下をコピペ***** Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("A1").Value = ActiveCell.Value End Sub '*****ここより上までをコピペ***** 3.AltキーとF11キーを同時に押してワークシートへもどります。 これでご要望のとおりになります。 表示したい別のセルがA1でないのなら、 Range("A1").Value = ActiveCell.Value の"A1"の部分を変えてください。 質問者 お礼 2008/01/28 17:13 早速ご回答いただき、問題が解決し、エクセルを便利に利用できるようになりました。、大変有り難うございました。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 その他の回答 (1) xs200 ベストアンサー率47% (559/1173) 2008/01/28 15:12 回答No.2 =INDIRECT(CELL("address")) いちいちF9を押さないといけませんが。 質問者 お礼 2008/01/28 17:18 早速ご回答いただき大変有り難うございました。 参考にさせていただきます。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ パソコン・スマートフォンソフトウェアオフィス系ソフト 関連するQ&A エクセル 別シートのアクティブセルのアドレス エクセルに詳しい方、教えてください。 (1) シートAのアクティブセルのアドレスをシートBのC20のセルに表示したい (2) シートAのアクティブセルの内容をシートBのD20に表示させたい 以上、しーとBのC20とD20にはどんな関数を入れたらいいですか? よろしくお願いいたします。 エクセル2013のアクティブセル表示されない エクセルを2010から2013に切り替えてから不具合がおきています。 問題は下記です。 1.シートAとシートBがあり、シートBの情報を参照し、シートAに表示させたいとします。 2.シートAのセルに「=」と入力し、シートBにページ移動します。 ここで、問題がおきるのですが、シートBでアクティブセルが表示されないのです。 その為、どのセルをシートB上で、選択しているかを視覚的に確認することができません。 選択自体はされているので、左上の選択セルを示す文字を読めば、場所がわかるのですが、 視覚的にわからないので、とても不便です。 2010では、このようなことがなく、 また、同じ2013を使う人でも、シートBでしっかり視覚的にアクティブセルが表示される人もいるので、 設定上の問題だとは思うのですが、解決できず、困っています。 お分かりの方、どうかご教示ください。 エクセルの参照表示 エクセルを仕事でフル活用しています。大分こなせるようになってきているのですが、次の質問をさせてください。 別のワークシートのあるセルから、現シートのあるセルに参照して表示をさせることはできるのですが、その表示内容を編集したいとき、どのようにすればよろしいのでしょうか。 参照元のセルを編集すればできるのはわかるのですが、現シートの参照表示を参照ではなく、確定表示?する方法はないのでしょうか。教えてください。 携帯料金を賢く見直す!格安SIMと端末選びのポイントは? OKWAVE コラム マクロでアクティブセルにペースト 画像はエクセルのマクロで、F3~F7のセルをコピーして、O3のセルにペーストするという内容です。これをO3ではなく、アクティブセルにペーストするにはどのように記述すればよいでしょうか? エクセルのアクティブセルの表示を変更する方法がわからず困っております。 エクセルのアクティブセルの表示を変更する方法がわからず困っております。 理想としては、以下の様にしたいです。 左と上の面(行数・列数が表示されている部分)からアクティブセルまで線が延びてくる様にしたい。 この線は固定せず、アクティブセルを動かすと一緒に移動する様にしたい。 例:D7にアクティブセルがある場合、 Dと7の表記がされている部分から線が延びてくる。 表の数値等を確認する場合に、セルから線が延びていると間違いが少なく済みそうなので方法を探しております。 いい方法がありましたら教えて下さい。お願いします。 エクセル、別シートのアクティブセルへ入力したい エクセルで「新しいウィンドウを開く」で上下に別シートを参照しています。 たとえば上がシートAとして、シートAのアクティブセルが現在G20とします。(これは作業進行とともにG25やH13など変化する) 下のシートBには社員表(10×10位)があり、任意の社員をクリックするとシートAのアクティブセルへ入力されるようにしたいです。 何かいい方法がありましたら教えてください。 よろしくお願いいたします。 エクセル アクティブセル領域の色変更 エクセルのVBAで、アクティブセルのある行だけを色変更するにはどうしたらいいのでしょうか? アクティブセルのある行の色変更までは出来るのですが、別のセルを選択した際に前の行の色を元に戻せません。 お願いします。 アクティブセルとそのセルに隣接する右隣の2つのセルをコピーしてシート2に貼り付ける 「アクティブセルとそのセルに隣接する右隣の2つのセルをコピーしてシート2に貼り付ける」というVBAコードが知りたいです。 「アクティブセルをシート2に貼り付ける」だけなら Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste はわかるのですが、 「アクティブセルとそのセルに隣接する右隣の2つのセルをコピー」がわかりません。 例えて言うなら A1がアクティブならA1からC1までコピーして シート2の(C3がアクティブなら)C3からE3に貼り付けたいです。 よろしくお願いします。 シート間の参照について EXCELを使用しています。 Sheet1のA1から下の行に、sheet2のA1から下のセルに文字列が入力されていたら入力されているセルの内容を行ごとに表示しセルが空欄になったらsheet3のA1から下のセルに文字列が入力されていたらその内容をsheet1にsheet2の文字列の続きに表示させるにはどうしたらいいのでしょうか? エクセルのセル参照、一つずつ参照セルをずらしていきたい エクセルのセル参照の方法について教えてください。 2つのシートがあって、 ひとつのシートにはC4,D5,E6…というように行と列がひとつずつ増えていくところに値が入力されています。 このシートから、C4,D5,E6…のセルの値を取り出して 別のシートのA1,A2,A3…に縦に並んで表示させたいのですが、どのようにセルを参照させればC4,D5,E6…という 行と列がひとつずつ増えていくセルを参照できるでしょうか? よろしくお願いいたします。 シート参照で変数を使いたい(EXCEL) 通常、Excelで別シートのセルを参照する時は「'シート名'!B3」といった数式になりますが、この「シート名」をユーザーに入力してもらうような仕組みを作りたいと考えています。 ・あるシートのA3(例)にシート名を入力すると、B4セルに入力されたシートのB3セルの内容が表示される このようなこと、可能でしょうか? VBで、開いているExcelシートのアクティブセルの情報を取得 VBのモジュールで、開いているExcelシート上のアクティブセルの座標、値を 取得するにはどうすればよろしいのでしょうか。まずVBモジュールと参照対象のExcelシートを起動します。次ににExcelシート上のあるセルを選択し、VBモジュールの[セル情報]等のボタンにより、選択されているセルの座標、値をメッセージボックスに表示したいのです。よろしくお願いいたします。 ヤバいパソコンが壊れたかも!?事前に知っておきたい3つの兆候と対策 OKWAVE コラム 参照! エクセルでシート2のセルA1は番号が表示されていてセルB1はその商品名が表示されています。シート1のA1に番号を入力するとシート1のB2にシート2のB2の商品名が表示できるようにするにはどんな数式?が必要でしょうか? VBからExcelのアクティブセルの位置を知る方法 VB6でExcel2000のワークシートを操作するプログラムを作成しています。次のようなことをやりたいと思ってます。 (1)Excelのワークシートを開く (2)ワークシートの1点をクリックして、アクティブセルとする。(例えばA1) (3)VBのプログラムのボタンを押すと、アクティブセルを基点に3×3を選択範囲とする。 そこで次のようなプログラムを書いてみました。 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = GetObject(, "Excel.Application") If Err.Number Then MsgBox "Excel が起動されていません。" Err.Clear Else ' MsgBox "Excel はすでに起動中です。" Set xlBook = xlApp.Workbooks.Item(1) Set xlSheet = xlBook.Worksheets.Item(1) 'アクティブセルを取得する 'アクティブセルを3x3に拡張する計算 xlSheet.Range("3x3に拡張した範囲").Select Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End If しかし、アクティブセルを取得する方法がわかりません。誰か教えてください。 エクセルで参照入力させる方法 お世話になります。エクセル(2000)で、あらかじめ他のシートに入力しておいた文字列を、別のシートのセルに入力する際、当該セルにカーソルを持っていけばプルダウン表示されて、それを選択すれば、わざわざキーボードから入力しなくても、入力できる方法を使っているのを見たことがあるのですが、その方法がわかりません。よろしくご指導お願いします。ちょっと急いでおりますので、よろしくお願いいたします。 エクセルの別シートの値参照の方法 エクセルの別シートの値参照の方法がわからなくなってしまいました。1度はやったことがあるのですが。 #shiet1のあるセルにshiet2のあるセルの値を表示させたい。 VBA アクティブセルに対しての作業に関して -質問内容-VBA作成2つ- ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Activate アクティブセルを指定した段階で オフセット(縦下方向にO1991のセルに入れた数値分下に、ヨコに0) 移動しアクティブセルにする ------------------------------------------------------ ------------------------------------------------------ 別々のVBAでやりたいこと (1)これを、アクティブセルを指定した段階で セルの値をコピーして オフセット縦下にO1991.ヨコ0分下にペースト(貼り付け) したい 例) A 1 成功 ←アクティブセルをコピー 3 成功 ← ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Activate アクティブセル~オフセットしたセルまでを最初にアクティブセルからコピーし →アクティブセル~オフセットしたセルまでペーストする ----------------------------------------- (2)これを、アクティブセルを指定した段階で セルの値をコピーして オフセット縦下にO1991.ヨコ0分下に アクティブセル~オフセットされたセル位置まで フィルダウンさせたい 例) A 1 1 ←アクティブセルをコピー 5 ←オフセットセル 2つのVBAのやり方/プログラムの表記/組み合わせ方を 無知で愚かな私ですが どうかご教授のほど 宜しくお願い致します (>_<)謝↓ペコッ --------------------------------------- --------------------------------------- 変数を使うのでしょうか? セル範囲を指定するとして Range("ActiveCell:ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Active") となるのでしょうか? 又変数の使い方として Dim a As Range 又は Dim a As Objectになるのでしょうか この際代入として使うには a = ActiveCell b = ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Activate になるのでしょうか 本当に度々申し訳ないのですが 宜しくお願いします (:>_<:)ペコリ Range(ActiveCell).copy ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0)ActiveCell.PasteSpecial End Sub 参照の制限について 私は 通常エクセルで別シートを参照する場合,参照したいセルで = と入力した後に該当シートの該当セル(A1)をクリックすれば =シート名!A1 等と表示されますが, シートによってはクリック出来ないシートが存在します。 クリック出来ないので,何も表示されませんが,手入力でコーディングすれば値の参照が可能となります。 原因と対処を教えてください。 VBA アクティブセルに対しての作業に関して -質問内容-VBA作成2つ- ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Activate アクティブセルを指定した段階で オフセット(縦下方向にO1991のセルに入れた数値分下に、ヨコに0) 移動しアクティブセルにする ------------------------------------------------------ ------------------------------------------------------ 別々のVBAでやりたいこと (1)これを、アクティブセルを指定した段階で セルの値をコピーして オフセット縦下にO1991.ヨコ0分下にペースト(貼り付け) したい 例) A 1 成功 ←アクティブセルをコピー 3 成功 ← ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Activate アクティブセル~オフセットしたセルまでを最初にアクティブセルからコピーし →アクティブセル~オフセットしたセルまでペーストする ----------------------------------------- (2)これを、アクティブセルを指定した段階で セルの値をコピーして オフセット縦下にO1991.ヨコ0分下に アクティブセル~オフセットされたセル位置まで フィルダウンさせたい 例) A 1 1 ←アクティブセルをコピー 5 ←オフセットセル 2つのVBAのやり方/プログラムの表記/組み合わせ方を 無知で愚かな私ですが どうかご教授のほど 宜しくお願い致します (>_<)謝↓ペコッ --------------------------------------- --------------------------------------- 変数を使うのでしょうか? セル範囲を指定するとして Range("ActiveCell:ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Active") となるのでしょうか? 又変数の使い方として Dim a As Range 又は Dim a As Objectになるのでしょうか この際代入として使うには a = ActiveCell b = ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0).Activate になるのでしょうか 本当に度々申し訳ないのですが 宜しくお願いします (:>_<:)ペコリ Range(ActiveCell).copy ActiveCell.Offset(RowOffset:=[O1991], Columnoffset:=0)ActiveCell.PasteSpecial End Sub エクセルで列番号を指定し、それを元に参照をしたい エクセルで、 セルA2に数値Xを入力すると、 セルA3に別シートのCXの値を表示する という動きを実現したいのですが、方法がわかりません。 例えば シート1のセルA2に数値3を入力すると シート1セルA3に、シート2のC3の値が表示される といった動きです。 どなたかご教授願います。 宜しくお願いいたします。 注目のQ&A 「You」や「I」が入った曲といえば? Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市(長野県)在住でスキーやスノボをする方の用具 カテゴリ パソコン・スマートフォン ソフトウェア Excel(エクセル)Word(ワード)PowerPoint(パワーポイント)Access(アクセス)その他MS Office製品オフィス系ソフトPhotoshop(フォトショップ)Illustrator(イラストレーター)その他Adobe製品画像・動画・音楽編集ホームページ作成ソフト筆まめ・はがき作成フリーウェア・フリーソフトその他(ソフトウェア) カテゴリ一覧を見る OKWAVE コラム 突然のトラブル?プリンター・メール・LINE編 携帯料金を賢く見直す!格安SIMと端末選びのポイントは? 友達って必要?友情って何だろう 大震災時の現実とは?私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ!負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる! OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
早速ご回答いただき、問題が解決し、エクセルを便利に利用できるようになりました。、大変有り難うございました。