Lấy dữ liệu từ ComboBox xuống một ô trong Sheet (1 người xem)

[nguyet1982db]

Mình có 1 file đã có dữ liệu và thông tin, giờ mình muốn bấm chọn một số bất kỳ trong ComboBox dữ liệu sẽ tự động chuyển xuống ô B2 trong Sheet1. Bấm vào nút in thì sẽ in vùng bôi màu trong Sheet2. Bấm xem in thì sẽ xem vùng bôi màu trong Sheet2. Rất mong được giúp đỡ.

 

[giaiphap]

Mình có 1 file đã có dữ liệu và thông tin, giờ mình muốn bấm chọn một số bất kỳ trong ComboBox dữ liệu sẽ tự động chuyển xuống ô B2 trong Sheet1. Bấm vào nút in thì sẽ in vùng bôi màu trong Sheet2. Bấm xem in thì sẽ xem vùng bôi màu trong Sheet2. Rất mong được giúp đỡ.

Bạn cho code sau vào form và test xem kết quả

Private Sub cb1_Change()
Sheet1.[b2].Value = cb1.Text
End Sub


Private Sub CB2_Click()
  Dim vung As String
  vung = Sheet3.PageSetup.PrintArea
  Sheet3.PageSetup.PrintArea = "Sheet2!B1:L24"
  Sheet3.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
  Sheet3.PageSetup.PrintArea = vung
End Sub


Private Sub CB3_Click()
Unload Me
Sheet3.Select
Application.Dialogs(xlDialogPrintPreview).Show
End Sub


Private Sub CommandButton1_Click()
Unload Me
End Sub

 

[nguyet1982db]

Bạn cho code sau vào form và test xem kết quả

Private Sub cb1_Change()
Sheet1.[b2].Value = cb1.Text
End Sub
Private Sub CB2_Click()
  Dim vung As String
  vung = Sheet3.PageSetup.PrintArea
  Sheet3.PageSetup.PrintArea = "Sheet2!B1:L24"
  Sheet3.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
  Sheet3.PageSetup.PrintArea = vung
End Sub


Private Sub CB3_Click()
Unload Me
Sheet3.Select
Application.Dialogs(xlDialogPrintPreview).Show
End Sub


Private Sub CommandButton1_Click()
Unload Me
End Sub

Cám ơn Bạn rất nhiều nhưng mình còn một thắc mắc nhỏ mong bạn giúp. Nếu sheet2 luôn luôn cho chế độ Hide thì code bị lỗi, giờ mình muốn sheet2 ẩn bấm XEM IN thì hiện xem và nhấn close thì quay về sheet1.

 

[nguyet1982db]

Thử vầy xem (Mình ko rành Form...hic hic...)

Private Sub CB3_Click()
Unload Me
Sheet3.Visible = xlSheetVisible
Sheet3.Select
Application.Dialogs(xlDialogPrintPreview).Show
Sheet3.Visible = xlSheetHidden
End Sub

Thank bạn nhiều nhiều rất là Oke