티스토리

IT & G
검색하기

블로그 홈

IT & G

itng.tistory.com/m

아이티앤지 2013.09.30

구독자
2
방명록 방문하기
공지 화면이 제대로 안보일때 F5를 눌러주⋯ 모두보기

주요 글 목록

  • 엑셀 vba 이용 구구단출력하기 요구사항 long i, j, k for a = 2 to 9 for b = 1 to 9 k = i * j mle_1.text += string(i) + 'X' + string(j) + '=' + string(k) + '~r~n' next next 여기서 구구단이 시작될 때 '몇단'인지 출력하고 싶은데 어떻게 해야하나요? Sub aaa() Dim i As Integer Dim j As Integer Dim k As Range Set k = Range("a1") For i = 2 To 9 For j = 1 To 9 k.Value = i & "X" & j & "=" & i * j Set k = k.Offset(1, 0) Next Next End Sub질문자 님이 올려주신 소스가 엑셀 vbe에서 돌아 가도록 작성.. 공감수 2 댓글수 0 2013. 11. 25.
  • 엑셀 sumif 함수 질문자 : 비공개 요구사항 안녕하세요. 간단한 엑셀함수 사용인데도 잘 모르겠어서 질문드립니다. 1. 시트는 두 개가 있습니다. 편의를 위하여 A시트, B시트라고 하면, 2. A시트에는 데이터가 있습니다. 예를 들어 연봉관련한 데이터라고 하면, 인사부 홍길동 100만원 총무부 임꺽정 500만원 영업부 연흥부 200만원 기술부 연놀부 150만원 인사부 정국민 130만원 영업무 윤하나 170만원 .. .. .. 인사부 이순신 400만원 기술부 이준기 120만원 인사부 한사람 140만원 즉, 각 부서 직원별로 연봉이 나열되어 있는 시트입니다. 3. B 시트에서 함수를 이용하여하고 싶은 것은, 인사부 직원의 연봉 총액을 구하고 싶은 것입니다. 즉, 위에 간단히 예시로 쓴, 홍길동, 정국민, 이순신, 한사람과 같이.. 공감수 3 댓글수 0 2013. 11. 5.
  • 엑셀 sumifs함수 이용 3개 조건 만족하는 합 구하기 질문자 : yh3**** 요구사항 sheet1에서 A열 B열 C열 D열 1행 갑 a 한 1,000 2행 갑 b 둘 1,000 3행 을 a 한 1,000 4행 갑 a 한 1,000 이란 조건이 있을 때 (갑 a 한)의 세 조건을 만족하는 총합이 2,000이 됩니다. 그 값을 sheet2 에서 A열 B열 C열 D열 1행 갑 한 2행 a 이란 값을 입력하고 b2셀에 2,000이란 총합이 나오게 하려면 어떤 함수를 써야할까요? =SUMIFS(Sheet1!D1:D4,Sheet1!A1:A4,A1,Sheet1!B1:B4,A2,Sheet1!C1:C4,B1) 위와 같은 수식을 b2행에 쓰면 됩니다. @ 수식 설명 sumifs 함수 입니다. 첫 번째 이미지와 두 번째 이미지는 연결된 부분이고, 우측에(파란색 체크) 스크롤.. 공감수 3 댓글수 0 2013. 10. 30.
  • 엑셀 vba, 셀내용 메시지 박스에 출력하기 외 2 질문자 : 비공개 요구 사항 1. 특정셀에 값을 넣으면 조건을 판별하는 매크로 2. 버튼을 클릭시 특정 두 셀의 값을 더해서 다른 특정 셀에 출력 3. 버튼을 클릭시 특정셀에 값을 메시지 박스에 출력하기 '1번 소스 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Cells(4, 3).Value > 20 Then Cells(5, 3).Value = "크다" ElseIf Cells(4, 3).Value = 20 Then Cells(5, 3).Value = "같다" ElseIf Cells(4, 3).Value > 0 Then Cells(5, 3).Value = "작다" Else: Cells(5, 3).Value = " " End If End .. 공감수 5 댓글수 0 2013. 10. 18.
  • vba로 각각의 열에 있는 데이터 비교하기 질문자 : nax**** 요구사항 위 그림의 B열의 숫자와 F열의 숫자를 비교하여 같은값 또는 유사값 (오차범위내(+-0.01))의 을 찾는 방법을 알고 싶습니다. (위 예제에서 B열의 321.546 (F열 321.546) 과 342.325 (F열 342.335) 가 해당값이 되겠네요) 그리고 찾았을 경우 A열에 찾은 F열 바로 옆 E열의 내용이 표시 되게 하고 싶습니다. (위 예제에서는 A4 열에 test 4 가 A6에 test1 이라는 내용이 뜨게 하고 싶습니다.) 원래는 서로 다른 시트의 내용들 (데이타양이 만개가량 됩니다.) 을 비교하는 것인지라 가능하면 vba파일로 만들고 싶습니다. 잘 부탁드립니다. 샘플파일 시연 동영상 'vba 소스 Sub cheak() With ActiveSheet Dim .. 공감수 3 댓글수 1 2013. 10. 10.
  • 엑셀 vba 검색 질문자 : rom**** 요구사항 이 시트를 기반으로 검색시트라는 곳에서 별도로 검색이 되고 싶은데요. 품번을 검색하게 되면 입출고 수량을 자동계산해서 현재 재고가 얼마나 있는지 나타내게 하고 싶습니다. 나타낼때 품번/품명/재고 정도만 표시가 되면 좋겠습니다. 샘플파일 시연 동영상 사용된 소스 Sub search() With ActiveSheet Dim stin As Double Dim stout As Double Dim i As Integer Dim rr As Range Dim line As Integer If Worksheets("검색").Range("G2").Value > 3 Then line = Worksheets("검색").Range("G2").Value Else line = 1000 End I.. 공감수 2 댓글수 0 2013. 10. 10.
  • 엑셀 입력폼 만들어서 입력하기 질문자 : 비공개 요구사항 : 1. 양식컨트롤의 명칭단추를 삽입하고 텍스트는 상품입력으로, 이 단추 클릭 시 상품입력 대화상자 생성되도록 지정 2. VBA창에서 폼을 두번째 그림과 같이 삽입 3. 상품입력대화상자에서 "입력"버튼 클릭 시 자동으로 시트내 마지막 줄에 데이터를 입력하도록 함 4. 상품입력대화상자에서 "종료"버튼 클릭 시 대화상자가 종료되도록 함 완성된 파일 시연 영상 사용된 소스 Private Sub exitb_Click() uf1.Hide End Sub Private Sub ib_Click() With ActiveSheet Dim rng As Range Set rng = Range("a4") Do While rng.Value "" Set rng = rng.Offset(1, 0) Loop .. 공감수 5 댓글수 6 2013. 10. 9.
    문의안내
    • 티스토리
    • 로그인
    • 고객센터

    티스토리는 카카오에서 사랑을 담아 만듭니다.

    © Kakao Corp.