데이터베이스 프로그래머 인 경우 Access에 저장하기 위해 “정리”해야하는 Excel 파일을 얻을 수 있습니다. 두 가지 일반적인 문제는 사회 보장 번호와 우편 번호로 인해 발생합니다. 이들은 종종 Excel 에서처럼 숫자가 아닌 데이터베이스에 텍스트로 저장하는 것이 가장 좋습니다.

(Excel에서 숫자는 텍스트로 저장되기 때문이 아니라 셀 서식 때문에 제대로 표시 될 수 있습니다.)

범위가 Excel에서 텍스트로 서식이 지정되고 선행 0이있는 경우에도 Access는 이러한 값을 숫자로 변환하지 않는 경우가 많습니다.

그러나 레이블의 경우 번호 앞에 아포스트로피가 있으면 Access에서 선행 아포스트로피없이 텍스트로 올바르게 가져옵니다.

Access에서 가져올 사회 보장 번호를 준비하려면 선행 0이 있고 셀에 아포스트로피가 있는지 확인하는 간단한 매크로가 유용 할 수 있습니다. 매크로를 사용하려면 사회 보장 번호 범위를 선택한 다음 매크로를 실행하십시오.

Sub SSN2Text()

Dim c As Range     Application.ScreenUpdating = False     'Format selected cells as text     Selection.NumberFormat = "@"

For Each c In Selection         If Left(c, 1) = "'" Then             'strip the apostrophe, if any             c = Mid(c, 2, 99)

Else             c = "'" & Right("000000000" & c, 9)

End If     Next c     Application.ScreenUpdating = True End Sub

우편 번호에 대한 솔루션은 본질적으로 유사합니다. 우편 번호를 처리하는 매크로는 선택 영역의 각 셀을 단계별로 실행하고, 텍스트로 서식을 지정하고, 선행 아포스트로피를 추가하고, 선행 0을 연결합니다. 차이점은 매크로가 5 자리 또는 9 자리 우편 번호가있는 인스턴스도 고려해야한다는 것입니다.

Sub ZIP2Text()

Dim c As Range     Application.ScreenUpdating = False     'Format selected cells as text     Selection.NumberFormat = "@"

For Each c In Selection         If Left(c, 1) = "'" Then             'strip the apostrophe, if any             c = Mid(c, 2, 99)

End If         If Len(c) <= 5 Then             c = "'" & Right("00000" & c, 5)

Else             c = "'" & Right("00000" & c, 10)

End If     Next c     Application.ScreenUpdating = True End Sub

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2400)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Preparing_Data_for_Import_into_Access [Access로 가져올 데이터 준비 중].