VisualBasic을 사용하여 셀을 통해 Excel 루프 만들기

Question

목록의 맨 아래에 사용자 입력을 첨부 할 입력을 사용자에게 묻는 VB 코드를 작성하려고합니다. 예를 들어 :

PERSON1

하여 Person2는

Person3

I는 입력이 "Person4"가 등등하고 목록의 맨 아래에 해당 입력을 첨부 할.

필자가 작성한 코드에 따르면 범위 내에있는 셀 (A1 : A10000)이 비어 있으면 사용자에게 입력을 요청한 다음 해당 입력을 셀에 추가합니다. 셀이 비어 있지 않으면 다음 비어있는 셀을 찾기 위해 순환합니다. 기본적으로 셀에 이름이없는 셀은 목록의 맨 아래에 셀을 추가합니다.

내가 같은 코드 쓰기를 시도하고있다 : 나는 코딩 경험이 더 VB가 없다, 그래서 내가 여기에 큰 뭔가를 놓친 거지 상상

if cell ISEMPTY(): 
     InputBox("Enter Person here") 
else: 
     End 

: 범위의 셀에 대해

(A1 : A10000)를

Answer 1

다음 코드를 사용하는 것을 고려하십시오 :

Sub cyclepersons() 
    Dim rngTarget As Range, cell As Range 
    Set rngTarget = Application.ActiveSheet.Range("A1:A10000") 
    For Each cell In rngTarget 
     If IsEmpty(cell) Then 
      cell.Value2 = InputBox("Enter Person here") 
     End If 
    Next 
End Sub 

당신은의를 사용하는 것 ome 다른 유형의 스크립팅 언어 형식. findwindow에 따르면 Google은 기본 VBA를 쉽게 찾을 수있는 리소스입니다. 감사합니다

Answer 2

는 아래의 코드

Sub test() 
    inputtext = InputBox("Enter any Text") 
    If inputtext <> "" Then 
     Range("A" & Range("A1").End(xlDown).Row + 1).Value = inputtext 
    End If 
End Sub