Excel - Alueen etsiminen ja korvaaminen
Ongelma
Haluan löytää ja korvata Excel-arvot?
Voiko kukaan kertoa minulle, jos tämä on mahdollista?
Ratkaisu
Minulla on tämä projektissani, mutta voin korvata useita soluja.
Sub ChgInfo () Dim WS työvälineenä Etsi hakua merkkijonoina Dim Replacement kuten merkkijono Dim Kysy merkkijonoina Dim Otsikko merkkijonoina Dim MatchCase As Boolean MsgBox "Tämä vaihtoehto vaikuttaa kaikkiin laskentataulukoihin. Luodaan muuttamaan ADM: ää. Vain PROJECT TITLE. "& VbCrLf &" Lisätietoja: SOP Matrix Informes de Proyectos ", vbExclamation + vbOKOnly, " Lue ennen "Prompt =" Mikä on alkuperäinen arvo, jonka haluat korvata? " Title = "Search Value Input" Haku = InputBox (Prompt, Title) Prompt = "Mikä on korvausarvo?" Title = "Search Value Input" Replacement = InputBox (Prompt, Title) Jokaiselle WS: lle Työarkkeissa WS.Cells.Replace What: = Search, Replacement: = Vaihto, _ LookAt: = xlPart, MatchCase: = False Next End Sub
Huomautus
Kiitos Castellanolle tästä vinkistä foorumissa.