如何用EXCELVBA实现点Sheet1某个栏位的超级链接-小知识

话题：如何用EXCEL VBA 实现点Sheet1某个栏位的超级链接,然后

问题详情：如何用EXCEL VBA 实现点Sheet1某个栏位的超级链接,然后在第

回答：' 下面是你的第一个问题“将宏嵌套到超链接里促发”的 ' 在sheet1下点“查看 码”下,在sheet1内添加下面的 码: ' ****************************************************** Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) If ActiveCell.Count=1 And ActiveCell.Column=2 And Cells(ActiveCell.Row, 1).Value 0 And ActiveCell.Value 0 Then A=ActiveSheet.Cells(ActiveCell.Row, 1) Sheets(2).Select Sheets(2).Range("B1").Select Selection.AutoFilter Selection.AutoFilter Field:=2, Criteria1:=A End If End Sub ' ****************************************************** '下面是你的第二个问题“如何抓取鼠标点的栏位的坐标?

话题：EXCEL的VBA中,SHEETS的CELL和RANGE有什么 别?

问题详情：不太明白,求解。

回答：CELLS(y,x)是单个单元格对像,两个参数分别为行和列; Range()则是指一个 域, 域中可以是一个单元格,也可以是多个单元格。 VBA中常这样写:Range(cells(y1,x1),cells(y2,x2)).Select,就是指选中以cells(y1,x1)和cells(y2,x2)两单元格为对角线的一个 域。 ---------------- 赋值的话,如下几句都是赋值的, 别还是一样,Cells()是对一个单元格赋值,而Range()则可以对一个 域的所有单元格赋值: Range("A1:D10").FormulaR1C1="10" Range("A1:D10").Value=100 Range("A13").Value=1 Cells(13,1).FormulaR1C1="10" Cells(13,1).Value=100 说不上哪更好,要看你的需求,通常哪个随手就用哪个了。 --------------------

话题：用VBA提取U盘

回答：假设盘符为H,路径为H:\, 名为XFILE.xls。可以用下面的宏提取数据: (可将宏做成快捷方式放在工具栏,手工选定粘贴位置后,点击即可,运行时,原 在看不见的最小化窗口中 开, 粘贴完毕即被关闭,如果不想要窗口最小化和复原产生的闪烁效果,也可通过不可见窗体控件来 作原 ) m0="H:\XFILE.xls" md="H:\" mf="XFILE.xls" Application.WindowState=xlMinimized Workbooks.Open m ThisWorkbook.Activate Workbooks(mf).Sheets("Sheet1").Range("A1:E20").Copy ActiveCell Application.WindowState=xlNormal Workbooks(mf).Close False

话题：Excel中Sheet1A1单元每天都会生成一个内容,如何按日期自

问题详情：Excel中Sheet1A1单元每天都会生成一个内容,如何按日期自动保

回答：1. 可在SHEET2表A1单元格中输入公式:“=IF(DAY(NOW())=1,sheet1!$A$1,"")”,A2中输入“=IF(DAY(NOW())=2,sheet1!$A$1,"")”……依此类推。 优点:可自动保存当日数据。 缺点:只在对应位置上显示当天的结果。 2. 用VBA解决:在 簿中录制一个新宏,随便录一点即可,然后 ,将下面的内容 进去。 Sub ddd() Sheets("sheet1").Select Range("a1").Select a=ActiveCell.Cells Sheets("sheet2").Select d=Day(Now()) Range("a" & d).Select ActiveCell.FormulaR1C1=a End Sub 优点:可保存每 数据。 缺点:需要手动点运行宏。 3. 将此段 码放到thisworkbook中 Private Sub Workbook_Open()

话题：[求助]VBA

问题详情：[求助]VBA sheet1的 cell(i,2)中输入'=sheeti!E5'的 码?3X这一句

回答：Cells(i, 2)=Sheets("Sheet" & i).Range("E5")

话题：excel vba里如何指定特定表(如sheet2)里面的单元格如cell

问题详情：如 Dim i For i=1 To 4 textboxi.Value=cell("sheet1!" & i + 2 & "

回答：Sheets("sheet2").Select Dim i For i=1 To 4 textboxi.Value=cells(3,1).Value Next

参考回答：是cells(i+2,1) 不是cellsheets("sheet2").cells(i+2,1)

话题：我有一段VBA 码,依第1列的值,在其它SHEET按条件取

问题详情：的值,初设涉VBA,请帮忙查看 Sheet("按系列及 汇

回答：首先CELL(M, 2)=SLHZ应该放在循环体内,而不是next后面其次for和while用得逻辑混乱你可以for m=5 to Sheet("按系列及 汇总").usedrange.rows.count, 不需要while或者只用whilem=5while not isblank(cell(m,1)) do (..) m=m+1 loop

话题：vba里面

问题详情：为什么有的用cell有的有用cells

回答：cells和sheets都是对象名.是保留字段. cells(1,1) sheets(1)等sheet可以指属性但不是对象名,也可以自己 为变量名. workbooks.sheetcell什么都不是.最多用来定义为变量名.

参考回答：很简单呀,Cells 是指定范围内的单元格,可以包含1个或1个以上的单元格;Cell 是指定单元格,只包含1个单元格。Sheet 同理。

话题：VBA编程,Excel中对sheet1中B1

问题详情：VBA编程,Excel中对sheet1中B1-B2单元格求和之后,得到的数

回答：Set myrange=Worksheets("sheet1").Range("B1:B2")Worksheets("sheet2").Range("A2").Value=Application.WorksheetFunction.Sum(myrange)一般来说,将以上两句 入你需要的位置即可,如果是跨 簿的应用,例如你在BOOK2中,需要对BOO1的sheet2 作,则语句前还需要加上Workbook。如果需要进一步了解,在何种情况下执行以上语句,请继续话题。

参考回答：SHEETS(SHEET2).RANGE("A2").VALUE=得到的数值

话题：sheet1指定列A列中内容与sheet2A列中指定列的内容相同则

问题详情：需要VBA 码,求大神指点, 等啊!!!SHEET1中的内容

回答：其实,公式就可以标记出来,然后筛选和删除就可以了。一定要用VBA吗? Sheet1的找一个空白列作为辅助列,第2行粘贴公式并下拉:=COUNTIF(Sheet2!A:A,Sheet1!A2) 然后自动筛选,选择值为“1”的,选中这些行,删除。