엑셀 파일을 이용해서 문서를 만들고 싶습니다.
유저폼을 이용해서 문서를 만들고 있는데, 콤보 박스의 값을 찾아서 그 값 옆에다가 값을 입력하는데 잘 안됩니다.
1. 엑셀 파일입니다.
2. 유저폼 입니다.
3. 코드 입니다.
4. 내용은 콤보 박스에서 B열과 C열의 값을 열게 했고,
B열과 C열의 행의 값이 같으면, 입력행을 B열의 행값으로 지정해서
B열의 네번째, 다섯번째에 양호사항, 미흡사항등을 입력하게 하려 합니다.
B열과 C열의 행값을 비교하기는 했는데, 이것 같을 때 B열의 행값을 입력행으로 하려합니다.
예를 들면, 신범수와 CAS가 선택될 경우 양호사항의 내용을 CAS 오른쪽에 입력하게하려 합니다.
도와 주십시오.
답변자님,
정보를 공유해 주세요.
안녕하세요?
만족한 답변이 될런지는 모르겠습니다만 ...
올려 주신 그림(B열에 이름이 입력되어 있고, C열에 과목이 입력되어 있는 데이터 형태)을
기준으로, 아래를 참고해 보시기 바랍니다.
Private Sub 입력버튼_Click()
Dim rng As Range
Dim 이름 As String, 과목 As String
이름 = Me.이름.Value
과목 = Me.과목.Value
For Each rng In Columns(2).SpecialCells(2)
With rng
If .Value = 이름 And .Next = 과목 Then
.Offset(, 2).Resize(, 3) = Array(양호사항.Text, 미흡사항.Text, 차기반영.Text)
End If
End With
Next rng
End Sub
그럼, 도움되시기를 바라며 즐거운 하루 보내세요 ^^* ;;;
2008.11.28.
-
채택
질문자가 채택한 답변입니다.
UP이 많은 답변일수록 사용자들에게 더 많이 노출됩니다.