Xin giúp đỡ về hàm đếm số |Tin học căn bản

Thursday, August 16, 2012

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

Xin giúp đỡ về hàm đếm số
Chi phí thế nào hợp lý để làm tờ khai thuế TNDN tạm tính
Hỏi cách nối dữ liệu từ 2 file excel?

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!

Tin học căn bản

Thursday, August 16, 2012

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

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

No comments:

Post a Comment