cho em hỏi muốn lấy dữ liệu từ sheet đưa vào box thì làm thế nào..??? (1 người xem)

comlucky.pjico · 26/4/10

em muốn lấy dữ liệu từ sheet đưa vào box thì làm thế nào mong giúp đỡ
.
sau đó em muốn in form đấy ra thì làm thế nào?
file đính kèm đây mong các bác cao thủ Excel hoàn thành giúp !!
email :nguyentuancntt@gmail.com
yahoo:nguyentuan_cntt@yahoo.com
sdt:0979832222
Cảm ơn regard !

comlucky.pjico · 27/4/10

các bro giúp em với !!!!

ndu96081631 · 27/4/10

comlucky.pjico đã viết:
em muốn lấy dữ liệu từ sheet đưa vào box thì làm thế nào mong giúp đỡ
.
sau đó em muốn in form đấy ra thì làm thế nào?

Bạn hỏi kiểu này chẳng ai giúp được đâu... Vậy:
- Một là khỏi cần hỏi thêm nữa, bạn tự mình tìm hiểu
- Hai là bạn đưa file đính kèm lên và nói rõ ràng thêm 1 chút, lấy dữ liệu nào? từ sheet mà cụ thể là ở đâu?

comlucky.pjico · 27/4/10

em vừa làm 1 cái form chỉ là khung demo thôi vi` em chưa biết nhiều về VBA..
có gì mong bác giúp
..Tôi yêu GPE....

khoavu87 · 27/4/10

comlucky.pjico đã viết:
em vừa làm 1 cái form chỉ là khung demo thôi vi` em chưa biết nhiều về VBA..
có gì mong bác giúp
..Tôi yêu GPE....

Thế thì gửi lên đi, bí mật quá àh?
hay chỉ đơn giản là nhập dữ liệu vào một cell rùi đưa kết quả của cell đó lên texbox?
như thế này :
TextBox1 = Range("a1").Value

comlucky.pjico · 27/4/10

em up lên rồi ,
khi nhập dl vào text box : MaKH
thì các thông tin cua KH được đưa vào các tex box dưới rồi khi ấn nút print thì in ra các thông tin đó..
trong diễn đàn có nói về mailmeg nhưng làm thế rất ko hiệu quả vì slKH nhiều...
Mong các bác giúp !

comlucky.pjico · 27/4/10

em vừa up lên rồi ,cái form là demo thôi mong các bác tạo cho nó linh hồn !
cái Mã khách hàng được nhập vào listbox or user nhập vào textbox ..sau khi chọn nút Hiển thị thông tin thì các thông tin KH sẽ được hiển thị dưới phần InHD,InCT...
Cuối cùng là in thông tin HD khi ấn vào nút Print...
end ...cảm ơn các bác mong nhận được hồi âm!
Cảm ơn regard !

ndu96081631 · 27/4/10

comlucky.pjico đã viết:
em vừa up lên rồi ,cái form là demo thôi mong các bác tạo cho nó linh hồn !
cái Mã khách hàng được nhập vào listbox or user nhập vào textbox ..sau khi chọn nút Hiển thị thông tin thì các thông tin KH sẽ được hiển thị dưới phần InHD,InCT...
Cuối cùng là in thông tin HD khi ấn vào nút Print...
end ...cảm ơn các bác mong nhận được hồi âm!
Cảm ơn regard !

Ôi... loại bài kiểu này e rằng bạn phải chờ đợi hơi lâu (chờ khi nào có ai đó thật.. rảnh)
Hic... Làm từ A đến Z thật chẳng khoái tí nào! Hóa ra mọi người không phải làm công việc trợ giúp mà là LÀM CÔNG (viết phần mềm) cho bạn!

Hai Lúa Miền Tây · 27/4/10

comlucky.pjico đã viết:
em vừa up lên rồi ,cái form là demo thôi mong các bác tạo cho nó linh hồn !
cái Mã khách hàng được nhập vào listbox or user nhập vào textbox ..sau khi chọn nút Hiển thị thông tin thì các thông tin KH sẽ được hiển thị dưới phần InHD,InCT...
Cuối cùng là in thông tin HD khi ấn vào nút Print...
end ...cảm ơn các bác mong nhận được hồi âm!
Cảm ơn regard !

Thay Textbox mã KH thành combobox1, code của form như sau:

Mã:

Private Sub ComboBox1_Change()
On Error Resume Next
  TextBox6.Text = ComboBox1.Column(5)
  TextBox2.Text = ComboBox1.Column(1)
  TextBox4.Text = ComboBox1.Column(2)
  TextBox3.Text = ComboBox1.Column(0)
  TextBox5.Text = ComboBox1.Column(3)
  TextBox7.Text = Format(ComboBox1.Column(4), "dd/mm/yyyy")
  Range("a1:f6").AutoFilter 1, IIf(ComboBox1 = "", "<>", ComboBox1), , , False [B][COLOR=Green]'Code của Thầy Tuấn[/COLOR][/B]

End Sub

Private Sub CommandButton1_Click()
Sheets("sheet1").PrintOut
End Sub

comlucky.pjico · 27/4/10

ui em cảm ơn bác domfootwear ! cho e hỏi thêm muốn in thông tin của Frame thì làm thế nào a? vd khi mình chọn Frame InHD thì ấn nút prin thì nó sẽ in hết cái frame đó lên..vì mục đích của em là in HD mà !

Hai Lúa Miền Tây · 27/4/10

comlucky.pjico đã viết:
ui em cảm ơn bác domfootwear ! cho e hỏi thêm muốn in thông tin của Frame thì làm thế nào a? vd khi mình chọn Frame InHD thì ấn nút prin thì nó sẽ in hết cái frame đó lên..vì mục đích của em là in HD mà !

Bạn nên thiết kế 1 form trên sheet, ví dụ sheet2 chẳng hạn, lấy dữ liệu từ sheet1 qua để in.

comlucky.pjico · 27/4/10

bác domfootwear ơi cho em hỏi thế muốn thay hộp listbox = hộp textbox để mình nhập Mã KH thì phải làm thế nào?

Hai Lúa Miền Tây · 27/4/10

comlucky.pjico đã viết:
bác domfootwear ơi cho em hỏi thế muốn thay hộp listbox = hộp textbox để mình nhập Mã KH thì phải làm thế nào?

Combobox chứ bạn?

Nếu vậy bạn vẽ 1 textbox và đặt tên cho nó là txtMa, code của nó như sau:

Mã:

