사용자가 전자적으로 노트를 캡처, 구성하고 다시 사용할 수 있도록 하는 Microsoft 제품군입니다.
안녕하세요
저는 Adeyemi이고 귀하의 질문에 기꺼이 도움을 드리겠습니다.
VBA를 사용하여 Word에서 사용자 양식을 만들려고 하는데 콤보 상자에서 합계를 합산하기 위해 답을 얻는 데 문제가 있는 것 같습니다. 제공한 코드에서 'CDbl' 함수를 사용하여 선택한 옵션 버튼의 캡션을 숫자로 변환한 다음 'totalSum' 변수에 추가하려는 것 같습니다.
그러나 답을 숫자로 변환하고 더하기 위해 제공한 코드에는 몇 가지 문제가 있습니다. 예를 들어 'For Each oCtrl In Frame1.Controls' 루프가 누락되어 오류가 발생합니다. 또한 'totalSum' 변수가 올바르게 업데이트되지 않는 것 같습니다.
다음은 선택한 옵션 단추의 값을 올바르게 더하도록 코드를 수정하는 방법의 예입니다.
'''vba Dim totalSum을 Double로 합계 = 0
Dim oCtrl을 컨트롤로
' 모든 프레임 반복 i = 1 내지 9 범위로 sFrame을 흐리게 sFrame = ActiveDocument.Bookmarks("PHQ9_A" & i)를 설정합니다. 레인지 각 oCtrl In Me.Controls("Frame" & i)에 대해. 컨트롤 TypeName(oCtrl) = "OptionButton"이면 oCtrl.Value = True이면 sFrame.Text = oCtrl.캡션 totalSum = totalSum + CDbl(oCtrl.Caption) 출구 End If End If 다음 다음
' 총 합계 책갈피 업데이트 범위로 Dim sTotalSum sTotalSum = ActiveDocument.Bookmarks("PHQ9_TotalSum")를 설정합니다. 레인지 sTotalSum.Text = totalSum
PHQ9입니다. 숨기다 Me.다시 칠하기
이 코드는 사용자 정의 폼의 모든 프레임을 반복하고 각 프레임에 대해 모든 컨트롤을 반복하여 선택한 옵션 단추를 찾습니다. 그런 다음 선택한 옵션 버튼의 캡션을 'CDbl' 함수를 사용하여 숫자로 변환하고 'totalSum' 변수에 추가합니다. 마지막으로 'totalSum' 변수는 Word 문서의 'PHQ9\_TotalSum' 책갈피를 업데이트하는 데 사용됩니다.
이게 도움이 되길 바란다.
지역 사회에 환원하십시오. 이 답장으로 문제가 해결되었는지 표시하여 이 문제가 있는 다음 사람을 돕습니다. 아래의 예 또는 아니오를 클릭합니다
안부
아데예미
*자동 번역된 답변으로, 문법 오류나 어색한 표현이 있을 수 있습니다.*