hara

Sub address() Range("f2").Select Range("h1").Value = Selection.address End Sub

Sub iff() a = Range("b2").Value b = Range("b3").Value If a = "hara" Then MsgBox ("yes") Range("d3").Value = b & " " & a Else MsgBox ("no") End If End Sub

Sub forr() For i = 1 To 10 Range("f" & i).Value = "for" & i Next End Sub

Sub add() r = 2 c = 3 '셀 선택하기 Cells(r, c).Select '셀에 내용 추가하기 Selection.Value = 100End Sub Sub clear() Cells(2, 3).clearEnd Sub Sub bring() Range("g3").Value = Range("a4").Value End Sub

1. a1에는 hara 입력, 1번시트 a2에 jeon입력Sub test1() Range("a1").Value = "hara" Sheets(1).Range("a2").Value = "jeon" End Sub 2. 1번시트 a3을 선택, a3에 a3입력Sub test2() Sheets(1).Range("a3").Select Range("a3").Value = "a3" End Sub

문장앞에 ' 를 붙이면 주석됨 Sub hello()'시트1에 A1~A100까지 hello로 채우기 시트1.Range("A1:A100").Value = "hello" End Sub