调出“查找替换”窗口的宏代码如何写？

浪棹

我自己设置了一个“查找替换”的按钮，哪位能为我指点一下，调出“查找替换”窗口的宏代码？

LangQueS

录制宏得到的代码：

Sub 查找()

    Cells.Find(What:="查找内容", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , MatchByte:=False, SearchFormat:=False).Activate
End Sub

浪棹

QUOTE:

以下是引用LangQueS在2007-4-21 10:02:24的发言：

录制宏得到的代码：

Sub 查找()

    Cells.Find(What:="查找内容", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , MatchByte:=False, SearchFormat:=False).Activate
End Sub

试了一下，好象运行不了呀。

浪棹

还有撤消和恢复按钮，代码也不知道怎么写呀。

LangQueS

QUOTE:

以下是引用浪棹在2007-4-21 10:13:11的发言：

试了一下，好象运行不了呀。

请在某个单元录入“查找内容”后再运行宏。

LangQueS

再给个参考：

Sub 按光标选定单元文本定位()
ABC = Selection
Dim aa As Range
For Each a In ActiveSheet.UsedRange
If a Like ABC Then
If aa Is Nothing Then
Set aa = a.Cells
Else
Set aa = Union(aa, a.Cells)
End If
End If
Next
aa.Select
End Sub

LangQueS

zhHX0UxH.rar (6.58 KB, 下载次数: 202)

2007-4-21 10:35 上传

点击文件名下载附件
调出“查找替换”窗口的宏代码如何写？

浪棹

QUOTE:

以下是引用LangQueS在2007-4-21 10:35:43的发言：

非常感谢版主的关心，我的想法直接EXCEL中的“查打替换”窗口，然后根据自己的要求对单元格的内容进行替换，而七楼的方法是先定义替换的内容了，可变性满足不了我的要求呀。原来是想自定义一个工具栏的，但自己自定义的工具栏在别人电脑上无法调用，所以........很无奈呀。

yuanzhuping

查找替换用RepLace方法。

Replace 方法

适用于

Range 对象，WorksheetFunction 对象

描述

在指定区域内查找并替换单元格中的字符。不改变选定区域和活动单元格。

句法

expression.Replace(What,Replacement,LookAt, SearchOrder, MatchCase,

MatchByte)

Expression

必选。该表达式返回 Range 对象。

What

String 类型，必选。要查找的字符串。

Replacement

String 类型，必选。替换字符串。

LookAt

Variant 类型，可选。可为下列 XlLookAt 常量之一： xlWhole 或 xlPart。

SearchOrder

Variant 类型，可选。可为下列 XlSearchOrder 常量之一： xlByRows 或xlByColumns。

MatchCase

Variant 类型，可选。若指定为 True，就进行区分大小写的查找。

MatchByte

Variant 类型，可选。仅用于远东版本的 Microsoft Excel。若指定为 True，

就使双字节字符仅匹配双字节字符。若指定为 False，则双字节字符可匹配其等价的单字节字符。

说明

每次调用本方法后，参数 LookAt, SearchOrder, MatchCase 和 MatchByte的设置将保存。如果下一次调用时未指定这些参数，将使用保存的设置。

设置这些参数将改变“查找”对话框中的设定，而在“查找”对话框中修改相应设定，也将改变忽略这些参数时所使用的保存值。为避免出现麻烦，每次调用本方法时，请显式指定这些参数的值。

replace方法常返回True。

另见

Find 方法， FindNext 方法

示例

本示例将每个“SIN”函数都替换为“COS”函数。替换所进行的区域为工作表“Sheet1”中的“A”列。

Worksheets("Sheet1").Columns("A").Replace _

What:="SIN", Replacement:="COS", _

SearchOrder:=xlByColumns, MatchCase:=True

Aeolian-Vox

QUOTE:

以下是引用浪棹在2007-4-21 10:44:00的发言：

非常感谢版主的关心，我的想法直接EXCEL中的“查打替换”窗口，然后根据自己的要求对单元格的内容进行替换，而七楼的方法是先定义替换的内容了，可变性满足不了我的要求呀。原来是想自定义一个工具栏的，但自己自定义的工具栏在别人电脑上无法调用，所以........很无奈呀。

Sub Macro()
    Application.Dialogs(130).Show
End Sub