入門指南獻給在這里得到幫助但看不懂代碼朋友已建電梯

VBA入門—獻給在這里得到幫助但看不懂代碼的朋友（已建電梯VBA入門指 2、初識VBA(續(xù) 3、便于對“類”進行理解的只言片 此為EXCELHOME 先生在2009年年關不辭辛勞進行的教學成果在此全面摘錄下來,做成 以方便大家【2009.1.16】初識VBA【2009.1.17】初識VBA(續(xù))【2009.1.18】初識VBA(續(xù))【2009.1.19】代碼起步——關鍵字(續(xù))...(續(xù))...(續(xù))...(續(xù))...(續(xù))...(續(xù))...【2009.1.30】代碼起步——程序...【2009.1.31】代碼起步——程(續(xù))...【2009.2.1】代碼起步——程(續(xù))...1、【2009.1.16】初 今天，陽光明媚，清晨剛到，泡好香茗一杯，便開始構思，該如何組既然題目是初識VBA，那么 先給大家一個直觀的感受——VBA？，往往在一些EXCEL的 個，名字叫“控件工具箱”，從左往右屬第三個按鈕，名字叫“查看代到吧？最上面的幾行，和EXCEL以及每一個微軟平臺下的應用程序都一樣，總歸是2、初識VBA(續(xù))所謂OOP就是指ObjectOrientedProgramming,即面象的程序設計方法，這種程序設計思想主要是相對于以前的面向過程的程序設計方法而言的。下面出來的接近現(xiàn)實形態(tài)描述的對象思想?yún)s讓整個設計理論提升了一個新的層OOPOOP3、便于對“類”進行理解的只言片類是抽象的，不僅僅在程序中有，生活中到處都是你的衣服是按照春夏秋冬分門別類整理存放的，到超市購物，商品也是按各種大類，小類類就是分類、種類的類是人為的、按照一定的特性進行區(qū)分的一組對象（大白話就是“東西”）你我也都是一“類”生物類--》動物類--》人類--》會使用電腦的那一類人--》會用EXCEL的一類人--》上EH的一類人類還可以設計,創(chuàng)建，重復使用，這回不拿人說事了拿電腦吧電腦粗分一式機、筆記本。但是電腦都沒有點煙（就是汽車上的點煙器）這個功能，但是我需要這樣一個電腦，于是我就設想有這么一臺，并且做了簡單的設計圖紙。于是一個新類---點煙電腦就設計好了（這就等于在類模塊中寫代碼現(xiàn)在“點煙電腦”還只處于設計圖紙中，我要想使用就必須創(chuàng)建，我把圖紙交給廠家廠家按設計圖生產。這我才能使用（這就等于用NEW關鍵字實體化一個類朋友也想要一個點煙電腦，我就不用再直接叫廠家再生產一個就行了（整個過程當中設計圖紙這一步是關鍵（在類模塊中寫代碼整個Windows系統(tǒng)中有很多種“類”，用于實現(xiàn)各種功能。VBA可以直接調用。謝謝LDY老師的注釋歡迎的版主朋友自己的想法和見解?？斓搅?點才吃到。打開電腦，看到好多朋友都在關心這個帖子，而且好幾位朋友提覽器呢？大家通過這個工具可以搜索到和EXCEL以及VBA有關的各種各樣的軟的體系，VBA的幫助包括了兩個部分，一個是本地脫機幫助，也就是安裝完不斷更新并保持著的狀態(tài)。一些關鍵字。關鍵字，關鍵字就是那些在OFFICE里已經被定義好了條賦值語句“IF1”，這樣系統(tǒng)在編譯的時候就會提示一個錯誤，而不能通過對于如幫助呢！所以至今還未深入學習VBA。4、【2009.1.19】代碼起步——關鍵字 （Project對象（Object：可控制的某個東西，例如窗體和控件。（Form（Control（Property（Worksheet模塊（ModuleVBA（Sub（Function（Label（Textbox（ComanBttn（ListBox（ComboBox（OptionButtn（CheckBox【類關鍵字】 DimmyCellAsRangereDim：定義未顯式的數(shù)組的維數(shù)和元素； 常量數(shù)據(jù)；如：ConstlimitAsInteger=33As：一般用于數(shù)據(jù)類型中的“AsType”子句；Type： 字符串值；Object：對象類型；IF...ELSE...ENDIF：分支判斷選擇語句；DO...LOOPWHILE：FOR...NEXT：限定次數(shù)循環(huán)語句；GOTO...：4、【2009.1.20】代碼起步——關鍵字（續(xù)【框架類關工程（Project：是指用于創(chuàng)建一個應用程序的文件的集合。對象（Object可控制的某個東西，例如窗體和控件。窗體（Form：應用程序的用控件（Control：指的是各種按鈕、、文本框等屬性（Property：是指對象的特征，如大小、標題或顏工作表（WorksheetEXCEL文件里的工作表，例如sheet1、sheet2等。模塊（Module：指在VBA工程中存放獨立于用戶定義對象代碼的容器。過程（Sub：容納和組織代碼的限定符號，一般和EndSub聯(lián)用，不返回結果函數(shù)（Function限定符號，一般和EndFunction聯(lián)用并返回結果，到這些E文字母。我經常去看HELP里面的例子，然而那里面居然連變量和過程的名字都是很長的E文。沒辦法，誰叫人家微軟是公司呢（記得之前有過現(xiàn)在也不知去向 那么怎么樣才能記住這些又長又難記的單詞呢？不Project，VBA所關聯(lián)的代碼的總容器。所有和這個工作簿（XLS）關聯(lián)的代碼，都裝在這Form，窗體。你一般在Windows里運行的程序，都具備可視化的功能。那么這就是Form的功勞。通過FORM對象，你可以對這個工程里的一些窗體進行屬Worksheet，工作表。指EXCEL文件里的工作表，例如sheet1、sheet2等。通中都能使用，并且可以互相傳遞值。那么就應該將這些或代碼寫在模塊中。Sub，EndSub要明白一個概念，除語句外其他代碼都應該放在這兩種容器內。還記得上面講到的對象的和的例子嗎？剛講過，應該不會忘吧，否則應為就可以了，即：A.value=0。把上面所有的代碼都放在Sheet1的一個叫PrivateSubWorksheet_SelectionChange(ByValAsRange)'聲明一個Worksheet_SelectionChange事件的私有過程DimAAsRange'一個變量A，并制定為Range類SetA=Sheet1.Rows(1)'將A賦值為（）Sheet1工作表的第一A.SelectASelectEndSub1.rar(5.655、【2009.1.21】代碼起步——關鍵字（續(xù) （Label（Textbox（ComanBttn（ListBox（ComboBox（ptionutton（CheckBox給它一個名字叫“”，E文叫“Label”。從我們上面描述的文字可以總結第二個控件叫做“文本框”，E文叫做“Textbox”。這個控件和有點第三個控件叫命令按鈕，E文叫“CommandButton”。這個控件的作用不用第四個控件叫列表框，E“ListBox”。這個控件的外觀，像一張一維（）單擊“控件工箱”中的某一個控件按鈕然后在SHEET表上就可以按住左鍵拖動鼠標勾畫 點了這個按鈕就最后，結合一個實例講講常見控件的常見屬性和事件（實例：2.rar(9.07KB)出設計模式。這時候，在A1單元格輸入一個值后，只要按一下命令按鈕，在文本框中就會出現(xiàn)A1單元格的值。6、【2009.1.22】代碼起步——關鍵字（續(xù) 繼續(xù)聊關鍵字的話題。今天要講的是類關鍵字。先列示如下：【類關鍵字】 DimmyCellAsRangereDim：定義未顯式Const：常量數(shù)據(jù)；如：ConstlimitAsInteger=33As：一般用于數(shù)據(jù)類型中的“AsType”子句；Type：上的“部件”，如果鼻子長到了眼睛的上面，那就不屬于正常的人了。VBA代碼的還是開發(fā)自定義的過程、函數(shù)或模塊，使用前都必須。也就是告分兩種，一種是顯式，也就是將部分代碼明確的寫出來。另一種是非顯 量或常數(shù)時，也同時定義了它的作用范圍，而此范圍是取決于位置以及用什么關鍵字來它。這就是我要講的第二個問題。先說的位置，如果你在某定被對象的作用范圍。比如，如果你在一個自定義模塊中，采用PUBLIC這OptionPrivateModule的模塊的任何過程中都是可用的（若該模塊使用了OptionPrivateModule，則該變量只是在其所屬工程中是公用的)。而采用量，也可以在過程級別中的變量；前者的變量對該模塊中的所有過程都是可用的，而后者則只在過程內是可用的。STATIC關鍵字是用來靜態(tài)類型變量的，這是什么意思呢？舉個例子你就清楚了，一般的過程級別變量，在另外一種變量，雖然也是在過程級別中被的，但在該過程運行，該變量就叫做靜態(tài)變量。靜態(tài)變量只能在過程級別中使用，用于變量并分配存儲空間。在整個代碼運行期間都能保留使用Static語句的變量的值，并且程級別的代碼中被，因此其作用范圍只是局限于其所在的過程。今天的內容可能比較枯燥，但絕對重要。正確理解類關鍵字的用法，7、【2009.1.27】代碼起步——關鍵字(續(xù))然免不了應酬一番。喝了點小酒，一下午頭都昏昏的。到此時日落，方突然Byte：字節(jié)類型；Integer：整Long：長整String：字符串類型；Boolean：邏Single：單精度Double：雙精度類Currency：貨幣數(shù)值類型；Decimal：可以容納小數(shù)的數(shù)值類型；Variant：任何數(shù)字值或字符串值；Object：對明一個常量名字叫“Name”，我們在可以在的時候直接賦予這個常量一個值Name字更便于閱讀和代碼。二是如果以后需要修改程序，需要將程序中使用到“張三”的地方都改成“”，那么如果用一個常量的這種方式的話，就Name二維數(shù)組（有兩個下標）和數(shù)組（有多于2個下標。除了普通變量能采用率，不過會占用的內存資源，因此是一種空間換時間的方法。文字符、圖形、動畫、、音頻等。這些數(shù)據(jù)在計算機中都被翻譯為2進制來保存。比如數(shù)字，分為整形、浮點型、單精度、雙精度、長整形等，按照2的N次冪；對應不同類別變量的取值范圍是存在不同的。BYTE1一塊特定內存區(qū)域的名稱，我們通過這個名稱（即變量名）來使用這塊系統(tǒng)8、【2009.1.28】代碼起步——關鍵字（續(xù)過我，為什么我寫的條件會報錯。那么他們是如何寫這些條件的呢？"x>1or用逗號分開，因此在EXCEL的公式中，如果用到多個條件之間的關系，就應該采用函數(shù)形式而不是運算符的形式，例如and(條件一，條件二)。1；如果數(shù)據(jù)在運算符后面意思是數(shù)據(jù)先進行加減運算然后返回運算1？2：3”1結果返回；如果表達式1不成立，則對表達式3求值，并將該值作為整個表達式運算，并返回1個或多個值。輯運算符主要有“not、and、or、xor”等。XOR9、【2009.1.29】代碼起步——關鍵字（續(xù)IF...ELSE...ENDIF：分支判斷選擇語句；DOWHILE...LOOP：DO...LOOPWHILE：先執(zhí)行后判斷循環(huán)語句；FOR...NEXT：限定次數(shù)循環(huán)語句；GOTO...：支判斷選擇語句，對本結構代碼加以控制執(zhí)行。例如，“IF...ELSE...ENDIF”，這條語句以“IF”開始，至“ENDIF”結束，其中在IF所在行書寫判斷的條件“ELSE”和“ENDIF”之間書寫條件表達式為“假”時執(zhí)行的代碼。實例如下：IF條件THENENDIFIF”（即條件成立，那么就執(zhí)行語句1，然后結束該IF結構去執(zhí)行ENDIF后面的代碼；如果該值為“假”（即條件不成立2，IFENDIF呢？可以通過在IF語句中嵌套IF語句來實現(xiàn)多條件判斷執(zhí)行的效實例如下：IF條件1THENIF2ENDIFENDSELECTCASECASE語句12CASEELSE3ENDDOWHILE...LOOP：先判斷后執(zhí)行循環(huán)語句；DO...LOOPWHILE：先執(zhí)行后判斷循環(huán)語句；DOWHILE環(huán)體的語句1和2。LOOPWHILE決定是否再次回到DO語句繼續(xù)執(zhí)行循環(huán)體內的語句。FOR=1TONSTEP這里通過每次循環(huán)后控制變量的自動增加步長值，然后與最大值N比較，來句可以方便編程在無法確知轉移條件和難于控制時將程序執(zhí)行順序強制轉此必須加上必要的注釋，并盡量少用，以避免今后程序理解和的。至此，我們已經將VBA代碼中常見的關鍵字都一一講解完畢了，想必大家今后在看到程序中的那些E文的時候也大致能知道這個屬于什么類型的關鍵字、在這個是我們這個接下來的章節(jié)需要完成的任務，敬請期待《VBA入門指南——代碼起步之程序》篇10、【2009.1.30】代碼起步——程今夜鞭依舊，濃睡不消殘酒。坐在自己的，那感覺真是舒服啊~~先用今天的時間給大家介紹下如何培養(yǎng)良好的代碼書寫以及VBA編輯Publica(10)asSubFori=1to10Ifa(i)<0thena(i)=-a(i)EndIfPublica(10)asDimiasIntegerFori=1to10Ifa(i)<0a(i)=-a(i)EndIfEnd看出來了嗎？為第二段呢？其實這里至少有3個地方可以體現(xiàn)一種（標準 （調試 11、【2009.1.31】代碼起步——程序（續(xù)程序如下：例2.rar(5.98PrivateSubWorksheet_SelectionChange(ByValAsRange)If(.Column<>1)ThenCells(.Row,1).SelectEndIfEnd右邊的是“SelectionChange”，這表示當前的代碼寫在Worksheet工作簿的Sheet1SelectionChangeA1B1事件還帶了一個參數(shù)，名字叫“”，這個參數(shù)的類型是Range，即單元格IF1（A，如果SHEET1就通過“Select”方法使由行序號和列序號兩個參數(shù)指定的單元格集合中的這上述思路執(zhí)行到“Cells(.Row,1).Select”語句執(zhí)行完畢后，突然又從許通過這個簡單的例子并不能讓你完全明白VBA的代碼如何寫，但應該能讓你被VBA所吸引，從而期待接下來更為的深入講解內容吧~12、【2009.2.1】代碼起步——程序（續(xù)是哪個學生的成績。今天我們繼續(xù)在昨天的EXCEL文件的基礎上，實現(xiàn)一個新的功一個框顯示出來。EXCEL文件如下：例3.rar(7.52PrivateSubWorksheet_SelectionChange(ByValAsRange)If(.Column<>1)ThenCells(.Row,MsgBox"："&Me.Cells(.Row,1)&Chr(13)_&"語文："&Me.Cells(.Row,2)&Chr(13)_&"數(shù)學："&Me.Cells(.Row,3)&Chr(13)_&"英語："&Me.Cells(.Row,4)&Chr(13)_&"物理："&Me.Cells(.Row,5)&Chr(13)_&"化學："&Me.Cells(.Row,6)&Chr(13)_&"地理："&Me.Cells(.Row,7)&Chr(13)_&"歷史："&Me.Cells(.Row,8)&Chr(13)_&"生物："&Me.Cells(.Row,9)&Chr(13)_&"體育："&Me.Cells(.Row,10)&Chr(13)_&"總分："&Me.Cells(.Row,11)&Chr(13)_vbOKOnly,EndIfEnd一個消息框，這個語句帶有三個參數(shù)，各個參數(shù)之間都用逗號分隔。不是在上一講中提到了VBA識別判斷是否是一條語句就憑借換行符嗎？那么像太長，如果在一行寫可能會導致格式且不容易閱讀和理解，所以我們就使用“Me.Cells(.Row,1).Value”，即這里返回的是指定單元格內的值，為列標題的部分在框中占據(jù)一行的位置。13、【2009.2.2】代碼起步——程序（續(xù) 工作表在EXCEL里是一個獨立的對象（還記得啥叫對象嗎？），名字叫形排列。盡管在Excel的對象模型中包括了100多個對象，但你會發(fā)現(xiàn)最常用到時最先了解到的其中一點就是，Workbook中包括Worksheet。Worksheet是WorkbookWorksheetWorksheet（CellExcelExcel的圖表功能，所以你經常需要處理圖表（Chart）對象。用“圖表向導”創(chuàng)建圖表時所做的一切都可以通過VBA代碼做到。這三張工作表的時候就采用集合的方法來寫代碼，即14、【2009.2.3】代碼起步——程序（續(xù)VBA代碼呢？這是我這幾天一直~我們面2課講解了如何讓VBA代碼從EXCEL工作表中取到單元格的數(shù)據(jù)天實例文件如下：例4.rar(10.99 ，用是。當然這個名稱是由我們隨便起的，只要有意義就可以了。第二個AutosizeFalse，這個屬性表文字來條件，F(xiàn)alse表示不自動調節(jié)，True表示自動調節(jié)，這里我們設置為True（一會就能看到變化了Caption是設置按鈕上顯示的文字內容，有的也把它叫做按鈕的名稱，我覺得會跟之單擊按鈕是不會觸發(fā)按鈕的Click）下面，我們在L1單元格輸入“等級”兩個字，表示根據(jù)前面K列的按平均分的范圍來定的，平均分在0到60分（不含）為“不及格”，60分到75秀”。如果我們是手工完成任務，那么我們只要按照上面的標準，看看KPrivateSubCmd_pj_Click()'按鈕單擊事件代DimiAsInteger'一個變量，名稱為I，類型為整形，作用為循環(huán)控制Dimtmp_TotalAsSingle'一個變量，名稱為tmp_Total，類型為單精度Sheet1.Range("K2").Select'選中K2Fori2ToSheet1.Range("K:K").End(xlDown).Row環(huán)條件是從第2K列最后一個有數(shù)值的行tmp_TotalSheet1.Cells(i,11).ValueL（總分賦值給變量tmp_TotalSelectCasetmp_Total'開始一個分支選擇判斷語句Case0To539.990540Sheet1.Cells(i,12).Value="不及格"'該條件下設置為“不及格”Case540To674.99540675Sheet1.Cells(i,12).Value="及格"'該條件下設置為“及格”Case675To764.99'675765Sheet1.Cells(i,12).Value="良好"'該條件下設置為“良好”Sheet1.Cells(i,12).Value="優(yōu)秀"'該條件下設置為“優(yōu)秀”CaseElse'除上述條件外的其他取值情況EndSelect'Select分支選擇判斷結束語句End我們回到熟悉的EXCEL窗口，點下“”按鈕試試，咦？怎么沒反應？呵呵，還15、【2009.2.4】代碼起步——程序（續(xù)PrivateSubCmd_pj_Click()'按鈕單擊事件代DimiAsInteger'一個變量，名稱為I，類型為整形，作用為循環(huán)控制量Dimtmp_TotalAsSingle'一個變量，名稱為tmp_Total，類型為單精Sheet1.Range("K2").SelectK2Fori2ToSheet1.Range("K:K").End(xlDown).RowSelectCasetmp_TotalCase0To539.990540Sheet1.Cells(i,12).ValueCase540To674.99540675Sheet1.Cells(i,12).Value="及格"'該條件下設置為“及格”Case675To764.99675765Sheet1.Cells(i,12).Value="良好"'該條件下設置為“良好”Sheet1.Cells(i,12).Value="優(yōu)秀"'該條件下設置為“優(yōu)秀”CaseElse'除上述條件外的其他取值情況EndSelect'Select分支選擇判斷結束語句End等。這些事件大家有，可以自行添加代碼并實驗。是對象？哪個是集合？哪個是屬性？哪個是參數(shù)？檢測是否真正掌握的最好辦在循環(huán)結構，第一句是一個賦值語句，通過一個變量，保存第I行第L天我們就要繼續(xù)前進了，一個新的任務等著我們呢【問題1】希望通過range(某列).end(xldown).value獲得某列向下最后一個非空白單元格的值，試了下發(fā)現(xiàn)如果該列中有空白單元格，則獲得的是該空白單元格上面的那個值【答】是這樣的【問題2】那如果要避免這種情況，又該如何修改呢？【答】2種思路，一個是可以通過代碼去掉空格，一個是通過其他代碼實現(xiàn)該表達式的另外幫助里對range.end()的示本示例選定包含單元格B4的區(qū)域中B列頂端的單元格。VisualBasicforApplications本示例選定包含單元格B4的區(qū)域中第4行尾端的單元格。VisualBasicforApplications本示例將選定區(qū)域從單元格B4延伸至第四行最后一個包含數(shù)據(jù)的單元格VisualBasicforApplicationsRange("B4",【問題3】那么他這里尾端又是【答】尾端就是你第一個問題里說的情況，到所指方向的第一個空格的前一個單元格，這個【問題4】最后個例子里區(qū)別上面尾端的地方是在于Worksheets("Sheet1").Activate2B4（從B4向右遇到的第一個空值單元格的前一個單元格；后一個選定的是從B4開始一直向右到那一行的尾端單元格，選中的不是一個單元格，而是一行中的一部分單元格。見下圖實例：下一個實例效果Worksheets("Sheet1").Activate的意SHEET1當前工作表；Range("B4",Range("B4").End(xlToRight)).Select這句話意思是選中從B4開始一直不知道您明白了沒有代碼如何能寫入新EXCELB表？ubAuto_Open()Dimfs,d,Setfs=CreateObject("Scripting.FileSystemObject")Setd=s=d.serialnumber Ifs1111111111ThenExitSub要使用的電腦磁盤序列號DimDate,de,daysDate=Datede=GetSetting("XXX","YYY","date","")'從表取IfdeThen'如果取不到值SaveSetting"XXX","YYY","date",Date'把日期保存到MsgBox"本文件可使用60天，今1,"提示days=Date-CDate(de)'計算文件使用的天數(shù)Ifdays>60 '如果文件使用超過60ThisWorkbook.ChangeFileAccessxlReadOnly'改為只讀屬性KillThisWorkbook.FullName'ThisWorkbook.CloseFalse'關閉不保存EndIf提示EndSub:原帖yd02092009-2-5代碼如何能寫入新EXCELB:原帖yd02092009-2-5代碼如何能寫入新EXCELBubAuto_Open()Dimfs,d,sSetfs=Setd=fs.GetDrive(fs.GetDriveName(fs.GetAbsoluteP16、【2009.2.6】代碼起步——程序（續(xù)發(fā)帖的問題。實例如下：批量數(shù)據(jù)處理.rar(25.07KB)那么具體要進行什么樣的數(shù)據(jù)處理呢？根據(jù)要題目給出了從A1到AF30單元格區(qū)域的大量數(shù)據(jù)，共計960個數(shù)據(jù)。要求對這些數(shù)據(jù)進行分類，將出現(xiàn)次數(shù)依123的數(shù)據(jù)放在同一列中歸類，并統(tǒng)計每一類的數(shù)據(jù)個這個題目看似比其實有很多方法可以VBA的解決方案，可A1AF30A1AF30PrivateSubCommandButton1_Click()Dimi,j,p,q,x,y,uAsIntegerDimtmpaddrAsStringp=q=x=y=w=Range("A34",Fori=1ToSheet2.Range("a1","af30").Cells.Counttmpaddr=Sheet2.Range("a1","af30").Cells(i).AddressSelectCasejCasep=p+1Range("g34").Value=CStr(p-34)Case2:Foru=34Toq-IfSheet2.Range("B"&CStr(u)).Value=Sheet2.Range(tmpaddr).ValueThenEndIf

q=q+1Range("h34").Value=CStr(q-CaseForu=34Tox-IfSheet2.Range("C"&CStr(u)).Value=Sheet2.Range(tmpaddr).ValueThenEndIf

x=x+1Range("i34").Value=CStr(x-CaseIs>Foru=34Toy-IfSheet2.Range("D"&CStr(u)).Value=Sheet2.Range(tmpaddr).ValueThenEndIf

y=y+1Range("j34").Value=CStr(y- Case w=w+ Range("k34").Value=CStr(w)EndSelectPrivateFunctionCountIf(ByValtmpRAsRange,ByValtmpNAsString)AsDima,b,cAsIntegerb=0Fora=1ToIftmpR.Cells(a).Value=tmpNThenb=b+1EndCountIf=bEnd17、【2009.2.7】代碼起步——程序（續(xù)自2月4日立春以后，這個天氣是一天熱過一天了，今天早晨醒來居然我們今天的代碼中，分了兩個過程。分別是：CommandButton1_Click和FunctionCountIf，CommandButton1是這里的FUNCTION，它與過程的區(qū)別是過程一般不返回結果，而函數(shù)需要返回結果。看看這兩個：PrivateSubCommandButton1_Click()和PrivateFunctionCountIf(ByValtmpRAsRange,ByValtmpNAsString)AsInteger返回類型被為Integer類型？！ 句，“Dimi,j,p,q,x,y,uAsInteger”和“DimtmpaddrAsString”?！皅=34”、“x=34”、“y=34”、“w=0”，細心的朋友會發(fā)現(xiàn)，怎么這里出現(xiàn)了一個未的變量