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

[µo°Ý] Åý«ö¶sºû«ù©T©w¦ì¸m+Àx¦s®æ®æ¦¡³]©w

[µo°Ý] Åý«ö¶sºû«ù©T©w¦ì¸m+Àx¦s®æ®æ¦¡³]©w

±z¦n¡A·Q­n½Ð±Ð¤@¤U¤G­Ó°ÝÃD
1.¬O§_¥i¥H±Nªþ¥ó¤¤ªº¤G­Ó«ö¶sºû«ù©T©w¦b¨Ï¥ÎªÌªºµøµ¡¤§¤¤¡A
  ¤£·|¦]¬°±²¶b¤U©Ô©Î¬OÀx¦s®æ³Q¿z¿ï¦ÓµLªkÂI¿ï¨ä«ö¶s
2.¦p¦óÅýSheet2©Ò°õ¦æ¥XªºÁ`ª÷ÃBÄæ¦ì°£¼ÐÃD¥~¡AÅã¥Ü®æ¦¡¬°¡u¬õ¦r+¤d¤À¦ì¼Ë¦¡¡v

¥H¤W¡AÁÂÁ¦U¦ì¤j¤j¤£§[«ü±Ð^^

1.jpg
2012-10-30 15:59

2.jpg
2012-10-30 15:59

3.jpg
2012-10-30 15:59


VBAtest.rar (11.06 KB)

¦^´_ 1# emma
¤G­Ó«ö¶sºû«ù©T©w¦b¨Ï¥ÎªÌªºµøµ¡¤§¤¤¡A
³o¸Ì¤w°Ý¹L!

Åã¥Ü®æ¦¡¬°¡u¬õ¦r+¤d¤À¦ì¼Ë¦¡¡v

  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.Offset(, 0) = E.TopLeftCell.Offset(, 1).Value
  9. Rng.Offset(, 1) = E.TopLeftCell.Offset(, 2).Value
  10. Rng.Offset(, 2) = E.TopLeftCell.Offset(, 5).Value
  11. Rng.Offset(, 3) = E.TopLeftCell.Offset(, 7).Value
  12. Set Rng = Rng.Offset(1)
  13. End If
  14. End If
  15. Next
  16. With Rng.CurrentRegion.Offset(1).Columns(3) '²Ä3Äæ
  17. .NumberFormatLocal = "#,##0_ "
  18. .Font.ColorIndex = 3
  19. End With
  20. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

ÁÂÁÂGBKEEª©¥D

µ{¦¡ªº³¡¥÷¬O¨S°ÝÃD¤F¡A¦ý«ö¶sªº³¡¥÷ÁÙ¬OµLªk©T©w¦b¦ì¸m¤W¡A¬O§Ú¿òº|¤F¤°»ò¶Ü?


¡õ¤£³æ¥u¬O°µ³o­Ó°Ê§@¶Ü?
2012-10-30_174023.jpg
2012-10-30 17:43


VBAtest2.rar (11.48 KB)

TOP

¦^´_ 3# emma
­áµ²µ¡®æ ¬O¨S¿ìªk¦p§A©Ò»¡ªº¥\¯à ,¥[¤j­áµ²µ¡®æªº¦C¼Æ§a
¸Õ¸Õ ¦Û°Ê¿z¿ï ¬O¥i¥Hªº

TOP

¦^´_ 4# GBKEE


    ÁÂÁÂGBKEEª©¥D¡A­è¸Õ¤F¿z¿ï½T¹ê¨S¦³°ÝÃD¡A¦ý§Y¨Ï¨ú®ø¤F­áµ²µ¡®æ¡A
    ¥u­n±N±²¶b©¹¤U©Ô«ö¶sÁÙ¬O·|®ø¥¢¦bµøµ¡¤¤¡A¤@©w­n©Ô¨ì³]¸m«ö¶sªº¦ì¸m¤~¥i¥HÂI¨ì«ö¶s¡A
    ¬O¦³·j´M¹L¤@½gÃþ¦ü¥\¯àªº¤å³¹
    http://forum.twbts.com/viewthrea ... ighlight=%AB%F6%B6s
    ¦ý¦]¬°¬ã¨s¤£°_¨Ó­n¦p¦ó®M¥Î¡A©Ò¥H¥u¦n¦A«pÁy¥Öªº´£°Ý¥X¨Ó

TOP

¦^´_ 5# emma
¨º­n¤Þ¥Î API ¨ç¼Æ §A¥i¸Õ¸Õ,
¥t¥i¥Î·s¼W¥\¯àªí¤]¯à´À¥N¬Ý¬Ý

    test.rar (11.56 KB)

TOP

¦^´_ 6# GBKEE


    ÁÂÁÂGBKEEª©¤j¡A±z©Ò§¹¦¨ªºªþ¥ó½T¹ê¥i¥H²Å¦X§Ú·Q­nªº¥\¯à¡A¥u¬O§Ú§¹¥þ·d¤£À´­n¦p¦ó¤~¯à»s§@¥X³o­Ó®ÄªG¡A
    ¦]¬°¬O­n®M¥Î¨ì§Oªº¤u§@ªí¸Ì¡A¦pªG¥i¥Hª¾¾å­n¦p¦ó°µ¨ì³o¼Ëªº¥\¯à¹Lµ{´N¦n¤F¡A§Ú·|¸ÕµÛ¦A¬ã¨s¤@¤U¡AÁÂÁ±z^^

TOP

¥»©«³Ì«á¥Ñ emma ©ó 2012-10-31 17:13 ½s¿è

¦^´_ 6# GBKEE


    GBKEEª©¤j¡A¤£¦n·N«ä¡A·Q¸ò±z¥t¥~½Ð±Ð¤G­Ó°ÝÃD
    1.¦b¡i¬d¸ß¡jªº¤u§@ªí¤¤¡A¥i¥HÅý¤À©±ªº²M³æ¤@ÅÜ°Ê´NÅý¤U¤èªº¡iÀx¦ì¡jÄæ¦ì¸òµÛ¤@¨Ö§ó·s¶Ü?
    2.³o¬q¬O­þÃ䪺Å޿観»~¶Ü?¬°¤°»ò¡iÁ`©±¡jªºÀx¦ì¸ê®Æ¥i¥H¥¿±`±a¥X¡A¦ý¬O¡i¤À©±¡j«o¤£¦æ©O?
  1. If Sheet2.[B1] = "Á`©±" Then
  2.     Rng.Offset(, 4) = E.TopLeftCell.Offset(, 6).Value
  3. If Sheet2.[B1] = "¤À©±" Then
  4.     Rng.Offset(, 4) = E.TopLeftCell.Offset(, 7).Value
  5.     End If
  6.     End If
½Æ»s¥N½X
¦]¬°ÁÙ¨S¬ã¨s¥X±z
0.jpg
2012-10-31 16:51
ªºµ{¦¡¬O¦b­þ¸Ì½s¿èªº¡A©Ò¥H´N¥ý¥Î§Ú¦Û¤vªºÀɮפU¥h§ï>///<
==============================================================================================
¡ô¤£¦n·N«ä¡A²Ä¤G­Ó°ÝÃD§Ú§ä¨ì¤F¡AEnd IF ªº¦ì§Ú¨S©ñ¦n
  1. If Sheet2.[B1] = "Á`©±" Then
  2.     Rng.Offset(, 4) = E.TopLeftCell.Offset(, 6).Value
  3.     End If
  4. If Sheet2.[B1] = "¤À©±" Then
  5.     Rng.Offset(, 4) = E.TopLeftCell.Offset(, 7).Value
  6.     End If
½Æ»s¥N½X
´N¨S°ÝÃD¤F>"<

1.jpg
2012-10-31 16:53


2.jpg
2012-10-31 16:53


VBAtest5.rar (12.95 KB)

ÁÂÁ±z^^

TOP

¤£¦n·N«ä¡A¦A·s¼W¤@­Ó°ÝÃD¡A¦pªG¡i¹wÁʪ¬ºA¡j»Ý­n¨Ì¸ê®ÆÀɤu§@ªí¤¤ªº¡i¥X³f¤é¡jÄæ¦ì¥h°µ§PÂ_
¥i¤£¥i¥H¹wÁʪº¸Ü¡A­n¦p¦ó³]µ{¦¡¥h°µ§PÂ_©O?
±ø¥ó¬O¨Ò¦p¥X³f¤é¬°101/11/10ªº¸Ü¡A¨º¡i¥i¹wÁÊ¡jªº¤é´Á´N¬°101/10/30¡A¶W¹L101/10/30´N¬°¡iµLªk¹wÁÊ¡j

ÁÂÁÂ^^

1.jpg
2012-10-31 17:42


VBAtest5.rar (13.22 KB)

TOP

¤£¦n·N«ä¡A§Ú­n½s¿è¦A¸É¥R¤@ÂI¥i±¤¤w¶W¹L¤T¤ÀÄÁ¤F>"<
================================================
¹³¦³ªº¤ë¥÷¦³31¤Ñ¡A¨Ò¦p¥X³f¤é¦pªG¬°101/11/01¡A¶W¹L101/10/21´N¬°¡iµLªk¹wÁÊ¡j¡A¤£¬O101/10/22¤~¡iµLªk¹wÁÊ¡j
¤£¾å±o¯à§_³o»ò³]©w¡AÁÂÁÂ^^

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD