標題: [發問] 請問這個查詢該怎麼寫入呢 [打印本頁]

---

作者: olisun    時間: 2010-8-14 09:55     標題: 請問這個查詢該怎麼寫入呢

請問這個查詢該怎麼寫入呢

當日報表查詢並輸入日期，e2=input之日期，並比對sheets("媒體反應")中的a3:a
如果輸入的日期不存在，則出現"日期不存在"有則
p2=sheets("媒體反應")的c3:c
d13=sheets("媒體反應")的(d3:d)，
e13=sheets("媒體反應")的(e3:e)

---

作者: GBKEE    時間: 2010-8-14 11:28

本帖最後由 GBKEE 於 2010-8-14 11:29 編輯

回復 1# olisun
試試看

1. Private Sub Ex()
   
2.     Dim F As Range
   
3.     With Sheets("日報表")
   
4.         Set F = Sheets("媒體反應").Range("a:a").Find(.[E2], LookAT:=xlWhole)
   
5.         If F Is Nothing Then
   
6.             .[P2] = ""
   
7.             .[D13:Q15] = ""
   
8.             MsgBox "查無此日期   " & .[E2]
   
9.             Exit Sub
   
10.         Else
    
11.             .[P2] = F.Offset(, 2)
    
12.             For I = 0 To 2
    
13.                 .[D13].Offset(I).Resize(, 14) = F.Offset(, 3 + (I * 14)).Resize(, 14).Value
    
14.             Next
    
15.         End If
    
16.     End With
    
17. End Sub

複製代碼

儲存格的驗證方式 你可用錄製試試看

1. Private Sub Workbook_Open()
   
2. 'Sheets("日報表輸入").Range("p2") = Array("晴", "雨", "陰")
   
3. With Sheets("日報表輸入").Range("P2").Validation
   
4.         .Delete
   
5.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
   
6.         xlBetween, Formula1:="晴,雨,陰"
   
7.     End With
   
8. End Sub

複製代碼

---

作者: olisun    時間: 2010-8-14 14:42

還是得靠您，謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)