빈이 엄마 생일이라 엄마 친구랑 빈이랑 …

가격 대비 괜찮은 듯 한 구성

[codepeople-post-map]

너무 간단해서 올리기기 뭐 하지만 나중의 기록을 위해서… 필요한 사람이 있을 것 같아서요.

Option Explicit

Sub Cal_Data()

Dim ValArray() As String
Dim src_txt As String, mrg_txt As String
Dim i As Integer, cal_value As Integer

Dim rng As Range, SelRng As Range

Set SelRng = Application.InputBox(“분리할 참조 영역 선택”, Type:=8)

For Each rng In SelRng

ValArray() = Split(rng.Value2, “,”)

For i = LBound(ValArray) To UBound(ValArray)
cal_value = (Val(ValArray(i) + 1)) / 2
mrg_txt = mrg_txt & cal_value & “,”

Next i

rng.Offset(0, 1) = Left(mrg_txt, Len(mrg_txt) – 1)

mrg_txt = “”

Next rng

MsgBox “분리 완료”

End Sub

첨부 화일 : 20160401-분할계산 후 합침

그냥 점심먹으러 나가다가 빈이엄마가 거제도 가자고 해서

집에만 있는 곰이도 산책 시키러 데리고 갔는데

바다바람이 너무 세서 차안에만 있다 온 …

[codepeople-post-map]