ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-2-22 16:57 ½s¿è
  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§@ªí)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

  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

TOP

¦^´_ 2# oobird

µ{¦¡½X¤ñ·Q¹³¤¤Â²³æ
¤]§Ö«Ü¦h
ÁÂÁ³á
   
SpecialCells(xlCellTypeFormulas, 23)
½Ð°Ý  ,23  ³o¦U¥Î³~¬O¤°»ò?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 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¿ù»~Ä~Äò°õ¦æ?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¥»©«³Ì«á¥Ñ oobird ©ó 2011-10-17 19:22 ½s¿è

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

TOP

¦^´_ 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®æ¶Ü
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD