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

[µo°Ý] ±Nªí³æ¹Ï¤ù¡A¼g¤J¥t¥~¤@­Ósheet¸Ì

vbaªí³æ±a¥XexcelÄæ¦ìªº·Ó¤ù

¦pÃD

½Ð±Ð¦U¦ì«e½úª¾¹D»yªk¸Ó«ç»ò¼g¶Ü¡H

TOP

¦pÃD

½Ð±Ð¦U¦ì«e½úª¾¹D»yªk¸Ó«ç»ò¼g¶Ü¡H

¸ê®Æªí¦³¤¤¨ä¤¤¤@­ÓÄæ¦ì¬O¶K¹Ï¤ù
2.jpg
2016-4-22 13:44


¬d¸ß«á¡A·|±a¥X¬ÛÃöªº¸ê°T¼i¾ú
1.jpg
2016-4-22 13:44

TOP

½Ð¤j¤j¦Û¦æ¨Ì¼Ëµe¸¬Äª
http://snipplr.com/view/54755/

¶×¥X¦s¹ÏÀÉ«á ,  ¦A¥Î  LoadPicture( ) §â¥¦Åª¶i¨Ó
userform1.Image1.Picture = LoadPicture(­è­è¶×¥Xªº¹ÏÀɸô®|)

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2016-4-22 20:09 ½s¿è

¦^´_ 2# xgirlxs


    ½Ð°Ñ¦Òhttp://forum.twbts.com/viewthrea ... %D7%A4J%B9%CF%A4%F9

TOP

¦^´_ 3# jackyq


    ÁÂÁ±zªº¦^´_...
    ©Ò¥H§Ú¤£¯à±qEXCELª½±µ§â¹Ï©ñ¨ìªí³æ¡A¦Ó¬O­n¦b¸ê®Æ§¨¦s¹Ï¤ù¡A¦A¶×¨ìªí³æ¤º¹ï§a?

TOP

«ô°Ý google ¤j¯«

¼È®É¨S¬Ý¨ì¥i¥Hª½±µÂà¶iªí³æªº¼gªk

TOP

¦^´_ 6# jackyq
AA.zip (126.83 KB)
·PÁ§AªºÀ°¦£¡A§Ú¥Ø«e¥u°µ¦n³o¼Ë¤l¡A½Ð¨£ªþ¥ó¡A¥i¬OÁÙ¬O¸ò§Ú·Q°µªº¸¨®t«Ü¤j
§Ú¬O§Æ±æ±qEXCEL¬d¸ßABC¡A3Sheet¸ÌªºªF¦è
²Å¦X±ø¥óªÌ¡A·|±a¥Xªí³æ (©Ò¥Hªí³æ·|±a¦hµ§¸ê®Æ)

¯à¦A½Ð§AÀ°¦£¸Ñµª¤@¤U¶Ü? ·PÁÂ

TOP

§Aªº EXCEL ª©¥»«Ü°ª

§Úªº ¥j¸³ 2000 ª©¨Sªk°õ¦æ

§A­n½Ð¨ä¥L¤j¤jÀ°§AÁ@Á@¬Ý

TOP

¦^´_ 9# xgirlxs
°µ­Ó²³æ½d¨Ò
§Q¥Î¹Ïªí¶×¥X¹Ï¤ùµM«á¸ü¤J
§A¦Û¤vÀ³¥Î¬Ý¬Ý
play.gif
2016-4-26 10:26
  1. Private Sub ComboBox1_Change()
  2. Dim a As Range
  3. Application.ScreenUpdating = False
  4. With ¤u§@ªí1
  5.   Set a = .Columns("A").Find(ComboBox1, lookat:=xlWhole)
  6.   Label1.Caption = a.Offset(, 1)
  7.   a.Offset(, 2).CopyPicture '½Æ»s¦¨¹Ï¤ù
  8.   With .ChartObjects.Add(1, 1, a.Offset(, 2).Width, a.Offset(, 2).Height) '·s¼W¹Ïªí
  9.     .Chart.Paste '¶K¤W¹Ï¤ù
  10.     .Chart.Export "D:\temp.jpg" '¶×¥X¹Ïªí¡A¼È¦s¹Ï¤ù
  11.     .Delete '§R°£¹Ïªí
  12.   End With
  13.   Image1.Picture = LoadPicture("D:\temp.jpg") 'ªí³æÅã¥Ü¹Ï¤ù
  14.   Kill "D:\temp.jpg" '§R°£¼È¦s¹Ï¤ù
  15. End With
  16. Application.ScreenUpdating = True
  17. End Sub


  18. Private Sub UserForm_Initialize()
  19. Dim a As Range
  20. Set d = CreateObject("Scripting.Dictionary")
  21. With ¤u§@ªí1
  22.    For Each a In .Range(.[A2], .[A2].End(xlDown))
  23.       d(a.Value) = ""
  24.    Next
  25. End With
  26. ComboBox1.List = d.keys
  27. End Sub
½Æ»s¥N½X
¹Ï¤ù¿ï¨ú.zip (27.63 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 10# Hsieh

ÁÂÁÂHsieh¡A§Ú¤w¸g¦¨¥\¬ã¨s¥X¨Ó¤F¡A¦p¤U¹Ï
bb.jpg
2016-5-9 09:38


¦ý¬O¡A¦pªG§Ú­n¦bªí³æ¤¤´¡¤J¹Ï¤ù¡A¼g¤J¤u§@ªíÄæ¦ì¤¤
³o¦³¿ìªk¶Ü??

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD