사용자 폼 확인란이 텍스트를 스프레드 시트로 보냅니다.

Question

확인란을 선택하면 다음 빈 행에 '부재'라는 문구를 채우고 확인란을 선택하면 명령 줄에서 사용자 정의 폼을 스프레드 시트에 제출할 때 열 O에 채우려 고합니다.

아래의 코드는 아무 문제없이 잘 작동하는 '제출'명령 버튼입니다. 확인란을 어떻게 포함하면 현재 추가중인 다른 정보와 동일한 행에 '부재'을 추가 하시겠습니까?

또한 체크 박스를 양식 제출시 의 '확인되지 않은' 상태로 되돌릴 수 있습니다.

도움을 주시면 감사하겠습니다. 명령 버튼이 코드를 제출

은 다음과 같습니다

Private Sub UserForm_Initialize() 
Me.listDate.ListIndex = -1 
listOwner.ListIndex = 0 

Me.listOwner.Tag = "D" 
Me.listDate.Tag = "E" 

Me.listEmployee.Tag = "F 

등 등 등 등

에 :

Private Sub SaveData() 
Dim C As MSForms.Control 
Dim varValue As Variant 'Must be variant to accept different types of data 

For Each C In Me.Controls 
    If C.Tag <> "" Then 
     varValue = C.Value 
     Select Case C.Tag 
       Case "A", "D", "H", "I", "J", "K", "L", "M", "N", "O" 
       Worksheets("Data").Range(C.Tag & ThisRow.Row) = varValue 


      Case "B", "C", "E" 
       If IsDate(varValue) Then 
        Worksheets("Data").Range(C.Tag & ThisRow.Row) = CDate(varValue) 
       End If 

     End Select 

초기화 코드는 다음과 같습니다 스프레드 시트에 데이터를 저장

Private Sub CommandButton1_Click() 
Set ThisRow = Range("A" & Rows.Count).End(xlUp) 
If ThisRow.Row = 1 Then 
Me.TextBox1 = 1 
Else 
Me.TextBox1 = ThisRow.Row + 1 
End If 

Me.TextBox2.Value = Now 
Set ThisRow = ThisRow.Offset(1) 
SaveData 
End Sub 

Answer 1

다음을 추가하십시오. 축축하게하는 날개

Case "O" 
if c.value then 
worksheets("Data").range(c.tag & this.row)="Absent" 
c.value=false 
end if 

Answer 2

여러분의 의견은 매우 도움이되었습니다. 나는 또한 내가 지금했던 'Initialise'아래에 그것을 선언 할 필요가 있었다. 문제 해결됨.