EXCEL數據檢索
excel有強大的數據處理功能,但它的“查找”功能有些單一,不能將查找到的數據提出到一個新表中,也就無法滿足一些用户的需要了。尤其是在平時積累了好多數據,當有一天,我們想從中查找一些感興趣的數據並導出時,卻發現EXCEL的自帶“查找”功能滿足不了我們的要求,那就試試下面的方法吧。
這個方法可以把檢索到的數據提取出來到一個新表中,而且只要輸入前一位或前幾位就可以檢索。
下面以“電話交費記錄”為例做一個示範表格。
步驟/方法
(01)第一步,準備數據表一共需要兩個工作表,有原始數據的工作表起名為“1”,檢索用的表起名為“2”。
(02)從格式上説,這兩個表是相同的,所不同的只是在第一行。提示:原始數據表格的內容不一定和本例完全一樣,只要檢索表與原始數據表的格式一樣就行了。表格做好後,就可以編輯VBA代碼了。
(03)第二步,製做VBA代碼選中“2”表,在下面標籤名上點鼠標右鍵,選“查看代碼”,調出這個表2的VBA窗口把代碼粘貼進去
(04)代碼如下:Dim aa As String x27;字符型Private Sub Worksheet_SelectionChange(ByVal Target As Range)enUpdating = False '禁止屏幕更新b = [c65536](xlUp)f b < 3 Then b = 3Sheets("2")e(Cells(3, 1), Cells(b, 11))rContents '先清除查詢區域s = Sheets("1")e("j1") '數量(使用COUNTA確定數據記錄行數)aa = Range("b1") '要查詢的號碼(完整或前幾位)x1 = 3 '從第三行開始For x = 3 To s + 3n = Len(aa)w = Sheets("1")s(x, 3) '從表1中取一個C列號碼賦值給變量wIf Len(w) >= n And Left(w, n) = aa Then '判斷這個號碼是否與要檢索的相符For j = 1 To 10Cells(x1, j) = Sheets("1")s(x, j) '將相符號碼的相關內容提取出來Next jx1 = x1 + 1End IfNextRange("b1")enUpdating = True '允許屏幕更新End Sub在代碼中已經做了註釋,有VBA基礎的朋友很容易理解。
(05)第三步,完成驗收最後就可以檢驗效果了,在表2的B1單元格中輸入“860”回車後,就把所有前三個數字相符的電話號碼檢索出來了。同樣,在B1格中輸入數字“8”,就能把所有第一位是8的電話號碼檢索出來。
(06)這個示例表格完成了一個簡單的檢索,為了介紹方便,只做了對一列數據的檢索,有興趣的朋友可以在此基礎上增加多列檢索,實用性就更強了。
-
camtasia studio 漢化版安裝方法
CamtasiaStudio是一款屏幕錄像和編輯的軟件套裝。軟件提供了強大的屏幕錄像(CamtasiaRecorder)、視頻的剪輯和編輯(CamtasiStudio)、視頻菜單製作(CamtasiaMenuMaker)、視頻劇場(CamtasiTheater)和視頻播放功能(CamtasiaPlayer)等。使用本套裝軟件,用户可以方便地進行屏幕...
-
怎麼用電腦掃描或識別二維碼?
操作方法(01)先把二維碼保存到電腦上,然後打開一個二維碼解碼器,網上搜一下會很多。我們通過上載二維碼來掃描,不過這是要聯網操作的。(02)選擇好要掃描的二維碼,點擊打開,然後等待解碼,解碼完成我們就獲得了內容了,內容可以複製下來,比如網址可以複製下來到瀏覽器去訪問。...
-
如何將CorelDraw文件轉為jpg圖片
CorelDraw保存的源文件是CDR格式,將文件轉為jpg格式的圖片。操作方法(01)準備好CorelDraw文件(02)然後打開CorelDraw軟件進入界面,選擇菜單欄中的-文件-打開,(03)找到準備好的cdr文件,將文件置入到文檔中(04)當導出時,點擊菜單欄中的-文件-導出(05)在保存類型中找到jpg格式,點...
-
QQ瀏覽器如何安裝應用插件
QQ瀏覽器如何安裝應用插件,瀏覽器的應用插件的安裝對我們來説是非常方便的。下面以安裝護眼導航應用為例,介紹如何安裝瀏覽器應用插件。操作方法(01)打開QQ瀏覽器,點擊右上角的“”+“”如圖所示(02)進入了安裝應用的首頁,如圖所示(03)比如安裝一個護眼的應用,鼠標停留在...