본문 바로가기

전체 글

 (37)
[VBA] Control 1. If If a < 10 Then ElseIf a < 20 Then Else End If 2. Select Case Select Case a Case a < 10 Case a < 20 Case Else End Select 3. Choose Choose(index, "A", "B", "C", "D") Choose(index, choice1, choice2, choice3, ...) index 는 1 이상의 정수 4. For 1) For Dim a As Integer For i = 1 To 10 a = a + i Next 2) Step Dim a As Integer For i = 10 To 1 Step -1 a = a + i Next 3) Exit For Dim a As Integer For i = 1 ..
[VBA] Array 1. 정적 배열 Dim array1(2) As String array1(0) = "A" array1(1) = "B" array1(2) = "C" Debug.Print array1(2) 배열의 크기는 2이며 요소 개수는 3개 (0부터 시작하므로) 2. 동적 배열 1) ReDim Dim array1() As String ReDim array1(2) array1(0) = "A" array1(1) = "B" array1(2) = "C" Debug.Print array1(2) ReDim 문을 사용하여 실행중에 배열의 크기 조정 가능 2) ReDim Preserve Dim array1() As String ReDim array1(2) array1(0) = "A" array1(1) = "B" array1(2) = "..
[VBA] Excel - 그림 1. 그림 삽입 Dim sheet1 As Worksheet Set sheet1 = Sheets(1) Dim range1 As Range Set range1 = sheet1.Range("B2") Dim file As String file = "C:\Test\test.jpg" Dim shape1 as Shape Set shape1 = sheet1.Shapes.AddPicture(file, msoFalse, msoTrue, 0, 0, 0, 0) shape1.Top = range1.Top shape1.Left = range1.Left shape1.ScaleHeight 1, msoTrue shape1.ScaleWidth 1, msoTrue AddPicure(Filename, LinkToFile, SaveWithD..

티스토리툴바