如何避免資料重複Key in

jonlylovek

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

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



檔案如下
work.zip (21.04 KB)

下載次數: 6

2010-12-22 18:06

cck8x8

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

Hsieh

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

jonlylovek

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

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

Hsieh

回復 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

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