공지 |
공지
[공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요..
![image image](http://abyul.com/zbxe/modules/document/tpl/icons/image.gif)
|
아별 |
2015-04-23 |
137441 |
522 |
API
열려있는 ie창 닫기 _ Win32 API, SendMessage, FindWindows, WM_CLOSE
[3]
|
맑은이슬 |
2013-04-06 |
6778 |
521 |
VBA
아별님! 엑셀 질문입니다. _ 고급필터를 활용한 데이터 분리 작업(각 시트로 분리)
[3]
|
북곰 |
2013-04-06 |
6771 |
520 |
엑셀일반
새해맞이 기념 연속채우기 관련 질문입니다.
![image image](http://abyul.com/zbxe/modules/document/tpl/icons/image.gif)
[2]
|
파이스 |
2013-01-03 |
6762 |
519 |
차트
시작일과 종료일만으로 자동 일정 그래프 작성하기
[1]
|
질베르토 |
2013-04-15 |
6752 |
518 |
엑셀 문의드립니다.
[2]
|
꺼벙이아저씨 |
2009-07-03 |
6750 |
517 |
엑셀일반
엑셀로 임대료 계산 질문입니다.
[2]
|
정화 |
2013-07-31 |
6748 |
516 |
엑신께..문의합니다.
[2]
|
와룡선생 |
2009-07-01 |
6735 |
515 |
추가기능(AddIns)
리본메뉴 만들기(버턴 여러개 넣기)
[6]
|
맑은이슬 |
2013-03-18 |
6730 |
514 |
배열수식
데이타 정열관련 질문 드립니다. _ offset과 배열 수식을 이용하여 최근 값을 순차적으로 갖고 오는 방법..
[3]
|
바람길 |
2011-11-28 |
6725 |
513 |
엑셀일반
부분합 질문이요
[1]
|
요셉 |
2013-08-01 |
6724 |
512 |
VBA
수식이 입력된 셀은 자동으로 색상이 들어가게 하는 방법
[5]
|
부루끄 |
2011-07-15 |
6719 |
511 |
함수가 들어간 셀의 합
[1]
|
seannisean |
2009-10-05 |
6713 |
510 |
엑셀일반
궁금한게 있습니다...급합니다..ㅠㅠ
|
사라다 |
2014-03-07 |
6704 |
509 |
VBA
2개의 시트를 비교하여 다른 부분을 찾아내는 프로시저 질문입니다!
[3]
|
파이스 |
2011-11-24 |
6703 |
508 |
셀서식(표시형식)
[분류문의] 데이터 유효성검사를 이용해 분류를 만든 다음에 특정셀 값 입력
[1]
|
수박한통 |
2013-01-12 |
6703 |
507 |
셀서식(표시형식)
다른 시트에서 조건을 만족하면 해당시트 셀에서 색칠하거나 글씨 표시하기
[2]
|
성투은자 |
2013-04-02 |
6694 |
506 |
VBA
외부 어플리케이션 실행 & 유저폼 일괄 닫기 & 리본 메뉴 사용자 추가 탭 숨기거나 보이게 하는 방법
[7]
|
엑셀대단해 |
2012-02-08 |
6694 |
505 |
엑셀일반
엑셀로 확률도 구할수있나요?
[1]
|
양다원 |
2011-09-27 |
6689 |
504 |
VBA
VBA 서적 추천좀 해주세요
[1]
|
김학래 |
2013-04-01 |
6689 |
503 |
여러가지 품목을 2가지 이상 부분합 하는 방법이 있나요?
[2]
|
민준파파 |
2009-08-11 |
6670 |
북곰님..
다음부터는 처음부터 이렇게게 질문해주세요..
앞뒤 다 자르고.. 컨트롤을 누르는 행위 자체가 필요하다고 말씀하시면..
참으로 대답하기 곤란합니다.
컨트롤을 누르는 행위 자체라는걸 고려할 필요가 없는 작업인 것 같습니다.
그냥 시간 간격으로 카운터를 늘려주고.. 시간이 되면 해당 값을 바꿔주고 대상 영역에 복사해 넣으면 되는것 아닌가요?
어디에 이 동작을 사용하시려는건지 모르겠지만..
첨부파일을 참고하여 수정하여 사용하시기 바랍니다.
** 참고로..
답변 파일에서 저는 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