質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

1回答

2909閲覧

ExcelのRangeオブジェクトに指定した範囲が勝手に変わる事はありますか?

ky_46

総合スコア92

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

1クリップ

投稿2015/07/01 01:26

VB.NETから、参照の追加のcomでexcelを指定して、シートを制御するプログラムを作成しています。

Visual Basic 2010 のプログラムで自動作成されたExcelデータシートはタイトルなどの部分で上から5行。データエリアは5000行強。列数は200ほどになります。
excelは2010を使用していますので、.xlsxファイルで保存しています。

範囲が大きいので、いちいちソートエリアを指定するのも大変なので、VBでシートを作成するときに、データ部分に名前を付けたいと思い、次のようなコードをテストで作成してみました。

lang

1 oXls1 = New Microsoft.Office.Interop.Excel.Application 2 oXls1.Visible = True 3 4 wkb01 = oXls1.Workbooks.Open(Filename:="データ.xlsx", ReadOnly:=False) 5 6 oXls1.Calculation = Microsoft.Office.Interop.Excel.XlCalculation.xlCalculationManual 7 wks01 = wkb01.Worksheets("一覧データ(全データ)") 8 'Dim aname As String = wks01.Name & "!全データ選択" 9 Dim aname As String = "全データ選択01" 10 11 Dim rn0(2) As Integer 12 Dim cn0(2) As Integer 13 14 rn0(0) = 5 15 rn0(1) = 5000 16 cn0(0) = 1 17 cn0(1) = 200 18 19 Dim objName As Object 20 Dim deleteCtr As Long 21 deleteCtr = 0 22 For Each objName In wks01.Names 23 If objName.Visible Then 24 wks01.Names(objName.Name).Delete() 25 deleteCtr = deleteCtr + 1 26 End If 27 Next 28 Range1_1 = wks01.Range(wks01.Cells(rn0(0), cn0(0)), wks01.Cells(rn0(1), cn0(1))) 29 Range1_1.Select() 30 wks01.Names.Add(Name:=aname, RefersTo:=Range1_1.CurrentRegion) 31 32 'Range1_1 = wks01.Range(wks01.Cells(rn0(0), cn0(0)), wks01.Cells(rn0(1), cn0(1))) 33 'Range1_1.CurrentRegion.Name = aname 34 35 Range1_1 = wks01.Cells(5, 10) 36 Range1_1.Select() 37 oXls1.ActiveWindow.FreezePanes = True

これにより、データ.xlsx ブックの 一覧データ(全データ)シートの5行1列目から、5000行200列のレンジに全データ選択01という名前が付く……はずなのですが、実際にこのプログラムを稼働させた結果、追加された全データ選択01を選択すると、タイトルなどの部分の上から5行と5000行を越える部分にも勝手に範囲が拡張されて名前が付けられていました。

For Each objName In wks01.Names
の部分は、もしかして隠れた名前設定がされているのでは? と予めシートの名前を全削除するブロックを組み込んでみたものですが、それでもタイトル部分に勝手に拡張されます。

更に確認のため、
Range1_1.Select()
も組み込みましたが、この行にブレークポイントを張って、停止時にExcelを確認したところ、確かに5行1列~5000行200列が選択されていました。

しかし、その次の名前を設定した途端、その名前を選択すると、タイトル部分に勝手に拡張された範囲が指定されてしまいます。

Excel2010には、指定されたデータ範囲の上下にデータが入っていると、親切にも勝手にエリアを拡張する機能があるのでしょうか?

また、ついでといってはなんですが
'Dim aname As String = wks01.Name & "!全データ選択"

は、シート名!名前 で名前を追加すると、対象のシートからのみ参照可能な名前が付けられるはずなのですが、!が邪魔をしているようで、名前に不適切な文字が入っているとエラーになって止まってしまうため、コメントアウトしてあります。
このブックには、全データの他にも絞り込んだデータシートを置きたいので、どのシートも全データ選択でデータが選択できると大変助かるのですが…

よろしくお願いいたします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

wks01.Names.Add(Name:=aname, RefersTo:=Range1_1.CurrentRegion)

.CurrentRegion だからではないでしょうか
空白行と空白の列で囲まれたセル範囲になります

投稿2015/07/01 02:48

退会済みユーザー

退会済みユーザー

総合スコア0

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

ky_46

2015/07/01 03:26

ありがとうございました。 お恥ずかしい限りで、まったく気がついていませんでした。 .CurrentRegion を除去したところ、指定エリアに名前がつきました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問