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

«ü©wÄæ¦ì¨ú¥N¦r¤¸

«ü©wÄæ¦ì¨ú¥N¦r¤¸

¤p§Ì¦UºØ¹Á¸ÕÁÙ¬OµL¸Ñ,·Q½Ð°ª¤â¨ó§U¤@¤U
°õ¦æ¦¹µ{¦¡·|±N©Ò¦³sheetÀx¦s®æªº111§ï¬°§A¦n
¥i§_«ü©w§ìsheetªºJÄæ°µ­×§ï?
·P¿E¤£ºÉ!!!!:)
Option Explicit

Sub LoopSheets()
Dim ws As Worksheet
For Each ws In Sheets
    ReplaceText "111", "§A¦n", ws
Next
End Sub
Function ReplaceText(src As String, Rpl As String, sht As Worksheet)
    sht.Cells.Replace What:=src, Replacement:=Rpl, LookAt:=xlWhole, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
End Function

¦^´_ 10# EddieLiang

'¿ï¨ú¥HA1¬°°ò·Ç¡A¦V¤U©M¦V¥k©Ò¦³³sÄò¸ê®ÆªºÀx¦s®æ
ActiveSheet.Range("A4").End(xlDown).End(xlToRight).Select

'¸ê½è·M¬N§ï¬°³o¼Ë«oµLªk¹B¦æ
ActiveSheet.Range("A4").End(xlDown).End(xlToRight).Selection.Borders.LineStyle = xlContinuous 'µLªk°õ¦æ

TOP

¦^´_ 9# EddieLiang

¦³¬d¨ìø»s®æ½uªº»yªk¬°¤â°Ê¤è¦¡Ã¸»s®æ½u

Sub ø»s¥~®Ø½u()
MsgBox ¡§¦b©Ò¿ï¨úªºÀx¦s®æ½d³ò¥|©Pø»s¥~®Ø½u¡¨
With Selection
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
End With
End Sub


°²³]ªí®æ¦p¤U

A B C D E
1  2 3 4 5
6  7  8 9 1

©T©w¥ª¤WA4«hJÄæ«h§PÂ_³Ì«á¤@Ä榳­È¬°Ã¸»s½d³ò,¨Ò¦pJ20,¥i§_¨Ï¥Î§PÂ_»yªkø»s®æ½u?

TOP

¦^´_ 8# ­ã´£³¡ªL

³ºµM¬Owith¤p§Ì¤Ó²L¤F¦A¦¸·PÁ·Ǥj¼ö¤ß¦^´_!!!!

TOP

¦^´_ 7# EddieLiang


Sub format()
Dim xR As Range
With Sheets("Sheet1")
¡@¡@¡@For Each xR In Range(.[J4], .[J65536].End(xlUp))
¡@¡@¡@¡@¡@If xR & "" <> "§¹¦¨(finish)" And xR(1, 0) <> "" Then xR = "Wait for test" '§PÂ_iÄ榳µL¸ê®Æ±a¤J¦r¦ê
¡@¡@¡@Next
End With
End Sub

TOP

¦^´_ 6# ­ã´£³¡ªL

·Ç¤j«D±`·PÁ±z´£¨Ñ³o«D±`¨ü¥Îªº»yªk°Ú,¬Ý¨Ó³o¨BÀ³¸Ó¥i¥H¦Y«Ü¤[¤F(»~;P )
½Ð¥~·Q½Ð±Ð¤@¤U¦]worksheet¦³«Ü¦hsheet¥i§_«ü©wmodule1¥u¦bsheet1¹B¦æ©O?
¸Õ¤F¥H¤U´XºØ¤è©l½sĶ³£µLªk¹B¦æ:Q

Sub format()

Dim Sht As Worksheet, xR As Range 'Worksheet.("sheet1")
For Each Sht In Sheets 'In Worksheet("sheet1")
    For Each xR In Range(Sht.[J4], Sht.[J65536].End(xlUp))  '§ì¸ê®Æ½d³ò±qJ4¶}©l
        If xR & "" <> "§¹¦¨(finish)" And xR(1, 0) <> "" Then xR = "Wait for test" '§PÂ_iÄ榳µL¸ê®Æ±a¤J¦r¦ê
    Next
Next
   
    End Sub

TOP

¦^´_ 5# EddieLiang


Sht.[J65536].End(xlUp) §ì¢ØÄæ³Ì«á¤@­Ó«DªÅÀx¦s®æ

TOP

¦^´_ 4# ­ã´£³¡ªL

Sub format()
Dim Sht As Worksheet, xR As Range
For Each Sht In Sheets [[·Ç¤j³o¤U­±¨â¦C§Ú¨S¿ìªk²z¸Ñ]]
    For Each xR In Range(Sht.[J4], Sht.[J65536].End(xlUp))  '§ì¸ê®Æ½d³ò±qJ4¶}©l  [[Àµ½Ð«ü¾É]]

        If xR & "" <> "§¹¦¨(finish)" And xR(1, 0) <> "" Then xR = "Wait for test"    '§PÂ_jÄæ«D§¹¦¨¦r¦ê,iÄ榳¸ê®Æ±a¤JWait for test¦r¦ê [[³ocode¸g¹L±z«ü¾É«á§ï¬°«D§¹¦¨¦r¦ê§PÂ_§ï¬°waitfortest,«D±`¨ü¥Î«D±`·PÁ±z]]
    Next
Next
   
    End Sub

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2016-4-20 17:50 ½s¿è

¦^´_ 3# EddieLiang


Sub LoopSheets()
Dim Sht As Worksheet, xR As Range
For Each Sht In Sheets
¡@¡@For Each xR In Sht.[J4:J20]
¡@¡@¡@¡@If xR & "" = "111" And xR(1, 0) <> "" Then xR = "§A¦n"
¡@¡@Next
Next
End Sub

xR(1, 0)¡@©¹¥ª¤@®æ¡A§Y¬O¢ñÄæ¡I

©Î¡G
Sub LoopSheets()
Dim Sht As Worksheet, xR As Range
For Each Sht In Sheets
    For Each xR In Range(Sht.[J4], Sht.[J65536].End(xlUp))¡@§ì¸ê®Æ½d³ò
        If xR & "" = "111" And xR(1, 0) <> "" Then xR = "§A¦n"
    Next
Next
End Sub
¡@

¡@

TOP

¦^´_ 2# ­ã´£³¡ªL

·PÁ·ǤjµL¨p´£¨Ñ,¤p§Ì¤]¸g±`°Ñ¦Ò±zªº³¡¸¨®æ¦Û²ß.¬Ý¨ì±z¦bª¾ÃÑ+ªº¦^ÂЯuªº¬O¨ü¯q¨}¦h!!!!:victory:


Sub LoopSheets()
Dim ws As Worksheet
For Each ws In Sheets
¡@¡@ws.[J4:J20].Replace "111", "§A¦n", Lookat:=xlWhole
Next
End Sub

·Ç¤j¤pªº¹J¨ì¤@­Ó¤ñ¸ûµL¸Ñªº°ÝÃD,¦]¬°¬OJÄæ©Ò¥H¾ãÄæ³£·|¬O"§A¦n"¥u¦n¤â°Ê§ï¦¨[J4:20],¦³µL¿ìªk§P§OIÄ榳­È¤~¹ï¤J©O?

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD