„Excel“ - makrokomandas, skirtas tam tikros ląstelės vertės ištrynimui

Problema

Turiu reikalavimą ištrinti vertę tam tikruose „Excel“ ląstelių rinkiniuose naudojant VBA scenarijų.

Pvz., Turiu ištrinti d3: d4, e3: e4, g3: g4, h3: h4

ir kitas rinkinys d9: d11, e9: e11, g9: g11, h9: h11.

 ištrinti. Aš bandau tokiu būdu (lakštai1). diapazonas ("d3: e4) .elect selection.clearcontents sheet (" sheet1 "). diapazonas (" g3: h4) .select selection.clearcontents. . . . pabaigos sub 

Tačiau tokiu būdu matomas atleidimas. Ar kas nors gali padėti man rašyti geresnį kodą.

Sprendimas

Sukurkite bendrąją rutiną ir paskambinkite į tą įprastą

 „rowToClearStarting: pirmoji eilutės eilutė, kurią reikia išvalyti“ rowToClearEnding: paskutinė eilutės eilutė, kurią reikia išvalyti “Pavyzdinis kvietimas: clearContents (4, 6) Public Sub clearContents (rowToClearStarting As Long, rowToClearEnding As Long) „sheet1“). Range („d“ & rowToClearStarting & ": d" & rowToClearEnding) .ClearContents Sheets ("sheet1"). Range ("e" & rowToClearStarting & ": e" & rowToClearEnding) .clearContents Sheets ("sheet1 ") .Range (" g "& rowToClearStarting &": g "& rowToClearEnding) .ClearContents Sheets (" sheet1 "). Range (" h "& rowToClearStarting &": h "& rowToClearEnding) .clearContents End Sub 

Ačiū Rrizvisa1 už šį patarimą.