excelvba实例800,excelvba编程实例
关于VBA在EXCEL中的应用，求一实例
zhouziyan2001 ,离线解释：
Dim i As Long, j
'定义变量
For i = 1 To Sheet8.Range("a65536").End(xlUp).Row
'运算从Sheet8的第一行到第一列的最后一个有内容的单元格所在列.
'对后面内容,你可以查找END()的帮助来理解
Sheet3.Cells(i, 1).Formula = "=MATCH(Sheet8!A" i ",Sheet1!A:A,0)"
'本句为了节省代码,直接借用了EXCEL的公式来查找符合条件的单元格所在的行;
'函数MATCH就是查找函数.
'否则,要自己编写查找循环代码,由于VBA是解释执行,会导致效率很低,
'Formula就是把后面的公式写到该单元格中并运算.
j = Sheet3.Cells(i, 1): Sheet3.Cells(i, 1) = ""
'找到后将值(也就是查找到的行)传递给变量j,
If IsNumeric(j) Then
Sheet1.Cells.Rows(j).Cut
Sheet3.Rows(i).Insert
Sheet1.Cells.Rows(j).Delete
End If
'IF语句用来将该行复制,粘贴在SHEET3的相关行中,结束后将该行删除.
'如果在同一工作表中,该三行语句可简化为: Cells.Rows(j).Cut Rows(i)
Next i
'运行下一行
Excel的VBA应用实例——名字的列与名字的行对应上，里面内容保持不变
这种问题，就是用INDEX+MATCH常用解法。
表二B2输入：
=INDEX(Sheet1!$B$2:$K$11,MATCH($A2,Sheet1!$A$2:$A$11,0),MATCH(B$1,Sheet1!$B$1:$K$1,0))
右拉，下拉公式。
excel vba实例
sheet1建以下代码，使sheet1活动时其余表不可见。
Private Sub Worksheet_Activate()
For i = 2 To Sheets.Count
Sheets(i).Visible = 0
Next
End Sub
单元格连接不能实现你另外的要求。可用一些按钮打开其他sheet 。例：
Private Sub CommandButton1_Click()
Sheets(2).Visible = 1
Sheets(2).Select
End Sub
《ExcelVBA常用代码实战大全》pdf下载在线阅读，求百度网盘云资源
《Excel VBA常用代码实战大全》（袁竹平）电子书网盘下载免费在线阅读
资源链接：
链接：
提取码：h8h0
书名：Excel VBA常用代码实战大全
作者：袁竹平
豆瓣评分：7.6
出版年份：2010-7
页数：374
内容简介：《Excel VBA常用代码实战大全》重点强调实践性，旨在帮助Excel初学者和有一定ExcelVBA编程基础、希望进一步提高的读者掌握VBA编程设计的技巧。全书精选150个典型范例，近245个技巧，以实用为主，知识点针对性强，并逐层对代码辅以深入浅出地剖析，让读者通过范例的学习，快速将ExcelVBA编程应用到实际生活和工作中。
《Excel VBA常用代码实战大全》主要介绍VBA常用对象的应用技巧、控件及用户窗体的应用技巧、对话框的应用技巧、函数的应用技巧，使用VBA操作文件等技巧，最后介绍了制作员工花名册、收据打印系统、员工考勤系统三个综合实例。
《Excel VBA常用代码实战大全》内容丰富、图文并茂，适合初步掌握VBA的基本知识，但需要进一步提高编程能力的初学者，以及希望通过VBA提高工作效率的各类从业人员。也适合各大、中专院校相关专业师生和企业、相关单位的培训班学员阅读。
EXCEL函数和VBA学习资料
学习函数推荐excel自带帮助：
在右上角键入“函数”，点击“按类别列出的工作表函数”，看每个函数的使用方法
学习VBA推荐excel自带帮助：
需要有一定的编程语言基础（C、vb…都无所谓，会就行），先“录制宏”，看自动写的代码，遇到不明白的关键字，鼠标点在关键字的中间，按F1出现系统帮助，看每个关键字的用法
推荐网站：excelhome ， 百度文库
里面有好多现成的示例文件可以下载
Excel VBA中RefEdit的具体用法及实例
建一个窗体，窗体上建一个refedit控件、一个按钮，将下面代码粘贴到按钮的单击事件中：
Private
Sub
CommandButton1_Click()
str1
=
RefEdit1.Text
'鼠标选取单元格范围，获取引用字串
myrng
=
Right(str1,
Len(str1)
-
InStr(str1,
"!"))
Unload
Me
MsgBox
"选定范围"
Right(str1,
Len(str1)
-
InStr(str1,
"!"))
"数据总和为：
"
Application.WorksheetFunction.Sum(Range(myrng))
End
Sub
在表格中输入一些数字，此示例，通过refedit控件用鼠标在表格中选取范围，然后将选取范围的单元格引用字串传递给sum函数进行加总该范围的数据。