excel vba 選択されたセルの範囲を別のセル

質問

excel vba 選択されたセルの範囲を別のセルに書き込みたい。
お世話になっております。
乱筆乱文お許し下さい。

EXCEL VBAについてですが、或るブックを閉じる時（Private Sub Workbook_BeforeClose(Cancel As Boolean)）にその時点でACTIVEなsheetの名前を指定シートの指定セルに書き込み、そのブックを開く時（Private Sub Workbook_Open()）に指定シートの指定セルの値の名前sheetをACTIVEにすることは出来たのですが、もう一歩進んで、
ブックを閉じる時（Private Sub Workbook_BeforeClose(Cancel As Boolean)）にその時点でselectされているcellの範囲（単一セル・複数セル共に、名前がついていたら名前、ついていなければrangeを表す文字列）を指定シートの指定セルに書き込み、そのブックを開く時（Private Sub Workbook_Open()）に指定シートの指定セルの値の名前cell範囲をselectするようなことがやりたいのですが、私の検索の仕方が下手で、なかなか出てきません。どなたかご教示下さい。よろしくお願いします。

回答No.3

SI299792 · ベストアンサー

問題はありません。
[A1]をWorksheets("作業用").Cells(3, 7)に置き換えればいいです。
やってみて、ダメだったら質問してください。

＞検索の仕方が下手で、なかなか出てきません。
とあったので、検索の仕方を
「activecell　範囲の取得」
「vba 名前の取得」
をキーワードにすれば出てきます。

お礼

ありがとうございます。問題無く出来ました。

回答No.2

SI299792

書き込む指定セルが何処かわからないので、とりあえずA1にします。

selectされているrange を表す文字列
　　[A1] = Selection.Address
名前
　　[A1] = Selection.Name.Name
少し変ですが、Nameを２つ重ねると名前を取得できます。名前がついていなければエラーになります。
単一セル・複数セル共に、名前がついていたら名前、ついていなければrange を表す文字列、ということですが、これらを組みわせて、
　　[A1] = ""
　　On Error Resume Next
　　[A1] = Selection.Name.Name
　　On Error GoTo 0
'
　　If [A1] = "" Then
　　　　[A1] = Selection.Address
　　End If

A1に名前がはいっていようが、range を表す文字列が入っていようが、
　　Range([A1]).Select
で、指定ができます。
余談ですが、指定セルが固定でない場合、
　　Range(Range(rangestr)).Select
　　Range(Cells(Row, col)).Select
という書き方になりますが、判りくい上バグの元なので、私なら、
　　wkstring = Cells(Row, col)
　　Range(wkstring).Select
とします。

selectされているrange を表す文字列
https://msdn.microsoft.com/ja-jp/library/cc344295.aspx

セルの名前の取得。
http://blog.livedoor.jp/katsuyausami/archives/51494897.html

補足

ありがとうございます。基本的な道筋は見えてきました。ただ、これはVBAを使う者には基本中の基本でしょうが、結果を書き込むセルをA1ではなく、「Worksheets("作業用").Cells(3, 7)」にしたい場合は[Worksheets("作業用").Cells(3, 7)]ではダメでしょうか？よろしくお願いします。

回答No.1

imogasi

珍しいニーズの質問と思うので、
実際に活用したことがないのですが、思い付きです。
セル範囲のブロックの同一シートでの重なりや、別シートでの選択セル範囲まで考慮はしてませんが。
Sub Sample2()
Dim i As Long, cntRow As Long, cntCol As Long
With Selection
For i = 1 To .Areas.Count
MsgBox .Areas(i)(1).Address
cntRow = .Areas(i).Rows.Count
cntCol = .Areas(i).Columns.Count
MsgBox "行 ： " & cntRow & vbCrLf & "列 ： " & cntCol
Next i
End With
End Sub
を実行して使えるかどうか考えてみてください。
例えばＣＴＲＬキーを押しながらマウスをドラグして、３ブロックのセル範囲を指定しておいて、上記コードを実行する。（テスト済み）
各ブロックの左上隅のセル番地と範囲の行数、列数を示します。
これを（同一ブックがよいだろうが）使わないシートに記録して、情報を次回に残すとかする。
このブックを開いたとき、このシートを見て再現が可能ではないですか。