Today is Present.

홍보성 글이 아닙니다. 소정의 원고료도 받아본 적도 없습니다. 제가 먹던 과자를 더 맛있게 먹는 법을 소개합니다. 이미지 없어요. 당신의 데이터요금을 걱정하는 블로그 랍니다. ^^' 해태제과 후렌치 파이(딸기맛, 사과맛) 1. 에어프라이기에 180도 3분~5분 돌려 먹는다. 2. 64겹의 섬세한 파이의 바삭함과 살짝 녹은 잼의 달콤함이 진하게 느껴집니다. 3. 그냥 먹을 경우에는 잼이 놓여진 부분을 혀에 닿도록 뒤집어서 먹어보세요 ^^ 해태제과 홈런볼 1. 에어프라이기에 180도 3분~5분 돌려 먹는다. 2. 겉은 바삭, 속은 녹아있어서 달콤함이 더 합니다. 크라운제과 쿠쿠다스 깔끔하게 먹는 법 1. 쿠쿠다스는 맛있게 먹는 법이 아닌 깔끔하게 먹는 법을 소개합니다. 2. 쿠쿠다스 봉지를 뜯을 때, 안내된..

수능 자료집(부록) 작성과 관련하여 다음과 같은 예제에서 숫자만 제거 하고 싶었다. 1) 수학영역 가17/X9 → 가/X 2) 탐구영역 과탐12/직탐4/X10 → 과탐/직탐/X 구글 검색한 결과 다음과 같은 vba 코드를 구할 수 있었다. VBA 코드 Function RemoveNumbers(Txt As String) As String With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[0-9]" RemoveNumbers = .Replace(Txt, "") End With End Function 제거할 셀을 RemoveNumbers() 함수의 매개변수로 넣어 다른 셀에서 숫자를 삭제한 값을 얻는다. 사용수식: =RemoveNumbers(A2)

에듀파인 예산입력자료 엑셀에서 활용된 모듈입니다. 해당 모듈은 셀에서 텍스트와 같이 입력된 값에서 숫자만 가지고와 산술계산을 하는 모듈입니다. ex) 산출식에 72,000원*2명*3일= 이라고 기재되어 있는 text 를 연산부호에 따라 계산하여 요구금액(432,000)을 산출하는 사용자 정의함수 CalStr 모듈 Function CalStr(strS As String) Dim i As Integer Dim Tmp_Text, strText As String On Error Resume Next Tmp_Text = "" For i = 1 To Len(strS) + 1 strText = Mid(strS, i, 1) If (strText Like "[0-9]" Or strText Like "[+*/.%)(-]"..

문자열에서 문자와 숫자 구성이 다음과 같이 입력되어 있을 때, 숫자만 추출하여 합계를 낸다. 입력서식은 A1 셀값에 전북 50, 충북 20, 서울 100 이라고 입력되었을 경우 VBA 모듈 추가 후 A2 셀값에 =SumNumbers(A1) 이라고 입력하면 사용자 함수(SumNumbers())를 통해 문자열 중 숫자만 추출하여 A2 셀값에 170이라는 결과값을 얻는다. □ VBA 코드 Function SumNumbers(rngS As Range, Optional strDelim As String = " ") As Double 'Update 20141210 Dim xNums As Variant, lngNum As Long xNums = Split(rngS, strDelim) For lngNum = LBoun..