Excel macro macro macro how to achieve the following search

The macro is working fine.

Able to perform the tasks you are asked to do.

You consider other factors.

For example, whether the text is correct.

Such as security and so on.

Try the following ** to see if your needs are met:

Writing a macro in order to find the location of the name is a bit of a fuss, isn't it easier to find or filter directly or return with a formula?

Isn't it simpler to use the system directly ctrl+f to find it?

You're going to use a dialog to query it.

I don't really understand what you mean, take a screenshot, I can help you write vbe**.

The ** you give is not complete, and the information you give is not sufficient. The following is the sub written according to the requirements of the empty full deletion ().

dim a, b, c

for a = 2 to

for c = 1 to 10 step 3for b = 7 to

if , 1) = , c) then

c + 1) = ""

c + 2) = now()

end if

nextnext

nextfor a = 2 to

for c = 1 to 10 step 3for b = 7 to

if , 4) = , c) then

c + 1) = , 4)

c + 2) = now()

end if

nextnext

nextend sub

By default, your first table is in "sheet1", the second table is in "sheet2", and there are 4 columns of data in table 2.

Let's use the following **.

sub lookup().

t =sheets("sheet2").selectfor each a in

b = format(

if format( = t then : exit subnext

sheets("sheet3").selectfor each a in

b = format(

if format( = t then : exit subnext

sheets("sheet1").selectmsgbox "Didn't find it"

end sub

sub Open file().

chdir "d:\text\"

filename:="d:\" & range("a1")end sub

This ** fixed folder refers to the test directory under the D drive.

The cell to enter the file name is, and the A1 cell of the current worksheet requires the full file name to be entered, i.e. including the extension. Like what.

If it's a fixed excel file. You can modify it to:

sub Open file().

chdir "d:\text\"

filename:="d:\" & range("a1")&".xls"

end sub

In this case, the file name you enter can be aaa to create a form button that is specified as this macro.

Specifically, look at what the building is mainly looking for.

Generally, you can record a search macro, that is, find related and then modify it according to your needs.

Or use for loop traversal, if statement judgment, use instr, like and the like.

You don't see any questions ...

Insert a form command button into this table, and then assign the following ** to this button.

sub hint().

if not range("a:a").find("Express shipping") is nothing then

msgbox "Note"

end if

end sub