VBA指标

㈠ 如图，求教一个vba,能够批量删除统计表中没有数值的行，不是用筛选，因为有的表指标很多，筛选很麻烦

给你教个办法,插入一个自选图形，矩形，把以下代码添加作为图形的宏，然后把表格名称改为A,
Sub 删除()
Dim xe As Integer
xe = Worksheets("A").Range("C65536").End(xlUp).Row
For i = 3 To xe
If Worksheets("A").Cells(i, 3).Value = "" And Worksheets("A").Cells(i, 4).Value = "" And Worksheets("A").Cells(i, 5).Value = "" And Worksheets("A").Cells(i, 6).Value = "" Then
Worksheets("A").Rows(i).Delete
End If
Next i
End Sub

㈡ 在Excel VBA中，单元格的.interior.color的值是什么格式的

是十进制数格式，查询interior．color的值。

1．参考下表可以查询某一种颜色的颜色指标值。

㈢ 如何用VB代码计算MACD指标

如果你不用vba，是怎么计算呢？

㈣ 求PPT里VBA判断的一个程序句，请高手指点

请大家将部分程序代码注释，供入门新手学习[接龙…]Long_III兄在ExcelHome开了个帖子--部分程序代码注释，供入门新手学习，反应热烈。
[url=http://club.excelhome.net/dispbbs.asp?boardID=2&ID=114226&page=2][color=red]ExcelHome接龙帖子链接[/color][/url]
本着见贤思齐的心情，在此也开此一帖子，热心的网友请将您认为对新手有帮助的程序做个详细的注释，帮助大家学习。
请大家对此帖子勿灌水，将您的鼓励使用评分表达或将赞美直接发短消息给作者。

坏坏aurora开个头
[code]Sub test()
Dim Srng As Range
Dim pt As Range

With ActiveSheet
‘取得资料范围
‘建立表格时最好在四周都留一个空格.这样就不必这么麻烦了
‘只要用currentregion属性即可
Set Srng = Application.Intersect(.Range("b3").CurrentRegion, .Range("b3:iv65536"))
‘自动筛选第一个字段不为空者
‘请注意”<>”是不为空，”=”是空白，” “是ALL喔
Srng.AutoFilter Field:=1, Criteria1:="<>"
End With
‘将指标设为B列最底下第一个空白位置
Set pt = Sheet4.Range("b65536").End(xlUp).Offset(1, 0)
‘将筛选后的数据复制到上面只到的位置
‘没想到吧！筛选后复制不会复制到隐藏的纪录
Srng.Copy pt
‘取消自动筛选
Srng.AutoFilter
‘将标题行删除
pt.EntireRow.Delete
Set Srng = Sheet4.Range("b4").CurrentRegion
With Sheet3
‘进阶筛选若将数据转写到新工作表则要从目标工作表开始
‘所以activate temp工作表
.Activate
‘先清除资料
.Cells.Clear
‘不重复筛选转写
Srng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("A1"), Unique:=True
‘入库单原资料清除
Srng.Clear
‘将筛选数据复制回入库单工作表…..成功!!
.Range("a1").CurrentRegion.Copy Srng.Cells(1)
End With
End Sub[/code]
[[i] Last edited by aurora on 2005-9-6 at 08:44 [/i]]

㈤ excel里怎么用VLOOKUP函数取同时满足两个条件的值！

需要用到数组公式

用下面的举例来说明：

1. 这里有两个条件，后面对应第三列唯一的数据：
   

数据表：IF({1,0},$A$2:$A$9&$B$2:$B$9,$C$2:$C$9)表示需要查找的数据，这里面嵌套使用了IF函数，然后以IF({1,0},这样的数组参数。

参数为数组时，会分别进行计算。先用1作为参数判断，返回$A$2:$A$9&$B$2:$B$9；然后用0作为参数判断，又返回一个结果$C$2:$C$9。两个结果重新组合一个数组：$A$2:$A$9&$B$2:$B$9在第一列，$C$2:$C$9在第二列，其中"$"是绝对引用。

这样Vlookup便能查找到两个条件。

列序数：需要查找的数据位于第二列，所以输入2。

匹配条件：精确匹配。

㈥ vba与vbs

Sub exceldata2fmldata()
'将EXCEL工作表数据写入FMLDATA文件
Dim sht, fmldataPath, fileName

Dim i, FileNumber
Dim dzhrq, value 'DZH时间,指标值(VBA的Long,Single为32位)
Dim dt,fso
Dim xlApp
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False '不显示对话框
Set xlBook = xlApp.Workbooks.Open("c:\1.xls")
Set sht = xlBook.Worksheets("Sheet1") '假设要写入的数据在sheet1
fmldataPath = "d:\dzh2\fmldata\" 'FMLDATA所在路径
fileName = "000001.12345.day" '文件名
set fso=wscript.createobject("Scripting.FileSystemObject")
if fso.fileexists(filename) then kill filaname
fso.CreateTextFile fileName
fso.type=1 '数据流类型设为字节'
fso.open
fso.loadfromfile filename '打开文件'
fso.position=0 '设置文件指针初始位置'
i = 2 '设数据从第二行开始;第1列为日期，第2列为指标值
dt = sht.Cells(i, 1) '取出日期
Do While IsDate(dt) And dt <> TimeSerial(0, 0, 0)
dzhrq = DateDiff("s", DateSerial(1970, 1, 1), dt) '转为DZH日期：与1970.1.1间隔秒数
fso.write dzhrq '写入数据'
value = sht.Cells(i, 2) '取出指标值
fso.write value
i = i + 1
dt = sht.Cells(i, 1) '取出日期
Loop
fso.savetofile filename,2 '覆盖保存'
fso.close '关闭文件
xlBook.Close (True) '关闭工作簿 这里的True表示退出时保存修改
xlApp.quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub

㈦ 求教vba高手！！

分太少了，不可能每个题都给你写，写几个

Sub第1题()
Dimn%,x%
n=Application.InputBox("请输入N值:",,,,,,,1)
Ifn=FalseThenExitSub
Forx=1Ton
IfxMod2=1Then
sum=sum+1/x
Else
sum=sum-1/x
EndIf
Next
Cells(2,1)=sum
EndSub

Sub第4题()
Forx=1To5
Cells(1,x)=Int(Rnd*101)
Next
ForEachRngInRange("A1:E1")
IfRng.ValueMod5=0Then
sum=sum+Rng.Value
Rng.Interior.ColorIndex=3
EndIf
Next
MsgBox"随机数是5的倍数的和为:"&sum
EndSub

Sub第5题()
Dimx,y,z
Forx=1To125
Fory=1To166
Ifx=4Andy=148ThenStop
Forz=3To200-x-yStep3
Ifx*8+y*6+z/3*5=1000Andx+y+z=200Then
Debug.Printx;y;z
EndIf
Nextz,y,x
EndSub

Sub第6题()
Dimx
Forx=100To8000
IfxMod24=0Then
n=n+1
Cells(n,1)=x
EndIf
Next
EndSub

㈧ Call vba_start VBA显示子程序或函数未定义，代码如下，请问哪里出了问题了，VBA小白求解答，谢谢。

Call vba_start 是指执行 vba_start 这个程序
vba_start 是另外一个 Sub过程
你要贴的 是 vba_start 这个程序的代码
如果没有，就要 添加

㈨ E5071C的主要技术指标

频率范围：300 kHz至8.5GHz
在测试端口处保持125 dB动态范围（典型值）
宽动态范围：在测试端口上的动态范围> 123 dB（典型值）
极快的测量速度：39 ms（进行完全双端口校准，扫描1601点时）
低迹线噪声：0.004 dB rms（70 kHz IFBW时）
集成的2和4端口，带有平衡测量能力
提供频率选件：从9 kHz/100 kHz（带有偏置T型接头）到4.5 GHz/8.5 GHz
扫描速度：9.6微秒/点
迹线噪声：0.001 dB rms
集成的2、3和4端口，带有平衡测量能力
夹具嵌入/反嵌和端口特性阻抗转换
用于变频设备的频率偏置模式
内置Visual Basic . for Applications（VBA）
测量向导助手软件 宽动态范围：测试端口上的动态范围 > 123 dB（典型值）
极快的测量速度：41 ms，进行全双端口校准，扫描 1601 点时
极低的迹线噪声：0.004 dB rms，70 kHz IFBW 时 内置 Visual Basic for Applications（VBA）
强大的分析和误差校正功能
随时升级所有可用的 ENA 选件 E5071C—240 双端口测试仪 9KHz-4.5GHz 不带偏置T型接头
E5071C—245 双端口测试仪 100KHz-4.5GHz 带偏置T型接头
E5071C—440 4端口测试仪 9KHz-4.5GHz 不带偏置T型接头
E5071C—445 4端口测试仪 100KHz-4.5GHz 带偏置T型接头
E5071C—280 双端口测试仪 9KHz-8.5GHz 不带偏置T型接头
E5071C—285 双端口测试仪 100KHz-8.5GHz 带偏置T型接头
E5071C—480 4端口测试仪 9KHz-8.5GHz 不带偏置T型接头
E5071C—485 4端口测试仪 100KHz-8.5GHz 带偏置T型接头
E5071C—008 频率偏置模式
E5071C—010 时域分析能力
E5071C—790 测量向导助手软件
E5071C—1E5 高稳定度时基

㈩ Excel VBA 如何快速学习

如果已经掌握了Excel VBA的基本概念和简单语法，需要快速提高技术水平，以便可以早日完成各种简化工作的小程序，甚至能够编制功能强大的报表系统，可以从以下方面来看。

要对Sheet1的A1:A100单元格区域进行汇总，按<Alt+=>组合键就可以了，手快只需要0.1秒。如果每天要对1000个工作簿的Sheet1的A1:A100单元格区域进行汇总，那么只会自动求和的绝顶高手就想跳楼了。可是对于学习过VBA的人来说，几行代码就可以解决问题。

在信息时代，技能学习信息只有过剩没有限制。即对于多数学科、技能，只要你想学习，教材是永远不缺的，老师也非常容易找。以前都是“收徒弟”，现在基本上是“收师傅”了。

想学有所成，时间和精力是必需的，从古至今皆如此。当然，很期待有一天可以像《骇客帝国》里那样学习技能——直接下载到大脑里就行了。

首先，教材虽多，却有良莠之分，有适合之分，选择适合自己的优秀教材，那么就能快人一步。其次，注重学习方法，循序渐进，将有限的学习时间投入到最有价值的学习环节中，学习过程中少走弯路，那么又能快人一步。有了这两个基础，再辅以必要的学习时间，那么必能事半功倍，获得“快速提高”了。

谈到循序渐进，在Excel VBA学习之路上具体应该如何做，下图内容是值得参考的阶段性指标和学习重点。

“拿来主义”很流行，也很有效，而且绝不丢人。所以，看懂别人的代码，然后修改之，变为自己的代码，这是一种能力。先啃小段的代码，再研究完整的程序，逐步提高。

顶尖的编程高手通常都有自己的代码库，几乎所有的新程序都是从代码库中调取所需的模块修改后搭建而成的，而绝不是从头一行一行写出来的。高手们平时很重要的工作就是维护好自己的代码库。

当然，鼓励“拿来主义”，可不是在教如何“抄袭软件”。我们只能学习他人分享的代码，或者是教材上的代码。不可以打着学习的幌子，破解别人的软件，而且还把作者写成自己。