2013-04-15 3 views
0

런타임 중에 완료된 행 수를 관찰 할 수 없습니다. 따라서 런타임에 완성 된 행의 수를 표시하는 몇 줄의 코드가 왜 나오지 않는지 생각하고있었습니다.VBA : 런타임에 완료된 행 번호 표시

Dim ownCntrl As Control 
Set ownCntrl = UserForm1.Controls.Add("Forms.TextBox.1") 
With ownCntrl 
    .Name = "RowNoTextBox" 
    .Value = "test" 
    .Width = 150 
    .Height = 25 
    .Top = 10 
    .Left = 10 
    .ZOrder (0) 
End With 
UserForm1.Show 

다음 내 쿼리은 다음과 같습니다 :

팔로우 내 구현하고, VBA에 정보를 표시하는 자바의 라벨과 같은 다른 개체 텍스트 상자 개체 옆에

1)이

은?

2) 처음에 "UserForm1"이라는 UserForm을 만들지 않았습니까? 런타임 중에 TextBox 개체 또는 다른 적합한 개체를 직접 만들 수 있습니까? 원인 UserForm1.Show 함수를 호출하지 않고 TextBox 객체를 표시하지 않습니다.

3) 계속 진행하기 위해 사용자가 입력하지 않고 런타임 중에 표시하도록 UserForm 또는 TextBox를 유지하려면 어떻게합니까?

저는 VBA를 배우기 시작했습니다. 너희들의 제안을 감사하게 생각해. 고마워.

+0

진행 정보를 표시하겠습니까? Google에서 '진행률 표시 줄'을 검색하거나 여기에서 가능성을 거의 보지 않은 곳에서 ... 어떤 정보를 표시하고 싶습니까? 숫자가있는 일부 텍스트 만 표시 하시겠습니까? –

+0

세 번째 문제는 UserForm1.Show (0) – ShadowScorpion

+0

을 호출하여 해결됩니다. KazJaw. 주위에 당신을 만나서 반갑습니다. 난 그냥 런타임 동안 텍스트 상자 또는 레이블에 완성 된 행의 수를 표시하고 싶습니다. 그게 다야 – ShadowScorpion

답변

1

코멘트에 추가 된 몇 가지 정보에 따르면 서브 루틴의 진행 상태에 대한 정보를 유지하는 가장 간단한 아이디어는 Excel 상태 표시 줄을 사용하는 것입니다. 따라서 우리는이 같은 우리의 서브 루틴 뭔가 내에 넣어 : 현재 행을 나타내는 rowNum 변수 (루프 변수)입니다

Application.StatusBar = "Current progress- Row No.: " & rowNum 

. 중요 - 프로 시저가 끝나기 전에이 줄을 호출하는 표준 상태 표시 줄 동작을 반환해야합니다.

Application.StatusBar = False