Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8818 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30980】アクティブセルの行番号を取りたい あい 05/11/8(火) 16:35 質問[未読]
【30981】Re:アクティブセルの行番号を取りたい Jaka 05/11/8(火) 16:39 回答[未読]
【30986】Re:アクティブセルの行番号を取りたい Kein 05/11/8(火) 17:29 発言[未読]
【30990】Re:アクティブセルの行番号を取りたい かみちゃん 05/11/8(火) 20:09 発言[未読]
【31011】Re:アクティブセルの行番号を取りたい Jaka 05/11/9(水) 9:19 発言[未読]
【31012】Re:アクティブセルの行番号を取りたい あい 05/11/9(水) 9:39 お礼[未読]
【30980】アクティブセルの行番号を取りたい
質問  あい  - 05/11/8(火) 16:35 -
引用なし
パスワード
   お願いします。
”アクティブセルの行番号を取りたい”ですが、どうやっても
”コンパイルエラー”とか、はじかれてしまいます。
お願いいたします。

If ActiveCell.Column.Value < 17 Then

上記じゃだめなんですか。
【30981】Re:アクティブセルの行番号を取りたい
回答  Jaka  - 05/11/8(火) 16:39 -
引用なし
パスワード
   ▼あい さん：
>If ActiveCell.Column.Value < 17 Then
>
>上記じゃだめなんですか。
ダメです。
ヘルプを良く見たほうがいいと思います。
If ActiveCell.Columns < 17 Then
【30986】Re:アクティブセルの行番号を取りたい
発言  Kein  - 05/11/8(火) 17:29 -
引用なし
パスワード
   >”アクティブセルの行番号を取りたい”
ですよね ??? だったら

MsgBox ActiveCell.Row

と違いますか・・?
【30990】Re:アクティブセルの行番号を取りたい
発言  かみちゃん  - 05/11/8(火) 20:09 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>”アクティブセルの行番号を取りたい”ですが、どうやっても
>”コンパイルエラー”とか、はじかれてしまいます。
>
>If ActiveCell.Column.Value < 17 Then

すでに、JakaさんとKeinさんからコメントがついていますが、以下のコードで確認してみてください。

Sub test()
　MsgBox ActiveCell.Columns ' ←？ Jakaさんこれは何ですか？sが要らない？
　MsgBox ActiveCell.Column ' ←　列番号
　MsgBox ActiveCell.Row ' ←　行番号
End Sub
【31011】Re:アクティブセルの行番号を取りたい
発言  Jaka  - 05/11/9(水) 9:19 -
引用なし
パスワード
   ▼Kein さん：
>>”アクティブセルの行番号を取りたい”
>ですよね ??? だったら
良く見ていませんでした。

▼かみちゃん さん：
>　MsgBox ActiveCell.Columns ' ←？ Jakaさんこれは何ですか？sが要らない？
いりません。

手短に済まそうとして、質問をほとんど良く見ずに何も考えずに適当な事をのたまいていました。
すみません。
【31012】Re:アクティブセルの行番号を取りたい
お礼  あい  - 05/11/9(水) 9:39 -
引用なし
パスワード
   うまく動作しました。

Private Sub Worksheet_Calculate()
Dim i As Integer
Dim myrow As Variant
Dim myColumn As Variant

myrow = ActiveCell.Row
myColumn = ActiveCell.Column

ありがとうございました。
又よろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8818 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free