공지 |
공지
[공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요..
|
아별 |
2015-04-23 |
57735 |
176 |
엑셀일반
엑셀파일 비밀번호 단체 설정 가능한가요?
[30]
|
쟈니 |
2012-06-18 |
55463 |
175 |
엑셀일반
회원만 질문을 올릴 수 있습니다.
|
아별 |
2010-09-21 |
34071 |
174 |
엑셀일반
행높이 최대치 조절 가능할까요? _ Excel 사양 및 제한
[3]
|
파이스 |
2012-06-01 |
15827 |
173 |
엑셀일반
엑셀에서 사진 고정하는 방법 없을까요?
[3]
|
빛의행운아 |
2012-07-30 |
13267 |
172 |
엑셀일반
csv import 관련 문의
[3]
|
지살 |
2016-02-23 |
12539 |
171 |
엑셀일반
엑셀 특정 자리 숫자 내림 올림 하는 방법이 뭔가요??
|
키모스 |
2016-10-28 |
11537 |
170 |
엑셀일반
셀 안에 삽입된 이미지의 정가운데(가로+세로)정렬 방법이 궁금합니다.
[6]
|
파이스 |
2011-10-11 |
10797 |
169 |
엑셀일반
[긴급문의] 엑셀의 특정셀의 값들이 사라집니다.
[1]
|
용님 |
2015-09-02 |
10470 |
168 |
엑셀일반
목록에서 특정 단어가 포함되는 목록만 콤보박스에 넣을수 있을까요?
|
baddisk |
2016-01-09 |
9709 |
167 |
엑셀일반
엑셀 줄 간격에 대해서
[1]
|
빛의행운아 |
2011-12-28 |
9428 |
166 |
엑셀일반
웹 쿼리 관련한 질문입니다
[1]
|
달빛아래말할게 |
2015-04-20 |
9284 |
165 |
엑셀일반
필터링된 값에 붙여넣기를 할 경우...
[4]
|
파이스 |
2012-06-14 |
8750 |
164 |
엑셀일반
엑셀 시트에 바탕그림넣기
[5]
|
시나브로 |
2012-06-19 |
8689 |
163 |
엑셀일반
엑셀 시트 캡쳐시 스크롤바 _ 엑셀 화면 캡쳐 또는 이미지로 저장하기
[2]
|
시나브로 |
2012-06-19 |
8387 |
162 |
엑셀일반
엑셀값 중간에 : 삽입 _ 문자열 수식, 텍스트 가공하여 합치기
[3]
|
chan |
2013-12-13 |
7001 |
161 |
엑셀일반
[엑셀 연결관련] 파일을 열때 "연결중:₩₩ ???₩ ???₩ ~ " 류의 메세지
[1]
|
kymylys |
2014-05-10 |
6846 |
160 |
엑셀일반
안녕하세요? 엑셀 데이터 정렬 질문있습니다.
[2]
|
정화 |
2015-03-03 |
6471 |
159 |
엑셀일반
다중셀 중복 항목 찾기 (시간표 같은 표에서)
[2]
|
thoi |
2014-09-15 |
6222 |
158 |
엑셀일반
단축키가 안됩니다(찾기,Ctrl+F) ,Ctrl+G
[3]
|
맑은이슬 |
2013-03-26 |
6090 |
157 |
엑셀일반
매번 불편한 부분이 있어서 질문드립니다. _ 여러 행 또는 열을 한번에 삽입하는 방법..
[4]
|
알랑알랑♥ |
2011-11-29 |
6090 |
북곰님..
다음부터는 처음부터 이렇게게 질문해주세요..
앞뒤 다 자르고.. 컨트롤을 누르는 행위 자체가 필요하다고 말씀하시면..
참으로 대답하기 곤란합니다.
컨트롤을 누르는 행위 자체라는걸 고려할 필요가 없는 작업인 것 같습니다.
그냥 시간 간격으로 카운터를 늘려주고.. 시간이 되면 해당 값을 바꿔주고 대상 영역에 복사해 넣으면 되는것 아닌가요?
어디에 이 동작을 사용하시려는건지 모르겠지만..
첨부파일을 참고하여 수정하여 사용하시기 바랍니다.
** 참고로..
답변 파일에서 저는 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