반응형 엑셀6 엑셀 메크로에서 박스 그리기 원래 만든건 450라인 짜리 값을 읽어서 흐름도를 그리는건데 쓰기 힘들어서 일단 핵심만.. 포스팅 Dim ws As Worksheet Set ws = Worksheets(ActiveSheet.Name) Set CondBox = ws.Shapes.AddShape(msoShpeRoundedRectangle, stXPos, stYPos, 100, 50) With CondBox .Name = "CondBox" .Fill.ForeColor.RGB = RGB(250,250,250) .Line.ForColor.RGB = RGB(0,0,0) .Line.Weight = 1 .Adjustments.Item(1) = 0.5 .TextFrame.Characters.Font.Color = 1 .TextFrame.Characte.. 2019. 6. 4. WMI] 엑셀파일 가지고 장난치기 엑셀문서에서 뭔가 조합해서 뽑아내기 위해서 만들었던 건데.. 그냥 주석만 몇개 달고 그냥 올려 버리는거임... 정리해서 필요한거 몇줄만 올려야 되는데.. 귀차나 귀차나 ~ 캬아 캬아 간만에 포스팅질 ~ :D 3개월만인가 ;; Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "테이블 정의서|*.xls|All Files|*.*" objDialog.FilterIndex = 1 objDialog.InitialDir = "C:\" intResult = objDialog.ShowOpen If intResult = 0 Then Wscript.Quit Else targetFile = objDialog.FileName End If .. 2009. 8. 14. 엑셀] 문자열에서 단어 찾아 내기 음.. 어째 최근들어 엑셀 관련 포스팅을 자주 다루는거 같네요.. 이번에는 특정 셀의 문자열 속에서 특정 문자를 찾아 보기로 하겠습니다. 예를 들어서. "곰,호랑이,늑대,두더지,개구리,사자" 이라는 문자열 속에서 호랑이가 있는지를 판단해야 할 때. 만약 호랑이라는 단어가 있다면 간단하게. "있다"라고 표기를 해 봅시다. 여기서 사용할 함수는 IF, FIND와 ISNUMBER 입니다. 요 짧은 포스트 속에서 세가지의 함수를 써 먹는군요!!!! 요렇게 만들 겁니다. 간단한건데 조금 어지럽게 되어 있네요.. =_=;; 항상 그렇듯이.. 쉬운 방법은 모르겠고 삽질해서 꾸역꾸역 끼워 맞추는...... 찾기를 위해서 FIND라는 함수를 사용했는데 SEARCH 함수를 써도 무방합니다. SEARCH함수는 와일드카드 검.. 2008. 2. 27. 엑셀] 두 셀의 문자 하나로 합치기 에... 최근에 엑셀 관련 포스트 업데이트를 다 하는 구려 ㅡㅡ;; ------------------------------------------------------------------------------------------------- 뭐... 대략 발로 만든 메크로 이네요... ㅎㅎ;; A셀과 B셀의 내용을 합쳐서 C셀에 찍습니다. 대충 보시면 아시겠지만.. 1~600 행 까지 뒤집니다... 난감하게 만들었슴다 -_-a 그냥 문자 조작하기 ㅎㅎ 여기서 살을 붙이고 요래요래요래해서 커스터 마이징 하면 나름 쓸만합니다.하하하하하!!! =ㅠ=;; Sub StrCat() For i = 1 To 600 val1 = Range("A" & i).Value val2 = Range("B" & i).Value R.. 2008. 2. 27. 이전 1 2 다음 반응형
