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學習之路上具體應該如何做，下圖內容是值得參考的階段性指標和學習重點。

「拿來主義」很流行，也很有效，而且絕不丟人。所以，看懂別人的代碼，然後修改之，變為自己的代碼，這是一種能力。先啃小段的代碼，再研究完整的程序，逐步提高。

頂尖的編程高手通常都有自己的代碼庫，幾乎所有的新程序都是從代碼庫中調取所需的模塊修改後搭建而成的，而絕不是從頭一行一行寫出來的。高手們平時很重要的工作就是維護好自己的代碼庫。

當然，鼓勵「拿來主義」，可不是在教如何「抄襲軟體」。我們只能學習他人分享的代碼，或者是教材上的代碼。不可以打著學習的幌子，破解別人的軟體，而且還把作者寫成自己。