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

checkboxµLªk¦Û°Ê¤Ä¿ï

checkboxµLªk¦Û°Ê¤Ä¿ï

§Ú¥Îexcel VBAµ{¦¡°õ¦æ®É.checkbox¤£·|¦Û°Ê¤Ä¿ï.­Y¬O¤â°Ê¾Þ§@´N¥i¥H.½Ð°Ý³o¥i¯à¬O¤°»ò­ì¦]³y¦¨ªº.
checkbox_enable_0301_01.jpg
2016-3-1 16:34
  1. Sub ¾ã§å¦C¦L()
  2.     Dim i, j, a, b As Integer
  3.     a = Sheet2.Range("F1").Value
  4.     b = Sheet2.Range("H1").Value
  5.    
  6.     For i = a To b
  7.         '±N¸ê®Æ¶ñ¨ì²Ä2¦C
  8.         For j = 2 To 6
  9.             Sheet2.Cells(2, j) = Sheet2.Cells(i, j)
  10.         Next
  11.         
  12.         '©I¥s¦C¦L³æµ§
  13.        ' Call ¦C¦L

  14.    
  15.     Sheets("®Mªí").Select

  16.     'ActiveWindow.SelectedSheets.PrintOut Copies:=1
  17.     MsgBox i
  18.    
  19.     Sheets("Á`ªí").Select
  20.    
  21.     Next


  22.    
  23. End Sub
½Æ»s¥N½X

³qª¾³æ.zip (28.37 KB)

±N¤T­Ócheckbox¤À§O³]©wÀx¦s®æ³sµ²,$D$7,$E$7,$F$7

TOP

¦^´_ 2# ­ã´£³¡ªL


    ÁÂÁÂ,§Ú¦³³]©w,¥u¬O¦b°j°é¤¤·|¨S¦³§@¥Î,¤µ¤Ñ¤S´ú¤F«Ü¤[,³Ì«á¦b°j°é¥[¤Wdoevent´N¸Ñ¨M¤F.
  1. Sub ¾ã§å¦C¦L()
  2.     Dim i, j, a, b As Integer
  3.     a = Sheet2.Range("F1").Value
  4.     b = Sheet2.Range("H1").Value
  5.    
  6.     For i = a To b
  7.         '±N¸ê®Æ¶ñ¨ì²Ä2¦C
  8.         For j = 2 To 6
  9.             Sheet2.Cells(2, j) = Sheet2.Cells(i, j)
  10.             DoEvents
  11.         Next
  12.         
  13.     Sheets("®Mªí").Select

  14.     ActiveWindow.SelectedSheets.PrintOut Copies:=1
  15.    
  16.    
  17.     Sheets("Á`ªí").Select
  18.    
  19.     Next


  20.    
  21. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD