[[20050721113734]]　『選択範囲の反転』（たこよ）　ページの最後に飛ぶ

『選択範囲の反転』（たこよ）

同じシート内で、広範囲を選択し、その選択範囲内で一部分を選択から外すには、どのようにしたらいいでしょうか。

 選択外としたい部分をコントロールキー＆左クリック（ただし、セル１個分しか選択できません）

 (HT)

複数のセルを選択したいのですが、無理でしょうか？　（たこよ）

 上記方法でも選択されていました。申し訳ございません。見た目は反転されますが。。。
 現在試してはいますが、無理かもしれません(~_~;)
 (HT)

 衝突しました。
↓こちらが参考になるかもしれません。（Yosh!）
[[20041018151105]] 『そのセルの選択を解除する方法』（ice）

自分が作った表だけを印刷したいのに、同じシート内のどこかに誤っていらない文字が入っているため、１ページ分だけの印刷が、２ページになってしまうのです。そこで、1シート全部を選択して、印刷したい部分だけを範囲指定から解除してＤＬキーで消したいのですが、何かいい方法は、ないでしょうか。　（たこよ）

 改ページプレビューで見れば、「同じシート内のどこかに誤っていらない文字が
 入って」の場所がわかるので列・行を削除してはどうでしょう！
 メニューバー>表示＞改ページプレビューorツールバーにあります。
 （ぱっくん）

 複数のセルが連続したセル範囲でよければ以下のようなコードで選択範囲外を選択が可能です。
　
Option Explicit
Sub 選択範囲外を選択()
Dim MyFstRow As Long, MyRowCnt As Long, MyFstCol As Long, MyColCnt As Long
Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range, MyAreaRange As Range
With Selection
    MyFstRow = .Row
    MyRowCnt = .Rows.Count
    MyFstCol = .Column
    MyColCnt = .Columns.Count
End With
If MyFstRow <> 1 Then
    Set r1 = Range("1:" & MyFstRow - 1)
Else
    Set r1 = Rows(MyRowCnt + 1)
End If
Set r2 = Range(Rows(MyFstRow + MyRowCnt), Rows(MyFstRow + MyRowCnt).End(xlDown))
If MyFstCol <> 1 Then
    Set r3 = Range(Columns(1), Columns(MyFstCol - 1))
Else
    Set r3 = Columns(MyColCnt + 1)
End If
Set r4 = Range(Columns(MyFstCol + MyColCnt), Columns(MyFstCol + MyColCnt).End(xlToRight))
Set MyAreaRange = Union(r1, r2, r3, r4)
    MyAreaRange.Select
Set r1 = Nothing
Set r2 = Nothing
Set r3 = Nothing
Set r4 = Nothing
Set MyAreaRange = Nothing
End Sub

 （川野鮎太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20050721113734]] 『選択範囲の反転』（たこよ） ページの最後に飛ぶ

[[20050721113734]]　『選択範囲の反転』（たこよ）　ページの最後に飛ぶ