Excel VBA質問箱 IV

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

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


13056 / 13644 ツリー ←次へ | 前へ→

【7208】activecell領域の範囲取得 sibira 03/8/26(火) 17:03 質問
【7210】Re:activecell領域の範囲取得 つん 03/8/26(火) 17:47 回答
【7213】Re:activecell領域の範囲取得 BOTTA 03/8/26(火) 18:12 回答
【7264】Re:activecell領域の範囲取得 sibira 03/8/28(木) 11:28 お礼

【7208】activecell領域の範囲取得
質問  sibira  - 03/8/26(火) 17:03 -

引用なし
パスワード
   何度もすみません。
A1とA6 がactiveになっている場合、
active領域は A1:A6 と言うのをわかりたいのです。

結合したセルがあり、これを解除し、アクティブセルを値コピーし
解除した際にactiveされていた領域に複写することをしたいのですが
型が一致しませんとエラーが出ます。

Sub 結合解除と値複写()

Dim mycopy As Range
  Set mycopy = ActiveCell.Address

With Selection
    .MergeCells = False
  End With

ActiveCell.Select
  Selection.Copy
  
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
End Sub
  
  この説明で分かりますでしょうか???

【7210】Re:activecell領域の範囲取得
回答  つん E-MAIL  - 03/8/26(火) 17:47 -

引用なし
パスワード
   sibira さん:

>結合したセルがあり、これを解除し、アクティブセルを値コピーし
>解除した際にactiveされていた領域に複写することをしたいのですが
>型が一致しませんとエラーが出ます。

とりあえず、エラーの原因だけ・・・

>Dim mycopy As Range
>  Set mycopy = ActiveCell.Address

ここがおかしいです。Addressプロパティは、「"A1:B5"」といったような、文字列を返します。
なので、Rangeオブジェクトに代入できません。

  Dim r As Range
  Set r = ActiveCell
  
とするか。

  Dim strAddress As String
  strAddress = ActiveCell.Address

ですね。

Setで代入したあとは、

  Set r = Nothing

とした方がよいようですにゃ

【7213】Re:activecell領域の範囲取得
回答  BOTTA  - 03/8/26(火) 18:12 -

引用なし
パスワード
   >A1とA6 がactiveになっている場合、
複数セルをActiveにすることは出来ません。
Selectは出来ます。

>active領域は A1:A6 と言うのをわかりたいのです。
>結合したセルがあり、これを解除し、アクティブセルを値コピーし
>解除した際にactiveされていた領域に複写することをしたいのですが
おっしゃる意味がよくわかりませんが、やりたいのはこんな事?

Sub 結合解除と値複写()

Dim rng As Range
  Set rng = Selection

  With rng
    .MergeCells = False
    .Copy
    .PasteSpecial Paste:=xlValues
  End With
  
  Set rng = Nothing

End Sub

ただし、Select領域が"A1:A6"の様に連続していないとエラーになります。

【7264】Re:activecell領域の範囲取得
お礼  sibira  - 03/8/28(木) 11:28 -

引用なし
パスワード
   ▼つんさん、BOTTA さん:

Address プロパティ が文字列を返すことや
set の代入の後、Nothing を使うことも勉強になりました。
結局、BOTTA さんのをほとんど使わせていただいて完成しました。
説明べたですみませんでした。
でも、ありがとうございました。

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