Excel VBA質問箱 IV

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

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


21570 / 76732 ←次へ | 前へ→

【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

2 hits

【60555】ActiveCell.CurrentRegionについて 次郎 09/2/27(金) 22:23 質問
【60559】Re:ActiveCell.CurrentRegionについて Street 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 お礼

21570 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free