jonlylovek

小學生 Rank: 1

帖子: 11
主題: 5
精華: 0
積分: 15
點名: 0
作業系統: WinXP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-20
最後登錄: 2015-2-24

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-12-21 10:52 | 只看該作者

如何避免資料重複Key in

[版主管理留言]

Hsieh(2010-12-21 11:32): 檔案請直接上傳

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

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

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

檔案如下

work.zip (21.04 KB)

樓主熱帖

80 字節以內
不支持自定義 Discuz! 代碼

aa7551

中學生 Rank: 2

帖子: 116
主題: 5
精華: 0
積分: 190
點名: 0
作業系統: xp
軟體版本: office 2002
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-17
最後登錄: 2024-10-27

6^#

發表於 2010-12-25 11:21 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-12-21 19:41 | 只看該作者

回復 4# jonlylovek

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

複製代碼

學海無涯_不恥下問

TOP

jonlylovek

小學生 Rank: 1

帖子: 11
主題: 5
精華: 0
積分: 15
點名: 0
作業系統: WinXP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-20
最後登錄: 2015-2-24

4^#

發表於 2010-12-21 19:18 | 只看該作者

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

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

80 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2010-12-21 12:01 | 只看該作者

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

學海無涯_不恥下問

TOP

cck8x8