結陷

Study/VBA (4)

Excel VBA 원하는 행,열 추출하여 정리하기.

Study/VBA 테르미니 2015. 9. 25. 10:10

아래 예시파일을 보시고 활용하세요.Sub MakeTable() Dim srcRowData Dim destRowData Dim destRowWidth Dim i As Integer Dim rowCount As Integer Dim strBuf As String Dim mArr As String srcRowData = Array("A", "E", "G", "J", "K", "AE", "P") destRowData = Array("A", "B", "C", "D", "E", "F", "G") destRowWidth = Array(12.13, 22.5, 15, 20.88, 10.88, 20.38, 10.88) rowCount = ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count..

[Word] 글자에 해당하는 그림 파일 가져오기

Study/VBA 테르미니 2015. 9. 8. 21:00

원하는 위치의 글자를 선택하여, 글자에 해당하는 이미지 파일 가져오기. Sub TextToImage() ' ' SamYeong.TextToImage Macro ' ' Dim userName As String Dim pngFileName As String Dim jpgFileName As String Dim gifFileName As String Dim imgWidth As Integer Dim centerPosition As Integer Dim imgCount As Integer ActiveDocument.Select With Selection.Find .Forward = True .Wrap = wdFindStop .Text = "Very truly Yours," .Execute End With Sel..

[Word] 그림 삽입 VBA

Study/VBA 테르미니 2015. 9. 8. 20:42

그림을 자동 삽입해주는 매크로입니다. (글자 뒤로 설정해놓았습니다.) Sub Stamp() ' ' stamp Macro ' ' With ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, fileName:= _ "I:\그림위치\1.JPG", LinkToFile:=False, SaveWithDocument:=True) .WrapFormat.Type = 3 .ZOrder 5 End With End Sub

Excel & Word - 머리글&바닥글 삭제

Study/VBA 테르미니 2014. 11. 1. 02:25

머리글&바닥글 삭제 Sub KillHeaderAndFooter() Dim objHF As HeaderFooter Dim objSection As Section For Each objSection In ActiveDocument.Sections For Each objHF In objSection.Headers objHF.Range.Delete Next objHF For Each objHF In objSection.Footers objHF.Range.Delete Next objHF Next objSection End Sub ------------ 응용해서 바닥글만 삭제 한다면 Sub KillFooter() Dim objHF As HeaderFooter Dim objSection As Section For E..

Copyright © 結陷 All Rights Reserved
Designed by CMSFactory.NET

티스토리툴바