[µo°Ý] (¤w¸Ñ¨M)´M§ä¬Y¯S©w¤½¦¡¦b¶K¤W­È

freeffly

1.     Cells.Find(What:=".xls", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
   
2.         :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
   
3.         False, MatchByte:=False, SearchFormat:=False).Activate
   
4.     Selection.Copy
   
5.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
6.         :=False, Transpose:=False
   
7.     Cells.FindNext(After:=ActiveCell).Activate
   
8.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
9.         :=False, Transpose:=False

½Æ»s¥N½X

¤W­±¬O§Ú¿ý»sªº¥¨¶°
§Ú·Q§ä¥X¤u§@ªí¤¤¹ï·Ó¨ì¨ä¥LÀɮתº¤½¦¡µM«á¶K¤W­È
§Ú·Q®M¥Î°j°éªº¤è¦¡¥h¶] §Ú¸Ó¦p¦ó­×§ï
©ÎªÌ¦³¨ä¥¦¤è¦¡¥i¥H¹F¨ì§Ú­nªºµ²ªG
¤£·Q­n¨C¦¸¶}Àɮ׳£¥X²{°Ý§Ú­n¤£­n§ó·s³sµ²(¤S¤£½T©w¬O­þ¦U¤u§@ªí)

freeffly

¦^´_ 5# oobird


    ¤j¤j§Ú«á¨Ó·Q¨ì on error resume next
    ¨S¦³¦A¶]¥X¨Ó¿ù»~
       ¦ý¬OÁÙ¬O¦³¥X²{­n¤£­n§ó·sªº¦r²´
      Ãø¹D§ó·s¤£¬O³æ¯Â¦]¬°³sµ²¨ì¨ä¥LÀÉ®×Àx¦s®æ¶Ü

oobird

Sub test()
On Error GoTo 1
For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23)
If c.Formula Like "*.xls]" & "*" Then
c.Formula = c.Value
End If
Next
1
End Sub
¥[¤W¬õ¦r²¤¹L

freeffly

¦^´_ 2# oobird


    ¤j¤j¦A°Ý¤@¦U°ÝÃD
      §Ú¥Î°j°é¥h¹ï¨C­Ó¤u§@ªí°µ³o¦U°Ê§@
       ¦pªG¸Ó¤u§@ªí¨S¦³²Å¦X±ø¥ó·|¸õ¥X¿ù»~
       ³o¦U­n¦p¦óÅý¥L¤£¸õ¥X¿ù»~Ä~Äò°õ¦æ?

freeffly

¦^´_ 2# oobird

µ{¦¡½X¤ñ·Q¹³¤¤Â²³æ
¤]§Ö«Ü¦h
ÁÂÁ³á
   
SpecialCells(xlCellTypeFormulas, 23)
½Ð°Ý  ,23  ³o¦U¥Î³~¬O¤°»ò?

oobird

1. Sub test()
   
2. For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23)
   
3. If c.Formula Like "*.xls]" & "*" Then
   
4. c.Formula = c.Value
   
5. End If
   
6. Next
   
7. End Sub

½Æ»s¥N½X