vova2209
Thành viên tích cực
- Tham gia
- 5/4/17
- Bài viết
- 835
- Được thích
- 112
- Giới tính
- Nam
- Nghề nghiệp
- Đường bộ
Chào anh chị!
Em muốn lưu tùy chọn combox thì phải làm thế nào ạ, có thể chọn lưu data chọn ra 1 file txt được không ạ, hoặc là mở lưu ra file txt khi làm việc đến khi đóng file lại. Anh chị giúp đỡ em
Em muốn lưu tùy chọn combox thì phải làm thế nào ạ, có thể chọn lưu data chọn ra 1 file txt được không ạ, hoặc là mở lưu ra file txt khi làm việc đến khi đóng file lại. Anh chị giúp đỡ em
Sub UserForm_Initialize()
ComboBox1.List = Array("1.KL V", "1.KL S", "KLL-K95", "")
ComboBox2.List = Array("2.Cao Do", "2.CD Cap", "2.CD BCu", "CDL-K95", "", "2.CDK95", "CDTN")
End Sub
Private Sub OkInBB_CDKL_Click()
Dim inStart As Long, inFinish As Long
Dim i As Long
Dim shNameKL, shNameCD As String
Dim Rng As Range, DK As Long
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
ActiveSheet.DisplayPageBreaks = False
On Error Resume Next
If ComboBox1.ListIndex <> -1 Then
Set Ws1 = ThisWorkbook.Worksheets(ComboBox1.Text)
End If
If ComboBox2.ListIndex <> -1 Then
Set Ws2 = ThisWorkbook.Worksheets(ComboBox2.Text)
End If
Set Rng = Sheets("VoVa").Range("A3", Sheets("VoVa").Range("A65535").End(xlUp)).Resize(, 4)
inStart = TextBox1.value
inFinish = TextBox2.value
For i = inStart To inFinish
DK = Application.WorksheetFunction.VLookup(i, Rng, 4, False)
If DK > 0 Then GoTo tiep
Sheets("BBan").Select
ActiveSheet.DisplayPageBreaks = False
Sheets("BBan").Range("AZ1").value = i
Sheets("BBan").PrintOut
If Not Ws1 Is Nothing Then
Ws1.Select
Ws1.Range("AZ1").value = i
ActiveSheet.EntireRow.Hidden = False
Call HidedongProKL
Ws1.PrintOut
End If
If Not Ws2 Is Nothing Then
Ws2.Select
Ws2.Range("AZ1").value = i
ActiveSheet.EntireRow.Hidden = False
Call HidedongProCD
Ws2.PrintOut
End If
tiep:
Next i
Unload Me
ActiveSheet.DisplayPageBreaks = False 'Tat xem vùng In de? code Fix row hoat dông nhanh hon
Road20__VoVa.Select
End Sub