Private Sub txtMa_Change()
On Error Resume Next
Dim c As Range
With Sheet1.Range("a2:a6")
    Set c = .Find(txtMa, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
      TextBox6.Text = c.Offset(0, 5)
      TextBox2.Text = c.Offset(0, 1)
      TextBox4.Text = c.Offset(0, 2)
      TextBox3.Text = c.Offset(0, 0)
      TextBox5.Text = c.Offset(0, 3)
      TextBox7.Text = Format(c.Offset(0, 4), "dd/mm/yyyy")
    End If
End With
End Sub

Sao chưa thấy bạn gửi form in lên vậy ?

comlucky.pjico · 27/4/10

domfootwear đã viết:
Combobox chứ bạn?

Nếu vậy bạn vẽ 1 textbox và đặt tên cho nó là txtMa, code của nó như sau:

Mã:

Private Sub txtMa_Change() On Error Resume Next Dim c As Range With Sheet1.Range("a2:a6") Set c = .Find(txtMa, LookIn:=xlValues, LookAt:=xlPart) If Not c Is Nothing Then TextBox6.Text = c.Offset(0, 5) TextBox2.Text = c.Offset(0, 1) TextBox4.Text = c.Offset(0, 2) TextBox3.Text = c.Offset(0, 0) TextBox5.Text = c.Offset(0, 3) TextBox7.Text = Format(c.Offset(0, 4), "dd/mm/yyyy") End If End With End Sub

Sao chưa thấy bạn gửi form in lên vậy ?

a oi sao không hiển thị được vậy ... VD em gõ vào hộp txtMa là a2 nhưng không hiển thị được.

comlucky.pjico · 27/4/10

bây h em muốn lấy dữ liệu trong textbox1 từ Form1 đưa vào texbox1 trong Form2 thì câu lệnh thế nào ah?

Hai Lúa Miền Tây · 27/4/10

comlucky.pjico đã viết:
bây h em muốn lấy dữ liệu trong textbox1 từ Form1 đưa vào texbox1 trong Form2 thì câu lệnh thế nào ah?

Mình đã chuyển dữ liệu sang sheet2, bạn chỉnh lại form nhé

comlucky.pjico · 27/4/10

bác domfootwear siêu cao thủ thật em cảm ơn bác quá... bác xem lại cho em cái mục nhập dữ liệu vào textbox ấy e vừa gõ Mã KH là a thì nó đã hiện ra rồi...bác có thể chỉnh code sao cho nhập mã KH vào ô textMa rồi ấn nút hiển thị dữ liệu thì nó mới hiển thị dc ko ạ.
Cảm ơn regard !

Hai Lúa Miền Tây · 27/4/10

comlucky.pjico đã viết:
bác domfootwear siêu cao thủ thật em cảm ơn bác quá... bác xem lại cho em cái mục nhập dữ liệu vào textbox ấy e vừa gõ Mã KH là a thì nó đã hiện ra rồi...bác có thể chỉnh code sao cho nhập mã KH vào ô textMa rồi ấn nút hiển thị dữ liệu thì nó mới hiển thị dc ko ạ.
Cảm ơn regard !

Thì bạn chuyển đoạn code trên tử thủ tục textbox_change sang Command_Click là được

Mã:

Private Sub CommandButton2_Click()
On Error Resume Next
Dim c As Range
With Sheet1.Range("a2:a6")
    Set c = .Find(txtMa, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
      TextBox6.Text = c.Offset(0, 5)
      TextBox2.Text = c.Offset(0, 1)
      TextBox4.Text = c.Offset(0, 2)
      TextBox3.Text = c.Offset(0, 0)
      TextBox5.Text = c.Offset(0, 3)
      TextBox7.Text = Format(c.Offset(0, 4), "dd/mm/yyyy")
    End If
End With
End Sub

comlucky.pjico · 27/4/10

-cho em hỏi trường hợp :
KH co mã a0 số tiền trả ,ngày trả là khác nhau ,vậy khi nhập mã a0 khi hiển thị thông tin KH a0 thì thế nào ạ...
+ vd KHách hàng A0
ngày 11/3/2009 trả 100
ngày 12/3/2009 trả 300
-khi hiển thị thông tin A0 sao cho nó hiển thị từng lần trả 1 (mục đích để in ra VD in KH A0 ngày trả 11/3 sau đó sẽ in tiếp ngày trả là 12/3) vậy nếu MãKH trùng nhau thì mình lọc theo số ngày trả nữa hả a?
-thêm thông tin 2 textbox nữa là số lần trả,tổng tiền trả vd KH a0 ở đây tổng tiền trả là 400 ???
Kính mong bác giúp cho !
cảm ơn bác doomfootwear...

comlucky.pjico · 28/4/10

UPPPPP chúc các bác GPE một kỳ nghỉ dài vui vẻ 30/4 - 1/5 thật vui vẻ hạnh phúc.

cho em hỏi muốn lấy dữ liệu từ sheet đưa vào box thì làm thế nào..??? (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

Thành viên mới

Huyền thoại GPE

Thành viên mới

Vũ Trần Khoa

Thành viên mới

Thành viên mới

File đính kèm

Huyền thoại GPE

❆❆❆❆❆❆❆❆

File đính kèm

Thành viên mới

❆❆❆❆❆❆❆❆

Thành viên mới

❆❆❆❆❆❆❆❆

Thành viên mới

Thành viên mới

❆❆❆❆❆❆❆❆

File đính kèm

Thành viên mới

❆❆❆❆❆❆❆❆

File đính kèm

Thành viên mới

File đính kèm

Thành viên mới

Đếm ngược thời gian