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

·s¤â´ú¸Õ

·s¤â´ú¸Õ

·s¤â´ú¸Õ :lol
  1. Private Sub gg_Click()

  2.      If gg.Value = True Then

  3.      gg.Caption = "°»´ú¤¤"
  4.      
  5.      Else
  6.      
  7.      gg.Caption = "°±¤î°»´ú"

  8.      End If

  9.    Worksheets("DET1").Range("A2") = gg.Value

  10.    Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.webget"


  11. End Sub
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD