Set yRan = Sheets("首页").UsedRange.Find("登录名")'查找包含值 登录名 的所有单元格
作者&投稿:韩岭 (若有异议请与网页底部的电邮联系)
ActiveWorkbook.Sheets(i).Name
'如果结果放在 "汇总表"的A列
sub test()
for each sh in sheets
rw = 1 '从A1开始显示
if sh.name"汇总表" then
if f1(sh) then
sheets("汇总表").range("A" & rw) = sh.name
rw = rw +1
end if
end if
next
end sub
function f1(sh as worksheet) as boolean
on error goto l_end
a = sh.range("1:65536").find("中国人",lookin:=xlvalues,lookat:=xlpart)
f1=true
exit function
l_end:
f1 = false
end function
'执行 test 就可以了
Dim FindStrinG As String
Dim rng As Range
FindStrinG = InputBox("请输入要查找的值")
If Trim(FindStrinG) <> "" Then
With Sheets("Sheet1").Range("A:f")
Set rng = .Find(What:=FindStrinG, After:=.Cells(1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevio, MatchCase:=False)
If Not rng Is Nothing Then
Application.Goto rng, True
Else
MsgBox "Nothing found"
End If
End With
MsgBox "所在行号是:" & rng.Row & "所在列标是:" & rng.Column
End If
席冠贝复: 我是来看评论的
宝丰县17323686393: 运行VBA提示错误:应用程序定义或对象定义错误 - ?
席冠贝复: 在你的代码中 i 没有定义.看下面这一段 If n Mod 2 = 0 Then i = 1 + WorksheetFunction.RoundUp(n / 2, 0) + WorksheetFunction.RoundDown((m - 1) / 5, 0) * 4 j = m Mod 5 If j = 0 Then j = 5 End If End If Sheets("sheet5").Cells(m, n) = Sheets("...
宝丰县17323686393: EXCEL 同个工作薄如何批量超链接,即在目录表里点页码Sheet1、Sheet2、Sheet3,即可跳到相应的工作表 - ?
席冠贝复: 按ALT+F11,然后选你的工作表,把下面的代码粘贴进去,然后回到EXCEL中按ALT+F8,执行宏Content即可 Sub Content() '创建目录 ' Set NewSheet = Sheets.Add(before:=Sheets(1), Type:=xlWorksheet)NewSheet.Name = "Content"...
宝丰县17323686393: excel宏,如何将数百个工作簿的中指定数据汇总到一个新工作簿的新工作表.请高手指教 - ?
席冠贝复: Sub 合并选定工作簿的第一个工作表() '功能:合并某文件下所有Excel工作簿中的第一个工作表 '使用:将要合并的工作簿拷贝到某文件夹下,新建一个工作簿后执行该宏 Dim WBName As String '汇总工作簿名称 Dim WBCurrent As String '当...
宝丰县17323686393: Set a = Sheets("Sheet1").[G2]这一句放在哪里啊? - ?
席冠贝复: 看似VBA的语句,在模块中、form中、class,都可以
宝丰县17323686393: excel中怎样用变量代替工作表名称 - ?
席冠贝复: set s = sheets(i)或set s = sheets("sheet" & i)区别:前者是它的索引号(该工作表在当前工作簿中的排序,与工作表名称无关)后者是它的名称
宝丰县17323686393: Set myrange = Sheets("sheet2").Range("A3:A30").Find(what:=n) 如果没找到 那myrange里赋的什么值? - ?
席冠贝复: 如果没找到,那么myrange is nothing
宝丰县17323686393: 怎么给excel按目录顺序批量插入工作表?
席冠贝复: 假设有一个名为“目录”的工作表,在其A1:A10中有各个具体的目录名字. 按ALT+F11打开VBA窗口,插入一个模块,把下面代码复制进去. Sub 插入目录() Sheets("目录").Select Sheets(1).Select For i = 1 To 10 '根据10个目录生成10...
宝丰县17323686393: EXCEL用宏如何选择工作薄中的SHEET1中的D3单元格的内容做为文件名,并且只存SHEET1和SHEET2指定的工作表 - ?
席冠贝复: sub rename()for i =1 to sheets.countsheets(i).name=sheets(i).cells(3,4).valuenext i end sub上面是改所有工作表的.如果只改SHEET1 和SHEET2的 sub rename()sheets("sheet1").name=sheets("sheet1").cells(3,4).valuesheets("sheet2").name=sheets("sheet2").cells(3,4).value end sub
宝丰县17323686393: excel工作表排序 - ?
席冠贝复: 如果你是排工作表的内容,就按以下方法: 数据->排序->选择你要按哪栏去排->勾上"有标题行"->OK 如果你是排工作表的话,只能移动吧.