Skip to content

조회 수 235 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

---------
mydata = Sheets("data").Range("a1").Value
---------
이 코드는 현재 작업하고 있는 파일의 "data"시트의 한셀(a1)을 활용하는 것인데,
열러있는 다른문서의 특정시트의 특정셀을 활용할려면, 어떻게 수정 해야 하나요?
다시 한번 부탁드립니다.

--------------------------------------------------------------------------------------------------------------

 

mydata = ActiveWorkbook.Sheets("data").Range("a1").Value
즉, 위 구문에서 ActiveWorkbook 이란 현재 "열려 있는 문서" 를
의미합니다.

 

--------------------------------------------------------------------------------------------------------------


셀값으루 파일이름을 저장하실때...
공란이 발생하믄 에러가 납니다...(이를 방지하기위해서)
해서 조건분기를 한번 한것이구요...

Option Explicit

Sub SaveAs_test()
Dim strK$ ''''''' 문자형 변수선언
strK = Cstr(Sheets("data").Cells(1, 1).Value) ''' Data시트의 A1셀의 값을 변수에 담구
If strK = "" Then '''''' A1셀이 비어있다면
MsgBox "해당셀이 비어잇습니다", vbCritical + vbOKOnly '''''' 경고메세지 띄우구
Exit Sub ''''' 프로시저 탈출(업든일루 하구)
End If
ActiveWorkbook.SaveAs Filename:=strK & " " '''''''' 담은 변수명으로 파일저장
End Sub"

?

  1. VB로 Excel(엑셀) 핸들링 - 셀 조작 3

  2. 범위내 조건을 만족하는 가장 큰 값 뽑아내기

  3. 자동으로 메크로 실행하기....

  4. 저장 메크로 실행에서...무조건 '예'로 강제 자동 실행시킬려면...

  5. 확장자가 자동으로 대문자로 바뀌는 현상...

  6. 파일을 불러왔다 닫는 메크로 실행에서.....

  7. 저장 메크로 실행에서...무조건 '예'로 강제 자동 실행시킬려면...

  8. 특정셀의 문자를 파일이름으로 만드는 메크로

  9. 특정셀의 문자를 파일이름으로 저장하는 메크로...

  10. 시트선택 메크로에서 시트이름 코드

  11. 시트이름을 바꾸면 메크로 코드에서도 바뀌게 할려면?

  12. 숨겨져있는 쉬트는 제외하고 탭이름 가져오기

  13. 탭의 이름들을 한 sheet에 취합하여 정열 시킬려면 어떻게 해야 하나요?

  14. 각시트의 원하는 셀값 가져오기

  15. 다수의 동일 문자의 옆셀에 위치한 내용을 함수를 써서 취합하려는데..

  16. myvlookup2함수

Board Pagination Prev 1 Next
/ 1

Korea NO.1 VISION 2020 / Designed by HJS_Sketch

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소