셀에서 수학 기호를 선택하고 vba 공식을 사용합니다.

Question

"그림보기"라는 새로운 퍼즐을 발견했습니다. 지역 신문에. 나는 현재 웹상에서 아무것도 찾을 수 없지만 스도코와 비슷하지만 수학 요원과 비슷합니다. 사용할 수있는 목록이 제공되고 공백을 채워야합니다. 예 : 첫 번째 행 것이다 _/_ + _ = 10

I 셀 D4 (A) 내에있을/셀 F4 A를 +

내 VBA 코드는 상기 다음

Dim OPR11, OPR12, as String 

을 갖는다 아래로 나는이 경우

OPR11 = Cells(4, 4).Value 
OPR12 = Cells(4, 6).Value 

그래서이 OPR11 =/및 OPR12 = +

당신이 볼 수

For Each rng3 In vArray 
    For Each rng2 In vArray 
    For Each rng1 In vArray 
If rng1 & OPR11 & rng2 & OPR12 & rng3 = R1A Then 
    DO CODE 
end if 
    next rng1 
    next rng2 
next rng3 

으로 많은 fo를 내 If 기능이 작동하지 않는 경우 다음과 같이

다음 나는 루프 다음을 숫자 배열을 설정하고 수행. 분명히, 나는 수식으로 수화물 연산자를 CONC 수 없습니다 그것으로 서서 그것이 작동합니다.

제대로 작동하려면 어떻게해야합니까? 감사합니다.

Answer 1

수식을 계산하려면 Evaluate()을 사용해야한다고 생각합니다.

예를 CTRL + G

와 직접 실행 창에

차례

하고 코드

Option Explicit 

Sub Main() 

    Dim c4 As Range 
    Dim d4 As Range 
    Dim e4 As Range 
    Dim f4 As Range 
    Dim g4 As Range 

    Set c4 = Cells(4, 3) 
    Set d4 = Cells(4, 4) 
    Set e4 = Cells(4, 5) 
    Set f4 = Cells(4, 6) 
    Set g4 = Cells(4, 7) 

    Dim answer As Double 
    answer = Evaluate("=" & c4 & d4 & e4 & f4 & g4) 

    Debug.Print "The formula evaluates to: " & Evaluate("=" & c4 & d4 & e4 & f4 & g4) 

    Cells(4, 9) = answer 

End Sub 

을 실행