[發問] 搜尋、比對，再複製過來的功能

iceandy6150

大家好，我有一個功能想做，但是搜尋比對我不會寫

下載 (174.35 KB)

2019-5-22 00:26

我會同時開三個檔案
一個是測試檔，裡面有按鈕，這邊也會列出所要的準則

第二個是資料檔
第三個是尺寸檔
共同點是學號
有點像ACCESS的主鍵

測試檔中 會給  所需要的學號   跟這個學號所要查出來的資訊
然後按鈕按下後  程式可以去搜尋比對  把要的資料填進來測試檔中

下載 (171.91 KB)

2019-5-22 00:26

因為同時開好三個檔
所以直接呼叫是可以取得資料的

但是搜尋比對，我就不會了
再請各位大大幫忙，謝謝

EXCEL問題.rar (30.49 KB)

下載次數: 20

2019-5-22 00:31

iceandy6150

回復 2# jeffrey628litw


    感謝您的回覆，因為我的資料是在不同的檔案中，所以發問才會使用不同檔案
   我會再自己試看看的，謝謝您

iceandy6150

回復 3# Kubi


    哇~~ 你這個還可以自動開另外的檔案，然後還可以自動關檔
   太棒了啦，這招我一定要學起來
   感謝您的分享，功能完全符合我的需求
    而且不需要寫很多行就搞定了
    我光是陣列那邊就不行了....
    再次感謝

iceandy6150

回復 6# GBKEE


    感謝分享另一做法，今天把K大的程式碼印出來慢慢看
    發現，真的很神奇，為什麼都沒有比對的東西在? 就可以做到效果?
    我心裡面起初也是在想  應該要用個 IF 啦  FIND啦  之類的
    不然怎麼知道  "測試"的學號  跟另外兩個檔案的學號  一不一樣
    一樣才複製  不一樣就不複製
   
<一>K大居然用三個迴圈就搞定了，我無法理解啊......(太高深了)

   然後我今天自己嘗試要寫一個小程式
   從"測試"裡面設一按鈕  按下後  會開一個A檔案   自動計算檔案中的B欄有幾列資料
   然後我就設定一個陣列  要把B欄的資料每一列存起來

   假設B欄判斷完有12筆資料  我的變數c就等於12
   但是我Dim Arry(1,c)  我要一維12格的陣列
   就是會出錯  跟我說一定要常數
   那我先 Dim Arry()   然後  c=1   指定Arry(1,c) = 10   這樣也錯  (崩潰....)

    <二>想順便請教  到底要怎麼設定動態的陣列呀?

<三>這是一個變形的比對需求
比對的順序在  "資料"檔案中
但是 "測試"檔案中，因為輸入需要比對的學號進來，不一定都是由小到大
可能0005  再來0001  再來0003
那我希望在按下按鈕後   能自動排成0001  0003  0005的順序  把資料放進 "測試"檔案中

甚至  主索引鍵  若是改成以名字來當主要對照
就是在"測試"檔案中    只有輸入  名字   沒有學號
一樣能以 "資料"檔案中的順序來排
並複製過來 "測試"檔案裡

有辦法嗎?

下載 (176.48 KB)

2019-5-24 00:09

以上，謝謝

iceandy6150

回復 8# GBKEE


    謝謝~ 我再試試

   初步使用變數視窗  是知道先把所有資料放進一個大陣列

  然後再去第二個檔案打開

  但是沒有 IF來做比較，怎麼知道第二個檔案要放什麼呢

使用錄製巨集要怎麼看?  把程式碼貼進去按鈕嘛? 怎麼看它自己一步一步跑?

iceandy6150

回復 10# 准提部林


    感謝大大提供另一作法
    我會再試試看的

   今天比較有空，我拿白紙慢慢畫，終於搞懂 KUBI大大為什麼能不用 判斷式來做了
   因為類似索引的方式，畫了快30分鐘~ 解開謎團了(開心~)
   
  原來就是先把所有的配對方法都記錄起來在 d 裡面
   0001+姓名  就是  王小明
   0001+班級  就是 XXX
   以此類推
  
   之後到結果那邊，如果我要的是0002、0003，然後標題我要的是姓名 跟 體重
   那麼0002+姓名 以及 0002+體重 以及 0003+姓名  以及 0003+體重
   都可以從 d裡面去找到上面四個相對應的值
   然後正確顯示出來

  所以不管我結果那邊改成要四種標題  比如姓名、班級、喜好、體重
  或是只改成三種標題
  只要學號+標題
  都能正確地從 d 裡面去索引到相對應的值
  難怪可以不用 判斷式
  厲害!!!

  只是說如果資料再更龐大一些，這種全紀錄的方式，會不會很耗記憶體
  (但目前以我使用的資料量，都還是足以正常使用)

iceandy6150

借這個主題再請問一下

比如 1年2月3日  經過程式轉化  可以變成 01年02月03日
但是如果來源只有剩下月  或日
該怎麼辦?  轉化後年月都錯了



第二個問題  現在是6月
我另存新檔想要用年+月+檔名
比如  "10806檔案"
108可能還好，就 Mid(year(Date),1,3) 就得到了
但是月就麻煩了
如果1~9月只有一個數字
10~12月是兩個數字
該怎麼讓檔名自動補0 呢?

第三個問題
然後其實我想要做到的是可以自動存成下個月的
比如現在是六月，但是存起來卻是 "10807檔案" 這樣

以上問題再發問，謝謝

下載 (102.37 KB)

2019-6-16 01:17

活頁簿1.rar (16.33 KB)

下載次數: 4

2019-6-16 01:17

iceandy6150

回復 12# iceandy6150


    我自己找到解決方法了，真開心
如果給的資料，是有年有月，比如 1年5月這樣，就用一個做法
如果給的資料，只有月沒有年，比如9月、12月，就用另一辦法
這樣就能改成我自己要的 00年00月 的格式了

1.   c = .Range("D" & i).Value
   
2.   
   
3.   If c Like "*年*" Then  '有年有月就用這個方式改格式
   
4. 
   
5.    c = Application.Text(Replace(Replace(c, "月", ":"), "年", ":"), "[hh]年mm月")
   
6. 
   
7.    Else
   
8.    
   
9.         f = Split(c, "月")  '如果只有月  判斷是一位數(1~9月)還是兩位數(10~12月)
   
10.         
    
11.         If Len(f(0)) = 1 Then
    
12.            c = "00年0" & f(0) & "月"
    
13.         Else
    
14.            c = "00年" & f(0) & "月"
    
15.         End If
    
16. 
    
17.    End If

複製代碼

為什麼要做這個功能呢
是因為來源資料很不一定
有時候是3月  有時候11月  有時候 1年5月、10年11月等等
位數變來變去
用MID很難抽取

然後又要套上規則
如果滿半年就怎樣怎樣---> 先算出年資換算成月是幾月  滿半年就是年資>=6
如果滿一年 --> 年資>=12
用這些條件再來區分各級距的人該下什麼指令

以上小小發現，自問自答

iceandy6150

回復 14# 准提部林


    年資的確有可能只有日 或 年+日  或 年+月 或年月日都有
但是我處理的資料，是第二手
也就是只有計算到月而已

我拿到的資料要嘛就是 3月、6月、11月這樣
或是1年1月

所以只剩下兩種  年+月  、只有月
但是年，又有分為1位數的跟2位數的，比如3年 跟 12年
月也是分為1位數的跟2位數的，比如4月 跟 11月

所以我只好想辦法來處理
比如說1年以內的人，獎金發3000元
滿1年6月的發4500元

我就先把各種資料，轉成00年00月
再用MID去取，VAL()變成可計算的數字，然後就可以判斷
誰該發3000元，誰該發4500元....以此類推

感謝大大回復喔

iceandy6150

回復 16# n7822123


    感謝大大的回覆
因為我手上拿到的資料並沒有到職日
不然照大大這樣寫，是很方便
這些寫法我都會存檔
以後若有用到，就可以派上用場
感謝感謝