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

[µo°Ý] ¦p¦ó¦bªÑ»ù¹Ï¤U¤èÀ³¥Î VBA ¼W¦C¤@©ÔÅQ¡H

[µo°Ý] ¦p¦ó¦bªÑ»ù¹Ï¤U¤èÀ³¥Î VBA ¼W¦C¤@©ÔÅQ¡H

½Ð±Ð½Ñ¦ì¥ý¶i¡A¦p¦ó¯à¦bªÑ»ù¹Ï¤U¤è (¦pªþ¹Ï) À³¥Î VBA »yªk¨Ó¼W¦C¤@©ÔÅQ (ScrollBar)¡H
¡A¥ý«e GBKEE ª©¤j¦³­Ó½d¥»µ¹§Ú¡A¦ý¬O®³¨ÓÀ³¥Î¦b¦¹³B«o¤£¦¨¥\¡A
¥ú¬O  .ScrollBar1.Min = 1  ªº«Å§i´NµL¯e¦Ó²×¡A§ó¦óªp±µ¤U¥h¤F¡A
­n©Ç¥u¯à©Ç¦Û­Ó¨à¥\¤O¤£¦æ¡I  ªþ¤WÀɮסAÁÂÁ½Ѧì¥ý¶i«ü¾É¡I

ªÑ²¼¹Ïªí»P©ÔÅQ.rar (150.33 KB)

¦^´_ 1# c_c_lai
°Ñ¦Ò±Ð¾Ç

    http://davidpu.pixnet.net/blog/post/25682509-%E8%A3%BD%E4%BD%9C%E5%8F%AF%E6%8D%B2%E5%8B%95%E5%92%8C%E7%B8%AE%E6%94%BE%E7%9A%84-excel-%E8%82%A1%E7%A5%A8%E5%9C%96-(%E4%BA%8C)---

TOP

¦^´_ 2# f3202
ÁÂÁ±z¡I
¦]¬°§Úªº¨C±i¹Ïªí³£¬O°ÊºA²£¥Íªº¡A©Ò¥H§Ú¤~·Q¦b¨C­Ó¹Ïªí¤U¤è§¡¦U¦Û°ÊºA°t¸m¤@²Õ©ÔÅQ¡A¦Ó«DÀRºA(¹w¥ý´N¤w¸g²£¥Í)ªº¡A
¤£¹L±z´£¦@ªººô¯¸¤º®e«D±`ªº´Î¡AÁÂÁ±zªº¤À¨É¡I

TOP

¥»©«³Ì«á¥Ñ alexliou ©ó 2012-5-14 14:31 ½s¿è

¦^´_ 3# c_c_lai
»s§@ Scrolling Chart®É
­«ÂI¬O§âScrollBarªºValue ©M¹Ïªíªº¸ê®Æ¨Ó·½ªº¦ì¸m³s¦b¤@°_

·íScrollBar ªºChange¨Æ¥óµo¥Í®É
¹Ïªí´N¥²¶·±N¸ê®Æ¨Ó·½­«³]¤@¦¸

ªþ¥ó¤¤Àɮצ³¤@­Ó§Q¥Îªøµu§¡½u­È¨Ó¨M©w¶R½æ°T¸¹ªºK½u¹Ï,
¨ä¤¤¦³¨â­Ó­«ÂI:
1. ¦]¬°¸ê®Æ¶q«Ü¦h, ³£©ñ¦b¤@±i¹Ï¸Ì·|Åã±o«Ü¾ÖÀ½, ©Ò¥H¤@±i¹Ï¸Ì­­©w¥u©ñ150®ÚK´Î
    K½u¹Ï¤U³]­p¤F¤@­Ó±²¶b, Åý¨Ï¥ÎªÌ¥i¥H±²°Ê±²¶b¨ÓÀ˵ø¤£¦P®É´Áªº¸ê®Æ
2. ·í¦³¶R½æ°T¸¹¥X²{®É, K´Î¤W·|¥X²{"¶R¶i"©Î"½æ¥X"ªº¼ÐÅÒ
    ¦ý·í±²¶b²¾°Ê®É,³o¨Ç¼ÐÅÒ¤]­n¸òµÛ²¾°Ê

§¡½uµ¦²¤´ú¸ÕÀô¹Ò1.zip (155.06 KB)

Alex

TOP

¥t¤@ºØª©¥»
¹Ï°±¯d¦bWorkSheet¤¤
®t§O¦bScroll Event Handler ¤¤¥[¤J¬Y¨ÇÀô¹ÒÅܼƪº³]©w

§¡½uµ¦²¤´ú¸ÕÀô¹Ò2.zip (170.24 KB)

Alex

TOP

¦^´_ 4# alexliou
Alex ¥S¡A
³\¤[¨SÁpµ¸¤F¡AÁÂÁ±zªº¤À¨É¡A¨ü¯q¨}¦h¡A
¸ÌÀYùئ³¤£¿ùªº³B¸Ì¤èªk¡AÆZ­È±o±´°Qªº¡A
³o¤]¬O§Úªñ¤ë¨Ó¶}©l±µÄ² Excel ¤Î VBA «Ü´ÎªºÁ{§É¹êÅç¡A
¦b¦¹¨¥Á¤F¡I
(½Ð±Ð±z'ªø§¡½u'¬O¦^·¹¦h¤[¡A±z¬O«ç»ò³B¸Ì¼Æ¾Úªº¡H)

TOP

¦^´_ 5# alexliou
§Ú§â DataLabel ¤p§ï¤F¤@¤U¡A®ÄªGÁÙ¤£¿ù¡A½Ð°Ñ¦Ò¡G
  1.             If .DataLabel.Text = "¦h³æ¥­­Ü" Or .DataLabel.Text = "½æ¥XªÅ³æ" Then
  2.                 .DataLabel.Text = .DataLabel.Text & Chr(10) & Format(Cells(i, 5).Value, "###0")      ' ********* ¤p§ï¤F¤@¤U **********
  3.                 ActiveChart.SeriesCollection(4).Points(i - StartKBarRow + 1).MarkerStyle = xlMarkerStyleStar   
  4.                 ActiveChart.SeriesCollection(4).Points(i - StartKBarRow + 1).MarkerSize = 10
  5.                 .DataLabel.position = XlDataLabelPosition.xlLabelPositionBelow
  6.             ElseIf .DataLabel.Text = "ªÅ³æ¥­­Ü" Or .DataLabel.Text = "¶R¶i¦h³æ" Then
  7.                 .DataLabel.Text = .DataLabel.Text & Chr(10) & Format(Cells(i, 5).Value, "###0")      ' ********* ¤p§ï¤F¤@¤U **********
  8.                 ActiveChart.SeriesCollection(4).Points(i - StartKBarRow + 1).MarkerStyle = xlMarkerStyleTriangle
  9.                 ActiveChart.SeriesCollection(4).Points(i - StartKBarRow + 1).MarkerSize = 8
  10.                 .DataLabel.position = XlDataLabelPosition.xlLabelPositionAbove
  11.             End If
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ alexliou ©ó 2012-5-14 20:59 ½s¿è

¦^´_ 6# c_c_lai
¤W¶Çªºµ{¦¡¬O¾ã­Ó§¡½uµ¦²¤¦^´ú¾¹Projectªº¤@³¡¥÷
¥¦ªº¥\¯à¶È³B²zø»sK½u¹Ï

ªÑ»ùªº°ò¥»¸ê®Æ©ñ¦bAccess ¸ê®Æ®w¸Ì    (¤]¬O¾aVBA±qºô¸ô¤WÂ^¨ú¦Ó¨Ó)
¥i¥H®Ú¾Ú¬Y­ÓUserForm ©Î ¬Y¨ÇCellªº¤º®e¨M©w­nLoad
­þ¤@­Ó°Ó«~  ­þ¤@¬q´Á¶¡ªº¸ê®Æ¶i¨Ó
³o¥i¥H¥Î¤@­ÓSub¨Ó³B²z

ªøµu´Á§¡½u¬O®Ú¾Ú°ò¥»¸ê®Æ¨Ó­pºâ
­n¥Î¦h¤Ö¤Ñªº²¾°Ê¥­§¡ ¤]¥i¥H®Ú¾Ú¬Y­ÓUserForm ©Î ¬Y¨ÇCellªº¤º®e¨Ó¨M©w
³o­Ó¨Ò¤l¥Îªº¬O¥|¤é©M¤­¤Q¤é(ÀH«K³]ªº)
²¾°Ê¥­§¡ªº­pºâ¥i¥H¥Î¥t¤@­ÓSub¨Ó³B²z

¶R½æ°T¸¹®Ú¾Ú²¾°Ê¥­§¡½uªºª¬ªp¨Ó¨M©w
¨Ò¦p·íµu´Á§¡½u¤W¬ïªø´Á§¡½u«h²£¥Í"¶R¶i"°T¸¹
¤Ï¤§«h"½æ¥X"
³o¥i¥H¥Î¥t¤@­ÓSub¨Ó³B²z
....
....
....
Alex

TOP

¦^´_ 8# alexliou
¥H©¹¦b¾³õ®É±`¨Ï¥Î PostgreSQL¥H¤ÎMS SQL¡A»¡¯u®æªº§ÚÁÙ¨S¥Î¹LAcess¡A¦³ªÅ®É§Ú·|¨Ó¸Õ¸Õ¥¦¡A
¥Ø«e§Ú¬O±N¸ê®Æª½±µ¦s©ñ¦bExcelªí³æ¤º°µ´ú¸Õ¡CÂǥѽm²ß¥H¤F¸Ñ VBA ¤Î Excel ªº¸ê®Æ³B²z»PÀ³¥Î¡C
ÁÂÁ±zªºÀ°§U¡A¤µ«á¦p¦³¤£¸Ñ¤§³BÁٻݦA¨Ó¥´ÂZ±z¤F¡I

TOP

¦^´_ 8# alexliou
½Ð°Ý¥Ñ VBA ²£¥Íªº ScrollBar ªº Event Handler ¦p¦ó©R¦W¡H ¨Ò¦p¡GPrivate Sub ScrollBar1_Change()  ~  End Sub
¦ý¬O¥[¤J ScrollBar1_Change() «á¨Ã¥¼°_¥ô¦ó§@¥Î¡H À³¸Ó­n¨Ï¥Î Private Sub ScrollBar???_Change()¡H
ªþ¤W´ú¸ÕÀɮסAÁÂÁ«ü±Ð¡I

½Ð±Ð©ÔÅQ¨Æ¥ó²£¥Í¾¹.rar (10.03 KB)

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD