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

[µo°Ý] ½Ð°Ý³oºØ¶¥±è¹Ï¦³¿ìªk¥ÎEXCLEµe¥X¨Ó¶Ü¡H

¦^´_ 10# maxchou


    ¥i¥H§â§A³Ì«áªºÀɮפW¶Ç¶Ü? §Ú¦A§äªÅÀÉ·Q·Q«ç»òÀ°§A,¦]§A¥Ø«eÁÙµLÅv­­¤U¸üÀÉ®×.

TOP

¦^´_ 11# infoverdad


¥ýÁ¹Linfoverdad«e½ú¡IÁÂÁ¡I
¨ä¹ê§Ú¦³³\¦h±i³o¼Ëªº¹Ï­nµe¡A¼Æ¾Ú¤]³£¸ò§Ú¤§«e¤W¶ÇªºÀÉ®×®t¤£¦h¡A¥u¬O¦b©óª½±øªº¼Æ¶q¤£¤@¼Ë¡A
¦³¸ò¤W¶Çªº®t¤£¦h¬ù¤Q­Ó¡A¤]¦³20´X­Óª½±ø¥H¤Wªº¡A
¤§«e³£¬O¥ÎXY»~®t½uµe¥X½u±ø¡A¦A¥Î¶K¹Ï®×ªº¤è¦¡§¹¦¨¡A
³oºØ¤è¦¡«D±`¤â¤u¡A¦Ó¥B¯Ó®É¡A¦Ó¥B«áºÝ¸ê®Æ¥u­n¤@§ï¡AX®y¼Ð¼e«×´N·|ÅÜ¡A¤]¦³¥i¯à·|¦]¬°Y¶bªº¤j¤p¦Ó§ïÅܶ¶§Ç¡A
©Ò¥H¤~·Q»¡¬O¤£¬O¥i¥H¥ÎEXCEL¡A§Ú¥u­n¿é¤J¼Æ¦r¡A¹Ïªí«K¥i¥H¦Û°Ê³s°Ê¡A³o¼Ë¥i¥H¸`¬Ù¤â¤u½Õ¾ãª½±ø®É¶¡¡C
(¹w´Á«áºÝ¸ê®ÆÁÙ­n­×§ï¦n´X¦¸........)

¦pªGinfoverdad«e½ú¤è«Kªº¸Ü¡A¬O§_¥i¥H¥ý¥H§Ú¤§«e¤W¶Çªºtest.zip¬°½d¨Ò¡A¥ý±Ð±Ð§Ú©O¡H
¥H¤W³ø§i¡A¦A¦¸ªí¹F§Ú¸Û¼°ªºÁ·N¡I

TOP

¦^´_ 12# maxchou


§Ú¥Îªº¤è¦¡ÁÙ¬O¤Ó²Ö­n¤@­Ó­Ó³](§Ú¸Õªº®É­Ô«Ü¯Ó®É¶¡),¥i¯àµLªkÀ°¨ì§A.
¸Õ¸Õ°Ñ¦Ò¤U¦Cºô§}§a!
"XY¹Ï¥»¥i¿ï¸ê®Æ½d³ò´N¥i¥H§¹¦¨¡A¦ýAÄæ¸ê®Æ·|Åܦ¨X¶b¸ê®Æ¡A´Nºâ±N¥þ³¡¸ê®ÆÂà¸m¡]¿ïÂà90«×¡^¨ÌµM¦p¦¹¡]2003ª©¡^¡A¦]¦¹¨C²ÕXY»Ý¤@²Õ¤@²Õ³]©w¡C¦p¹Ï§Î»Ý±`¼W¥[¸ê®Æ²Õ¼Æ¡A¥i¥H¥Î¥¨¶°¤è¦¡³B²z¡A¥ý¿ý»s¤@¬q¥¨¶°¡A¦A¼W¥[°j°é«ü¥O´N¥i¥H¦Û°Ê¼W¥[¸ê®Æ¡A¤£¥Î¨C¦¸¥ÑÀY­«³]..."
[刦K] from http://www.dolamo.com/problem/software/1/27340

TOP

¦^´_ 13# infoverdad


ÁÂÁÂinfoverdad«e½ú¡A§Ú·|¨ì±z´£¨Ñªººô§}¬ã¨s¬Ý¬Ý¡A
¦ý¬Ý°_¨Ó¦³ÂI§xÃø«×........
­Y¦³©Ò¬ð¯}¡A¦b¦^¨Ó³ø§i¡I

TOP

¥»©«³Ì«á¥Ñ infoverdad ©ó 2011-9-6 00:11 ½s¿è

¦^´_ 4# maxchou


¥Î±zªº¸ê®Æ§ï¤F³o­Ó¥¨¶°,½Ð¸Õ¸Õ§a!
(¤£¹L¸ê®Æ­n¥ý¾ã²z¹L ¦pªþ¥ó) Draw-stair.rar (50.49 KB)
µe¥X¤§¹Ï§Î:
  1. Sub DrawRangeCol()

  2.     Dim myRange As Range
  3.     Dim i As Integer

  4.     Set myRange = Sheets("test").Range("N1:X102")
  5.    
  6.     Charts.Add
  7.     ActiveChart.ChartType = xlColumnClustered
  8.     ActiveChart.SetSourceData Source:=myRange, PlotBy:=xlColumns
  9.    
  10.     i = 1
  11.     For i = 1 To myRange.Columns.Count
  12.    
  13.         ActiveChart.SeriesCollection(i).Values = "=test!R2C" & i + 13 & ":R102C" & i + 13
  14.         ActiveChart.SeriesCollection(i).Name = "=test!R1C" & i + 13
  15.    
  16.         ActiveChart.Axes(xlCategory).Select
  17.         ActiveChart.SeriesCollection(i).Select
  18.         With Selection.Border
  19.             .Weight = xlThin
  20.             .LineStyle = xlNone
  21.         End With
  22.         Selection.Shadow = False
  23.         Selection.InvertIfNegative = False
  24.         Selection.Interior.ColorIndex = xlAutomatic
  25.       
  26.     Next
  27.       
  28.     ActiveChart.ChartArea.Select
  29.     ActiveChart.HasLegend = True
  30.     ActiveChart.Legend.Select
  31.     Selection.Position = xlBottom
  32.    
  33.     ActiveChart.PlotArea.Select
  34.     With ActiveChart.ChartGroups(1)
  35.         .Overlap = 100
  36.         .GapWidth = 0
  37.         .HasSeriesLines = False
  38.     End With
  39.    
  40. End Sub
½Æ»s¥N½X

TOP

¦^´_ 15# infoverdad

¤Ó·PÁÂinfoverdad«e½ú¤F¡A³o»òÀ°¦£¡I·P¿E¤£ºÉ¡I
¤£¹L§ÚÁÙ®t13¤À¤~¥i¥H¤U¸üªþ¥ó¡A¦³­Ó¤£½Ð¤§½Ð¡A
¤£ª¾¹Dinfoverdad«e½ú¬O¤£¬O¥i¥H§â¸ê®Æ½Õ¾ã§¹ªºµe­±¶K¤W¨Ó©O¡H
§Ú¦Û¤v¥ý¤â°Ê½Õ¾ã¡A¸ÕµÛ¥Î¥¨¶°µeµe¬Ý(¦]¬°§ÚÁÙ¨S¦³¨Ï¥Î¥¨¶°µe¹L¹Ï§Î)¡C
¤£¹LÁÙ¬O­n¦A¦¸·PÁ¡I

TOP

¥»©«³Ì«á¥Ñ infoverdad ©ó 2011-9-6 13:34 ½s¿è

¦^´_ 16# maxchou


    §Ú¸Õ¸Õ,¦ý§Aªº¸ê®Æ¦³¤p¼ÆÂI,¬O³Ì¤jªº³Â·Ð³B.

N2 =IF(AND(ROW()>=$K$2,ROW()<=$L$2),$B$2,0)
O2 =IF(AND(ROW()>=$K$3,ROW()<=$L$3),$B$3,0)
...
X2 =IF(AND(ROW()>=$K$12,ROW()<=$L$12),$B$12,0)


TOP

¦^´_ 16# maxchou


    §A¤]¥i¥H¥h¤U­±ªººô§}¤U¸ü¤@­ÓzipÀɤJªþ¥ó(funchart5_brickyard.zip)
funchart5_brickyard.zip (11.05 KB)

http://peltiertech.com/Excel/Charts/Brickyard.html

­ì²z¬O¤@¼Ëªº ¦ý±z¥i¤w¬Ý¬Ý¥¦ªº¸Ñ»¡»P¹ê¨Ò

TOP

¦^´_ 17# infoverdad

ÁÂÁÂinfoverdad«e½ú³o»ò¶O¤ßªá®É¶¡À°§Ú·Q³o¹Ï§Î­n«ç»òµe¡A¯uªº¬O«D±`·PÁ¡I¡I
§Ú¤j·§¥i¥H¥Îinfoverdad«e½ú¤W¶Çªº¹Ï¤ù½Æ»s¥X¨Ó¤@¼Ëªº¹Ï§Î(ÁöµM§Ú¤£¬O«ÜÀ´¤½¦¡»P¥¨¶°)¡A
¦ý§Ú·Q½Ð°Ýinfoverdad«e½úÃö©óL2-L12³o¬O«ç»ò¨M©w¡H¬OI2+1¶Ü¡H
¥t¥~©Ò´£¤§¤p¼ÆÂI°ÝÃD¡A¬O¤£¬O´N»¡¦]¬°®t¶Z¤p©ó1¡A©Ò¥HµLªk¦bN2-X102¶ñ¤J¼Æ¾Ú¡H¤]´Nµe¤£¥X¨Ó¡C
¦A¦¸·PÁ¡I

TOP

¥»©«³Ì«á¥Ñ infoverdad ©ó 2011-9-6 18:48 ½s¿è

¦^´_ 19# maxchou


1. L2=K2+J2-1  
2. yes

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD