選択範囲の反転

いつも有難うございます
Excel2007ですが、あるシートに100行100列を使用して作成してあります、そこでその中の2列を100行まで選択をしておきそれを選択しない98列の方に反転したいのですが(選択範囲の反転)可能でしょうか。
宜しくお願いいたします。

No.1 ベストアンサー 回答者： Wendy02 回答日時： 2007/09/03 09:49

こんにちは。

Excel 2007 は、持っていないので分かりませんが、基本的には出来ないような気がします。

私は、マクロでは作りましたが、頻繁に使いませんのでいつしか忘れられてしまいました。それでもよければ、マクロをお使いください。

コマンドボタンやショートカットに設定すると良いと思います。

'反転選択
Sub InvertSelection()
'個人用マクロ・ブックの標準モジュール
　　Dim OrgArea As Range
　　Dim ExceptArea As Range
　　Dim a As Range
　　Dim Ur As Range
　　
　　'範囲設定
　　Set OrgArea = Range("A1:CV100")
　　'または、Set OrgArea = ActiveSheet.UsedRange
　　
　　If StrComp(TypeName(Selection), "Range", 1) <> 0 Then Exit Sub
　　Set ExceptArea = Selection
　　For Each a In OrgArea.Cells
　　　　If Intersect(a, ExceptArea) Is Nothing Then
　　　　　　If Ur Is Nothing Then
　　　　　　　　Set Ur = a
　　　　　　Else
　　　　　　　　Set Ur = Union(Ur, a)
　　　　　　End If
　　　　End If
　　Next a
　　Ur.Select
　　Set ExceptArea = Nothing
　　Set OrgArea = Nothing
End Sub

この回答へのお礼

有難うございます
グラフィックソフトのように簡単の方法では出来ないようですね
マクロのソース教えていただき、有難うございます
難しそうですが挑戦してみます。

お礼日時：2007/09/03 10:39