Snasui Excel Forum

Code: Select all

Private Sub CbB2_Change()
CbB3.Clear
'MyCbB2 = CbB2.Text
Range("C7").Select
'    Do While True
'        If MyCbB2 = ActiveCell.Value Then
'             Exit Do
'         End If
'         ActiveCell.Offset(1, 0).Select
'    Loop
    Do While Selection <> ""
        If CbB2 = ActiveCell And ActiveCell.Offset(0, 1) <> ActiveCell.Offset(-1, 1) Then
            CbB3.AddItem ActiveCell.Offset(0, 1).Value
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub

Private Sub UserForm_Initialize()
ActiveWorkbook.Sheets("HistoryDurable").Activate
'Range("B7").Select
'Selection.End(xlDown).Select  'เลือกจุดสุดท้าย
'TB1.Value = ActiveCell.Offset(0, 0).Value + 1  'เลือกจุดนั้นแล้วบวก
TB1 = Range("B7").End(xlDown) + 1
Range("C7").Select
'MyCbB2Initial = ActiveCell.Value
MyCbB2 = ActiveCell.Value
CbB2.AddItem MyCbB2
ActiveCell.Offset(1, 0).Select
    Do While Not IsEmpty(ActiveCell.Value)
        If MyCbB2 <> ActiveCell.Value Then
            MyCbB2 = ActiveCell.Value
            CbB2.AddItem MyCbB2
        End If
            ActiveCell.Offset(1, 0).Select
    Loop
End Sub

Code: Select all

Private Sub CbB4_Change()
    MyCbB4 = CbB4.Text
    CbB5.Clear
    Range("E7").Select
'        Do While True
'            If MyCbB4 = ActiveCell.Value Then
'                  Exit Do
'            End If
'            ActiveCell.Offset(1, 0).Select
'         Loop
'         Do While MyCbB4 = ActiveCell.Value
'            CbB5.AddItem ActiveCell.Offset(0, 1).Value
'            ActiveCell.Offset(1, 0).Select
'        Loop
    Do While Selection <> ""
        If CbB4 = ActiveCell And ActiveCell.Offset(0, 1) <> ActiveCell.Offset(-1, 1) Then
            CbB5.AddItem ActiveCell.Offset(0, 1).Value
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub