-
03-07-2008, 02:40 PM #1
Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
hàm tách số khỏi chuỗi kí tự,...!
ết hàm bang VB nhé:
1 . ALT + F11 -> Insert -> Module.
2. Dán đoạn code này vào khoảng trống nhé.
Function TS(Mystr As String, Optional Dautp As String) As Double
Dim Kqng, Kqtp, Neg As Double, Kqtam As String
Dim Sotp As Double, Le As Byte
Neg = 1
Le = 0
For i = 1 To Len(Mystr)
tam = Mid(Mystr, i, 1)
Select Case tam
Case 0 To 9
Kqtam = Kqtam & tam
Case "-"
Neg = -1
Case Dautp
Kqng = Kqtam
Le = 1
Mystr = Right(Mystr, Len(Mystr) - i)
Kqtp = TS(Mystr)
Sotp = Kqtp * 10 ^ (-Len(Mystr))
End Select
Next i
Select Case Le
Case 0
TS = Kqtam
Case 1
TS = Kqng + Sotp
End Select
TS = TS * Neg
End Function
3. Chọn Files - > Save as -> save as type - > Micorossoft office excell add-ins ( *.xla) ở dưới cùng.-> lưu name = TS.
4. Tools -> add - Ins... -> TS -> ok.
5. khởi động lại excell.
chỉ cần gõ = TS(ô muốn tách số). là ok...!!!
Hàm này sẽ giúp ích rất nhiều trong làm sổ sách đấy...!!!!:thumbup::hurray::happy3:View more random threads:
- Em có bài tập excel thế này mà không làm được nhờ anh chị chỉ giúp với
- CÁC BÁC GIÚP EM VỚI
- Phần mềm kế toán Excel AAP
- CÔNG NỢ BẰNG EXCEL NÀ,
- Báo cáo tài chính
- Phần mềm kế toán Excel đơn giản quyết định 48 và 15
- Nâng cao kiến thức excel
- Excel trong kế toán cây xăng nhỏ
- Hàm cộng các chữ số trong 1 con số
- Thêm dòng file SQTM
-
12-23-2013, 07:04 PM #2
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: hàm tách số khỏi chuỗi kí tự,...!
Gửi bởi tienchua
Mã nguồn PHP:[COLOR=#000000]
[/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]SplitNumber[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strMyString [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700]) As [/COLOR][COLOR=#0000BB]String Dim strResults [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]strTemp [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strMyString[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]strTemp [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strMyString[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]IsNumeric[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strTemp[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]True Then strResults [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]strResults [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]strTemp End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next SplitNumber [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]strResults End [/COLOR][COLOR=#007700]Function[/COLOR]
-
12-23-2013, 07:31 PM #3
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 3
Ðề: hàm tách số khỏi chuỗi kí tự,...!
Nếu chỉ lấy hoàn toàn là số để tính toán thì sửa lại hàm trên như sau :
Mã nguồn PHP:[COLOR=#000000]
[/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]SplitNumber[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strMyString [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700]) As [/COLOR][COLOR=#0000BB]Double Dim strResults [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]strTemp [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strMyString[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]strTemp [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strMyString[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]IsNumeric[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strTemp[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]True Then strResults [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]strResults [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]strTemp End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next SplitNumber [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Val[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strResults[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]Function[/COLOR]
-
12-23-2013, 09:13 PM #4
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: hàm tách số khỏi chuỗi kí tự,...!
Muốn dùng thêm số lẻ thập phân nữa thì thế này
Mã nguồn PHP:[COLOR=#000000]
[/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]SplitNumberDecimal[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strMyString [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Optional DecimalPoint [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700]) As [/COLOR][COLOR=#0000BB]Double Dim strResults [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]strTemp [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String Dim intResultsIn [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Double[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]intResultsDe [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Double Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]j [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]So [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strMyString[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]strTemp [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strMyString[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]IsNumeric[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strTemp[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]True [/COLOR][COLOR=#007700]Or [/COLOR][COLOR=#0000BB]strTemp [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]DecimalPoint Then strResults [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]strResults [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]strTemp End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]j [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strResults[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]strTemp [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strResults[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]j[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]strTemp [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]DecimalPoint Then intResultsIn [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Val[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Left[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strResults[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]j [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]So [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Val[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strResults[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]j[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]intResultsDe [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]10 [/COLOR][COLOR=#007700]^ (-[/COLOR][COLOR=#0000BB]So[/COLOR][COLOR=#007700]) * [/COLOR][COLOR=#0000BB]Val[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Right[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strResults[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strResults[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]j[/COLOR][COLOR=#007700])) Else [/COLOR][COLOR=#0000BB]intResultsIn [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Val[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]strResults[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]intResultsDe [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next SplitNumberDecimal [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]intResultsIn [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]intResultsDe End [/COLOR][COLOR=#007700]Function[/COLOR]
QUAN HỆ NHANH RA Ở NAM GIỚI LÀ GÌ? Quan hệ nhanh ra hay còn gọi là xuất tinh sớm, là hiện tượng xuất tinh trong khoảng thời gian quá ngắn bình thường là dưới 3 phút, nam giới không thể làm chủ, điều...
"Quan hệ nhanh ra" phái mạnh có nên kiêng rượu bia không?