|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
다시 질문드려볼게요~
예제처럼 세로의 분수 전체에서 공통분모를 구하는 식을 알고 싶어요(최소공배수)
==============[블랙홀님 글에 대한 답변입니다]==============
사용자 정의함수를 이용하세요
G12 : =userLCM(E7:E16)
Function userLCM(rSelect As Range)
Dim rX As Range
Dim sNumberFormat As String, sText As String
Dim lNum() As Long
Dim iX As Integer
Application.Volatile
For Each rX In rSelect.Cells
If rX.Text = "" Then
Else
sNumberFormat = rX.NumberFormat
If Left(sNumberFormat, 2) = "# " Then
sText = WorksheetFunction.Text(rX.Value, sNumberFormat)
iX = iX + 1
ReDim Preserve lNum(1 To iX)
lNum(iX) = Val(Split(sText, "/")(1))
End If
End If
Next
userLCM = WorksheetFunction.Lcm(lNum)
End Function
|
|