§ìÀɮ׸ê®Æ®É¡A°¸¦Ó·|¥X²{ Erro 1004
- ©«¤l
- 4
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 7
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- 2013
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2016-4-14
- ³Ì«áµn¿ý
- 2021-8-5
|
§ìÀɮ׸ê®Æ®É¡A°¸¦Ó·|¥X²{ Erro 1004
§Ú¦b§ìÀɮ׸ê®Æ®É¡A°¸¦Ó·|¥X²{ Erro 1004¡A·í¿ù»~®É¤wª¾¹D¬O¬Y¤@¬q¥X²{°ÝÃD¡C
·Q½Ð°Ý¤j¤j¡A¶À¦â³o¬q»Ý«ç»òקï?
¦¹¬q§Úªº§@ªk¬O¥h´M§äAÄdÃöÁä¦r¦³§ä¨ìManager©ÎDisk®É¡A±NGÄdªºÈ¦^¶Ç¨ìªí¤ºªí®æ
Sub ¶ê¨¤¯x§Î1_Click()
i = 0
x = 0
b = "20%"
a = "='C:\Users\Show\Desktop\PLV auto report\"
For j = 1 To 300
Cells(1, 1) = a & "[" & b & ".xls]sheet1'!$A$" & j
If InStr(Cells(1, 1), "MANAGER") Then
Cells(1, 2 + i) = a & "[" & b & ".xls]sheet1'!$B$" & j
i = i + 1
End If
If InStr(Cells(1, 1), "DISK") Then
Cells(2 + x, 1 + i) = a & "[" & b & ".xls]sheet1'!$G$" & j
x = x + 1
End If
If InStr(Cells(1, 1), "MANAGER") Then
x = 0
ElseIf InStr(Cells(1, 1), "'End Test") Then
Exit For
End If
Next j
For y = 0 To 3
For x = 0 To 3
If InStr(Cells(1, 2 + y), (x + 1)) Then
Cells(9, 2 + x) = Cells(1, 2 + y)
For i = 0 To 5
Cells(10 + i, 2 + x) = Cells(2 + i, 2 + y)
Next i
End If
Next x
Next y
End Sub |
|
Show Chen
|
|
|
|
|
- ©«¤l
- 4
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 7
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- 2013
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2016-4-14
- ³Ì«áµn¿ý
- 2021-8-5
|
|
Show Chen
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 16
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¦^´_ 1# skyrubys
Cells(1, 1) = a & "[" & b & ".xls]sheet1'!$A$" & j
§ï¦¨
Cells(1, 1) = a & "[" & b & ".xls]20%'!$A$" & j
©Î
Cells(1, 1) = a & "[" & b & ".xls]sheets(1)'!$A$" & j
¸Õ¸Õ |
|
|
|
|
|
|