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

このQ&Aに関連する最新のQ&A

A 回答 (1件)

下記コードで実現できそうです。


Sub test()
Dim t As Range
Set t = Application.ActiveCell
MsgBox t.Address, vbInformation + vbOKOnly, "座標"
End Sub

この回答への補足

Rangeというデータ型がVB6.0ではコンパイルエラーになるのですが?

補足日時:2002/02/19 13:26
    • good
    • 0
この回答へのお礼

Range データ型は Excel.Rangeで定義すればよろしかったのですね。
ありがとうございました。完璧です。

お礼日時:2002/02/19 14:50

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qオフ車250ccで セルが回らない(泣) 

お世話になります。
ストレス発散に久々にバイクに乗ろうとしたら!
 
▼セルが回らない 
 ⇒バッテリーあがり?
▼業者に来て貰う 
 ⇒バッテリーつないでも(充電しても)かからないと言うより 
  セルがウンともすんとも言わない。

*冬の間は一度も乗らず
*先月、軽4につなげて 30kmほど走行
*ガソリン少なめ
*いつもは車は充電器につなげたら、一発でかかる
*今回は セルを押してもライトが押してる時に消えるだけで
セルの独特のティティティティ って音もしない
ウィンカー類は特に問題なし。

以上より。
キックはついておらず、私は押しがけはできません。
(昔はできたけど、女だし今の体力では厳しい・・・)

質問として
1.押しがけして エンジンがかかる可能性はあり?
 (ならば男友達に頼もうかと。)
2.バッテリーの問題?
 新品パッテリー購入すれば セルが回る可能性あり?
 (ならばとりあえずバッテリー購入)
3.セルの接触不良の問題?
 (素人でも調べる方法はアリ?セルモータをたたけば一時的に
  かかるとも聞いたことがあるが セルモータはどこにある?)

アドバイスお願いします。
ちなみにバイクは SUZUKI DR250R 98年式
バッテリーは毎年買いなおしています・・・
もともと電気系統のウィークポイントが多く なんと2000年式から
ノーマルでキックスタータがついたと言うバイクです。


 

お世話になります。
ストレス発散に久々にバイクに乗ろうとしたら!
 
▼セルが回らない 
 ⇒バッテリーあがり?
▼業者に来て貰う 
 ⇒バッテリーつないでも(充電しても)かからないと言うより 
  セルがウンともすんとも言わない。

*冬の間は一度も乗らず
*先月、軽4につなげて 30kmほど走行
*ガソリン少なめ
*いつもは車は充電器につなげたら、一発でかかる
*今回は セルを押してもライトが押してる時に消えるだけで
セルの独特のティティティティ って音もしない
ウィンカー類は特...続きを読む

Aベストアンサー

こん**は

 まずはバッテリーですね
 フル充電するか、新品に交換してください。
 次はスタータースイッチを点検してください。
 分解して中が汚れていないか確認です。
 汚れいればパーツクリーナなどで洗浄してください。
 バッテリーとスイッチが正常ならスターターリレーですね
 スイッチを押して「かちっ!」と言うならとりあえずは正常です。
 言わないのならリレー交換です
 リレーが正常なら、次はモーターです。
 モーターはエンジンから外して回るかどうか確認しましょう。
 モーターが回ればエンジン内(クラッチ周り)の故障
 モーターが回らなければモーター交換となります。

 確実にチェック出来る計測機器を用意してください
 工具、テスター等が無いのなら、詳しい友人に頼むのが良いでしょう
 どれもないのなら素直にバイク屋に行かれるのをお勧めします

Qエクセル アクティブセルからアクティブセルの行と指定の列を選択するマク

エクセル アクティブセルからアクティブセルの行と指定の列を選択するマクロをつくりたい。

仕事で、エクセルA列からAL列までのフィールドのデータを毎日50件程登録する要件が出て参りました。
受付表として、受付番号・住所・製品名など登録し、このリストを使用して随時受付内容の確認を致します。

現在、マクロによって、業務負荷を軽減しようと考えております。(マクロはVBのコントロールボックス「再生」ボタンでしか使用できないレベルです)

その一つとして、アクティブセルを選択し、コントロールボックスのボタンを押すとアクティブ行の指定列まで移動するマクロを作りたいと思っております。
例)
 <D列を指定列とする>
  A1を選択 →D1
F10を選択→D10

コントロールボックスは自分で作成する事が出来ます。
どなたか、上記の構文をアドバイス頂けませんでしょうか。

宜しくお願いします。  

Aベストアンサー

Range("D" & ActiveCell.Row).Select

これだけで

Qセルが回らない

ybr125に乗っているのですが、セルが回らないため始動できません。

セルスイッチを押すと「カチっ」と音を立てるだけです。
夏頃から回りづらいと思ってはいたのですが、冬になると完璧に回らなくなりました。

最初はバッテリーを疑って2~3年物のバッテリーを新品に交換
現在、電圧はテスターで測ったところ12~13Vあります。

セルモーター自体はブースターケーブルを使って車から回すと快調に回ります。
押しがけではかかります。

今日はスターターリレーを交換してみましたが変わりませんでした。
ヒューズも交換済みです。

どこら辺が怪しいと思いますか?
キャブまで分解清掃したほうがいいでしょうか?

Aベストアンサー

>セルモーター自体はブースターケーブルを使って車から回すと快調に回ります。

↑この意味が理解出来ませんか?

車のバッテリーからブースターケーブル繋いで回るなら「バイクのバッテリーが弱ってる」のです。

バッテリーの電圧をテスターなどで測る場合は電流負荷を掛けないと弱っていても12Vから13Vの電圧は出ますから「セルモーターを回した時の電圧」を測ってください。

恐らく、8V以下の電圧に下がってしまうはずです。

だから、セルを回すだけのパワー(電流)がバッテリーから供給されずに回らないのです。

バッテリーを新品に換えても「バッテリーに充電されなければ直ぐに容量不足」になってしまいますから、充電系統が故障してる疑いもありますから、エンジン始動後にヘッドライトやウインカーを点けてエンジン回転数を上げたり下げたりして明るさが大きく変化するか確認してください。

また、その時のバッテリー電圧を測ってください。

エンジン回転数に応じてバッテリー電圧が変動するはずですが、バッテリーが正常に充電されて満充電状態になれば電圧変動は少なくなります。

結論は、バイクのバッテリーが充電不足で弱ってるからなので、充電器で充電するか長距離を走行してバイクの発電機で自力充電を行ってください。

バッテリーが元気に回復すれば、車からブースターケーブルを繋がなくてもセルが回るようになります。

>セルモーター自体はブースターケーブルを使って車から回すと快調に回ります。

↑この意味が理解出来ませんか?

車のバッテリーからブースターケーブル繋いで回るなら「バイクのバッテリーが弱ってる」のです。

バッテリーの電圧をテスターなどで測る場合は電流負荷を掛けないと弱っていても12Vから13Vの電圧は出ますから「セルモーターを回した時の電圧」を測ってください。

恐らく、8V以下の電圧に下がってしまうはずです。

だから、セルを回すだけのパワー(電流)がバッテリーから供給されずに回...続きを読む

Q新しいシートのセル値→既存シートセルへ

 以前、ここでお世話になったものです。

 まだまだVBAは勉強不足で、ちゃんと説明できるかすらもわかりませんが、どうぞ宜しくお願いします。


 見積書を作っています。

 項目名を入力し、そのセルをダブルクリックすると、その項目の明細シートが作られるというものを作っています。

 できたワークシートの名前は、その項目名と同じものになるようにしています。




 教えていただきたいのは・・・


 明細の合計金額値を、項目のシートの金額欄に自動で入るようにしたいのですが、明細シートの名前が解らないのでどうやって指定すればいいのかわかりません。

 オブジェクト名でもできませんでした。

 やっぱり、あらかじめ名前を”明細1”、”明細2”という風に決めておかないと指定できないのでしょうか?


 ・・・ということです。


 どうか教えてください。

  
  

  

 

Aベストアンサー

質問のシートの例が具体的にかけていないので、質問していることが正確に判らない。
この程度のレベルでは、仕事でVBAを使う(対顧客のことで、誤ると重大な信用失墜にもなることだろう。だから十分経験もないのに初心者が乗り出すのは危険)のは無理と思う。
今回の質問も丸投げではないか。何かやってみて行き詰まった点の質問になってない。
回答が出てもも、回答の要点も理解できるかどうか不安がある。
>項目名を入力し、そのセルをダブルクリックすると
初心者はVBAのイベントということを十分理解しないで、エクセルなど高級ソフト(これらではそういう仕組みは茶飯事であるが)のマネが直ぐできると思わないこと。
ーー
少なくとも
(1)明細シートの様子(列、列データ見出し、行の様子)主要項目だけで良い
(2)請求書シート(主要な項目だけで良い)
の例示ぐらいして質問すること。
ーー
明細シート1行が請求書1枚に対応するのか。
>明細の合計金額値を
こんなもの請求書に持ってきた請求明細のデータでやれば仕舞いでは。
SUM関数を入れたら姉妹ではないか。
合計額1本で請求書を出すようなことをするのか。
>あらかじめ名前を”明細1”、”明細2”という風に決めておかないと指定できないのでしょうか?
意味・意図不明。

請求明細は請求書に出すのだろう。明細数はばらばらだと思うが、1ページ限度を超える明細数の場合、どう考えているのか。
ーー
いい性に印刷するのではないのか。
得意先を指定して、その得意先分だけ印刷するのかまとめて印刷作業を済ますのが普通ではないか。
ーー
私ならVBAでは、明細書様式は1ページ分だけ設けて使い、中身を順次入れ替えることで、データ1ページ作成ー1ページセル範囲ごとに印刷、を繰返すが、質問者は、どう構想しているのか。

質問のシートの例が具体的にかけていないので、質問していることが正確に判らない。
この程度のレベルでは、仕事でVBAを使う(対顧客のことで、誤ると重大な信用失墜にもなることだろう。だから十分経験もないのに初心者が乗り出すのは危険)のは無理と思う。
今回の質問も丸投げではないか。何かやってみて行き詰まった点の質問になってない。
回答が出てもも、回答の要点も理解できるかどうか不安がある。
>項目名を入力し、そのセルをダブルクリックすると
初心者はVBAのイベントということを十分理解しないで...続きを読む

Qライトはつくのに、セルが回らない!!

お世話になります。

先日、HIDの片方が点灯しなくなった為、新しい商品を購入、今日取り替えました。
けっこう時間はかかったものの、なんとか無事に終わりまして、車を車庫から移動させました。

その後、2時間くらい経ってから、車に乗ってエンジンをかけようとしたら、セルが全く回らなくなってしまいました。

ヘッドライトも付きますし、ルームランプもナビも正常に動きます。

とりあえず、アクセサリ→オンまではいつも通りですし、カチカチと言う音もします。
しかし、そこからどんなに回しても、ウンともスンとも。。。

違う車で何度かバッテリーを上げた事もありますが、、セルが回らないと言ってもキュルキュルぐらいは音が鳴って、エンジンがかからないと言った症状ではあったのですが、今回は本当に何の音も鳴りませんし、何の反応もありません(汗

HID(バルブではなくキットごと)を交換した際に、バッテリーを外しましたので、締め方が緩かっただろうか?と思ったのですが、そうでもないようです。

試しに、他の車のバッテリーとケーブルで繋いでセルを回してみましたが、同じ結果でした。。。(泣

これは何が原因と考えられるでしょうか?
ライトやナビ自体は正常に付くので、バッテリーではないと言うことでしょうか?
セルモーターですか?
今まで不具合らしい不具合は無かったのですが、それともやはりHID交換時に何かしてしまったのでしょうか。。。

車屋にも連絡して見ましたが、今日明日はどうしてもレッカーを使えないそうで。。。

どなたか、詳しい方がおられましたら、どうか想像の出来る範囲でも構いませんのでお知恵をお貸し頂きたく思います。
助けてください(泣
よろしくお願い致します!!

お世話になります。

先日、HIDの片方が点灯しなくなった為、新しい商品を購入、今日取り替えました。
けっこう時間はかかったものの、なんとか無事に終わりまして、車を車庫から移動させました。

その後、2時間くらい経ってから、車に乗ってエンジンをかけようとしたら、セルが全く回らなくなってしまいました。

ヘッドライトも付きますし、ルームランプもナビも正常に動きます。

とりあえず、アクセサリ→オンまではいつも通りですし、カチカチと言う音もします。
しかし、そこからどんなに回しても、ウン...続きを読む

Aベストアンサー

>カチカチ
どういう状況での音?、(1)キーをひねった時、(2)セル始動しようとした時、(3)その他。
真っ先に、セルモーターに十分な電気が行っていない(確実な状況)。
何故?、バッテリーに十分な電力がない(セルはライトの十倍以上必要と思うべし)(2)の時。
バッテリーOKだが(2)、バッテリ、セル直結する(ソレノイドスイッチ接触不良)ただし(1)の時で(2)で音がしない時はソレノイドスイッチの駆動回路に問題。
セルモーターの異常。
電気系をいじった後であり、2時間後の状況から、配線ミスでショートの可能性も否定できません。

QExcelセル座標値の渡し方

VBAの初心者です。
Excelでアクティブセルの座標値を取り出して、マクロの中で、その行全体、あるいは列全体を指定して挿入や削除をさせたいのですが、どうしたらよいのでしょうか。教えて下さい。よろしくお願いします。

(例)アクティブセルが C7 であるとき、Rows("7:7") に1行挿入する。


Sub 行挿入()

'セル座標値を読み取ってその行全体を指定するデータの渡し方?????

Rows("7:7").Select
Selection.Insert Shift:=xlDown

End Sub

Aベストアンサー

こんにちは。

Dim wR as Long
Dim wC as integer
wR = ActiveCell.Row
wC = ActiveCell.Column
'
Rows(wR).Select
Selection.Insert Shift:=xlDown
Columns(wC).Select
Selection.Delete Shift:=xlLeft

Qセルが回らない CDIの故障はあり得ますか?

こんばんば。
ネットで買ったバイクのレストアをしている者です。(レストア初心者です。)
セルスイッチを押してもモーターが回りません。
※良くある、セルスイッチを押してもカチッと音がするだけでセルが回らないってヤツではありません。
セルスイッチを押してもうんともすんとも言いません。
いろいろ配線をチェックしたのですが、原因が分かりません。
そこで下記のサイトを見ましたところ、ジャンクションボックス内にもスターターリレーのスイッチがあるという事を知りました。
http://motor.geocities.jp/cfsxd043/kawasaki/kawa1.html
(1)このジャンクションボックス内のスターターリレーの部分が壊れてセルが回らないって事はあり得ますか?

それと、スターターリレー直結すると、セルモーターが回り、エンジン始動します。

また、スターターリレーが故障しているかチェックする方法を教えてください。

よろしくお願いします。

Aベストアンサー

>スターターリレー直結すると

この意味が曖昧なので断定できないですし
車種が不明ですが、リレーは大体ヒューズ(15~30A)と
一体になってバッテリー近辺にあるスイッチです。
http://www.geocities.co.jp/MotorCity-Circuit/2519/electrics/relay.html

キル、セルボタン等の接触不良があるとリレーに
12V来ないのでリレーが動作しません。
セルスイッチ等の接触やアースが正常でボタン押すか
バッテリー直でリレーの+側に12V送りリレーが動作しない
カチってならないならリレーの故障です。
リレー自体は、9~10Vあれば動作する部品で
長期放置だと固着したり壊れる場合があります。

その他で多いのは、ターミナルの接触不良
バッテリーのマイナス端子からボディやシリンダーに
いく配線の腐食や接触不良などもあります。
キーONで電装やランプが点灯しても、接触が
不十分だと大電流を必要とするためセルモーターは回らない
リレーがカカカカってしか動作しない例も
ありました。

中には特殊な車種、構造のものもあるので
本気でレストアするなら車種くらいは提示するか
サービスマニュアル購入たほうがいいですよ。
そこにリレー以外の電装のチェック方法や始動不能の場合の
フローチャート、配線図も詳しく書いてあるので。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1248608007

>スターターリレー直結すると

この意味が曖昧なので断定できないですし
車種が不明ですが、リレーは大体ヒューズ(15~30A)と
一体になってバッテリー近辺にあるスイッチです。
http://www.geocities.co.jp/MotorCity-Circuit/2519/electrics/relay.html

キル、セルボタン等の接触不良があるとリレーに
12V来ないのでリレーが動作しません。
セルスイッチ等の接触やアースが正常でボタン押すか
バッテリー直でリレーの+側に12V送りリレーが動作しない
カチってならないならリレーの故障です。
リレー自体は、9...続きを読む

Qアクティブセルの行のセルを複数指定選択-VBA

アクティブセルの行のセルを複数指定選択-VBA

コマンドボタンを押すとアクティブセルのある行のセルを個別に選択したいのですが、どのようにVBAにコードを入力すればいいのか悩んでいます。

例:選択したい列(セル)A:C,F:I
アクティブセルがA2にある時、コマンドボタンを押してA2,B2,C2,F2,G2,H2,I2を選択する。
  アクティブセルがA10にある時は、A10,B10,C10,F10,G10,H10,I10を選択する。

ご回答お待ちしています。宜しくお願い致します。

Aベストアンサー

いくつかありますが、2つほど。

'------------------------------
Sub test222()
 Dim R As Long
 Dim myAdrs As String
 R = ActiveCell.Row
 myAdrs = "A" & R & ":C" & R & ",F" & R & ":I" & R
 Range(myAdrs).Select
End Sub

'------------------------------

Sub test333()
 Dim R As Long
 Dim myRange As Range
 R = ActiveCell.Row
 Set myRange = Cells(R, "A").Resize(1, 3)
 Set myRange = Union(myRange, Cells(R, "F").Resize(1, 4))
 myRange.Select
End Sub
'-------------------------------

以上です。

Qセルが回らない(T^T)

バリオスなのですが、バッテリーは、充電をし完璧な状態なのにセルが、回らない セルスイッチを押しても 「カチッ!!」と言う音しかしません。これは、セルが悪いのでしょうか?

Aベストアンサー

下記のURLに同じような症状のバイクがありました。
No.9に私が回答していますが、このときの質問者は
これで直ったようです。
一度、ご確認下さい。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=1412669

Q初心者です。VBでセルの値を違うシートに連続コピーする方法を教えてください

・A、Bシートが有りBシートのV17からAU17迄数値が入っています。この値をAシートのL6からV6、L10からV10、S14からAU17へ一個づつコピーしたいのですが、以下の様な式しか私には出来ません。
Sheets("B").Activate
Range("v17").Copy
Sheets("A").Activate
Worksheets("A").Range("L6").Select
Selection.PasteSpecial Paste:=xlValues
・For文とかで繰り返しできる方法を教えて下さい。宜しく御願いします。

Aベストアンサー

マクロの記録を使ってSheetBのV17~11セル選択してコピー、SheetAのL6からV6を選択して貼り付け、として記録して見てください。ほかの2箇所も同様にすれば、記録できますが、できれば記録したマクロを改造してみると勉強になるかと思います。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング