blocks|key|1473790|text|我认为这是行不通的。以下是从Chip+Pearson的网站http://www.cpearson.com/excel/UnSelect.aspx复制的一些代码，没有任何修改。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1473791|UnSelectActiveCell|1473792|此过程将从选定内容中删除活动单元格。|1473793|Sub+UnSelectActiveCell()
++++Dim+R+As+Range
++++Dim+RR+As+Range
++++For+Each+R+In+Selection.Cells
++++++++If+StrComp(R.Address,+ActiveCell.Address,+vbBinaryCompare)+<>+0+Then
++++++++++++If+RR+Is+Nothing+Then
++++++++++++++++Set+RR+=+R
++++++++++++Else
++++++++++++++++Set+RR+=+Application.Union(RR,+R)
++++++++++++End+If
++++++++End+If
++++Next+R
++++If+Not+RR+Is+Nothing+Then
++++++++RR.Select
++++End+If
End+Sub|code-block|syntax|javascript|1473794|UnSelectCurrentArea|1473795|此过程将从选定内容中删除包含活动单元格的区域。|1473796|Sub+UnSelectCurrentArea()
++++Dim+Area+As+Range
++++Dim+RR+As+Range

++++For+Each+Area+In+Selection.Areas
++++++++If+Application.Intersect(Area,+ActiveCell)+Is+Nothing+Then
++++++++++++If+RR+Is+Nothing+Then
++++++++++++++++Set+RR+=+Area
++++++++++++Else
++++++++++++++++Set+RR+=+Application.Union(RR,+Area)
++++++++++++End+If
++++++++End+If
++++Next+Area
++++If+Not+RR+Is+Nothing+Then
++++++++RR.Select
++++End+If
End+Sub|1473797|entityMap|0|LINK|mutability|MUTABLE|url|http://www.cpearson.com/excel/UnSelect.aspx^0|T|17|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|10|8|@]|9|@$A|11|B|12|1|13]]|C|$]]|$1|D|3|E|5|6|7|14|8|@]|9|@]|C|$]]|$1|F|3|G|5|6|7|15|8|@]|9|@]|C|$]]|$1|H|3|I|5|J|7|16|8|@]|9|@]|C|$K|L]]|$1|M|3|N|5|6|7|17|8|@]|9|@]|C|$]]|$1|O|3|P|5|6|7|18|8|@]|9|@]|C|$]]|$1|Q|3|R|5|J|7|19|8|@]|9|@]|C|$K|L]]|$1|S|3|-4|5|6|7|1A|8|@]|9|@]|C|$]]]|T|$U|$5|V|W|X|C|$Y|Z]]]]

I do not think that this can be done. Here is some code copied with no modifications from Chip Pearson's site: <a href="http://www.cpearson.com/excel/UnSelect.aspx" rel="nofollow noreferrer">http://www.cpearson.com/excel/UnSelect.aspx</a>.

UnSelectActiveCell

This procedure will remove the Active Cell from the Selection.

<pre><code>Sub UnSelectActiveCell()
 Dim R As Range
 Dim RR As Range
 For Each R In Selection.Cells
 If StrComp(R.Address, ActiveCell.Address, vbBinaryCompare) &lt;&gt; 0 Then
 If RR Is Nothing Then
 Set RR = R
 Else
 Set RR = Application.Union(RR, R)
 End If
 End If
 Next R
 If Not RR Is Nothing Then
 RR.Select
 End If
End Sub
</code></pre>

UnSelectCurrentArea

This procedure will remove the Area containing the Active Cell from the Selection.

<pre><code>Sub UnSelectCurrentArea()
 Dim Area As Range
 Dim RR As Range

 For Each Area In Selection.Areas
 If Application.Intersect(Area, ActiveCell) Is Nothing Then
 If RR Is Nothing Then
 Set RR = Area
 Else
 Set RR = Application.Union(RR, Area)
 End If
 End If
 Next Area
 If Not RR Is Nothing Then
 RR.Select
 End If
End Sub
</code></pre>

blocks|key|1688866|text|Cells(1,1).Select|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1688867|它将带您到单元格A1，从而取消您现有的选择。|unstyled|1688868|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|J|8|@]|9|@]|A|$]]|$1|G|3|-4|5|F|7|K|8|@]|9|@]|A|$]]]|H|$]]

<pre><code>Cells(1,1).Select
</code></pre>

It will take you to cell A1, thereby canceling your existing selection.

blocks|key|1688919|text|您可以设置Application.ScreenUpdating+=+False并选择视图外的单元格，然后将.ScreenUpdating设置为true。这至少不会在当前视图中显示任何选定的单元格。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1688920|entityMap^0|5|Y|1H|F|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]|$9|K|A|L|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|M|8|@]|D|@]|E|$]]]|G|$]]

You could set the <code>Application.ScreenUpdating = False</code> and select a cell out of view and then set the <code>.ScreenUpdating</code> to true. This would at least not show any selected cells in the current view.

blocks|key|1473948|text|Application.CutCopyMode+=+False|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1473949|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>Application.CutCopyMode = False
</code></pre>

blocks|key|1688997|text|在Excel2007中，使用select和CutCopyMode属性的组合，可以重置所有选择。它适用于我的用例。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1688998|Application.CutCopyMode+=+xlCopy
ActiveSheet.Range("A"+&+lngRow).Select|code-block|syntax|javascript|1688999|问候Madhur|1689000|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

In Excel 2007, a combination using select and CutCopyMode property, it is possible to reset all the selections. It worked for my use case.

<pre><code>Application.CutCopyMode = xlCopy
ActiveSheet.Range("A" &amp; lngRow).Select
</code></pre>

Regards
Madhur

blocks|key|1689024|text|选择任意单元格并关闭剪切复制模式。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1689025|Range("A1").Select
Application.CutCopyMode+=+False|code-block|syntax|javascript|1689026|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Select any cell and turn off cutcopymode.

<pre><code>Range("A1").Select
Application.CutCopyMode = False
</code></pre>

blocks|key|1689083|text|Selection(1,+1).Select将只选择当前选定内容的左上角单元格。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1689084|entityMap^0|0|M|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

<code>Selection(1, 1).Select</code> will select only the top left cell of your current selection.

blocks|key|1689156|text|我尝试了您的所有建议，但没有成功，但这里有一个想法对我很有效:从您的选择范围(比如AAA1000000)中选择一个单元格，然后再次选择A1|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1689157|Range("AAA1000000").Activate|1689158|Range("A1").Activate|1689159|盖伊|1689160|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|J|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|K|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|L|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|M|8|@]|9|@]|A|$]]|$1|H|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|I|$]]

Tried all your suggestions, no luck , but here's an idea that worked for me
select a cell out of your selection range (say AAA1000000)
and then select the A1 again

Range("AAA1000000").Activate

Range("A1").Activate

Guy

blocks|key|1689244|text|我在使用Excel+2013时遇到了这个问题。我设置了“冻结窗格”，这导致了问题。当我删除冻结的窗格时，这个问题就解决了。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1689245|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

I had this issue with Excel 2013. I had "freeze panes" set, which caused the problem. The issue was resolved when I removed the frozen panes.

blocks|key|1689331|text|你可以在最后简单地使用这段代码。(请勿使用False)|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1689332|Application.CutCopyMode+=+True|code-block|syntax|javascript|1689333|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

You can simply use this code at the end. (Do not use False) 

<pre><code>Application.CutCopyMode = True
</code></pre>

blocks|key|1474384|text|Sub+MyFunc()

++++Range("B6").Select

++++Selection.Locked+=+True

End+Sub|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1474385|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>Sub MyFunc()

 Range("B6").Select

 Selection.Locked = True

End Sub
</code></pre>

blocks|key|1689440|text|执行如下语句：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1689441|ActiveSheet.Cells(ActiveWindow.SplitRow%2B1,ActiveWindow.SplitColumn%2B1).Select|code-block|syntax|javascript|1689442|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Do statement as below:
<pre><code>ActiveSheet.Cells(ActiveWindow.SplitRow+1,ActiveWindow.SplitColumn+1).Select
</code></pre>

When I create a graph after using range.copy and range.paste it leaves the paste range selected, and then when I create a graph a few lines later, it uses the selection as the first series in the plot. I can delete the series, but is there a more elegant way to do this? I tried 

<pre><code>Set selection = nothing
</code></pre>

but it won't let me set selection. I also tried selection.clear, but that just cleared the last cells that were selected, and still added an extra series to the plot.

Setting selection to Nothing when programming Excel

当我使用range.copy和range.paste创建图形时，它会将粘贴范围保留为选中状态，然后当我在几行之后创建图形时，它会将所选内容用作绘图中的第一个系列。我可以删除这个系列，但是有没有更优雅的方法呢？我试过了Set selection = nothing但它不会让我设置选择。我也尝试了selection.cle...

问在编写Excel时将选定内容设置为空
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在编写Excel时将选定内容设置为空EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在编写Excel时将选定内容设置为空
EN