VBA에서 InputBox가 반환한 값을 가져옵니다.

VBA의 입력 상자 반환 값

비공개 서브 iCheckGs()

'---------비밀번호 확인

딤 iPsw$, i&, tmp

iPsw = ＂＂ '＂300029＂

Do

tmp = 입력박스( _

＂시스템의 따뜻한 알림:＂ & Chr(10) & Chr(10) & _

＂비전문 사용자는 종료하려면 {취소}를 클릭하세요!＂ & Chr(10) & Chr(10) & _

＂비밀번호를 입력해주세요(＂& 3 - i & ＂기회가 있습니다!)＂)

Len(tmp) = 0이면 Sub를 종료합니다

CStr(tmp) = iPsw인 경우 Do를 종료하세요

내가 >= 2라면

Application.DisplayAlerts = False

ThisWorkbook.Close False

Application.DisplayAlerts = True

끝나면

나 = 나 + 1

루프

'비밀번호를 통과한 후의 코드는 다음과 같습니다

…

…

VB의 사용자 정의 함수에서 여러 값을 반환하는 방법

서브버튼1_클릭()

두 배의 희미한 둘레, 두 배의 면적, 두 배의 반경

경계 = 0

면적 = 0

반경 = 15#

SubN 호출(둘레, 면적, 반경)

MsgBox 둘레 & " " & 면적

끝 서브

Sub SubN(ByRef 경계 매개변수, ByRef 면적 매개변수, ByVal 반경 매개변수)

반경 매개변수의 경우

주변 매개변수 = 0

면적 매개변수 = 0

그밖에

주변 매개변수 = 2 * 3.14 * 반경 매개변수

Area 매개변수 = 3.14 * Radius 매개변수 * Radius 매개변수

끝나면

End Sub 위 코드는 Excel의 VBA에서 디버깅되었으며 요구 사항을 충족할 수 있습니다.

vba 반환 값

먼저 ingN과 ingSN이 정수입니다. 셀이 소수이면 문제가 있을 수 있습니다.

역시

rng1.Cells의 각 rng2에 대해

rng2.Value "" 그렇다면

rng2.선택

ingTC = Val(ActiveCell.Offset(1, 0).Value + ActiveCell.Offset(2, 0).Value)

끝나면

다음 rng2

결과 ingTC는 0이어야 합니다

rng2.Value가 해당 영역의 맨 아래 셀인 끝까지 반복하세요

Val(ActiveCell.Offset(1, 0).Value + ActiveCell.Offset(2, 0).Value)

해당 영역 아래 두 줄은 비어 있어야 합니다!

rng0.Cells의 각 rng3에 대해

rng3.Value = "" 그렇다면

shtV.Select

rng3.선택

ingN = Val(ActiveCell.Offset(-1, 0).값)

끝나면

다음 rng3

rng0.Cells의 상황에 따라 다릅니다

모두 데이터이고 IF가 전혀 들어가지 않습니다.

빈 셀이 2개 이상 연속으로 있는 경우 ingN은 0이어야 합니다.

업로드하신 데이터에 따르면 연산은 0이어야 합니다

무엇을 하려는지 이해할 수 없어서 어떻게 바꾸는지 모르겠습니다.

역시

rng2.Value "" 그러면

rng2.선택

ingTC = Val(ActiveCell.Offset(1, 0).Value + ActiveCell.Offset(2, 0).Value)

끝나면

작성자:

rng2.Value "" 그렇다면

ingTC = Val(rng2.Offset(1, 0).값 + rng2.Offset(2, 0).값)

끝나면

효율이 훨씬 높아집니다

위 내용은 VBA에서 InputBox가 반환한 값을 가져옵니다.의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!