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

[µo°Ý] ´¡¤J¹Ï¤ù°ÝÃD

[µo°Ý] ´¡¤J¹Ï¤ù°ÝÃD

·Q½Ð°Ý¤@¤U¤j®a¨â­Ó°ÝÃD
1.
EXCEL¬O§_¦³¤½¦¡¥i¥H±NÀx¦s®æ¦WºÙªºÀɮצ۰ʴ¡¤J¹Ï¤ù
¦p
A1Àx¦s®æ¦WºÙ¬°  001
¹Ï¤ù¦s©ñ¸ô®|¬°  C:\PIC\001.JPG
·íA1Àx¦s®æ¬°001®É¡A¦Û°Ê´¡¤J001.JPGªº¹Ï¤ù
·íA1Àx¦s®æ¬°002®É¡A«h¦Û°Ê´¡¤J¦WºÙ¬°002.JPGªº¹Ï¤ù

2.
¦p¦ó­pºâ¦³±ø¥óªº«DªÅ¥ÕªºÀx¦s®æ
¥HCOUNTA²Î­p®É¡AµLªk¥h°µ§PÂ_²Å¦X±ø¥óªº¼Æ­È
¦p¦ó³]©w¤~¥i¥HÅý·í¤£²Å¦X±ø¥óA¸òBªºÀx¦s®æ¥i¥H²Î­p°_¨Ó

1.¯A¤Î´¡¤J°Ê§@À³¸Ó±Ä¥Îvba»²§U
2.countif´N¥i¦³±ø¥ó­p¼Æ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ ¸ô¤ñ ©ó 2010-9-2 01:55 ½s¿è
1.¯A¤Î´¡¤J°Ê§@À³¸Ó±Ä¥Îvba»²§U
2.countif´N¥i¦³±ø¥ó­p¼Æ
Hsieh µoªí©ó 2010-9-2 00:26


½Ð°Ýª©¥D
1.¬O§_¦³®×¨Ò¥i¥H°Ñ¦Ò¡A¦]¬°¥Ø«eµ¥¯Å©|µLªk°µ·j´M¡A½¤F¦n´X­¶³£¨S¬Ý¨ì
­è­è§ä¤F¤@¤U¡A¦³§ä¨ì³o­Ó½d¨Ò¡A¥Ø«e´ú¸Õ¥i¥H§ì¨ì¹Ï¤ù¡A¤£¹L¦p¦ó¤~¥i¥H¸õ¸ô®|¿ï¾Ü¹Ï¤ù¡A¦]¬°¦¹³]©w¶·§â¹Ï¤ù»PEXCEL©ñ¦b¦P¤@¥Ø¿ý©³¤U¤~¥i

Sub ChangeSize()
¡@¡@picname = [a1] & ".jpg"¡@'´¡¤Jªº¹Ï¤ù¦WºÙ
¡@¡@Mypath = ThisWorkbook.Path & "/"
¡@¡@Set MyPic = ActiveSheet.Pictures.Insert(Mypath & picname)
¡@¡@With MyPic
¡@¡@¡@¡@.ShapeRange.LockAspectRatio = msoFalse
¡@¡@¡@¡@.Left = [b2].Left
¡@¡@¡@¡@.Top = [b2].Top
¡@¡@¡@¡@.Width = [b2].Width
¡@¡@¡@¡@.Height = [b2].Height
¡@¡@End With
End Sub

TOP

Mypath = ThisWorkbook.Path & "/"
§ï¬°
Mypath = "C:\PIC\"

TOP

Mypath = ThisWorkbook.Path & "/"
§ï¬°
Mypath = "C:\PIC\"
oobird µoªí©ó 2010-9-2 07:59



    ÁÂÁª©¥D¡A¤w¸gOK¤F

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD