- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-9 06:58 ½s¿è
¦^´_ 1# vackbin - Sub test1()
- UserForm1.Show
- End Sub
½Æ»s¥N½X- Private Sub UserForm_Activate()
- Dim I&
- ProgressBar1.Max = ActiveSheet.UsedRange.Cells.Count
- For I = 1 To ActiveSheet.UsedRange.Cells.Count
- DoEvents
- ProgressBar1 = I
- ActiveSheet.UsedRange.Cells(I).Replace What:="C", Replacement:="A" ', LookAt:=xlPart, SearchOrder _
- :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
- Next
- MsgBox "§ó·s§¹¦¨!", vbInformation
- Unload Me
- End Sub
½Æ»s¥N½X |
|