로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
즐거운 하루 되세요.. ^^)/
새 창으로
선택한 기호
VBA ^^ 또다른 질문입니다. _ 한 시트에서 다른 시트로 데이터를 순차적으로 붙여넣기 [1]
VBA SUMPRODUCT 질문 !! [1]
VBA 두번째 질문 [1]
VBA 도와 주세요. [1]
VBA 매크로.. [1]
VBA 한셀안의 서식을 다르게 지정할 수 있는 방법 없을까요? [5]
VBA 현재 선택 된 셀을 기준으로 같은방식의 연산결과 값을 산출하는 법 [1]
VBA VBA로 정렬하는 법 문의 [6]
VBA 수식이 입력된 셀은 자동으로 색상이 들어가게 하는 방법 [5]
VBA 엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select [1]
VBA .Find 재고 입고월 분석(vba) [3]
VBA .Find ListBox1 에 추가가 되지를 않습니다. [3]
VBA .Find 매크로 질문입니다.~ [2]
요셉님..
네.. 상대참조로 해결할 수 있는 방법은 없는 것 같습니다.
혹시.. 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
즐거운 하루 되세요.. ^^)/