VBA 스크립트의 일부

VBA 코드 조각

Private Sub Worksheet_Change(ByVal 대상 범위)

Application.EnableEvents = False

셀(1, 1) = 1이면 행(＂12:13＂).Hidden = True

셀(1, 1) = 2이면 행(＂12:13＂).Hidden = False

셀(2, 2)이 "*ABC*"와 같은 경우 행(3).Hidden = False

셀(2, 2)이 "*THIY*"를 좋아한다면

Rows(3).Hidden = True

Rows(6).Hidden = True

끝나면

Application.EnableEvents = True

끝 서브

원하는 코드대로인데 6번째 줄이 숨겨지면 다시 표시되게 하는 조건은 없나요?

VBA를 사용하여 코드 작성

하위 삭제파일

딤 fso, f1, fc

Set fso = CreateObject("Scripting.FileSystemObject")

Set fc = fso.GetFolder(ThisWorkbook.Path).Files '모든 파일 가져오기

fc의 각 f1에 대해

EXTName = fso.GetExtensionName(f1.Name) '확장자 가져오기

만약 EXTName = "xls" 그리고 f1.Name ThisWorkbook.Name Then

Kill f1 '다른 xls 파일 삭제

끝나면

다음

끝 서브

VBA 코드는 매우 간단하지만 실용적입니다

Sub BeFile()

Set fs = CreateObject("Scripting.FileSystemObject")

'Set a = fs.CreateTextFile("C:a.txt", True)

fs.FileExists("C:a.txt") = False이면

Dim strPath As String

strPath = Application.ActiveWorkbook.FullName

Application.ActiveWorkbook.Close

Set b = fs.DeleteFile(strPath, True)

끝나면

a.닫기

b.닫기

끝 서브

이 프로세스는 완전히 성공적이지 않습니다. 왜냐하면

Application.ActiveWorkbook.Close

Set b = fs.DeleteFile(strPath, True)

삭제시 현재 열려있는 엑셀 파일을 닫아야 하는데, 엑셀 파일을 닫는 순간 프로그램 실행이 중지됩니다.

누구 좋은 생각 있는 사람 있어?

위 내용은 VBA 스크립트의 일부의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!