標題: 如何避免資料重複Key in [打印本頁]

---

作者: jonlylovek    時間: 2010-12-21 10:52     標題: 如何避免資料重複Key in

本帖最後由 Hsieh 於 2010-12-22 18:06 編輯

想請問大家，如何避免將重複資料藉由按鍵KEY IN至SHEET2的個人資料表單

另外，在輸入個人電話時，要怎樣避免0932-XXX-XXX中輸入之後，最前面的0消失的問題。



檔案如下
[attach]4186[/attach]

---

作者: cck8x8    時間: 2010-12-21 11:08

本帖最後由 cck8x8 於 2010-12-21 11:14 編輯

關於第二個問題..小弟發表一下淺見..
1.在key數字前先按 ' ..上面一小點那個鍵..
2.儲存格格式化→數字→改成文字
二種方式都可以
請指教

---

作者: Hsieh    時間: 2010-12-21 12:01

基本上必免重複key in可使用資料驗證提醒

---

作者: jonlylovek    時間: 2010-12-21 19:18

感謝cck8x8的熱心協助，我已經解決這個問題了

請問Hsieh版主，資料驗證部分是否用"不等於"來作，可以使用vba完成這個問題嗎？

---

作者: Hsieh    時間: 2010-12-21 19:41

回復 4# jonlylovek

1. Sub 轉寫新記錄()
   
2.     Dim formSheet As Worksheet, dataSheet As Worksheet, targetRange As Range, i As Long
   
3.     Dim dataAddressList(), newRecord As Range, tmpRecord As Range
   
4.     Set formSheet = Sheets("個人資料輸入項目")
   
5.     Set dataSheet = Sheets("個人資料表單")
   
6.     Set a = dataSheet.Columns("B").Find([C4], lookat:=xlWhole)
   
7.     If Not a Is Nothing Then
   
8.     If a.Offset(, 1) = [C5] Then mystr = [C4]: GoTo 10
   
9.     Else
   
10.     dataAddressList = Array("C4", "C5", "C6", "C7", "F4", "F5", "F6", "F7", "C8")
    
11.     Set targetRange = dataSheet.Range("B" & Rows.Count).End(xlUp).Offset(1)
    
12.     For i = 0 To UBound(dataAddressList)
    
13.         targetRange.Offset(0, i).Value = formSheet.Range(dataAddressList(i)).Value
    
14.     Next
    
15.     End If
    
16. 10
    
17.     MsgBox mystr & "已輸入。"
    
18. End Sub

複製代碼

---

作者: aa7551    時間: 2010-12-25 11:21

請問cck8x8 大大,加入' 這個動作是將後面的數字直接轉化成文字嗎?是不是任何情況,還是只有在特定情況才能使用

---

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