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

[µo°Ý] «ç»ò¨Ï¥Î®Ö¨ú¤è¶ô¤Î«ö¶s

[µo°Ý] «ç»ò¨Ï¥Î®Ö¨ú¤è¶ô¤Î«ö¶s

¥»©«³Ì«á¥Ñ kidnaruto0 ©ó 2010-11-23 15:04 ½s¿è

§Ú·Q§Q¥Î®Ö¨ú¤è¶ô
·í§Ú¤Ä¿ï¬Y´X­Ó®Ö¨ú¤è¶ô¤§«á«ö½T©w«ö¶s
·|±N¦³³Q¤Ä¿ïªº®Ö¨ú¤è¶ô©Ò¹ïÀ³ªºÀx¦s®æ¤º®e
¦L¨ì¥t¤@¤u§@ªíªº¬Y¨Ì«ü©wÀx¦s®æ
¥B«ö·Ó¶¶§Ç©¹¤U±Æ§Ç
¨Ò¦p:
1.¤Ä¿ï¬Y´X­Ó¤§«á«ö½T©w

2.·|±N©M¨ú¤è¶ô©Ò¹ïÀ³ª¾Àx¦s®æ¤º®e
½Æ»s¦Ü¥t¤@¤u§@ªí¤¤ªºÀx¦s®æ
¨Ã«ö·Ó¶¶§Ç©¹¤U±Æ

½Ð°Ý³o¼Ë§Ú­n«ç»ò¥h½s¼g§ÚªºVBA

¨Ò¦p¡G
  1. Sub test()
  2.     Dim p As Shape
  3.     For Each p In Sheet1.Shapes
  4.     If p.Name Like "Check*" And p.OLEFormat.Object.Value = 1 Then
  5.   p.TopLeftCell.Offset(, 1).Copy Sheet2.[a65536].End(3)(2, 1)
  6.     End If
  7.     Next
  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# kidnaruto0
½T©w«ö¶sªºµ{¦¡½X
  1. Private Sub CommandButton1_Click()
  2.     Dim E As Shape, Rng As Range
  3.     With Sheet4
  4.         Set Rng = .Range("b2")
  5.         .Range(Rng, Rng.End(xlDown)) = ""
  6.     End With
  7.     For Each E In Sheet3.Shapes
  8.         If E.Type = msoFormControl And E.Name Like "Check Box*" Then
  9.             If E.OLEFormat.Object.Value = 1 Then
  10.                 Rng.Value = E.TopLeftCell.Offset(, 1)
  11.                 Set Rng = Rng.Offset(1)
  12.             End If
  13.         End If
  14.     Next
  15. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ¨â¦ì¤j¤jªº«ü¾É
¥i¬O
§ÚÁÙ¬O¤£·|¥Î­C

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-11-24 17:03 ½s¿è

¦^´_ 4# kidnaruto0
«ö¶s ¤À ªí³æ«ö¶s ¤Î ±±¨î¤u¨ã½c «ö¶s
¨Ï¥Î ªí³æ«ö¶s¤è¦¡ ¦p¹Ï¤@¦Ü¹Ï¥|,½Ð±Nµ{¦¡½X½Æ»s¨ì¹Ï¥|¤º
















¨Ï¥Î ±±¨î¤u¨ã½c «ö¶s ¦p¤U¹Ï¤­-¤»  ½Ð±Nµ{¦¡½X½Æ»s¨ì¹Ï¤»¤º







TOP

½Ð°Ý¤w·s¼WSheet1©Ò®Ö¨úªº¸ê®Æ¦ÜSheet2«á¡A³]¥t¤@­Ó«ö¶s­n±NSheet1¤u§@ªí¤¤ªº®Ö¨ú¤è¶ô¤¤¤w®Ö¨úªº¤Ä¥þ³¡¨ú®ø¨Ã±NSheet2¤]²MªÅªº¸Ü¡AÀ³¸Ó­n¦p¦ó³]©w©O??

ÁÙ¦³¦pªG©Ò®Ö¨úªºÄæ¦ì¤£¥u¤@Ä檺­È¡A¦³¼Æ­ÓÄæ¦ì¡A¦p¦ó±N¦h­ÓÄæ¦ì¤@¨Ö½Æ¨î¨ìSheet2¸Ì?

®Ö¨ú¤è¶ô½m²ß.rar (8.14 KB)

TOP

¦^´_ 6# emma
¸Õ¸Õ¬Ý
  1. Sub ½T©w_Click()
  2.     Dim E As Shape, Rng As Range
  3.     Sheet2.UsedRange.Offset(1).Clear
  4.     Set Rng = Sheet2.UsedRange.Cells(2, 1)
  5.     For Each E In Sheet1.Shapes
  6.         If E.Type = msoFormControl And E.Name Like "Check Box*" Then
  7.             If E.OLEFormat.Object.Value = 1 Then
  8.                 Rng.Resize(, 2) = E.TopLeftCell.Offset(, 1).Resize(, 2).Value
  9.                 Set Rng = Rng.Offset(1)
  10.             End If
  11.         End If
  12.     Next
  13. End Sub
  14. Sub ²M°£_Click()
  15.     Sheet2.UsedRange.Offset(1).Clear
  16.     For Each E In Sheet1.Shapes
  17.         If E.Type = msoFormControl And E.Name Like "Check Box*" Then
  18.              E.OLEFormat.Object.Value = False
  19.         End If
  20.     Next
  21. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ emma ©ó 2012-10-29 12:04 ½s¿è

ÁÂÁÂGBKEEª©¥Dªº¦^ÂÐ
¥t¥~·Q­n¦A½Ð±Ð¤@¤U¡A¦pªG»¡±a¤JSheet2Äæ¦ì¬O¤£³sÄòªºÄæ¦ìªº¸Ü¡A¸Ó¦p¦ó­×§ïµ{¦¡©O?

¨Ò¦p¿ï¾Ü


±a¤J¦WºÙ¡B¼Æ¶q¡BÁ`ª÷ÃB(¦pªG­n¦³¤d¤À¦ìªº¼Ë¦¡¬O¥u­n¦bÀx¦s®æªº®æ¦¡¤¤³]©w´N¦n¡AÁÙ¬O­n¦b¤½¦¡¤¤°µ³]©w©O?)¡B­t³d·~°È
2012-10-29_120127.jpg

®Ö¨ú¤è¶ô½m²ß.rar (9.68 KB)

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD