[[20110202155332]]　『Ctrlキーを使って複数セルの選択時に間違えたら』（けんたろう）　ページの最後に飛ぶ

『Ctrlキーを使って複数セルの選択時に間違えたら』（けんたろう）
お世話になります。
エクセルの初歩の使い方かと思いますが、Ctrlキーを使って複数セルを選択しますが、
間違えて選択してしまった時は、どの様にしたら間違えて選択した箇所を無効にできるのでしょうか。
今は諦めて最初から選択し直しています。
間違えないように注意しているのですが、つぃやってしまうのです・・・・

素人な質問ですみません。
よろしくお願いします。

エクセル2010を使用しています。

 わかります。面倒ですよね！
　
私は以下のページを参考にしております。
紹介でごめんなさい。
ちょっと…絵が無いと説明がしづらいというか、わかりにくいというか・・・
　
Office TANAKA ：Ctrl+クリックで誤った選択をやり直す
http://officetanaka.net/excel/function/tips/tips22.htm
　
Chiquilin Site ：★その２：選択している途中で失敗したら
http://www.geocities.jp/chiquilin_site/data/090606_select_range.html#C02
　
慣れるとさくさく修正できますよ。
がんばってください！
（すずめ）

 参考過去ログ
[[20020718095244]]『複数範囲を選択している途中で間違えた場合』（こつこ）
　
（純丸）(o^-')b

すずめさん　純丸さん　ありがとうございます。

凄く感動です。出来るんですね。もっと早く質問していれば。
いや、もっとしっかり過去ログ検索してれば。。。。

ctrl＋. ですね。
私がそそっかしいのかと思っていましたが、世の中同じように間違える方が居ることも安心しました。

さっそく皆に自慢しよう。でも集中力無いからとツッコみが入りそうですが・・・・・

本当にありがとうございました。

 解決後で、参考になるかわかりませんが・・・

 私はアドインで右クリックメニューに以下の2種類を入れています。
 上のはアクティブセルのある範囲を解除
 下のはアクティブセルのみを選択解除

  '複数選択AreasからActiveCellのあるAreaを消去
  Private Sub DelSelectionArea()
  Dim myArea As Range, myRng As Range
  For Each myArea In Selection.Areas
    If Application.Intersect(ActiveCell, myArea) Is Nothing Then
      If myRng Is Nothing Then
        Set myRng = myArea
      Else
        Set myRng = Application.Union(myRng, myArea)
      End If
    End If
  Next myArea
  myRng.Select
  Set myRng = Nothing
  End Sub

  '複数選択AreasからActiveCellを消去
  Private Sub DelSelectionCell()
  Dim myArea As Range, myRng As Range, myCell As Range
  For Each myArea In Selection.Areas
    For Each myCell In myArea
      If Application.Intersect(ActiveCell, myCell) Is Nothing Then
        If myRng Is Nothing Then
          Set myRng = myCell
        Else
          Set myRng = Application.Union(myRng, myCell)
        End If
      End If
    Next myCell
  Next myArea
  myRng.Select
  Set myRng = Nothing
  End Sub

 （ｍｏｍｏ）

コメント返信：

[ 一覧(最新更新順) ]

[[20110202155332]] 『Ctrlキーを使って複数セルの選択時に間違えたら』（けんたろう） ページの最後に飛ぶ

[[20110202155332]]　『Ctrlキーを使って複数セルの選択時に間違えたら』（けんたろう）　ページの最後に飛ぶ