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

[µo°Ý] ½Ð°Ý¦p¦óÂIÀ»¹Ï¤ù§@©ñ¤j®ÄªGªº¥¨¶°

[µo°Ý] ½Ð°Ý¦p¦óÂIÀ»¹Ï¤ù§@©ñ¤j®ÄªGªº¥¨¶°

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2011-2-21 15:24): ÀÉ®×·lÃa½Ð­«·s¤W¶Ç

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-2-21 19:36 ½s¿è

§ó·s¤å¥ó :

1.zip (309.6 KB)

Dear ¦U¦ì«e½ú¤Îª©¥D : ¤p§Ì·Q°µ¤å¥ó¤º®e¹Ï¤ùªºÂIÀ»©ñ¤j®ÄªG,¦bª¦¤å«áµo²{¤@½gÃþ¦ü¤å,¦ý¹ï¨ä¥¦¥¨¶°¤º®e¤£¬O«Ü¤F¸Ñ,¥i§_½Ðª©¥D©Î¦U¦ì«e½ú
À°¦£¸ÑÄÀ¤@¤U,©Î¦³§ó¦nªº¤è¦¡,ÁÂÁÂ!
ÀɮשR¦W¦³µLªk¸ÑŪ¦r¤¸¡AµLªk¸ÑÀ£ÁY

¦^´_ 1# cmo140497


    ¹Ï¤ù©ñ¤j
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁª©¥D,¤p§Ì´¿¦³ª¦¤å¨ì±z©Ò¦^ÂЪº³o½g,¦ý¤p§Ì¼h¯Å¤£°÷,µLªk¤U¸ü,¥B°w¹ï
©ó±z¤å³¹¤¤©Ò´£¤ÎTitle"©ñ¤jÅã¥Ü©óA1Àx¦s®æ"¤Î"¤@¯ë¼Ò²Õ",¤p§Ì¤£ª¾¹D»Ý±N¨ä
¥¨¶°¶K¦Ü­þ¸Ì¤è¥i¨Ï¥Î?¥B¥¨¶°¤@ª½alarm «¬ºA¤£²Å¦X,·PÁ¤j¤jªº¨ó§U,ÁÂÁÂ!

TOP

¦^´_ 4# donald


    ·PÁ¤j¤jªº«ü¥¿,¤p§Ì¹ê¦b¬O¨S¤°»ò·§©À,½Ð±Ð¦³¨S¦³¤°»ò®ÑÄy¥i¥H³þ©w°ò¦ªº,ÁÂÁÂ!

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-2-22 11:20 ½s¿è

¦^´_ 5# cmo140497




©ñ¤j¹Ï¤ù.rar (308.85 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

½Ð°Ýª©¥D,¬O§_¥u­n±N"¦^´_ 5# cmo140497"ªºµ{¦¡§¹¦¨key in ¦Üexcel¥¨¶°ªº«ü©w¦ì¸m,§Y¥i¹ï©ó©Ò´¡¤Jªº¹Ï¤ù³£¥i¥H¦³¹ï¹Ï¤ùÂI¤@¤U,´N¥i¥H©ñ¤jªº®ÄªG¡C¹ï¥¨¶°ÁÙ«D±`­¯¥Íªºªì¾ÇªÌ¡CÁÂÁ¡ã
¥t¥~´£¨Ñ¤@­Ó¤è¦¡¡A¥i¥H¤£¥Î¼gµ{¦¡¤]¥i¥HÅý¹Ï¤ùµy¬°©ñ¤jªº®ÄªG¡A´N¬O§Q¥ÎÀx¦s®æªº³Æµù®ÄªG¡A±N³Æµù®æ¦¡¶ñº¡®ÄªG§ï¬°©Ò»Ý­nªº¹Ï¤ù¡A¦A±N³Æµù©Ô¦Ü©Ò»Ý­nªº¤j¤p¡A¤§«á¥u­n·Æ¹«°±¯d¦b¸ÓÀx¦s®æ¡A§Y¥i¥X²{¹Ï¤ù¡C
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 8# dsbleed
·ÓµÛKEY INµ{¦¡½X
­«·s¶}±ÒÀɮקY¥i
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁª©¥Dªº¸Ñµª,¨Ìª©¥Dªºµ{¦¡½X key in ¸Õ¸Õ¬Ý~~­Y¦³°ÝÃD,¦A·Ð³Âª©¥D¦Aµ¹¤©¸Ñµª«ü±Ð~~ÁÂÁÂ~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

½Ð°Ýª©¥D,¨Ì·Óµ{¦¡key in ¤§«á,¨Ã¤£¯à°õ¦æ²{¥X°T®§¬°¡G°õ¦æ¶¥¬q¿ù»~"13"«¬ºA¤£²Å¦X¡A
µM«á¦bWith Sheet1.Shapes(sh)¥X²{°ÝÃD¡C¤£§_³Â·Ðª©¥D¬Ý¬Ý¡ãÁÂÁ¡ã¡ã
©Òkey in ¤§µ{¦¡¦p¤U¡G
Sub Macro1()
Dim a As Range
sh = Application.Caller
With Sheet1.Shapes(sh)
Set a = .TopLeftCell
h = a.Height
w = a.Width
.LockAspectRatio = msoFalse
.Height = IIf(.Height = h, h * 2, h)
.Width = IIf(.Width = w, w * 2, w)
.ZOrder msoBringToFront
End With
End Sub



Private Sub Workbook_Open()
Dim sh As Shape
With Sheet1
For Each sh In .Shapes
With sh
.OnAction = "Shape_Zoom"
.Height = .TopLeftCell.Height
.Width = .TopLeftCell.Width
End With
Next
End With
End Sub
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 11# dsbleed


    Shape_Zoom¬O­n¿é¤J¥¨¶°¦WºÙ
.OnAction = "Shape_Zoom"
§ï¦¨
.OnAction = "Macro1"

¥B¥²¶·«ö¹Ï¤ùÅX°Êµ{¦¡
§_«hcaller·|¶Ç¦^¿ù»~
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD