§PÂ_¦¡

jackdream

¦^´_  jackdream


    ¿ï¤â¤@ªº"PRIZE MONEY"¨º¤@Äæ¬O 2014  currentªº
    ¿ï¤â¤Gªº"PRIZE MONEY"¨º¤@Äæ¬O career highªº
    ¨â­Ó¬O¤£¤@¼Ëªº¡A½Ð°Ý§Ú¸Ó¦p¦ó¼¶¼gÅý¥L§PÂ_?.
518587 µoªí©ó 2014-11-17 17:09

    °ÝÃD¦b©ó,¤°»ò±¡ªp¤U­n¨Ï¥Î2014  current ,¤S¤°»ò±¡ªp¤U§ï¨Ï¥Îcareer high ?

518587

°ÝÃD¦b©ó,¤°»ò±¡ªp¤U­n¨Ï¥Î2014  current ,¤S¤°»ò±¡ªp¤U§ï¨Ï¥Îcareer high ?
jackdream µoªí©ó 2014-11-17 17:33

    ¿ï¤â¤@¦³2014  current ¡Bcareer high
    ¿ï¤â¤G¨S¦³¡A¥u¦³career high

¦p¹Ïºñ¦â³¡¤À~

¤U¸ü (150.44 KB)

2014-11-17 17:45

¤U¸ü (186.47 KB)

2014-11-17 17:46

518587

§Ú¤w¸g§â§PÂ_¦¡¼g¦n¡A¤£ª¾¹D¬O¤£¬O§Ú¼gªº§PÂ_¦¡¦³°ÝÃD
¿ï¤â1 ªº±Æ¦W(¹Ï¤ù¤¤¬õ¦â³¡¤À) §Ú·Q©ñ¦b"¸ê®Æ·J¾ã"ªºI2  (2014 CURRENT±Æ¦W)
¿ï¤â2ªº±Æ¦W(¹Ï¤ù¤¤¬õ¦â³¡¤À)  §Ú·Q©ñ¦b"¸ê®Æ·J¾ã"ªºL3  (³æ¥´±Æ¦W)

ÁöµM"Â^¨ú¸ê®Æ"¤¤ªºÀx¦s®æ¬O¤@¼Ë¡A¦ý·N¸q¤£¤@¼Ë¡C

¥i¬O§Ú¦b¼g§PÂ_¦¡Åý¥L¸Õ¶]ªº¹Lµ{¤¤
¿ï¤â1ªº(2014 CURRENT±Æ¦W) Á`¬O³Q¾ã²z¨ì L2
½Ð°Ý¯à§_½Ð¤j¤jÀ°§Ú¬Ý¬Ý¬O­þ¸Ì¥X°ÝÃD ¶¶«KÀ°§Ú¸ÑÄÀ¤@¤U ÁÂÁÂ!

¤U¸ü (143.13 KB)

2014-11-17 23:36

¤U¸ü (149.9 KB)

2014-11-17 23:36

¤U¸ü (149.64 KB)

2014-11-17 23:36

123 (2).rar (138.51 KB)

¤U¸ü¦¸¼Æ: 5

2014-11-17 23:37

jackdream

¿ï¤â¤@¦³2014  current ¡Bcareer high
    ¿ï¤â¤G¨S¦³¡A¥u¦³career high
518587 µoªí©ó 2014-11-17 17:46

·N«ä¬O...
¦pªG¦³2014  current,´N¨Ï¥Î2014  current·í§@PRIZE MONEY,
¦pªG¨S¦³2014  current,´N¨Ï¥Îcareer high·í§@PRIZE MONEY

¦ý,³o¼Ëªº§PÂ_¤è¦¡,¤£½×¬O¿ï¤â¤@©Î¤G,
µª®×³£¦bPRIZE MONEY¤U¤@¦Cªº³Ì«á¤@®æ¸ê®Æ,
¤£¬O¶Ü?

¸ò¬Q¤Ñµ¹ªº»yªk,§ä¨ìªºµ²ªG¬Û¦P
http://forum.twbts.com/redirect.php?goto=findpost&ptid=12801&pid=72209&fromuid=12

518587

¦^´_ 14# jackdream


    ¤j¤j±z¦n¡AÁÂÁ±zÀ°§Ú¸Ñ¨M¨ä°ÝÃD¡A¦ý§Ú¦b13¼Ó¤S¥X²{¤@­Ó°ÝÃD¡A¯à§_½Ð±z¦AÀ°§Ú¬Ý¬Ý!
    ¸U¤À·PÁÂ!

GBKEE

¦^´_ 15# 518587
°Ñ¦Ò¤@¤U,¿ï¤â©m¦W,¦~ÄÖ,¨­°ª,Åé­«.¥i¦Û¤v¼g¼g¬Ý

¤U¸ü (79.22 KB)

2014-11-18 16:50

1. Option Explicit
   
2. Sub Ex()
   
3. Dim n As Integer, myrng As Range, mySh As Worksheet, myAr
   
4. '±qºô­¶Â^¨ú¸ê®Æ
   
5. For n = 1 To 2
   
6. With Sheets("Â^¨ú¸ê®Æ")
   
7.     If .QueryTables.Count >= 1 Then .QueryTables("Novak-Djokovic_1").Delete  '¤Ó¦hªºQueryTable ª«¥ó·|¦û¥Î¸ê·½
   
8.     .UsedRange.ClearContents
   
9.     Set myrng = Sheets("¿ï¤âºô§}").Cells(n + 1, 1)
   
10.     Set mySh = Sheets("¸ê®Æ·J¾ã")
    
11.     With .QueryTables.Add(Connection:="URL;" & myrng.Text, Destination:=.Range("$A$1"))
    
12.         .Name = "Novak-Djokovic_1"
    
13.         .FieldNames = True
    
14.         .RowNumbers = False
    
15.         .FillAdjacentFormulas = False
    
16.         .PreserveFormatting = True
    
17.         .RefreshOnFileOpen = False
    
18.         .BackgroundQuery = True
    
19.         .RefreshStyle = xlInsertDeleteCells
    
20.         .SavePassword = False
    
21.         .SaveData = True
    
22.         .AdjustColumnWidth = True
    
23.         .RefreshPeriod = 0
    
24.         .WebSelectionType = xlEntirePage
    
25.         .WebFormatting = xlWebFormattingNone
    
26.         .WebPreFormattedTextToColumns = True
    
27.         .WebConsecutiveDelimitersAsOne = True
    
28.         .WebSingleBlockTextImport = False
    
29.         .WebDisableDateRecognition = False
    
30.         .WebDisableRedirections = False
    
31.         .Refresh BackgroundQuery:=False
    
32.     End With
    
33.     Set myrng = .Cells.Find("W-L", Lookat:=xlWhole)  '´M§ä"W-L"
    
34.     If Not myrng Is Nothing Then
    
35.         With .Cells(myrng.Row, "A")
    
36.             Select Case myrng.Column
    
37.              Case 3  '"W-L" ¦bCÄæ
    
38.                 myAr = Array("", "", "", .Range("B3"), .Range("D2"), .Range("B4"), .Range("F2"), "", "", .Range("B6"), .Range("D5"), .Range("B7"))
    
39.                 '³æ¥´±Æ¦W(W-L):.Range("D2")  -> 2014/3/6 ³o"(¬O3³Ó6±Ñ)"¦b¦ó³B?
    
40.             Case 4   '"W-L" ¦bDÄæ
    
41.                 myAr = Array(.Range("B3"), .Range("D2"), .Range("F6"), .Range("B5"), .Range("D4"), .Range("B6"), .Range("F4"), .Range("B8"), .Range("F7"), .Range("B10"), .Range("D9"), .Range("B11"))
    
42.                 'Âù¥´±Æ¦W(W-L): .Range("D9") ->2014/6/27 ³o"(¬O6³Ó27±Ñ)"¦b¦ó³B?
    
43.             End Select
    
44.         End With
    
45.         With Sheets("¸ê®Æ·J¾ã").Cells(n + 1, "I").Resize(, UBound(myAr) + 1)
    
46.             .Value = myAr
    
47.             .Cells(IIf(myrng.Column = 4, 11, 5)).NumberFormatLocal = "yyyy/m/d"
    
48.             
    
49.         End With
    
50.     End If
    
51.     End With
    
52.    Next n
    
53.    ActiveWorkbook.Save
    
54.    MsgBox "³B²z§¹²¦!"
    
55. End Sub

½Æ»s¥N½X

518587

¦^´_ 16# GBKEE


    ¤£¦n·N«ä  ¯à§_½Ð¤j¤jÀ°§Ú°µ¤@­Ó²³æ©úÁAªºµù¸Ñ!! ·P®¦~~

GBKEE

¦^´_ 17# 518587

¤U¸ü (85.1 KB)

2014-11-19 16:42

¦p¹Ï¥Ü ¬Û¹ïÀ³©ó"S D"ªºRange

1.   Case 4   '"W-L" ¦bDÄæ
   
2.                 myAr = Array(.Range("B3"), .Range("D2"), .Range("F6"), .Range("B5"), .Range("D4"), .Range("B6"), .Range("F4"), .Range("B8"), .Range("F7"), .Range("B10"), .Range("D9"), .Range("B11"))

½Æ»s¥N½X

518587

¦^´_ 18# GBKEE


    ¤j¤j¡A½Ð°Ý¬°¦ó­n§ìRange("B3"), .Range("D2"), .Range("F6"), .Range("B5"), .Range("D4"), .Range("B6"), .Range("F4"), .Range("B8"), .Range("F7"), .Range("B10"), .Range("D9"), .Range("B11"
    ³o´X­Ó©O?

GBKEE

¦^´_ 19# 518587
©Ò§ì¨úRangeªº­È¬O§_¥¿½T?

1.   With .Cells(myrng.Row, "A")'<-¥H³o¦ì¸m¬°°ò·ÇÂIªºRange,-> .Range("B3"), .Range("D2"), .Range("B4"),...  ½Ð¦b¬Ý¤@¦¸#18ªº¹Ï¤ù,³o¼Ë¤F¸Ñ½X?
   
2.             Select Case myrng.Column
   
3.              Case 3  '"W-L" ¦bCÄæ
   
4.                 myAr = Array("", "", "", .Range("B3"), .Range("D2"), .Range("B4"), .Range("F2"), "", "", .Range("B6"), .Range("D5"), .Range("B7"))
   
5.                 '³æ¥´±Æ¦W(W-L):.Range("D2")  -> 2014/3/6 ³o"(¬O3³Ó6±Ñ)"¦b¦ó³B?
   
6.             Case 4   '"W-L" ¦bDÄæ
   
7.                 myAr = Array(.Range("B3"), .Range("D2"), .Range("F6"), .Range("B5"), .Range("D4"), .Range("B6"), .Range("F4"), .Range("B8"), .Range("F7"), .Range("B10"), .Range("D9"), .Range("B11"))
   
8.                 'Âù¥´±Æ¦W(W-L): .Range("D9") ->2014/6/27 ³o"(¬O6³Ó27±Ñ)"¦b¦ó³B?
   
9.             End Select
   
10.        End With

½Æ»s¥N½X