·j´M«ü©w¤u§@ªí¦A¥þ¶½Æ»s¨ì¥t¤@Àɮפ¤
- ©«¤l
- 17
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 73
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2018-11-2
- ³Ì«áµn¿ý
- 2024-10-18
|
·j´M«ü©w¤u§@ªí¦A¥þ¶½Æ»s¨ì¥t¤@Àɮפ¤
¦b¤½¥qªºÀɮפ¤, ¦³¨Ç¤u§@ªí¬O¤£¤Ó¦³¥Î, ¦Û¤v·Q±N¦³¥Îªº¤u§@ªí, ±qìÀɮפ¤¥þ¶½Æ»s¨ì¥t¤@excelÀɤ¤, ...
¤½¥qìÀÉ"Basic_xxx", ±N¥H¤U¦WºÙ¥þ¶½Æ»s¨ì "10xxx_New_v2" Àɤ¤¦P¦WºÙ¦ì¸m....
Base Station Transport Data/Data_LTE/Data_NR/LTE Cell/NR Cell/NRDUCELL/NRDUCellCoverage
·Q¦b"10xxx_New_v2"²Ä¤@¶¤¤, ¥[¤F¤@Ó«ö¶s, ¤@«ö¤U´N¥i±NìÀɤºªº¤u§@ªí½Æ»s....
§Æ±æ°ª¤âÌÀ°¦£§ï¤@¤U, ¥ýÁÂÁÂ. |
-
-
Temp.zip
(500.48 KB)
|
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-27
|
|
|
|
|
|
|
- ©«¤l
- 17
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 73
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2018-11-2
- ³Ì«áµn¿ý
- 2024-10-18
|
¦^´_ 2# ã´£³¡ªL
¦A¦¸·PÁ 㴣³¡ªL ¤j¤jªº¦^ÂÐ, ¯uªº¬Ù¤U¦Û¤v³v¶copyªº®É¶¡, «D±`¦n¥Î.....:) |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-3-6 11:59 ½s¿è
¦^´_ 1# rcyw
¦^´_ 2# ã´£³¡ªL
ÁÂÁ rcyw«e½úµoªí¦¹¥DÃD»P½d¨Ò
ÁÂÁ 㴣³¡ªL«e½ú«ü¾É
«á¾Ç¾Ç²ß¤ß±o¦p¤U½Ð«e½ú«ü¾É
Sub ½Æ»s«ü©w¤u§@ªí()
Dim Fn$, Sn$, S, uBook As Workbook, uSht As Worksheet, xBook As Workbook, xS As Worksheet
'¡ô«Å§iÅܼÆ:(Fn,Sn)¬O¦r¦êÅܼÆ,S¬O³q¥Î«¬ÅܼÆ,
'(uBook,xBook)¬O¬¡¶Ã¯ÅܼÆ,(uSht,xS)¬O¤u§@ªíÅܼÆ
Set uBook = ThisWorkbook
'¡ô¥OuBook³o¬¡¶Ã¯ÅܼƬO ¥»¬¡¶Ã¯
Fn = Sheet1.[P2] & ".xls"
'¡ô¥OFn³o¦r¦êÅܼƬO ²Ä¤@Ó¤u§@ªíªº[P2]Àx¦s®æÈ,³s±µ".xls"ªº·s¦r¦ê
On Error Resume Next: Set xBook = Workbooks(Fn): On Error GoTo 0
'¡ô¥Oµ{§Ç¹J¿ù¼È¸õ¹L¿ù»~°õ¦æ¤UÓµ{§Ç:¥OxBook³o¬¡¶Ã¯ÅܼƬO ¦W¬°FnÅܼƪº¬¡¶Ã¯,
'±µµÛ´N«ì´_°»¿ù
If xBook Is Nothing Then Set xBook = Workbooks.Open(uBook.Path & "\" & Fn)
'¡ô¦pªGxBookÅܼƬO¤£¦s¦b(ÁÙ¨S³Q¶}±Ò)!´N¶}±Ò¦b¥»¬¡¶Ã¯¸ê®Æ§¨¸ÌªºFnÅܼƪº¬¡¶Ã¯
uBook.Activate
'¡ô±Ò¥ÎuBookÅܼÆ
Sn = "Base Station Transport Data/Data_LTE/Data_NR/LTE Cell/NR Cell/NRDUCELL/NRDUCellCoverage"
'¡ô¥OSn³o¦r¦êÅܼƬO ¥H"/"³s±µ7Ó¤u§@ªí¦WºÙªº¦r¦ê
Application.ScreenUpdating = False
'¡ô¥O¿Ã¹õ¼È¤£ÀHµÛµ{§Çªº°õ¦æ§@µ²ªGÅܤÆ
For Each S In Split(Sn, "/")
'¡ô³]¶¶°j°é!¥OS³o³q¥Î«¬ÅܼƬO ¤@ºû°}¦C¸Ìªº¤@û,
'¤@ºû°}¦C:¥H"/"²Å¸¹¤À³ÎSnÅܼƪº¦r¦ê°}¦C
On Error Resume Next
'¡ô¥Oµ{§Ç¹J¿ù¼È¸õ¹L¿ù»~°õ¦æ¤UÓµ{§Ç
Set xS = xBook.Sheets(S & "")
'¡ô¥OxS³o¤u§@ªíÅܼƬO xBookÅܼƬ¡¶Ã¯(¥t¶}±ÒÀÉ)ªº ¦W¬°SÅܼƤu§@ªí
Set uSht = uBook.Sheets(S & "")
'¡ô¥OuSht³o¤u§@ªíÅܼƬO uBookÅܼƬ¡¶Ã¯(¥»ÀÉ)ªº ¦W¬°SÅܼƤu§@ªí
On Error GoTo 0
'¡ô¥O«ì´_°»¿ù
If xS Is Nothing Then MsgBox "¤½¥qìÀɧ䤣¨ì¡e" & S & "¡f¤u§@ªí!!!": GoTo s01
'¡ô¦pªGxS¬O¤£¦s¦b!´N¸õ¥X´£µøµ¡~~!«ö½T©w¶s«á¸õ¨ì s01¼Ð¥Üªºµ{§Ç¦ì¸mÄ~Äò°õ¦æ
If uSht Is Nothing Then MsgBox "¥»Àɮק䤣¨ì¡e" & S & "¡f¤u§@ªí¡A½Ð½T»{«á¦A«·s°õ¦æ!!!": Exit Sub
'¡ô¦pªGuSht¬O¤£¦s¦b!´N¸õ¥X´£µøµ¡~~!«ö½T©w¶s«á µ²§ôµ{¦¡°õ¦æ
uSht.UsedRange.Clear
'¡ô¥OuShtÅܼƪº¦³¨Ï¥ÎÀx¦s®æ°µ ²M°£
Range(xS.[a1], xS.UsedRange).Copy uSht.[a1]
'¡ô¥OxSÅܼƪº[A1]Áp¶°¦³¨Ï¥ÎÀx¦s®æÂX®i¦Ü³Ì¤p¤è¥¿½d³òÀx¦s®æ,½Æ»s¨ìuShtÅܼƪº[A1]Àx¦s®æ
Set xS = Nothing: Set uSht = Nothing
'¡ô¥OÄÀ©ñÅܼÆ
s01: Next S
xBook.Close 0
'¡ô¥OxBookÅܼÆÃö³¬(0¬O¤£¦sÀÉ)
uBook.Sheets(1).Select
'¡ô¥O¿Ã¹õµe±¸¨¦b¥»ÀɲĤ@Ó¤u§@ªí
End Sub |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 121
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 62
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2021-1-21
- ³Ì«áµn¿ý
- 2024-8-20
|
¥»©«³Ì«á¥Ñ shuo1125 ©ó 2023-3-9 22:10 ½s¿è
¦^´_ 2# ã´£³¡ªL
rcyw ª©¤j¤£¦n·N«äÉ·fª©!
ã¤j¦n!
·Q½Ð°ÝY¦³¦h¤u§@ï¦h¤u§@ªí½Æ»s¬O§_¥i³æ¤@µ{§Ç½X°õ¦æ§¹¦¨....?
¸Ô¦pªþ¥ó¡A¥i§_³Ò·Ðã¤j©âªÅ¸Ñµª?·P¿E¤£ºÉ~! |
-
-
TEXT.zip
(35.08 KB)
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-3-10 08:16 ½s¿è
¦^´_ 5# shuo1125
ÁÂÁ«e½úµoªí¦¹©«
«á¾Ç½m²ß¥H°j°é°õ¦æ°Æµ{¦¡ªº¤è®×,½Ð«e½ú°Ñ¦Ò
½Ð¦U¦ì«e½ú«ü¾É
Dim Fn_ALL, Sn_ALL, x%
'¡ô«Å§i¦P¼Ò²ÕÅܼÆ:(Fn_ALL,Sn_ALL)¬O³q¥Î«¬ÅܼÆ,x¬Oµu¾ã¼ÆÅܼÆ
Sub Copysheets()
Fn_ALL = Array([A2], [A3]): Sn_ALL = Array("A/B/C", "D/E/F")
'¡ô¥OFn_ALL³o¦P¼Ò²ÕÅܼƬO¤@ºû°}¦C,¥H[A2],[A3]¨âÓÀx¦s®æ±a¤J
'¡ô¥OSn_ALL³o¦P¼Ò²ÕÅܼƬO¤@ºû°}¦C,¥H"A/B/C", "D/E/F"¨âÓ¦r¦ê±a¤J
If UBound(Fn_ALL) <> UBound(Sn_ALL) Then Exit Sub
'¡ô¦pªGFn_ALL°}¦C³Ì«á¯Á¤Þ¸¹ <> Sn_ALL°}¦C³Ì«á¯Á¤Þ¸¹!´Nµ²§ôµ{¦¡°õ¦æ
'¡ô¬¡¶Ã¯»P¤u§@ªí¤£¹ïºÙ¤£°õ¦æ
For x = 0 To UBound(Fn_ALL)
'¡ô³]¶¶°j°é!x±q0¨ì Fn_ALL°}¦C³Ì«á¯Á¤Þ¸¹
Call ½Æ»s«ü©w¤u§@ªí
'¡ô¥O°õ¦æ(½Æ»s«ü©w¤u§@ªí)°Æµ{¦¡
Next
MsgBox "¤w½Æ»s§¹²¦"
End Sub
Sub ½Æ»s«ü©w¤u§@ªí()
Dim Fn$, Sn$, S, tBook As Workbook, tSht As Worksheet, sBook As Workbook, Sw As Worksheet
Application.ScreenUpdating = False
Set tBook = ThisWorkbook
Fn = Fn_ALL(x).Value & ".xlsx"
'¡ô¥OFn³o¦r¦êÅܼƬO ²ÄxÅܼƯÁ¤Þ¸¹ªºFn_ALLÅܼÆ(°}¦C)È ³s±µ".xlsx"¦r¦ê«áªº·s¦r¦ê
'Array([A2], [A3])¬O¥HÀx¦s®æ±a¤J°}¦C,¤£¬O¦r¦ê,©Ò¥Hn¥[ .Value
On Error Resume Next: Set sBook = Workbooks(Fn): On Error GoTo 0
If sBook Is Nothing Then Set sBook = Workbooks.Open(tBook.Path & "\" & Fn)
tBook.Activate
Sn = Sn_ALL(x)
'¡ô¥OSn³o¦r¦êÅܼƬO ²ÄxÅܼƯÁ¤Þ¸¹ªºSn_ALLÅܼÆ(°}¦C)È
For Each S In Split(Sn, "/")
On Error Resume Next
Set Sw = sBook.Sheets(S & "")
Set tSht = tBook.Sheets(S & "")
On Error GoTo 0
If Sw Is Nothing Then MsgBox "ìÀɧ䤣¨ì¡e" & S & "¡f¤u§@ªí!!!": GoTo s01
If tSht Is Nothing Then MsgBox "¥»Àɮק䤣¨ì¡e" & S & "¡f¤u§@ªí¡A½Ð½T»{«á¦A«·s°õ¦æ!!!": Exit Sub
tSht.UsedRange.Clear
Range(Sw.[A1], Sw.UsedRange).Copy tSht.[A1]
Set Sw = Nothing: Set tSht = Nothing
s01: Next S
sBook.Close 0
tBook.Sheets(1).Select
Application.ScreenUpdating = True
End Sub |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 121
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 62
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2021-1-21
- ³Ì«áµn¿ý
- 2024-8-20
|
¦^´_ 6# Andy2483
Andy2483«e½ú¦n:
±N¸ê®Æ©ñ¤J°}¦C¤¤°õ¦æ¡A±ß½ú¾ÇÃÀ¤£ºëµLªk·Q¨ì³o¶ô...
ÁÙ³Ò·ÐÀ°¦£µù°O¸ÑÄÀ¡AÁÂÁ±zªº«ü¾É!! |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¦^´_ 7# shuo1125
ÁÂÁ«e½ú¦^´_
¦pªG»Ýn¼W¥[°õ¦æªº¬¡¶Ã¯,¦b°}¦C¸Ì¼W¥[´N¥i¥H
Fn_ALL = Array([A2], [A3]): Sn_ALL = Array("A/B/C", "D/E/F")
½Ð«e½ú±`¤W½×¾Â¤@°_¾Ç²ß |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 121
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 62
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2021-1-21
- ³Ì«áµn¿ý
- 2024-8-20
|
¥»©«³Ì«á¥Ñ shuo1125 ©ó 2023-3-10 11:46 ½s¿è
¦^´_ 8# Andy2483
Andy2483«e½ú¦n:
³oÓ°ò¥»·§©À§ÚÁÙ¬O¦³ªº...ÁÂÁ´£ÂI!
§Ú¥u¯à¬Ý¬Ý°ª¤â̪º¸Ñµª¨Ã¸ÕµÛ²z¸Ñ¡Aµ{«×»·¤£°÷»P¦U¦ì°Q½×±M·~°ÝÃD¡C |
|
|
|
|
|
|