테이블 이름을 sheet1로 설정합니다. 여기서 A열은 국가 이름이고 B열은 해당 번호입니다(실제 상황에 따라 수정).
아직 레벨을 통과하지 못한 플레이어를 돕기 위해 다음 매크로를 사용하여 퍼즐을 풀 수 있습니다. 목표를 달성하려면 이 매크로를 만들고 실행하세요.
잠깐아아아아()
범위에 따른 희미한 대상
Do
나 = 나 + 1
아직 레벨을 통과하지 못한 플레이어들을 돕기 위해 구체적인 퍼즐 해결 방법을 알아봅시다. 코드에서는 "Sheet1.Range("A" & i).Text"를 사용하여 셀 A의 텍스트 내용을 가져옵니다. 이 방법은 필요한 정보를 얻은 다음 해당 작업을 수행하는 데 도움이 될 수 있습니다. 이 팁이 여러분 모두에게 도움이 되기를 바랍니다!
aaa 케이스 선택
사례 "중국"
Sheet1.Range("B" & i) = 2
사례 "미국"
Sheet1.Range("B" & i) = 1
사례 "일본"
Sheet1.Range("B" & i) = 0
선택 종료
루프하는 동안 aaa ""
끝 서브
공식의 논리적 관계에 문제가 있습니다
이게 무슨 뜻인지 확인해주세요
하위 테스트()딤 i&, n, n1
For i = 1 To 5
If Cells(i, "D") * Pi / 180 >= 0 Then
Cos(Cells(i, "B") * Pi / 180 - Cells(i, "I") * Pi / 180) < 0 그러면
n = 사실
그밖에
n = 거짓
끝나면
Cos(Cells(i, "B") * Pi / 180 - Cells(i, "I") * Pi / 180) >
n1 = 참그밖에
n1 = 거짓
끝나면
If n1 = True And n = True Then k = "-1" Else k = "1"
그밖에
k = "1"
끝나면
셀(i, "A") = k
다음엔 나
끝 서브
위 내용은 Excel의 수식을 VBA로 다시 작성하는 방법에 대한 자세한 설명의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!