ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó±NOptionButton§PÂ_§ï¦¨TextBox§PÂ_?

[µo°Ý] ¦p¦ó±NOptionButton§PÂ_§ï¦¨TextBox§PÂ_?

  1.     On Error Resume Next

  2.     For I = 6 To 21

  3.         If Me.Controls("OptionButton" & I).Value = True Then

  4.             Set Ws = Sheets("" & I + 2006 & "")

  5.             If Ws Is Nothing Then

  6.                 ThisWorkbook.Sheets.Add().Name = "" & I + 2006 & ""
  7.             
  8.                 Sheets("2012").Select
  9.             
  10.                 Cells.Copy Sheets("" & I + 2006 & "").[A1]
  11.         
  12.                 Sheets("" & I + 2006 & "").Select
  13.         
  14.                 Range("A1").Formula = I + 2006

  15.                 Call test

  16.                 Unload Me
  17.             
  18.                 Call ShowMsgBox

  19.             Else
  20.         
  21.                 Ws.Select
  22.         
  23.                 Range("A1").Formula = I + 2006

  24.                 Call test

  25.                 Unload Me
  26.             
  27.                 Call ShowMsgBox

  28.             End If
  29.         End If

  30.     Next
½Æ»s¥N½X
¥H¤W¬O§PÂ_OptionButtonªºµ{¦¡½X~¦pªG§Ú±NOptionButton§ï¦¨TextBox~¥B¤£»Ý­n§PÂ_
ª½±µ±Ë¥h
For I = 6 To 21

        If Me.Controls("OptionButton" & I).Value = True Then
ª½±µ§PÂ_~¸Ó¦p¦ó°µ?¦]¬°§Ú­×§ï«á°õ¦æµo²{¾ã­Ó°õ¦æ³t«×Åܱo«ÜºC~

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD