매일 채워가는 꽃바구니

다음과 같은형식으로 만들기 원하는데요. 위에 엑셀형식을 밑에 엑셀 형식으로 숫자를 붙여서,,, 수작업하기에는 너무나 양이 많습니다. 함수나 다른것들을 이용하여 쉽게 변환할수 있는 방법은 없는건가요? 네이버 아이디 : bfy0110 님 질문 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 본좌 답변 >> 코드 작성해봤습니다 ^^ 그냥 함수로는 불가능 하네요 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Sub 변환() Dim i As Long Dim r_index As Long, c_index As Lo..

지식인 질문 : montegue님 답변 : Sub Macro1() Dim c As Range Dim f As Range Application.DisplayAlerts = 0 Set f = Range("A1") For Each c In Range(f, f.End(xlDown)(2)) If c f Then Range(f, c.Offset(-1)).Merge Set f = c End If Next c Application.DisplayAlerts = 1 End Sub

지식인 질문 : A열 B열 C열 D열 E열 F열 G열 H열 I열 날짜 물량 차량번호 날짜 물량 차량번호 날짜 물량 차량번호 2009년 8월 5일 12.00 서울12가1234 2009년 8월 5일 12.00 서울12가1234 2009년 8월 5일 12.00 서울12가1234 2009년 8월 6일 12.00 서울12아2456 2009년 8월 6일 12.00 서울12아2456 2009년 8월 6일 12.00 서울12아2456 2009년 8월 7일 11.00 서울12아8585 2009년 8월 7일 11.00 서울12아8585 2009년 8월 7일 11.00 서울12아8585 2009년 8월 8일 16.00 서울12가7942 2009년 8월 8일 16.00 서울12가7942 2009년 8월 8일 16.00 서울1..

함수 방식의 기본적인 VBA 코딩을 해보았다. 그리고 이번 글에서는 조금 딱딱한 진행을 할 수밖에 없을 듯하다. 이론적인 부분을 많이 해야하기 때문이다. 1. 개체(Object) 엑셀 상에서 코드를 통해 다룰 수 있는 물건들을 개체라고 한다. 크게 본다면 엑셀에서 확인 할 수 있는 개체는 워크북, 워크시트, 차트, 셀범위 등이 있을 것이다. 2. 속성(Property) 개체가 가지고 있을 수 있는 성격을 의미합니다. 예를 들어 셀의 내부색을 빨강으로, 글자의 크기를 13으로, 워크시트의 이름을 Sheet5로, 통합문서의 시트의 개수를 7개로, 등등으로 표현할 수 있다. 3. 방법(Method) 동작에 해당하는 의미의 단어로써. 프로그램을 종료하라. 셀의 내용을 복사하라. 등의 직접적인 명령이 정의되는 것..

지식인 질문 : 안녕하세요. 긴급하게 엑셀을 정리해야 합니다. 엑셀에 대한 기초가 없는 저로서는 상당히 힘든 작업이네요. 매번 3000개가 넘는 행을 일일이 확인하며 수작업으로 하려니 시간도 많이 걸리고, 오류도 많이 생기네요. 또 이런 작업을 매주 해야 하다보니, 고수님들의 고언을 부탁드립니다. 아래의 예 1) 에서 보시면 원본자료는 A,B만 있습니다. 옆의 예 2)는 수작업한 자료입니다. 그 아래의 예 3)은 최종작업까지 끝낸 자료입니다. 함수등을 이용해서 예2) 정도만 되도 만족입니다. 결론을 말씀드리자면 A,B의 사용자 지정 정열을 사용해서 오름차순으로 정열한 다음 새로운 열을 만들어 CARTON NO.(박스 번호)를 1번부터 순차적으로 표시하고자 하는 것 입니다. A 2, B2/ A3, B3 /..

지식인 질문 : 한 시트 전체가 숫자 (예> -3.12354342 E-12, 7.4341231231 E-06 ) 채워져 있는데요. 그중 -값(음수)을 지우려고 합니다. 간단한 수식으로 -값(음수)의 셀을 찾아서 셀포인트를 이동할 수 있을까요? 답변 부탁드려요. 본좌 답변 : 매크로로 만들어보았습니다. 동영상 참조해보세요^^ Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer Dim i_one As Integer Dim j_one As Integer '데이터 부분 크기 잡아주는 부분입니다. 원하시는 셀을 임의로 선택하시면되요 i = Cells(2, 5).Value j = Cells(2, 6).Value 'i는 행 j는 열 변수입니다. ..

지식인 질문 : A B C D 1 a 1 a1 2 b 2 a2 3 c b1 4 b2 5 c1 6 c2 7 1a 8 1b 9 1c 10 2a 11 2b 12 2c 모두들 좋은 하루 되시고요. a열과 b열을 조합했을때 결과가 d열에 나오고 있는 모습인데요.. 이런 식으로 두개의 열이나 행을 조합해서 (단, 각 열에서 1나씩만 선택ㅎㅐ서...) 시트의 다른 부분에 출력할려면 어떻게 해야 하는 지 알려주세요ㅠ 비밀번호를 잊어버려서ㅠ 본좌 답변 : 불필요하게 코드가 길긴 하지만요. 제가 해드릴 수 있을만큼은 이정도네요. Private Sub pot() Dim i As Integer Dim j As Integer Dim k As Integer Dim i_end As Integer Dim j_end As Intege..

지식인 질문 : 엑셀에서요, sheet1의 자료와 sheet2의 자료를 단순하게 비교하려면 어떻게 해야하나요. 예를 들어서 sheet1의 자료와 sheet2의 자료가 다 같은데 d4 셀만 다를경우 표시가 되도록 하고 싶거든요. 부탁드립니다~! 본좌 답변 : 데이터가 너무 방대할 경우에는 프로그램이 멈출 가능성이 있습니다만 VBA 코드를 이용해서 만들어보면요. 동영상 참조요^^ Private sub chksheet() dim i as long dim j as integer with sheet1 for i = 1 to 100 for j = 1 to 50 if .cells( i , j) sheet2.cells(i, j) then .cells( i, j).interior.colorindex = 3 end if ..

지식인 질문 : 하나의 셀을 선택하면 해당되는 전체 행이 선택되고 선택된 셀은 아래 그림과 같이 반전이 일어 나도록 코딩할 수 있나요? 본좌 답변 : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Integer With Target If .Column > 20 Then Exit Sub For i = 1 To 20 Step 1 Columns(i).Interior.ColorIndex = xlNone Next For i = 1 To 20 Step 1 Cells(Target.Row, i).Interior.ColorIndex = 15 Cells(Target.Row, Target.Column).Interior.ColorIndex = 17..

코딩은 왕도가 없다. 한 줄 한 줄씩 이해해 나가면서 다음번에는 그 구문을 응용해나가는 방식을 추천한다. Visual Basic(이하 VB)에서는 이러한 코딩을 한 단계 쉽게 만들어 준다. 바로 [구성원 자동 목록] 이라는 기능이다. 사용법과 설정법은 화면을 통해 차근차근 배워보도록 하자. VBE에 코딩을 위해 선택해야할 사항이 있다. 매크로로 실행할 것인가? 함수로 실행할 것인가? 매크로는 또 다시 워크시트에 적용을 통해 Passive한 코딩을 할 것인가? 버튼을 이용한 Active한 코딩을 할 것인가? 함수식 코딩을 해보도록 한다. VBE를 실행시키도록 하자. 1. [삽입] - [모듈] 메뉴를 이용해서 Module1을 추가하자. 2. 추가된 Module1을 더블클릭하자. 3. 오른쪽 코드창이 열리면 ..