GBKEE

¦^´_ 1# vackbin

1. Sub test1()
   
2.     UserForm1.Show
   
3. End Sub

½Æ»s¥N½X

1. Private Sub UserForm_Activate()
   
2.     Dim I&
   
3.     ProgressBar1.Max = ActiveSheet.UsedRange.Cells.Count
   
4.     For I = 1 To ActiveSheet.UsedRange.Cells.Count
   
5.         DoEvents
   
6.         ProgressBar1 = I
   
7.         ActiveSheet.UsedRange.Cells(I).Replace What:="C", Replacement:="A" ', LookAt:=xlPart, SearchOrder _
   
8.         :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
9.     Next
   
10.     MsgBox "§ó·s§¹¦¨!", vbInformation
    
11.     Unload Me
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# vackbin
¦Ñ§Ì: ³oµ{¦¡½X¬O­n©ñ¦bUserFormªí³æªºµ{¦¡½X

1. Private Sub UserForm_Activate()
   
2.     Dim I&
   
3.     ProgressBar1.Max = ActiveSheet.UsedRange.Cells.Count
   
4.     For I = 1 To ActiveSheet.UsedRange.Cells.Count
   
5.         DoEvents
   
6.         ProgressBar1 = I
   
7.         ActiveSheet.UsedRange.Cells(I).Replace What:="1", Replacement:="A", LookAt:=xlPart, SearchOrder _
   
8.         :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
9.     Next
   
10.     MsgBox "§ó·s§¹¦¨!", vbInformation
    
11.    Unload Me
    
12. End Sub

½Æ»s¥N½X