締切済み

スプレッドのアクティブセルの値を取得したい

2004/12/24 16:00

スプレッドでアクティブセルで選択した位置の値を取得したいのですが、どのように記述したらよいでしょう？ spr.Col = spr.Activecol spr.Row = spr.ActiveRow ↑セルの位置は取得できているみたい。選んだ値（文字なり、数字）を取得したいのですが。教えてください。

shg88yuho
お礼率0% (0/1)

CSS
回答数1
ありがとう数10

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

みんなの回答

kimitsjin
ベストアンサー率36% (4/11)

2004/12/24 16:08 回答No.1

EXCEL VBAでいいですか？ ActiveCell.Value で取得できます。または、質問にあるデータを利用して Cells(spr.Row,spr.Col) でもＯＫのはずです

関連するQ&A

GrapeCityのSpreadの複数セルの取得について

度々、お世話になります。 Spread上で一つのセルが選択されている場合、 .Col = .ActiveCol .Row = .ActiveRow といったコードで選択されている位置を取得できますが、セルブロックが選択されている場合 .Col1 = .???????? .Row1 = .???????? .Col2 = .???????? .Row2 = .???????? といった形式で選択セルの位置を取得したいと考えております。しかし、????????の部分がわからずに困っております。どうかよろしくお願いいたします。
スプレッドについて

VBも素人なんですが、スプレッドのとり方を教えてください。以下のスプレッドが既存で存在していてチェックボックスが各行ごとにあるのですが、チェックしたときに呼ばれる関数を以下に書きました。例えば002という値を取得したいときどうコーディングしたらよいでしょうか？　＿＿＿＿＿＿＿＿＿＿＿＿＿　| 001 | AAAA |　　a 　　|　　|-----|------|----------|　　　　| 002 | BBBB |　　b　　 | 　|-----|------|----------| 　| 003 | CCCC |　　c　　| 　|-----|------|----------| ※関数の中身は適当です。どうやったらとれるか試行錯誤しています。。。 Private Sub sprService_ButtonClicked(ByVal Col As Long, ByVal Row As Long, ByVal ButtonDown As Integer) Dim intbutton As Integer Col = Row intbutton = ButtonDown sprService.Col = sprService.Row sprService.Col = sprService.Row2 End Sub
VBで、開いているExcelシートのアクティブセルの情報を取得

VBのモジュールで、開いているExcelシート上のアクティブセルの座標、値を取得するにはどうすればよろしいのでしょうか。まずVBモジュールと参照対象のExcelシートを起動します。次ににExcelシート上のあるセルを選択し、VBモジュールの[セル情報]等のボタンにより、選択されているセルの座標、値をメッセージボックスに表示したいのです。よろしくお願いいたします。
アクティブセルと同列の最下段セル選択

セルの範囲選択のやり方で悩んでいます。アクティブになっているセルから、それと同列に有る文字・数値が入力された最下段のセルまでを範囲指定したいのです。その際にセルは結合されている場合と、そうでない場合があります。取得したセルアドレスは他にも使用したいので、出来る事ならアクティブセルと最下段のセルアドレスを別々に取得してから、その値を使って範囲指定できるようにしたいです。宜しくお願い致します。
値を一つずつ取得

以下のような連続したデータがシート「問題１」のA1セル以下に記述されています。レモンいちごバナナスイカ　　　　　　　　　　　　　　　　　　　　　メロンレモンこれらのデータをボタン押下時にコンボボックスに表示できるようにしたいのです。同様にボタン押下時コンボボックスに表示されたデータをリストボックスにも表示できるようにしたいのです。 ※これらのデータの内容、個数がともに変更されても表示できるようにすること。データは連続してセルに置かれているため、データの終端は""（何もない文字列）で判断してかまわない。また、コンボボックスはデータを１つ選択した場合、リストボックスはデータを1つ選択してダブルクリックされた場合、選択されたものがセルに表示されるようにもしたいのです。一番わからない点はセルの範囲を決めず一つずつ値を取得し文字が入っていないとわかるまで、一つずつ取得の仕方がどうしても解りません。。。お願いします。
スプレッドに値を設定する方法

VB初心者です。単純な質問で申し訳ありませんが、以下のスプレッドでcheckBox2にチェックしたとすると子画面出力します。そのときにチェックが消えてしまいます。そのチェックをつけたままに変更したいです。オブジェクト名：sprService ＿＿＿＿＿＿＿＿＿＿＿＿＿_________ |checkBox1 | 001 | AAAA |　　a 　　|　 |----------|-----|------|----------|　　　 |checkBox2 | 002 | BBBB |　　b　　 | |----------|-----|------|----------| |checkBox3 | 003 | CCCC |　　c　　| |----------|-----|------|----------| 単純にSetTextするのかなと思って書いてみたのですが思うようにいきません。 Private Sub sprService_ButtonClicked(ByVal Col As Long, ByVal Row As Long, ByVal ButtonDown As Integer) Dim tim If ButtonDown = 1 Then sprService.GetText 1, Row, tim End If 'スプレッドにセット sprService.SetText(1,Row,tim) End Sub わかりにくくてすいません。どなたか教えてください。
値を入力後、自動的にアクティブセルが移動するマクロ

(1)エクセルファイルを開けたときのアクティブセルを設定。 (2)そのセルに値を入力後、ENTERで違うセルに移動。　（違うセルは、隣接していない） (3)入力後、ENTERでまた違うセルに移動。 (4)数個のセルに入力後は、任意のセルに値を入力できるようにする。マクロでできることなのかわかりませんが、よろしくお願いします。
ダブルクリックしたセルのフォーカス位置取得

初めて投稿します。よろしくお願い致します。 Excel上でダブルクリックしたセルの内容を、次のようにしたいと思っています。ダブルクリックしたフォーカス位置より左側　→　現セルに残すダブルクリックしたフォーカス位置より右側　→　右側のセルの値の先頭につける知りたいことは、アクティブセルのフォーカスの位置（左から何文字目か？）を取得できるものでしょうか？ご教授頂ければ幸いです。以上
<新規Bookに　アクティブセル領域を　値で貼り付けるマクロ>

<新規Bookに　アクティブセル領域を　値で貼り付けるマクロ> 沢山の様々なデータが入力されている、巨大なExcelファイル（仮に「管理表.xls」）があるのですがボタンを押すと、アクティブなセル領域（ドラッグで選んだセル領域）を新規Bookに値で貼り付ける　マクロを作成したいのにうまく動きません下記コードだと、新規Book作成までは出来るのですが、ペーストがされません。クリップボードにはデータが入るのですが「管理表.xls」を全て選択された情報が入ってしまっています。（ペーストすると　全データがペーストされる）マクロは始めたばっかりで　ものすごく初心者なので恐縮なのですがご教授ください。よろしくお願いします。 --------------------------------------- Private Sub CommandButton2_Click() Selection.CurrentRegion.Copy 'アクティブセル領域をコピー Workbooks.Add.Activate 'ブックを新規作成してアクティブに Range("A1").PasteSpecial Paste:=xlPasteValues End Sub ---------------------------------------
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
アクティブセルが移動しない

エクセルでマクロを作成したのですがマクロ実行後にアクティブセルが方向キーで移動しない場合があります。（マウスでクリックするとそこへアクティブセルは移動できますが）マクロにはInputBoxがあり正常に処理が進んだ場合はアクティブセルは移動できますが、キャンセルした場合やマクロで規定した値以外を入力した場合にアクティブセルが移動しなくなります。移動しなくなってもそのファイルを閉じて再度開くと正常にアクティブセルは移動できます。マクロの記述に問題があるとは思っていますがどうしたら良いかわかりません。どうかご教授ください。
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
取得した変数の値の一番大きい変数を取る

エクセル２００２使用です。セル（A～F列）にランダムに入力された列の最終行数を変数で取っています。その中で最も大きい変数の値を取るコードを記述したいのですが、良い方法がわかりません。 sub　test（） Dim rcnt1, rcnt2, rcnt3, rcnt4, rcnt5, rcnt6, rcnt As Integer '最終行の取得 rcnt1 = Cells(65536, 1).End(xlUp).Row rcnt2 = Cells(65536, 2).End(xlUp).Row rcnt3 = Cells(65536, 3).End(xlUp).Row rcnt4 = Cells(65536, 4).End(xlUp).Row rcnt5 = Cells(65536, 5).End(xlUp).Row rcnt6 = Cells(65536, 6).End(xlUp).Row rcnt = "最も大きい変数の値"　←ここがわかりません。 end sub よろしくお願いします。
マクロでアクティブセルにペースト

画像はエクセルのマクロで、F3～F7のセルをコピーして、O3のセルにペーストするという内容です。これをO3ではなく、アクティブセルにペーストするにはどのように記述すればよいでしょうか？
A1の値が「僕だよ」ならアクティブセルの行に色付け

エクセル条件付き書式について質問です。エクセルで商品の在庫管理をしています。A列には商品コードが書いてあります。賞味期限ごとに行を作っているので、同じ商品コードがA列に複数あるものもあります。なので、すべてのセルに下記のような条件付き書式を設定し、なにかセルを選んだ際、選んだセルと同じ商品の行には全て色がつくようにしました。 =INDIRECT("A"&ROW())=INDIRECT("A"&CELL("row")) これでうまくいくようにはなったのですが、この便利な設定を僕をいじめる人には使わせたくないと思っております。よって、これに追加条件として、『セルA1の値が「僕だよ」のときのみ』というのを付けたいのですが、 =AND($A$1="僕だよ",INDIRECT("A"&ROW())=INDIRECT("A"&CELL("row")) で試したところ色がつかなかったので、正しい方法を教えていただきたいと思います。よろしくお願いいたします。
Range("****")の****部分を変数にできますか？

エクセルでＶＢＡを勉強中の初心者です。今、配列data(row,col)に番地B17が読み込んであるとします。このセルB17にD5のセルに入っている値を入力したいのですが、次の記述ではエラーがでました。この場合どのようにすれば良いのでしょうか。どなたかご指導いただけないでしょうか。 Range(data(row,col).value)=range("D5").value
エクセル2013のアクティブセル表示されない

エクセルを2010から2013に切り替えてから不具合がおきています。問題は下記です。１．シートAとシートBがあり、シートBの情報を参照し、シートAに表示させたいとします。２．シートAのセルに「＝」と入力し、シートBにページ移動します。ここで、問題がおきるのですが、シートBでアクティブセルが表示されないのです。その為、どのセルをシートB上で、選択しているかを視覚的に確認することができません。選択自体はされているので、左上の選択セルを示す文字を読めば、場所がわかるのですが、視覚的にわからないので、とても不便です。２０１０では、このようなことがなく、また、同じ2013を使う人でも、シートBでしっかり視覚的にアクティブセルが表示される人もいるので、設定上の問題だとは思うのですが、解決できず、困っています。お分かりの方、どうかご教示ください。
DataGridViewで、選択した行の値を取得したい。

VB2005環境です。 VB2005で、選択した行の、特定の列から値を取って、テキストボックスに出力したいと思っています。 Itemプロパティかと思い、 TxtBox1.Text = Me.DataGridView1.Item _(0,Me.DataGridView1.CurrentRow.Index).ToString と記述してみました。1列目の、選択した行と交わるセルの値が取れるかと思いきや、うまく取得できません。方法を教えていただけないでしょうか？よろしくお願いします。
エクセルマクロでアクティブセルの値を取得するのに。。これってどこが間違っているのでしょう

シートは複数ありますアクティブになったシートのアクティブセルの値を取得してそれをシート名として使用したいのですが Sub 単独シート追加() Dim S_Name As String Worksheets.Add after:=Worksheets(Worksheets.Count) S_Name = ActiveCell.Value ActiveSheet.neme = S_Name End Sub ローカルウィンドーで確認すると S_Name は””のままで「実行時エラー」のオブジェクトはこのプロパティまたはメソッドをサポートしていませんと、なり正常に動作しませんどこが間違いなのでしょうか
ある数値以上の値があるセルを取得したい

エクセルの関数で、ある数値以上の値があるセルの位置を取得したいのです。範囲B2:B11に任意の数値が入っているものとします。その中で、仮に3以上の値が出現するセルの位置を取得する場合、どのような関数を用いればよろしいでしょうか？数値をぴったり3に限定なら、=MATCH(3,B2:B11,0)　で、範囲内で何番目にあるかわかりますが、3以上となると補助列を用意し、=B2>3のような式を各セルに入れて、TRUEの位置を=MATCH(TRUE,A2:A11,0)　で取得するくらいしか思いつきません。ご教示ください。

スプレッドのアクティブセルの値を取得したい

みんなの回答

関連するQ&A

GrapeCityのSpreadの複数セルの取得について

スプレッドについて

VBで、開いているExcelシートのアクティブセルの情報を取得

アクティブセルと同列の最下段セル選択

値を一つずつ取得

スプレッドに値を設定する方法

値を入力後、自動的にアクティブセルが移動するマクロ

ダブルクリックしたセルのフォーカス位置取得

<新規Bookに　アクティブセル領域を　値で貼り付けるマクロ>

VBA　アクティブセルに対しての作業に関して

アクティブセルが移動しない

VBA　アクティブセルに対しての作業に関して

取得した変数の値の一番大きい変数を取る

マクロでアクティブセルにペースト

A1の値が「僕だよ」ならアクティブセルの行に色付け

Range("")の部分を変数にできますか？

エクセル2013のアクティブセル表示されない

DataGridViewで、選択した行の値を取得したい。

エクセルマクロでアクティブセルの値を取得するのに。。これってどこが間違っているのでしょう

ある数値以上の値があるセルを取得したい

注目のQ&A

カテゴリ
一覧

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

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

スプレッドのアクティブセルの値を取得したい

みんなの回答

関連するQ&A

GrapeCityのSpreadの複数セルの取得について

スプレッドについて

VBで、開いているExcelシートのアクティブセルの情報を取得

アクティブセルと同列の最下段セル選択

値を一つずつ取得

スプレッドに値を設定する方法

値を入力後、自動的にアクティブセルが移動するマクロ

ダブルクリックしたセルのフォーカス位置取得

<新規Bookに アクティブセル領域を 値で貼り付けるマクロ>

VBA アクティブセルに対しての作業に関して

アクティブセルが移動しない

VBA アクティブセルに対しての作業に関して

取得した変数の値の一番大きい変数を取る

マクロでアクティブセルにペースト

A1の値が「僕だよ」ならアクティブセルの行に色付け

Range("****")の****部分を変数にできますか？

エクセル2013のアクティブセル表示されない

DataGridViewで、選択した行の値を取得したい。

エクセルマクロでアクティブセルの値を取得するのに。。これってどこが間違っているのでしょう

ある数値以上の値があるセルを取得したい

注目のQ&A

カテゴリ 一覧

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

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

<新規Bookに　アクティブセル領域を　値で貼り付けるマクロ>

VBA　アクティブセルに対しての作業に関して

VBA　アクティブセルに対しての作業に関して

Range("")の部分を変数にできますか？

カテゴリ
一覧

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