-
03-07-2008, 02:40 PM #1Silver 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:
- Cách định GIÁ BÁN mới cho hàng hóa (căn cứ theo dữ liệu cho trước)
- Anh chị giúp em loc sổ cái sổ chi tiết từ nhập ký chung với ah em ngu ngu ễcl lam
- Tự làm sổ sách kế toán bằng excel
- Xin trợ giúp phần mềm kế toán trên excel
- excel
- Xin file xuất - nhập - tồn
- Mời tham khảo và góp ý cho file kế toán excel !
- Nhập xuất tồn
- File excel làm kế toán công ty xây dựng
- Gửi tặng cả nhà phần mềm báo cáo tài chính
-
12-23-2013, 07:04 PM #2Junior 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 #3Junior 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 #4Junior 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]
- hiện tại không ít người đã sử dụng đồ chơi tình dục và hiệu quả mà shop bán đồ chơi người lớn mang lại thật không thể ngờ đến. Với đồ chơi dục tình bạn sẽ không phải lo lắng đến việc phải làm thế...
Công cụ tình yêu Doc Johnson mang đến khoái cảm dâng trào