Thursday, August 16, 2012

Xin giúp đỡ về hàm đếm số

Xin giúp đỡ về hàm đếm số


Xin giúp đỡ về hàm đếm số

Posted: 16 Aug 2012 02:25 AM PDT

Chào các bạn và các thầy. Em có 1 công thức vba chuyển số thành chữ. tuy nhiên có một lỗi nhỏ em không biết khắc phục như thế nào.
1. với số tiền từ 10 trđ đến dưới 20 triệu đồng thì chữ cái đầu tiên của nó viết thường
- ví dụ: 10 trđ nó viết là "mười triệu đồng" chứ không phải là "Mười triệu đồng"
2. với số tiền >2,1 tỉ đồng thì nó không chuyển thành chữ được
- ví dụ: 2,2 tỉ đồng thì nó không đọc được
Mong các bạn và các thầy giúp em khắc phục 2 nhược điểm trên với ạ.
Ngoài ra em có một mong muốn là mong các bạn và các thầy giúp em khi số tiền tròn từ triệu trở lên thì nó sẽ đọc là "chẵn" ở cuối câu
- ví dụ: 2.000.000 , bằng chữ là "Hai triệu đồng chẵn"
bình thường em dùng hàm để tạo ra từ chẵn đó như sau:
=if(value(Right(B10;6))<1;transfer(B10)&" chẵn";transfer(B10))
Em xin cảm ơn mọi người, code của VBA đó như sau:

Code:

Function transfer(num As Long) As StringDim reval As String
Dim mival As String
Dim n As Integer
Dim i As Integer
Dim val1 As String
Dim val2 As String
Dim val3 As String
Dim kt As Integer
Dim rkt As Integer
Dim dv As String
Dim test As String
Dim fr As String
mival = CStr(Abs(num))
n = Len(mival)
reval = ""
dv = ""
For i = n To 1 Step -1
val1 = substr(mival, n - i + 1, 1)
val2 = IIf(i > 1, substr(mival, n - i + 2, 1), "0")
val3 = IIf(i > 2, substr(mival, n - i + 3, 1), "0")
fr = IIf(i >= n - 1, "##", substr(mival, n - i - 1, 2))
test = fr + val1
rkt = i Mod 3
kt = IIf(rkt >= 0, rkt, rkt + 3)
Select Case kt
Case 0
If val1 <> "0" Then
reval = reval + doi(val1) + " tr¨m " + IIf(val2 = "0" And val3 <> "0", " linh ", "")
End If
Case 2
If val1 <> "0" Then
reval = reval + IIf(val1 = "1", " m­êi ", doi(val1) + " m­¬i ")
End If
Case 1
If val1 <> "0" Then
reval = reval + doi(val1) + " "
End If
If i / 3 <= 1 Then
dv = "®ång"
End If
If i / 3 > 1 And i / 3 <= 2 Then
dv = IIf(test = "000", "", "ngµn")
End If
If i / 3 > 2 And i / 3 <= 3 Then
dv = IIf(test = "000", "", "triÖu")
End If
If i / 3 > 3 Then
dv = "tû"
End If
reval = reval + dv + " "
End Select
Next i
transfer = IIf(num < 0, "©m " & reval, reval)
transfer = UCase(Left(transfer, 1)) & Right(transfer, Len(transfer) - 1)
End Function
Function doi(num As String) As String
Dim myval As String
Select Case num
Case "1"
myval = "mét"
Case "2"
myval = "hai"
Case "3"
myval = "ba"
Case "4"
myval = "bèn"
Case "5"
myval = "n¨m"
Case "6"
myval = "s¸u"
Case "7"
myval = "bÈy"
Case "8"
myval = "t¸m"
Case "9"
myval = "chÝn"
End Select
doi = myval
End Function
Function substr(mystr As String, posi As Integer, count As Integer) As String
Dim myval As String
myval = Right(Left(mystr, posi + count - 1), count)
substr = myval
End Function

Ah nếu có thể thì em mong mọi người giúp em làm một code tương tự nhưng là font Unicode, hiện nó là font TCVN3

Chi phí thế nào hợp lý để làm tờ khai thuế TNDN tạm tính

Posted: 15 Aug 2012 08:59 PM PDT

Anh chi giúp em Chi phí thế nào hợp lý để làm tờ khai thuế TNDN tạm tính
Thực tế nhà em có công ty gia đình và hàng tháng phải làm khai thuế GTGT, thuế TNDN tạm tính
Anh Chị cho em hỏi tờ khai thuế TNDN tạm tính thì nên tính thế nào cho hợp lý hóa
Ví dụ doanh thu quý 2 là 500 triệu
Thì chi phí nên thế nào cho hợp lý
Công ty nhỏ chí có lương cho công nhân khoảng 5 người sửa chưa máy móc và 1 giám đốc, 1 kế toán, 1 kỹ sư
Chi phí mua vật tư của quý 2 là 250,310,000
Công ty em làm về thương mại dịch vụ chủ yếu sửa chữa máy móc và mua bán vật tư
Chi phí chủ yếu gồm chi phí mua vật tư, lương chi cho công nhân sửa chữa và lương văn phòng
Doanh thu chủ yêu là sửa chữa máy móc gồm tiền vật tư và nhân công
Anh chị tư vấn giúp em để chi phí thế nào hợp lý để làm tờ khai thuế TNDN tạm tính quý 2 này?

Hỏi cách nối dữ liệu từ 2 file excel?

Posted: 15 Aug 2012 10:16 AM PDT

Em đang gặp khó khăn trong việc nối dự liệu từ 2 file excel. Cụ thể là: Hàng ngày em có 1 file excel chuyên note hóa đơn xuất. Trong đó có cột số hóa đơn, ngày xuất hóa đơn. Cuối tháng văn phòng SGN của em kéo list xuất hóa đơn trong tháng(cũng là 1 file excel) trong đó có số hóa đơn nhưng không có ngày xuất. Nhiệm vụ của em là phải điền ngày xuất hóa đơn vào file đó. Em chưa biết làm thế nào vì làm manual thì chết mất :( Rất mong anh chị nào có kinh nghiệm chỉ dạy giúp. Em cảm ơn rất nhiều!

No comments:

Post a Comment

Dịch vụ quản trị website|Chăm sóc website Thiết kế web giá rẻ Dịch vụ SEO giá rẻ|SEO chuyên nghiệp Công ty thiết kế web chuyên nghiệp Dịch vụ nâng cấp website|Sửa chữa website