[µo°Ý] ¥i§_À°¦£§ïµ½°j°é³t«×

s13030029

µ{¦¡½X¤U¡AÀɮפ¤½ÐÂIÀ»"¥t¦si-Link¸ô®|ÀÉ"°õ¦æ¥¨¶°¡AÁÂÁÂÀ°¦£~

1. Sub ¶×¥X»sµ{¦Ü¸ô®|ÀÉ()
   
2. 
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     If Cells(11, "A") Like "¥~Æ[" Then       '¥~Æ[
   
6.                 Cells(11, "F").Value = "D,1,1"
   
7.                 Cells(11, "G").Value = "D,1,2"
   
8.                 Cells(11, "H").Value = "D,1,3"
   
9.                 Cells(11, "I").Value = "D,1,4"
   
10.                 Cells(11, "J").Value = "D,1,5"
    
11.     End If
    
12.    
    
13.     lastRow = Sheets("»sµ{Àˬd°O¿ýªí").Columns(2).Find(What:="", LookIn:=xlValues, _
    
14.     SearchDirection:=xlNext, AFTER:=Range("B12")).Row
    
15.    
    
16.     For I = 12 To lastRow              'Range("A12").End(xlDown).Row
    
17.             If Cells(I, "B") <> "" Then
    
18.                 Cells(I, "F").Value = "D," & Cells(I, "A").Value + 1 & ",1"
    
19.                 Cells(I, "G").Value = "D," & Cells(I, "A").Value + 1 & ",2"
    
20.                 Cells(I, "H").Value = "D," & Cells(I, "A").Value + 1 & ",3"
    
21.                 Cells(I, "I").Value = "D," & Cells(I, "A").Value + 1 & ",4"
    
22.                 Cells(I, "J").Value = "D," & Cells(I, "A").Value + 1 & ",5"
    
23.             Else
    
24.             End If
    
25.     Next
    
26.    
    
27.     For I = 47 To Range("A47").End(xlDown).Row
    
28.         If Cells(I, "B") <> "" Then
    
29.             If Cells(I, "B") <> "" Then
    
30.                 Cells(I, "F").Value = "D," & Cells(I, "A").Value + 1 & ",1"
    
31.                 Cells(I, "G").Value = "D," & Cells(I, "A").Value + 1 & ",2"
    
32.                 Cells(I, "H").Value = "D," & Cells(I, "A").Value + 1 & ",3"
    
33.                 Cells(I, "I").Value = "D," & Cells(I, "A").Value + 1 & ",4"
    
34.                 Cells(I, "J").Value = "D," & Cells(I, "A").Value + 1 & ",5"
    
35.             Else
    
36.             End If
    
37.         End If
    
38.     Next
    
39.    
    
40.     Application.ScreenUpdating = True
    
41.     Application.DisplayAlerts = True
    
42.     Range("A11").Select
    
43.    
    
44.     Dim xlFolder As String
    
45.     xlFolder = ThisWorkbook.Path & "\" & "i-Link ¸ô®|ÀÉ"        '«ü©w¸ê®Æ§¨
    
46.     If Dir(xlFolder, vbDirectory) = "" Then MkDir xlFolder
    
47. 
    
48.     Dim xPath As String
    
49.     xPath = Application.ActiveWorkbook.Path
    
50.     Application.ScreenUpdating = False
    
51.     Application.DisplayAlerts = False
    
52.     Titlename = ThisWorkbook.Sheets("»sµ{Àˬd°O¿ýªí").Range("H4").Value
    
53.     With ActiveSheet
    
54.        .Copy
    
55.        ActiveSheet.DrawingObjects.Delete
    
56.        X = InputBox("½Ð¿é¤JÀɦW!!", "¥t¦s·sÀÉ", Titlename & " " & "»sµ{(¸ô®|ÀÉ)")
    
57.         If X <> "" Then
    
58.             Application.ActiveWorkbook.SaveAs Filename:=xlFolder & "\" & X, _
    
59.             FileFormat:=xlExcel8
    
60.             MsgBox "Àx¦s¦¨¥\¡I"
    
61.         ElseIf X = "" Then
    
62.             MsgBox "¤w¨ú®øÀx¦s!!!"
    
63.         End If
    
64.        Application.ErrorCheckingOptions.BackgroundChecking = False
    
65.        Application.ActiveWorkbook.Close False
    
66.     End With
    
67.    
    
68.     For I = 11 To Range("B11").End(xlDown).Row
    
69.         If Cells(I, "A") <> "" Then
    
70.             Cells(I, "F").Value = ""
    
71.             Cells(I, "G").Value = ""
    
72.             Cells(I, "H").Value = ""
    
73.             Cells(I, "I").Value = ""
    
74.             Cells(I, "J").Value = ""
    
75.         ElseIf Cells(I, "A") = "" Then
    
76.             Exit For
    
77.         End If
    
78.     Next
    
79.     For I = 47 To Range("A47").End(xlDown).Row
    
80.         If Cells(I, "A") <> "" Then
    
81.             Cells(I, "F").Value = ""
    
82.             Cells(I, "J").Value = ""
    
83.             Cells(I, "H").Value = ""
    
84.             Cells(I, "I").Value = ""
    
85.             Cells(I, "J").Value = ""
    
86.         ElseIf Cells(I, "A") = "" Then
    
87.             Exit For
    
88.         End If
    
89.     Next
    
90.    
    
91.     Application.DisplayAlerts = True
    
92.     Application.ScreenUpdating = True
    
93.    
    
94.    
    
95. End Sub

½Æ»s¥N½X

test2.rar (40.14 KB)

ªþÀÉ
¤U¸ü¦¸¼Æ: 2

2019-6-11 11:31

n7822123

¦^´_ 1# s13030029

³o¬qµ{¦¡!? §PÂ_­«½Æ....¥B¶]¤F100¦h¸U¦C...........

    For I = 47 To Range("A47").End(xlDown).Row
        If Cells(I, "B") <> "" Then
            If Cells(I, "B") <> "" Then
                Cells(I, "F").Value = "D," & Cells(I, "A").Value + 1 & ",1"
                Cells(I, "G").Value = "D," & Cells(I, "A").Value + 1 & ",2"
                Cells(I, "H").Value = "D," & Cells(I, "A").Value + 1 & ",3"
                Cells(I, "I").Value = "D," & Cells(I, "A").Value + 1 & ",4"
                Cells(I, "J").Value = "D," & Cells(I, "A").Value + 1 & ",5"
            Else
            End If
        End If
    Next

®É¶¡¥D­n¥d¦b§Aµ{¦¡½X27~38¦Cªº³¡¤À¡A

¦]¬°§Aµ¹ªºÀÉ®×±qA47¥H«á³£¨S¸ê®Æ¡A©Ò¥H¤£ª¾¹D³o¬qµ{¦¡¨ì©³­n·F¹À!

°j°é·|­«47¦C¶]¨ì1048576........¥BÀx¦s®æ³£¬OªÅ¥Õ¡Aµ¥©ó¥Õ¶]¤F100¦h¸U¦C!

¦pªG§A§â³o¬qµù¸Ñ±¼¡A·|µo²{³t«×°¨¤W´£ª@¡C

s13030029

¦^´_ 2# n7822123
§Úªºªí®æ·|¨ÌÀËÅ綵¥Ø¦pªG¶W¹L21¶µ¡A¤]´N¬O²Ä¤@±iªí¶ñº¡¤F¡A´N·|¦Û°Ê¼W¥[²Ä¤G±iªí®æ¦b¤U­±¡AÄ~Äò§â¸ê®Æ¶ñ¤W¡A©Ò¥H²{¦b47¦C¶}©l¤~·|¬OªÅªº

ªþÀÉ¡G test2.rar (56.35 KB)

¤U¸ü¦¸¼Æ: 3

2019-6-12 08:19

s13030029

¨ä¹ê¤£À³¸Ó¥ÎxlDown¹ï¤£¹ï?

n7822123

¦^´_ 4# s13030029


®¦®¦¡AÀ³¸Ó¨C±iªí®æ³£µ¹¥L¤@­Ó½d³ò¥h¶]´N¦n¤F

Á|¨Ò¨Ó»¡§A²Ä2±iªí®æ·|±qA47 ¨ìA67¡A´N§â§AªºI©T©w±q 47¨ì67´N¥i¥H¤F

¦pªG·|¦³²Ä3±iªí®æ»P²Ä4±iªí®æ¤]Ãþ¦ü³B²z¡A¤£¤Ó¥i¯à¶]¨ì1048576¦Cªº....

n7822123

¦^´_ 5# n7822123


¥i®Ú¾Ú¤@¨Çªí®æ©T©w·|¥X²{¦r²´¡A¥ý§PÂ_·|¦³´X­Óªí®æ¡A¦A³]¥ß½d³ò

Á|¨Ò :
¨C±iªí®æ©T©w¶]20¦C(²Ä¤@±i±q12¶]¨ì31)¡A¦³30±iªí®æ(ÅܼÆT)¡A
°²³]¨C±iªí®æªºÀx¦s®æ¦ì¸m¬Û®t37¦C¡A¥i¥H§ï¦¨¦p¤U

For T=1 to 30  '°²³]¦³30±iªí®æ
    For I = T*37-25 To T*37-6  '²Ä¤@¦C»P³Ì«á¤@¦C¨Ì¾Ú²ÄT±iªí®æ°µÅÜ°Ê
            If Cells(I, "B") <> "" Then
                Cells(I, "F").Value = "D," & Cells(I, "A").Value + 1 & ",1"
                Cells(I, "G").Value = "D," & Cells(I, "A").Value + 1 & ",2"
                Cells(I, "H").Value = "D," & Cells(I, "A").Value + 1 & ",3"
                Cells(I, "I").Value = "D," & Cells(I, "A").Value + 1 & ",4"
                Cells(I, "J").Value = "D," & Cells(I, "A").Value + 1 & ",5"
            Else
            End If
    Next I
Next T

·íµM³oÁÙ¬O¥i¥HÀu¤Æªº¡A¥Î°}¦C³B²z¥i¥H§ó§Ö¡C

n7822123

¦^´_ 6# n7822123


End(xlDown) ¥i¾A¥Î©ó ½T©w¦³¸ê®Æ ªº±¡ªp¤U¡AµL¸ê®Æ·|¶]¨ì³Ì¥½¦C

¨Ï¥Î«e­n¥ý§PÂ_¬O§_¦³¸ê®Æ

s13030029

¦^´_ 7# n7822123
­ì¨Ó¦p¦¹~~~«D±`·PÁÂ~~~