Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3712 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【60555】ActiveCell.CurrentRegionについて 次郎 09/2/27(金) 22:23 質問[未読]
【60559】Re:ActiveCell.CurrentRegionについて Ｓｔｒｅｅｔ 09/2/28(土) 8:06 発言[未読]
【60560】Re:ActiveCell.CurrentRegionについて 次郎 09/2/28(土) 17:27 質問[未読]
【60561】Re:ActiveCell.CurrentRegionについて テム 09/2/28(土) 18:40 回答[未読]
【60562】Re:ActiveCell.CurrentRegionについて 次郎 09/2/28(土) 19:35 お礼[未読]
【60555】ActiveCell.CurrentRegionについて
質問  次郎  - 09/2/27(金) 22:23 -
引用なし
パスワード
   ↓のプログラムを作ったのですが
手動でアクティブセルを変えながら何回か実行していると
mRange.RowやmRange.Columnの値が正しくなく（アクティブセルの
値でない）なってしまうのですがどこが悪いでしょうか？
アドバイスいただけたら助かります。よろしくお願いいたします。


Private Sub CommandButton1_Click()
Dim mRange, sRange As Range
Dim mData As String

Sheets(2).Activate

Set mRange = ActiveCell.CurrentRegion

MsgBox mRange.Row

MsgBox mRange.Column

mData = Cells(mRange.Row, 4)

Sheets(1).Activate

Set sRange = ActiveCell.CurrentRegion


Cells(sRange.Row, 2) = mData

End Sub
【60559】Re:ActiveCell.CurrentRegionについて
発言  Ｓｔｒｅｅｔ  - 09/2/28(土) 8:06 -
引用なし
パスワード
   mRange.RowやmRange.Columnの値はアクティブセルの値ではなく
ActiveCell.CurrentRegionの左上の行位置と列位置に
なるのは承知ですか？
【60560】Re:ActiveCell.CurrentRegionについて
質問  次郎  - 09/2/28(土) 17:27 -
引用なし
パスワード
   ▼Ｓｔｒｅｅｔ さん：
>mRange.RowやmRange.Columnの値はアクティブセルの値ではなく
>ActiveCell.CurrentRegionの左上の行位置と列位置に
>なるのは承知ですか？

レス。ありがとうございます！
>左上の行位置と列位置になるのは

知りませんでした。

アクティブセルの「行・列」を取得するには
どのようにしたらよいでしょうか？
【60561】Re:ActiveCell.CurrentRegionについて
回答  テム  - 09/2/28(土) 18:40 -
引用なし
パスワード
   >アクティブセルの「行・列」を取得するには
>どのようにしたらよいでしょうか？

コード内容はほとんど見ていませんが、

ActiveCell.Row
ActiveCell.Column

で取得できます。
【60562】Re:ActiveCell.CurrentRegionについて
お礼  次郎  - 09/2/28(土) 19:35 -
引用なし
パスワード
   Streetさん。テムさん。

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