giúp làm bài tập excel với!
- Thread starter olaakon
- Ngày gửi
nguoiconxunui
Khách vãng lai
lấy số đầu và số cuối vứt ra thôi
Dùng 2013. 1 phát xong.
Bạn gửi file lên đây.
Rồi mình thử làm cho.
Ko thì chịu khó mang sang 2013.
1 nốt nhạc.
Loan Nguyễn 90
Sơ cấp
Bạn thử cách này xem
§ Bước 1: mở Microsoft Excel lên
§ Bước 2: nhấn Alt + F11 -> mở ra cửa sổ Microsoft Visual Basic -> Insert -> Module
§ Bước 3: Bạn nhập đoạn code bên dưới vào cửa sổ Book1-Module1 (Code):
Function ExtractNumber(rCell As Range)
Dim lCount As Long
Dim sText As String
Dim lNum As String
sText = rCell
For lCount = Len(sText) To 1 Step -1
If IsNumeric(Mid(sText, lCount, 1)) Then
lNum = Mid(sText, lCount, 1) & lNum
End If
Next lCount
ExtractNumber = CLng(lNum)
End Function
§ Bước 4: Quay lại Microsoft Excel, bạn dùng hàm ExtractNumber như hình bên dưới:
=ExtractNumber( chuỗi cần tách)
§ Bước 1: mở Microsoft Excel lên
§ Bước 2: nhấn Alt + F11 -> mở ra cửa sổ Microsoft Visual Basic -> Insert -> Module
§ Bước 3: Bạn nhập đoạn code bên dưới vào cửa sổ Book1-Module1 (Code):
Function ExtractNumber(rCell As Range)
Dim lCount As Long
Dim sText As String
Dim lNum As String
sText = rCell
For lCount = Len(sText) To 1 Step -1
If IsNumeric(Mid(sText, lCount, 1)) Then
lNum = Mid(sText, lCount, 1) & lNum
End If
Next lCount
ExtractNumber = CLng(lNum)
End Function
§ Bước 4: Quay lại Microsoft Excel, bạn dùng hàm ExtractNumber như hình bên dưới:
=ExtractNumber( chuỗi cần tách)
Espresso
Trung cấp
x90c, x100k, x1100c, x300c, n2970k, n300k
Muốn thành --> 90, 100, 1100, 300, 2970, 300 ??
Function CleanAlphabet(Txt)
For x = 1 To 255
Select Case x
Case 45, 47, 65 To 90, 95, 97 To 122
Txt = WorksheetFunction.Substitute(Txt, Chr(x), "")
End Select
Next x
CleanAlphabet = Txt
End Function