1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

아별님! 감사합니다.다시질문드립니다

엑셀일반 조회 수 3184 추천 수 0 2013.06.07 18:43:46

카운트는 자피었습니다.

첨부파일부탁합니다.


댓글 '2'

profile

[레벨:30]아별

2013.06.07 21:07:23
*.104.126.21

북곰님..


다음부터는 처음부터 이렇게게 질문해주세요..

앞뒤 다 자르고.. 컨트롤을 누르는 행위 자체가 필요하다고 말씀하시면..

참으로 대답하기 곤란합니다.


컨트롤을 누르는 행위 자체라는걸 고려할 필요가 없는 작업인 것 같습니다.

그냥 시간 간격으로 카운터를 늘려주고.. 시간이 되면 해당 값을 바꿔주고 대상 영역에 복사해 넣으면 되는것 아닌가요?


어디에 이 동작을 사용하시려는건지 모르겠지만..

첨부파일을 참고하여 수정하여 사용하시기 바랍니다.


** 참고로..

답변 파일에서 저는 Application.wait을 사용하였지만..

기다리는 동안 다른 작업을 하실게 있다면.. 북곰님이 사용하신 Application.OnTime으로 사용하시는게 좋을 수도 있습니다.

** 왜 타임 딜레이를 주는지 조차 이해가 되지 않은 상태에서 작성한 코드입니다.

** 제반 사항을 잘 설명해주셔야 원하시는 답변을 얻으실 수 있습니다.


** 다음에 질문을 하실때는 아래 항목들을 모두 적어주시기 바랍니다.

      1. 어떤 작업을 하려는지에 대한 설명.. <-- 이 부분을 자꾸 빼먹으십니다. 그래서 이해하기가 힘듭니다.

      2. 현재까지의 진행 상황.. 

      3. 현단계에서의 문제점.. <-- 컨트롤을 클릭하는 행위를 하지 못하는게 문제라고 말씀하셨지만,

                                               문제는 그게 아닙니다. 클릭하는 행위 자체가 필요하지 않은 작업입니다.

                                               카운터만 증가시키면 해결되는 문제입니다. 굳이 스핀단추를 클릭하지 않아도요..

                                               제가 앞 질문에서.. 클릭하는 동작 자체가 필요한건지 클릭후에 발생하는 결과가 

                                               필요한건지 물어봤을때, 동작 자체가 필요하다고 하셨잖아요..?

                                               혹시.. 제가 잘 못 이해한건가요?

      4. 해결 후의 원하는 모습.. <-- 처음 질문에서는이 부분도 빠졌었지요.. 이번 질문 올리실때 겨우 알려주신겁니다.



다운받기 : Book1 (225기초).xlsm



Option Explicit


Sub abRepeatStart()

    Dim rCheck As Range

    Set rCheck = Sheets("Sheet1").Range("H1")

    Dim sRepeat As String: sRepeat = "Repeat"

    Dim rCount As Range

    Set rCount = Sheets("Sheet1").Range("C2")

    Dim i As Long

    rCheck = sRepeat

    For i = 1 To 9999

        If rCheck = sRepeat Then

            DoEvents

            rCount.Value2 = rCount.Value2 + 1

            Call abCopyAsConditional

            Application.Wait Now() + TimeSerial(0, 0, 3)

            DoEvents

        Else

            Exit For

        End If

    Next i

End Sub


Sub abRepeatStop()

    Sheets("Sheet1").Range("H1").Value2 = ""

End Sub


Sub abCopyAsConditional()

    Dim rng As Range

    Set rng = Sheets("Sheet1").Range("A2")

    Dim rSource As Range

    Dim rTarget As Range

    Set rTarget = Sheets("Sheet2").Range("B2")

    On Error Resume Next

    Set rTarget = rTarget.End(xlDown).Offset(1)

    On Error GoTo 0

    Dim sSize As String: sSize = "225size"

    Dim i As Long

    For i = 0 To rng.CurrentRegion.Rows.Count - 1

        If rng.Offset(i).Value = sSize Then

            If rSource Is Nothing Then

                Set rSource = rng.Offset(i, 1).Resize(, 6)

            Else

                Set rSource = Union(rSource, rng.Offset(i, 1).Resize(, 6))                    

            End If

        End If

    Next i

    rSource.Copy rTarget

End Sub

 


첨부

[레벨:2]북곰

2013.06.07 23:10:29
*.167.255.233

아별님! 너무너무 감사합니다. 아무래도 오늘 잠이 안오겠어요  정말 감사합니다. 참 아별님 회원마당 댓글을보니 책 집필내용이 있던데요.혹 나오신 책이 있으신가요...다시한번 감사합니다..^^

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜sort 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 51573
13 VBA 특정색 행 삭제 메크로 배워보고 싶습니다~ imagefile [2] [레벨:1]굿한넘 2015-01-12 5743
12 VBA 몇가지 질문들 [8] [레벨:2]정용규 2015-01-13 4142
11 VBA 오늘도 질문!^^있습니다. [레벨:2]정용규 2015-01-19 4304
10 VBA 엑셀 내용에서 영어만 모두 제거할 수 있을까요?? [1] [레벨:1]초보배움 2015-02-20 5032
9 VBA 하이퍼링크셀 선택시 셀값을 오토필터 값으로 연결 file [레벨:1]speena 2015-03-11 6125
8 VBA 특정개체 수정 관련 [5] [레벨:4]고수가되고파 2015-04-02 6893
7 VBA 추가기능 파일 수정 관련 file [1] [레벨:4]고수가되고파 2015-04-03 9306
6 VBA 셀 복사 후 아래셀에 수식 및 메모 붙여넣기 관련 [레벨:4]고수가되고파 2015-04-17 8365
5 VBA 사용자 정의 함수에서 변수의 행번호 추출하기 file [레벨:1]백미90 2015-08-17 8013
4 VBA 컴파일 에러가 나요? [레벨:1]구름바다 2015-09-14 9182
3 VBA 매크로 질문 드립니다. [레벨:1]ORACLE 2016-08-16 9536
2 VBA 매크로를 이용한 exe 파일 자동 실행 방법 문의~ imagefile [레벨:1]hickel 2016-09-07 9022
1 VBA 엑셀 일괄암호저장 imagefile [1] [레벨:1]천운 2017-03-13 10393