- ©«¤l
- 18
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 73
- ÂI¦W
- 1
- §@·~¨t²Î
- Window XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-8-2
- ³Ì«áµn¿ý
- 2024-9-12
|
¥»©«³Ì«á¥Ñ pointchi ©ó 2021-12-22 22:54 ½s¿è
¦^´_ 2# samwang
³vµ§¶}±Ò¦P¸ê®Æ§¨¦³Link xxªºÀÉ®×(Àɮ׬O³B©ó¶}±Òª¬ºA)-->(°õ¦æ§Ú¦Û¤v½s¼gªºµ{§Ç) -->½Æ»s¸ê®Æ¨ìTEST1ÀÉ®×Range?? (¦p¤U»¡©ú)--> Ãö³¬Link xxÀÉ®×(Ãö³¬«á¦P®É°±¤îµ{§Ç¡A¥u°µ¤@½ü°j¡A¤£¦AÄ~Äò)
S¤j±z¦n¡A»¡©ú¦p¤U¡G
¥u¦³¤@ÓLink XX.xls(°õ¦æµ{§Çªº·í¤U¬O¤w¶}±Òª¬ºA)¡A½Æ»s¸Ì±ªº¤À¶PickListLinkPDAªºÄæ¦ìA¦ÜAUªº¸ê®Æ¡A
¶K¦Ü¥DÀÉTEST1.xlsmªº¤À¶raw¡AA1Àx¦s®æ¶K¤W¡C
Dim wb As Workbook
For Each wb In Workbooks
If LCase(wb.Name) Like "Link*.xls*" Then
Workbooks(wb).Worksheets("PickListLinkPDA").Columns("A:AU").Cells.Copy '½Æ»sLink(N-1).xlsx¤¤ªºPickListLinkPDAªí³æ½Æ»s
Workbooks("test1.xlsm").Worksheets("raw").Select '¶K¦Ü¥DÀÉtest1.xlsm¤¤ªºrawªí³æ
Range("A1").Select
ActiveSheet.Paste
End If
(¥Dn¬O¤W±³o¬qµ{§Ç¥X²{µ{§Ç¿ù»~ªº²§±`)
µM«á°õ¦æ
a = Cells(13, 5)
If Len(a) >= 28 Then
Worksheets("raw").Cells(13, 5).Font.Name = "Arial"
Worksheets("raw").Cells(13, 5).Font.Size = 35
Worksheets("raw").Cells(13, 5).Font.FontStyle = "²ÊÅé"
Else
Worksheets("raw").Cells(13, 5).Font.Name = "Arial"
Worksheets("raw").Cells(13, 5).Font.Size = 48
Worksheets("raw").Cells(13, 5).Font.FontStyle = "²ÊÅé"
End If
±µµÛÃö³¬Link XX.xls(ª½±µÃö³¬¡A¤£¥Î¦sÀÉ)
For Each wb In Workbooks
If LCase(wb.Name) Like "Link*.xls*" Then wb.Close 0
Next |
|