rand(life)

텍스트파일의 내용을 한 줄씩 읽어, 문자열을 탭을 기준으로 분리하여 배열변수에 넣기 위한 코드이다. Dim str As String Dim arr() Dim ifn As Long ifn = FreeFile Open fname For Input As #ifn Do Until EOF(ifn) Line Input #ifn, str arr = Split(str, vbTab) Loop 여기서 Freefile이라는 함수를 사용해서 ifn에 숫자를 할당하는데, 왜 이런 작업을 해야하는가는 질문에 대한 대답이다. 답변1 쉬운 예를 들어 보죠. 철수, 영희가 있는데 좌석번호를 항상 철수에게는 1번, 영희에게는 2번을 준다고 하면 좌석이 비어있는 경우에는 아무런 문제가 발생하지 않습니다. 하지만, 다른 누군가가 1번 좌석..

cmd 명령의 결과를 텍스트파일로 받기아래는 ping의 결과 Option Explicit Sub checkping() Dim cmd As String Dim res, goWSH, aRet Dim s As String, e As String Set goWSH = CreateObject("WScript.Shell") cmd = "ping -n 1 " & [a1] Set aRet = goWSH.exec(cmd) res = CStr(aRet.stdout.readall()) s = InStr(res, "(") e = InStr(res, "),")[b1] = Mid(res, s + 1, e - s - 1)End Sub

2. [편집] 2.1 다른 이름으로 저장하기- 암호 걸기 2.2 행열 크기 조정하기 2.3 셀병합하기 / 병합 해제하기 2.4 행열 숨기기 표시하기/ 시트 숨기기 표시하기 2.5 시트복사하기 – 이동하기 2.6 정렬 및 필터 3.[차트] 3.1 간단한 차트 작성 3.2 차트 종류 변경 3.3 차트 구성요소 추가 - 데이터 값 표시하기 3.4 이중 축 차트 작성 3.5 차트에 도형 이용하기 3.6 아래아한글(HWP)에 차트 복사하기 4.[인쇄] 4.1 미리보기/ 용지 방향/ 여백 조절 4.2 용지에 맞게 축소(자동맞춤) 4.3 페이지나누기/ 페이지 나누기 미리 보기 4.4 제목줄 반복 인쇄 /머리글 - 바닥글 설정 / 페이지레이아웃 보기 5.[기타] 5.1 텍스트파일을 엑셀로 불러오기 5.2 함수중 주의할..

쉼표로 구분되어 있는 텍스트 파일의 내용을 엑셀으로 불러오는 방법입니다. 그외 다음 방법들이 들어있습니다. 불러온 파일이 가로로 길게 되어있어 행열을 바꾸어 세로로 만드는 방법 텍스트 좌우에 입력되어있는 빈칸(스페이스)을 삭제하는 방법 문자열 뒤에 @표시를 덧붙이는 방법