Lưu data list ComboBox

Liên hệ QC

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

Untitled.png
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
 
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

View attachment 272382
Bạn có thể tạo ra 1 sheet phụ rồi lưu thông số vào đó; hoặc lưu vùng thành Name, hoặc cách hay nhất là lưu thẳng vào Registry của Win (Lưu thông số dùng lênh SaveSetting... , lấy lại thông số đã lưu thì dùng GetSetting)
 
Upvote 0
Bạn có thể tạo ra 1 sheet phụ rồi lưu thông số vào đó; hoặc lưu vùng thành Name, hoặc cách hay nhất là lưu thẳng vào Registry của Win (Lưu thông số dùng lênh SaveSetting... , lấy lại thông số đã lưu thì dùng GetSetting)
quên mất không úp file lên. anh chị giúp em với ạ
 

File đính kèm

  • Form in.xlsb
    30 KB · Đọc: 9
Upvote 0
Bạn có thể tạo ra 1 sheet phụ rồi lưu thông số vào đó; hoặc lưu vùng thành Name, hoặc cách hay nhất là lưu thẳng vào Registry của Win (Lưu thông số dùng lênh SaveSetting... , lấy lại thông số đã lưu thì dùng GetSetting)
Dùng chi lớn vậy, nếu không cần thiết thì không nên dùng cách này. Dùng cách của @befaint là ổn rồi.
 
Upvote 0
@Chủ bài đăng: Bạn có 2 ComboBox, & chắc muốn lưu các trị đã chọn trong chúng?
& mỗi lần chọn là 1 lần lưu mới, nối tiếp, hay chọn & chỉ luôn lưu 1 trị đã chọn mới nhất trong mỗi ComboBox?
& quan trọng là lưu để làm gì sau đó, . . . ?
 
Upvote 0
@Chủ bài đăng: Bạn có 2 ComboBox, & chắc muốn lưu các trị đã chọn trong chúng?
& mỗi lần chọn là 1 lần lưu mới, nối tiếp, hay chọn & chỉ luôn lưu 1 trị đã chọn mới nhất trong mỗi ComboBox?
& quan trọng là lưu để làm gì sau đó, . . . ?
em chỉ cần lưu trong phiên làm việc thôi, em hay phải in biên bản theo lựa chọn, nên muốn lưu giá trị chọn để mỗi lần gọi form không cần phải chọn tay lại nữa, có lần quên không chọn nên in sai sheet mà mình muốn in. còn khi đóng file excel lại mở lên ko cần lưu cũng được ạ. anh giúp em
 
Upvote 0
em chỉ cần lưu trong phiên làm việc thôi, em hay phải in biên bản theo lựa chọn, nên muốn lưu giá trị chọn để mỗi lần gọi form không cần phải chọn tay lại nữa, có lần quên không chọn nên in sai sheet mà mình muốn in. còn khi đóng file excel lại mở lên ko cần lưu cũng được ạ. anh giúp em
Điều này dễ dàng là bạn chỉ cần khai báo 1 biến toàn cục rồi gán nó vào. Khi nào cần thì chỉ cần gọi nó ra.
 
Upvote 0
em chỉ cần lưu trong phiên làm việc thôi, em hay phải in biên bản theo lựa chọn, nên muốn lưu giá trị chọn để mỗi lần gọi form không cần phải chọn tay lại nữa, có lần quên không chọn nên in sai sheet mà mình muốn in. còn khi đóng file excel lại mở lên ko cần lưu cũng được ạ. anh giúp em
Tạo sheet "Temp". Quất 2 phát:
PHP:
Private Sub ComboBox1_Change()
Sheets("Temp").Range("A1").Value = ComboBox1.Value
End Sub

PHP:
Sub UserForm_Initialize()
  ComboBox1.List = Array("1.KL V", "1.KL S", "KLL-K95", "")
  ComboBox1.Value = Sheets("Temp").Range("A1").Value ' --> Bổ sung dòng này'
  ComboBox2.List = Array("2.Cao Do", "2.CD Cap", "2.CD BCu", "CDL-K95", "", "2.CDK95", "CDTN")
 
    Call List_Printer        'code tìm máy in
    Call Get_Default_Printer 'code tìm máy in
End Sub
Theo kiểu khi comboBox thay đổi thì ghi xuống sheet.
Khi UserForm bật lên thì lấy thông tin từ sheets.
 
Upvote 0
Tạo sheet "Temp". Quất 2 phát:
PHP:
Private Sub ComboBox1_Change()
Sheets("Temp").Range("A1").Value = ComboBox1.Value
End Sub

PHP:
Sub UserForm_Initialize()
  ComboBox1.List = Array("1.KL V", "1.KL S", "KLL-K95", "")
  ComboBox1.Value = Sheets("Temp").Range("A1").Value ' --> Bổ sung dòng này'
  ComboBox2.List = Array("2.Cao Do", "2.CD Cap", "2.CD BCu", "CDL-K95", "", "2.CDK95", "CDTN")
 
    Call List_Printer        'code tìm máy in
    Call Get_Default_Printer 'code tìm máy in
End Sub
Theo kiểu khi comboBox thay đổi thì ghi xuống sheet.
Khi UserForm bật lên thì lấy thông tin từ sheets.
Không lưu 2 combobox được à anh!
Sub UserForm_Initialize()
ComboBox1.List = Array("1.KL V", "1.KL S", "KLL-K95", "")
ComboBox1.Value = Sheets("Temp").Range("A1").Value
ComboBox2.List = Array("2.Cao Do", "2.CD Cap", "2.CD BCu", "CDL-K95", "", "2.CDK95", "CDTN")
ComboBox2.Value = Sheets("Temp").Range("A2").Value

Call List_Printer 'code tìm máy in
Call Get_Default_Printer 'code tìm máy in
End Sub

Private Sub ComboBox1_Change()
Sheets("Temp").Range("A1").Value = ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
Sheets("Temp").Range("A2").Value = ComboBox2.Value
End Sub
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom