µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
VB »P VB.Net
» °ª¤â¨D±Ï ½Ð°Ý¦p¦ó¥Îvb¨ú±oÁͶսuªº¤½¦¡(F8³v¨B°õ¦æ¬O¥i¥H,¦ý«öF5´N¨S¤ÏÀ³)
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
°ª¤â¨D±Ï ½Ð°Ý¦p¦ó¥Îvb¨ú±oÁͶսuªº¤½¦¡(F8³v¨B°õ¦æ¬O¥i¥H,¦ý«öF5´N¨S¤ÏÀ³)
Scott090
µoµu®ø®§
¥[¬°¦n¤Í
Scott090
·í«eÂ÷½u
UID
13127
©«¤l
508
¥DÃD
53
ºëµØ
0
¿n¤À
583
ª÷¿ú
583
ÂI¦W
111
§@·~¨t²Î
win 10
³nÅ骩¥»
[]
¾\ŪÅv
50
©Ê§O
¨k
¦b½u®É¶¡
718 ¤p®É
µù¥U®É¶¡
2013-3-19
³Ì«áµn¿ý
2024-6-5
°ª¤¤¥Í
©«¤l
508
¥DÃD
53
ºëµØ
0
¿n¤À
583
ÂI¦W
111
§@·~¨t²Î
win 10
³nÅ骩¥»
[]
¾\ŪÅv
50
©Ê§O
¨k
µù¥U®É¶¡
2013-3-19
³Ì«áµn¿ý
2024-6-5
1
#
¸õÂà¨ì
»
µoªí©ó 2018-7-8 07:01
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
1#
jysun1
¸Õ¸Õ¬Ý¬O§_²Å¦X»Ý¨D¡G
'µe¼Æ¾Ú¹Ï¨úÁͶսupºâ¦¡
'======================
Sub test()
Dim sh As Worksheet
Set sh = ActiveSheet
'§R°£¤v¦³¤§¹Ï®×¡B¹Ïªí
'=============================
For Each ChartObject In sh.Shapes
ChartObject.Delete
Next
With sh.ChartObjects.Add(100, 100, 200, 200).Chart
With .SeriesCollection.NewSeries
.Values = sh.Range("C4:C7").Value
.ChartType = xlLineMarkers
With .Trendlines.Add
.Type = xlPolynomial
.Order = 2
.DisplayEquation = True
sh.Cells(1, 1) = .DataLabel.Text
End With
End With
End With
End Sub
TOP
Scott090
µoµu®ø®§
¥[¬°¦n¤Í
Scott090
·í«eÂ÷½u
UID
13127
©«¤l
508
¥DÃD
53
ºëµØ
0
¿n¤À
583
ª÷¿ú
583
ÂI¦W
111
§@·~¨t²Î
win 10
³nÅ骩¥»
[]
¾\ŪÅv
50
©Ê§O
¨k
¦b½u®É¶¡
718 ¤p®É
µù¥U®É¶¡
2013-3-19
³Ì«áµn¿ý
2024-6-5
°ª¤¤¥Í
©«¤l
508
¥DÃD
53
ºëµØ
0
¿n¤À
583
ÂI¦W
111
§@·~¨t²Î
win 10
³nÅ骩¥»
[]
¾\ŪÅv
50
©Ê§O
¨k
µù¥U®É¶¡
2013-3-19
³Ì«áµn¿ý
2024-6-5
2
#
µoªí©ó 2018-7-8 09:41
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
1#
jysun1
'¼W¥[®É¶¡±±¨î
Sub test()
Dim sh As Worksheet
Dim tt!
.
.
.DisplayEquation = True
'°±¹y¤@ÂI®É¶¡
'==============
tt = Timer: Do: DoEvents: Loop While Timer - tt < 0.05
'==================================
sh.Cells(1, 1) = .DataLabel.Text
.
.
End Sub
TOP
Scott090
µoµu®ø®§
¥[¬°¦n¤Í
Scott090
·í«eÂ÷½u
UID
13127
©«¤l
508
¥DÃD
53
ºëµØ
0
¿n¤À
583
ª÷¿ú
583
ÂI¦W
111
§@·~¨t²Î
win 10
³nÅ骩¥»
[]
¾\ŪÅv
50
©Ê§O
¨k
¦b½u®É¶¡
718 ¤p®É
µù¥U®É¶¡
2013-3-19
³Ì«áµn¿ý
2024-6-5
°ª¤¤¥Í
©«¤l
508
¥DÃD
53
ºëµØ
0
¿n¤À
583
ÂI¦W
111
§@·~¨t²Î
win 10
³nÅ骩¥»
[]
¾\ŪÅv
50
©Ê§O
¨k
µù¥U®É¶¡
2013-3-19
³Ì«áµn¿ý
2024-6-5
3
#
µoªí©ó 2018-7-9 04:34
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
4#
jysun1
¤U¸ü
(40.01 KB)
2018-7-9 04:32
wb.rar
(16.31 KB)
¤U¸ü¦¸¼Æ: 2
2018-7-9 04:34
TOP
Scott090
µoµu®ø®§
¥[¬°¦n¤Í
Scott090
·í«eÂ÷½u
UID
13127
©«¤l
508
¥DÃD
53
ºëµØ
0
¿n¤À
583
ª÷¿ú
583
ÂI¦W
111
§@·~¨t²Î
win 10
³nÅ骩¥»
[]
¾\ŪÅv
50
©Ê§O
¨k
¦b½u®É¶¡
718 ¤p®É
µù¥U®É¶¡
2013-3-19
³Ì«áµn¿ý
2024-6-5
°ª¤¤¥Í
©«¤l
508
¥DÃD
53
ºëµØ
0
¿n¤À
583
ÂI¦W
111
§@·~¨t²Î
win 10
³nÅ骩¥»
[]
¾\ŪÅv
50
©Ê§O
¨k
µù¥U®É¶¡
2013-3-19
³Ì«áµn¿ý
2024-6-5
4
#
µoªí©ó 2018-7-9 04:55
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
4#
jysun1
¤W±¬O§Ú³oÃä F5 °õ¦æªºµ²ªG¡C
¦A¤£¦æ¡A½Ð§â¤U±ªº 0.05 §ï¬° 2 ¸Õ¸Õ¬Ý
'°±¹y¤@ÂI®É¶¡
'==============
tt = Timer: Do: DoEvents: Loop While Timer - tt < 0.05
TOP
Scott090
µoµu®ø®§
¥[¬°¦n¤Í
Scott090
·í«eÂ÷½u
UID
13127
©«¤l
508
¥DÃD
53
ºëµØ
0
¿n¤À
583
ª÷¿ú
583
ÂI¦W
111
§@·~¨t²Î
win 10
³nÅ骩¥»
[]
¾\ŪÅv
50
©Ê§O
¨k
¦b½u®É¶¡
718 ¤p®É
µù¥U®É¶¡
2013-3-19
³Ì«áµn¿ý
2024-6-5
°ª¤¤¥Í
©«¤l
508
¥DÃD
53
ºëµØ
0
¿n¤À
583
ÂI¦W
111
§@·~¨t²Î
win 10
³nÅ骩¥»
[]
¾\ŪÅv
50
©Ê§O
¨k
µù¥U®É¶¡
2013-3-19
³Ì«áµn¿ý
2024-6-5
5
#
µoªí©ó 2018-7-10 06:00
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
8#
jysun1
Application.wait ¦n¹³¬O°±µÛµ¥«Ý¡B°£¤Fp®É¥~¡A¬Æ»ò¨Æ³£¨S°µ¡C¤£¬Æ²z¸Ñ¡C
Do: DoEvents ; ............Loop¡A¬O¦³ÄÀ¥X±±¨îÅvªº´`Àô¡C
¥H¤Uªº½X¤ñ¸û¤£¨üµ{¦¡°õ¦æªºÀô¹Òªº¼vÅT¡G
Do: sh.Cells(1, 1) = .DataLabel.Text: DoEvents: Loop Until sh.Cells(1, 1) <> ""
½Ð¸Õ¸Õ¬Ý
TOP
ÀR«ä¦Û¦b :
¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v×¾i¤£°÷¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·