返回列表 上一主題 發帖

請問不知可否寫程式帶出可用機台

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
1# 跳轉到 »
發表於 2016-4-16 12:17 | 顯示全部帖子
若是機台不多，可考慮自訂函數，彈性較佳：
Function GET_V(xArea As Range, xA$) As String
Dim Arr, T$, i&
Arr = xArea.Value
For i = 1 To UBound(Arr)
　　If Arr(i, 1) = xA And Left(Arr(i, 3), 3) <> "non" Then T = T & "," & Arr(i, 2)
Next i
If T = "" Then GET_V = "無" Else GET_V = Mid(T, 2)
End Function
　
公式用法：
=get_v(A$2:C$12, A16)
=get_v(資料範圍, 查詢ID)

寫程式帶出可用機台-v01.rar (12.52 KB)
另一載址：http://www.funp.net/731903

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題