로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2013.12.19 19:09:07 *.104.126.21
요셉님..
네.. 상대참조로 해결할 수 있는 방법은 없는 것 같습니다.
혹시.. VBA에 대해서 지식이 있으시다면 아래 코드를 활용해보세요..
VBA가 생소하시다면.. 그냥 손으로 하시는게 더 편하실겁니다.
Sub addCheckBox()
Dim sht As Worksheet: Set sht = ActiveSheet
Dim rng As Range: Set rng = ActiveCell
Dim ckBox As Object
For i = 1 To 6
Set ckBox = sht.CheckBoxes.Add(rng.Left + 7, rng.Top, rng.Width - 7, rng.Height)
ckBox.LinkedCell = rng.Offset(, 16).Address
ckBox.Characters.Text = ""
Set rng = rng.Offset(, 1)
Next i
End Sub
즐거운 하루 되세요.. ^^)/
새 창으로
선택한 기호
![[레벨:4]](http://abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:1908point (57%), 레벨:4/30"){kind=icon}
요셉
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141861point, 레벨:30/30"){kind=icon}
아별
요셉님..
네.. 상대참조로 해결할 수 있는 방법은 없는 것 같습니다.
혹시.. VBA에 대해서 지식이 있으시다면 아래 코드를 활용해보세요..
VBA가 생소하시다면.. 그냥 손으로 하시는게 더 편하실겁니다.
Sub addCheckBox()
Dim sht As Worksheet: Set sht = ActiveSheet
Dim rng As Range: Set rng = ActiveCell
Dim ckBox As Object
For i = 1 To 6
Set ckBox = sht.CheckBoxes.Add(rng.Left + 7, rng.Top, rng.Width - 7, rng.Height)
ckBox.LinkedCell = rng.Offset(, 16).Address
ckBox.Characters.Text = ""
Set rng = rng.Offset(, 1)
Next i
End Sub
즐거운 하루 되세요.. ^^)/