나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 지달이 (elcross)

추천:  2
파일:     Book1[638].xls (51.5KB) 조회:  2871
제목:   유저폼 소수점 처리 질문 예제올려서 다시 여쭙니다.
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...): 

* 아래줄에 질문을 작성하세요 >>
 
[불량 게시물 신고]  
작은오리무엇을 만드는지 잘은 모르지만요


Private Sub UserForm_Initialize()
    Dim wf
    Set wf = Application.WorksheetFunction
    TextBox5.Text = wf.Round(Cells(13, 5), 0)
    TextBox6.Text = wf.Round(Cells(14, 5), 0)
    TextBox7.Text = wf.Round(Cells(15, 5), 0)
    TextBox8.Text = wf.Round(Cells(16, 5), 0)
    TextBox9.Text = wf.Round(Cells(17, 5), 0)
End Sub

워크시트 함수를 사용하시면 될 듯 합니다.

잘 되시기를.....
07-19 (15:30)
삭제 ■신고
지달이감사합니다.~
시트의 내용을 누르면 유저폼 Initialize 기능이 상실되네요~

07-19 (16:38)
삭제 ■신고
지달이혼자 열심히 고민하다가
계산하기 버튼 코드 아래 위의 코드를 삽입하여 실행시키니까
제가 하고자 하는 기능이 되네요~
처음에
계산하기 버튼을 1번 누르면 반올림 하기전의 소수점들이 있는데이터가~
그상태에서
계산하기 버튼을 1번 더 누르니까 반올림 되어진 숫자들이 뜨네요~
정말로 감사합니다.
07-19 (16:40)
삭제 ■신고
지달이그런데 또다른 문제가 생겼어요~
vba프로젝트 탐색기에 있는
sheet1에  들어있는 코드들이 무용지물이 되어버렸어요~
07-19 (16:44)
삭제 ■신고
지달이아무래도 일단 처음 실행은 작은 오리님께서 주신 것으로 잡고
나중에 계산하고 싶은 데이터의 선택은 따로(초기화버튼을 각 행마다 만들어서) 해야 될것같네요~
어찌 되었건 작은 오리님 감사합니다.
그리고 다른 여러분들께 모두 감사드립니다.
07-19 (16:50)
삭제 ■신고
        
  

작성일 : 2003-07-19(15:15)
최종수정일 : 2003-07-19(15:15)