자료나눔

아웃룩 2007에서 작업 했습니다. 1. 아웃룩 -> 전자 메일로 일정 보내기 (필요한 일정만 넣는 것이 좋을 것 같습니다. 예를 들면 내년 기념일만 만들어 넣는 등..) 2. 첨부파일의 ics 파일을 내 컴에 저장 3. 구글 캘린더 -> 실험실 -> 캘린더 4. 캘린더 가져오기 선택 5. ics파일 구글 -> 아..

이번주_식사.xlsm 매크로 실행을 허용하시면 됩니다. 식당 목록을 직접 입력하시고 버튼을 누르면 됩니다. 식당고르기 버튼에 '랜덤숫자만들기'라는 매크로가 연결되어 있습니다. 전제조건은 식당이 10개는 있어야 한다는 겁니다. (중복을 피하기 위해) 매주 주변 식당들 중에서 어디를 갈 ..

A컬럼에 원본파일 있고 L컬럼에 변경할 파일명 있을 경우 처리 Option Explicit Sub FP_RENAME(sFrom As String, sTo As String) Dim sPath As String On Error Resume Next sPath = "G:\MP3\단일곡" Name sPath & "\" & sFrom As sPath & "\" & sTo If Err.no <> 0 Then '파일 있을 경우 Kill sPath & "\" & sFrom End If On Error GoTo 0 End Sub Sub FP_WORK() Di..

'가족사항이란 시트의 내용 중 사붠번호가 일치하는 것만 선택하여 Sheet1에 표시하기 Sub FP_Query() Dim sStr As String Dim DbCon As ADODB.Connection Dim Rs As ADODB.Recordset Dim sFile As String Dim sSheet As String Dim lRow As Long Dim lCol As Long Dim sCell As String '파일명 sFile = ActiveWorkbook.FullName '시트명 sSheet = ActiveSheet.N..

보통 VLOOKUP 함수를 많이 사용하는데 내가 필요한 것은 특정 값이 있는 곳의 셀 주소를 찾기였다 그래서 MATCH 함수와 ADDRESS 함수를 혼합하여 사용하였다. 예) =MATCH(B3,SHEET1!A1:A100,0) 해설) B3에 홍길동이라는 단어가 있고 SHEET A1 ~ A100에 사람 이름이 있다. =MATCH (찾는단어, 검색위치, 0) 여기서 0..

613초를 00:10:13 형식으로 표현하고 싶을 때 A2에 613을 입력했다 표현식 =TEXT(HOUR(A2/24/60/60),"00")&":"&TEXT(MINUTE(A2/24/60/60),"00")&":"&TEXT(SECOND(A2/24/60/60),"00")

Function FP_NUMBER_FORMAT(sFrom As String) As String Dim iLen As Integer Dim sRet As String iLen = Len(sFrom) sRet = sFrom Select Case iLen Case 0, 13, 16 Case 11 sRet = Format(sFrom, "0##-####-####") Case 10 If Left(sFrom, 2) = "02" Then sRet = Format(sFrom, "0#-####-####") Else sRet = Format(sFrom, "0##-###-####") End If Case 9 sRet = Format(sFrom, "0#-###-####") Case 8 sRet = Format(sFrom, "..

아웃룩 연도별 관리 설명은 2007년 이메일을 새 파일에 옮기는 것 기준으로 되어 있습니다. 파일-새로 만들기-아웃룩 데이타파일-맨 위의 것-확인 파일명을 2007년.pst로 입력하고 확인 이름(아웃룩에 표시됨) 2007년으로 수정 새폴더 만들어서 기존 이메일들 이동 폴더 이름을 받은 편지함 등으로 원래 폴..

개인폴더가 파일 속성이 나오지 않을 경우 사용하였다. 제어판-메일-전자메일계정 기존 프로필의 내용을 복사한 후 새 프로필 작성 당연히 기존 포스트(.PST)파일은 백업받아 놓아야 한다. 아웃룩을 실행하면 새로운 포스트 파일이 만들어 진다. 그 후 기존에 있었던 포스트 파일의 내용을 가져오기로 ..

증상 : 자동필터 했는데 필터되지 않은 항목도 같이 보임 원인 : 숨긴 행에 빈 칸이 있었음 조치 : 빈 줄을 지우니 정상 작동