Tạo dấu phân cách hàng nghìn như thế nào ?

[khanhnth02]

tôi có một macro như hình trên nhưng không biết tạo số thập phân như thế nào , mong diễn đàng xem giúp. chân thành cảm
http://i1206.photobucket.com/albums/bb455/khanhnth02/sothapphan.jpg

 

[khanhnth02]

sao không có ai giúp vậy trời

 

[ptm0412]

Cái hình bé tí vậy mà xem cái gì trời?

 

[khanhnth02]

tôi chỉ post hình được như thế. có ai có thể giúp tôi cách post hình sao cho nó to lên hoặc hiện luôn hình ảnh ra đây đươc không? trong trang potobucket của tôi nó thể hiện hình rõ và to, mà khi bấm từ đường line trên thì không ra như vậy được là sao? trên diễn đàng hướng dẫn nhiều và rắc rối quá tôi làm không ra. chân thành cảm ơn

 

[ptm0412]

Hình nguyên 1 cửa sổ 1024 x 768 mà vào photobuket chỉ còn 320 x 240 thì không thể nói là to và rõ được. Bạn đã resize nó nhỏ lại trước khi up lên photobucket.

Ngoài ra, bạn còn phải giải thích số thập phân hàng trăm là gì, số thập phân hàng ngàn là gì.

 

[khanhnth02]

tôi attafile lên nhé, mọi ngưòi xem nhé

chân thành cảm ơn. mong sớm có câu trả lời

 

[khanhnth02]

nghĩa là dấu chấm cho hàng trăm, nghìn. chẳn hạn 1.520.612

 

[ptm0412]

Theo như thí dụ của bạn (1.520.612) thì đó là "dấu phân cách hàng ngàn", chứ chẳng phải dấu thập phân, mà trong thì dụ là hàng ngàn và hàng triệu, chứ chẳng có hàng trăm.

Chỗ bạn đánh dấu trên form là dùng List view hay List box? Tên của nó trên form là gì? Mấy cột? Cột cần định dạng là cột số mấy? ....

Tốt nhất bạn đưa file lên cho khỏe cả mọi người và chính cả bạn.

 

[sealand]

Như hình của bạn thì đó là ListBox
Để hiển thị được dấu phân cách hàng ngàn và dấu thập phân nó tuỳ theo cách nạp dữ liệu cho ListBox
1/Nếu nạp bằng Rowsource thì trên sheet hiển thị sao thì trên listBox như vậy (Ta định dạng sheet nguồn là được)
2/Nếu nạp bằng AdItem hay List() thì phải dùng hàm Format để chuyển.

Để biết sử dụng cách nào thì phải có file cụ thể
ListBox có hạn chế là không căn lề riêng cho từng loại dữ liệu khác nhau mà căn chung cho tất cả các cột . Khi canh phải cho cột số thì cột Text cũng phải canh theo.

 

[khanhnth02]

số thập phân

mong mọi người giải giúp bài toán này với

 

[khanhnth02]

cụ thể file trên là thế này

 

[ndu96081631]

mong mọi người giải giúp bài toán này với

Bạn hỏi rằng:

 Private Sub SoCT_Change()
    phanso = Mid(Me.NgayCT.Value, 2, 2)
    Me.soct.Value = phanso
  End Sub

Mã code trên e sai chỗ nào mà khi gõ số vào thì nó không hiện số phiếu mà chỉ hiện số tháng (/9) thôi à.

Nó ra /9 là đúng rồi còn gì
Ta có:
- Me.NgayCT.Value thì = 4/9/10 (lúc mới hiện Form)
- Vậy Mid(Me.NgayCT.Value, 2, 2) chẳng phải = /9 thì bằng cái gì?
Ngoài ra: Chẳng hiểu bạn muốn gì mà lại cho code vào sự kiện Change ---> Hóa ra khi gõ bất cứ thứ gì vào thì code đều chạy à?

 

[khanhnth02]

tại tôi không rành lắm về code, tôi lượm lặt từ các file tương tự và ráp đại vào. mong ndu chỉ giáo và hoàn thiện thêm file

 

[khanhnth02]

sao không gửi hình ảnh lên được nhỉ

sao không gửi hình ảnh lên được nhỉ

 

[khanhnth02]

tôi gửi file rồi mong mọi người nghiên cứu giải quyết với

 

[sealand]

1/File của bạn mình xem trên sheet R thì
-Toàn bộ các cột Số lượng, đơn giá, thành tiền là dạng Text chứ không phải số.Bạn chuyển sang số và format có dạng phân cách là OK
2/Khi nhập từ Form vào sheet thì các Textbox có dạng text nên phải dùng hàm val hay lấy giá trị nhân với 1.
3/Code bạn viết lôi thôi quá. Mình căn cứ vào code của bạn dịch lại code nhập dữ liệu vào sheet, bạn tham khảo nhé (Mình chưa test vì vội sắp họp):

Private Sub NhapSoLieu_Click()
If TENNHACC = "" Then
MsgBox "còn de trong ten nha cung cap!!", vbCritical, "Thong bao"
Exit Sub
End If
If Val(Soluong) = 0 Then
MsgBox "de trong so tien!", vbCritical, "Thong bao"
Exit Sub
End If
Dim Rng As Range
Set Rng = Sheet1.[A65536].End(xlUp).Offset(1)
Rng.Value = Me.NgayNHAP
Rng.Offset(, 1) = SoHD
Rng.Offset(, 2) = NgayCT
Rng.Offset(, 3) = soct
Rng.Offset(, 4) = soct
Rng.Offset(, 5) = TENNHACC
Rng.Offset(, 6) = WH
Rng.Offset(, 7) = mahang
Rng.Offset(, 8) = tenhang
Rng.Offset(, 9) = tenDVT
Rng.Offset(, 10) = XSLUONG * 1
Rng.Offset(, 11) = DonGia * 1
Rng.Offset(, 12) = Thanhtien * 1
Rng.Offset(, 13) = SoPO
Rng.Offset(, 14) = GhiChu
Soluong = "": WH = "": SoPO = "": DonGia = "": GhiChu = ""
mahang = "": tenhang = "": tenDVT = ""
Me.NgayNHAP.SetFocus
End Sub

Bạn định dạng ListBox canh phải trông đẹp hơn, nhất là số

 

[khanhnth02]

cảm ơn anh đã sửa sai, nếu tôi định dạng listbox canh phải thì các dữ liệu không phải dạng số cũng canh phải trông khó nhìn, còn cách nào để canh phải những ô có số thôi được không vậy.
A có thể giúp tôi cách để kết hợp ngày tháng và số để cho ra số thứ tự như hình duới đây không. Tôi muốn khi gõ số thứ tự vào (No) sẽ tự động kết hợp với số tháng . ví dụ như hình duới khi tôi put 05, sau khi ENTER sẽ cho ra 0509 . cảm ơn anh nhiều

 

[khanhnth02]

anh gì
ndu96081631 đâu rồi, có thể giúp e với được không?