nhờ giúp đỡ Code VBA (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
S

swalowbird

Thành viên mới
Tham gia
22/5/16
Bài viết
49
Được thích
1
Hi các bác , e làm code phân giải chuỗi ký tự để có dấu /
và đang tắc chỗ k> 2 , giúp em về thuật toán và code với
thanks !
Em muốn làm file code mà từ 1 chuỗi ký tự như

[TABLE="class: cms_table, width: 254"]
[TR]
[TD]000320/2B6/467/237/990/123/ACF12
sau khi bấm button sẽ ínsert thành các dòng bên duoi[/TD]
[/TR]
[/TABLE]

000320
0002B6
000467
000237
000990
000123
0ACF12

Option Explicit
Sub GPE()
Dim MyString, TargetString As String, LenTH1 As Integer
Dim Rng As Range, Arr() As Integer
Dim K As Integer, I As Integer, J As Integer, N As Integer, W As Byte '*|*'
Set Rng = Selection
MyString = Rng
TargetString = "/" 'Cái Này Ta Có The Khai Báo 1 Hàng Mà Dùng'
LenTH1 = Len(MyString)
ReDim Arr(1 To LenTH1) As Integer
J = 0
For I = 1 To LenTH1
If Mid(MyString, I, 1) = TargetString Then
J = J + 1
End If
Next I
K = J
For I = 1 To LenTH1
If Mid(MyString, I, 1) = TargetString Then
W = W + 1 '*|*'
Arr(W) = I '*|*'
MsgBox Arr(W), , "Thong Bao 02"
End If
Next I
If K = 1 Then
Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - 1)
Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - (LenTH1 - Arr(1)) - 1) & Mid(MyString, Arr(1) + 1, LenTH1 - Arr(1))
End If
If K = 2 Then
If Arr(2) - Arr(1) - 1 <= LenTH1 - Arr(2) Then
Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - 1)

Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - Arr(2) + Arr(1)) & Mid(MyString, Arr(1) + 1, Arr(2) - Arr(1) - 1)

Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - LenTH1 + Arr(2) - 1) & Mid(MyString, Arr(2) + 1, LenTH1 - Arr(2))

Else
Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - 1)

Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - Arr(2) + Arr(1)) & Mid(MyString, Arr(1) + 1, Arr(2) - Arr(1) - 1)

Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - Arr(2) + Arr(1)) & Mid(MyString, Arr(1) + 1, Arr(2) - Arr(1) - LenTH1 + Arr(2) - 1) & Mid(MyString, Arr(2) + 1, LenTH1 - Arr(2))

End If
If K > 2 Then

If Arr(W) - Arr(W - 1) >= Arr(W - 1) - Arr(W - 2) Then
W = 3
Do While Arr(W) - Arr(W - 1) >= Arr(W - 1) - Arr(W - 2)
Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - 1 - Arr(W) + Arr(W - 1)) & Mid(MyString, Arr(W) + 1, Arr(W + 1) - Arr(W))
W = W + 1
Loop
End If

End If


Application.CutCopyMode = False '*|*'
End If


End Sub
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Bạn thử trước với cái ni xem sao:
PHP: 
Option Explicit
Sub gpeFT()
 Const FC As String = "/":              Dim StrC As String
 Dim J As Integer, Dem As Integer, VTr As Integer
 
 If Selection.Count > 1 Then Exit Sub
 StrC = Selection.Value & FC:           Dem = 1
 Do
    VTr = InStr(StrC, FC)
    If VTr < 1 Then
        Exit Do
    Else
        Dem = Dem + 1
        Selection.Offset(Dem).Value = "'" & Left(StrC, VTr - 1)
        StrC = Mid(StrC, VTr + 1, Len(StrC))
    End If
 Loop
End Sub
 
Upvote 0
swalowbird đã viết:
Hi các bác , e làm code phân giải chuỗi ký tự để có dấu /
và đang tắc chỗ k> 2 , giúp em về thuật toán và code với
thanks !
Em muốn làm file code mà từ 1 chuỗi ký tự như

[TABLE="class: cms_table, width: 254"]
[TR]
[TD]000320/2B6/467/237/990/123/ACF12
sau khi bấm button sẽ ínsert thành các dòng bên duoi[/TD]
[/TR]
[/TABLE]

000320
0002B6
000467
000237
000990
000123
0ACF12

Option Explicit
Sub GPE()
Dim MyString, TargetString As String, LenTH1 As Integer
Dim Rng As Range, Arr() As Integer
Dim K As Integer, I As Integer, J As Integer, N As Integer, W As Byte '*|*'
Set Rng = Selection
MyString = Rng
TargetString = "/" 'Cái Này Ta Có The Khai Báo 1 Hàng Mà Dùng'
LenTH1 = Len(MyString)
ReDim Arr(1 To LenTH1) As Integer
J = 0
For I = 1 To LenTH1
If Mid(MyString, I, 1) = TargetString Then
J = J + 1
End If
Next I
K = J
For I = 1 To LenTH1
If Mid(MyString, I, 1) = TargetString Then
W = W + 1 '*|*'
Arr(W) = I '*|*'
MsgBox Arr(W), , "Thong Bao 02"
End If
Next I
If K = 1 Then
Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - 1)
Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - (LenTH1 - Arr(1)) - 1) & Mid(MyString, Arr(1) + 1, LenTH1 - Arr(1))
End If
If K = 2 Then
If Arr(2) - Arr(1) - 1 <= LenTH1 - Arr(2) Then
Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - 1)

Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - Arr(2) + Arr(1)) & Mid(MyString, Arr(1) + 1, Arr(2) - Arr(1) - 1)

Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - LenTH1 + Arr(2) - 1) & Mid(MyString, Arr(2) + 1, LenTH1 - Arr(2))

Else
Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - 1)

Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - Arr(2) + Arr(1)) & Mid(MyString, Arr(1) + 1, Arr(2) - Arr(1) - 1)

Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - Arr(2) + Arr(1)) & Mid(MyString, Arr(1) + 1, Arr(2) - Arr(1) - LenTH1 + Arr(2) - 1) & Mid(MyString, Arr(2) + 1, LenTH1 - Arr(2))

End If
If K > 2 Then

If Arr(W) - Arr(W - 1) >= Arr(W - 1) - Arr(W - 2) Then
W = 3
Do While Arr(W) - Arr(W - 1) >= Arr(W - 1) - Arr(W - 2)
Rng.EntireRow.copy
Rng.Offset(1, 0).EntireRow.insert Shift:=xlDown
Rng.Offset(1, 0) = Mid(MyString, 1, Arr(1) - 1 - Arr(W) + Arr(W - 1)) & Mid(MyString, Arr(W) + 1, Arr(W + 1) - Arr(W))
W = W + 1
Loop
End If

End If


Application.CutCopyMode = False '*|*'
End If


End Sub
Nhấp chuột vào đây để mở rộng...
Bạn sử dụng đoạn code này thử xem
Mã: 
Option Explicit
Sub GPE()
Dim s As String, arr, i As Long
For i = Range("A65000").End(xlUp).Row To 1 Step -1
    If Range("A" & i).Value <> "" Then
        s = Range("A" & i).Value
        arr = Split(s, "/")
        Range("A" & i + 1).Resize(UBound(arr) + 1).EntireRow.Insert
        Range("A" & i + 1).Resize(UBound(arr) + 1).Value = Application.Transpose(arr)
    End If
Next i
End Sub
 
Upvote 0
Mình nhìn code của bạn khủng quá nên không thể ngồi rà lại được.
Mình tham gia đoạn code khác ngắn hơn bạn kiểm tra xem có được không?

Mã: 
Sub SeaGPE()
Dim i, j, Tm
Tm = Split(Selection.Value, "/")
i = UBound(Tm)
If i > 0 Then
For j = 0 To i
If Len(Tm(j)) < 6 Then Tm(j) = Right("000000" & Tm(j), 6)
Next
Selection.Offset(1).Resize(UBound(Tm) + 1).Insert Shift:=xlDown
Selection.Offset(1).Resize(UBound(Tm) + 1) = WorksheetFunction.Transpose(Tm)
End If
End Sub
 
Upvote 0
swalowbird đã viết:
chưa dc bác ak
sửa code của em với
thanks !!!**~**
Nhấp chuột vào đây để mở rộng...

Bạn muốn kết quả thế nào thì nhập mẫu trong file để mọi người giúp bằng code họ viết.
Nhìn code của bạn mà sửa thì "mệt" lắm.
Bài 1 bạn ví dụ có vài dòng, kết quả tách ra bằng dấu "/", sau đó thêm các số 0 phía trước thành 6 ký tự?
Những trường hợp này thì sao: F0076688, 201603N08362,...
 
Upvote 0
đó mới là vấn đề em đang nghĩ , xây dựng thuật toán mà chưa dc đây
 
Upvote 0
Em lấy vd nhé !

[TABLE="width: 254"]
[TR]
[TD="class: xl534, width: 254"]201603N06044/46/49/5890/91

sẽ ra các dòng bên duwois sau
[/TD]
[/TR]
[/TABLE]
201603N06044
201603N06046
201603N06049
201603N05890
201603N05891

Thanks !!!!!
 
Upvote 0
swalowbird đã viết:
Em lấy vd nhé !

[TABLE="width: 254"]
[TR]
[TD="class: xl534, width: 254"]201603N06044/46/49/5890/91

sẽ ra các dòng bên duwois sau [/TD]
[/TR]
[/TABLE]
201603N06044
201603N06046
201603N06049
201603N05890
201603N05891

Thanks !!!!!
Nhấp chuột vào đây để mở rộng...
Nếu vậy sửa code lại thế này xem sao?
Mã: 
Sub GPE()
Dim s As String, arr, i As Long, j As Integer
For i = Range("A65000").End(xlUp).Row To 1 Step -1
    If Range("A" & i).Value <> "" Then
        s = Range("A" & i).Value
        arr = Split(s, "/")
        For j = 1 To UBound(arr)
           arr(j) = Left(arr(0), Len(arr(0)) - Len(arr(j))) & arr(j)
        Next j
        Range("A" & i + 1).Resize(UBound(arr) + 1).EntireRow.Insert
        Range("A" & i + 1).Resize(UBound(arr) + 1).Value = Application.Transpose(arr)
    End If
Next i
End Sub
 
Upvote 0
swalowbird đã viết:
Em lấy vd nhé !

[TABLE="width: 254"]
[TR]
[TD="class: xl534, width: 254"]201603N06044/46/49/5890/91

sẽ ra các dòng bên duwois sau
[/TD]
[/TR]
[/TABLE]
201603N06044
201603N06046
201603N06049
201603N05890
201603N05891

Thanks !!!!!
Nhấp chuột vào đây để mở rộng...

Đưa vào mảng rồi gán xuống sheeet, khỏi phải Insert dòng được không?
PHP: 
Public Sub GPE()
Dim sArr(), dArr(1 To 10000, 1 To 1), i As Long, J As Long, K As Long, Tem
sArr = Range("A2", Range("A65536").End(xlUp)).Value
For i = 1 To UBound(sArr)
    If Not IsEmpty(sArr(i, 1)) Then
        Tem = Split(sArr(i, 1), "/")
        For J = 0 To UBound(Tem)
            K = K + 1
            dArr(K, 1) = Left(Tem(0), Len(Tem(0)) - Len(Tem(J))) & Tem(J)
        Next J
    End If
Next i
Columns("B:B").NumberFormat = "@"
Range("B2").Resize(K) = dArr
End Sub
 
Upvote 0
sealand đã viết:
Mình nhìn code của bạn khủng quá nên không thể ngồi rà lại được.
Mình tham gia đoạn code khác ngắn hơn bạn kiểm tra xem có được không?

Mã: 
Sub SeaGPE()
Dim i, j, Tm
Tm = Split(Selection.Value, "/")
i = UBound(Tm)
If i > 0 Then
For j = 0 To i
If Len(Tm(j)) < 6 Then Tm(j) = Right("000000" & Tm(j), 6)
Next
Selection.Offset(1).Resize(UBound(Tm) + 1).Insert Shift:=xlDown
Selection.Offset(1).Resize(UBound(Tm) + 1) = WorksheetFunction.Transpose(Tm)
End If
End Sub
Nhấp chuột vào đây để mở rộng...
ôi lâu lắm rooid mới thấy anh sealand xuất hiện
 
Upvote 0
giaiphap đã viết:
Nếu vậy sửa code lại thế này xem sao?
Mã: 
Sub GPE()
Dim s As String, arr, i As Long, j As Integer
For i = Range("A65000").End(xlUp).Row To 1 Step -1
    If Range("A" & i).Value <> "" Then
        s = Range("A" & i).Value
        arr = Split(s, "/")
        For j = 1 To UBound(arr)
           arr(j) = Left(arr(0), Len(arr(0)) - Len(arr(j))) & arr(j)
        Next j
        Range("A" & i + 1).Resize(UBound(arr) + 1).EntireRow.Insert
        Range("A" & i + 1).Resize(UBound(arr) + 1).Value = Application.Transpose(arr)
    End If
Next i
End Sub
Nhấp chuột vào đây để mở rộng...

code của bác chạy ổn , nhưng đoạn cuối lại ra thế này

[TABLE="width: 393"]
[TR]
[TD]201603N06044/46/49/5890/91[/TD]
[/TR]
[TR]
[TD]201603N06044[/TD]
[/TR]
[TR]
[TD]201603N06046[/TD]
[/TR]
[TR]
[TD]201603N06049[/TD]
[/TR]
[TR]
[TD]201603N05890[/TD]
[/TR]
[TR]
[TD]201603N06091

nhưng thực tế phải là

[TABLE="width: 393"]
[TR]
[TD]201603N06044/46/49/5890/91[/TD]
[/TR]
[TR]
[TD]201603N06044[/TD]
[/TR]
[TR]
[TD]201603N06046[/TD]
[/TR]
[TR]
[TD]201603N06049[/TD]
[/TR]
[TR]
[TD]201603N05890[/TD]
[/TR]
[TR]
[TD]201603N05891[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]

Thanks !
có thể sửa giúp em được ko vầy :D
 
Upvote 0
swalowbird đã viết:
code của bác chạy ổn , nhưng đoạn cuối lại ra thế này

[TABLE="width: 393"]
[TR]
[TD]201603N06044/46/49/5890/91[/TD]
[/TR]
[TR]
[TD]201603N06044[/TD]
[/TR]
[TR]
[TD]201603N06046[/TD]
[/TR]
[TR]
[TD]201603N06049[/TD]
[/TR]
[TR]
[TD]201603N05890[/TD]
[/TR]
[TR]
[TD]201603N06091

nhưng thực tế phải là

[TABLE="width: 393"]
[TR]
[TD]201603N06044/46/49/5890/91[/TD]
[/TR]
[TR]
[TD]201603N06044[/TD]
[/TR]
[TR]
[TD]201603N06046[/TD]
[/TR]
[TR]
[TD]201603N06049[/TD]
[/TR]
[TR]
[TD]201603N05890[/TD]
[/TR]
[TR]
[TD]201603N05891[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]

Thanks !
có thể sửa giúp em được ko vầy :D
Nhấp chuột vào đây để mở rộng...

Hình như mới "hiểu hiểu" được 1 chút. Bạn xem file này coi sao.
 

File đính kèm

Upvote 0
swalowbird đã viết:
code của bác chạy ổn , nhưng đoạn cuối lại ra thế này

[TABLE="width: 393"]
[TR]
[TD]201603N06044/46/49/5890/91[/TD]
[/TR]
[TR]
[TD]201603N06044[/TD]
[/TR]
[TR]
[TD]201603N06046[/TD]
[/TR]
[TR]
[TD]201603N06049[/TD]
[/TR]
[TR]
[TD]201603N05890[/TD]
[/TR]
[TR]
[TD]201603N06091

nhưng thực tế phải là

[TABLE="width: 393"]
[TR]
[TD]201603N06044/46/49/5890/91[/TD]
[/TR]
[TR]
[TD]201603N06044[/TD]
[/TR]
[TR]
[TD]201603N06046[/TD]
[/TR]
[TR]
[TD]201603N06049[/TD]
[/TR]
[TR]
[TD]201603N05890[/TD]
[/TR]
[TR]
[TD]201603N05891[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]

Thanks !
có thể sửa giúp em được ko vầy :D
Nhấp chuột vào đây để mở rộng...
Nhưng bạn cho tôi biết lý do sao mà chổ màu đỏ mới đúng mà không phải như màu xanh phía trên. Theo quy luật thì như chổ màu xanh mới đúng chứ.
 
Upvote 0
Theo quy luật đặt cái này là vậy bác ạ

bác nào từng tiếp xúc với XNK sẽ biết , tờ khai hải quan nó hay viết nhiều số invoice thế này mà .

Thanks !!!
 
Upvote 0
Ak !
Bác giỏi vãi !
nhưng em muốn insert các dòng xuống bên dưới , để thế này bất tiện khi tra cứu lắm


thanks bác !!!
 
Upvote 0
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
 
Upvote 0
Sub run() Dim Str, S, K As String
Dim I, J, Q As Long
Dim Arr As Variant


For rw = [A100].End(3).Row To 1 Step -1
ReDim Arr(1 To 10, 1 To 1)
If Cells(rw, 1) <> "" Then
S = Cells(rw, 1)
I = WorksheetFunction.Find("/", S, 1)
Str = Left(Cells(rw, 1), I - 1)
J = I
Q = 1
Arr(Q, 1) = "'" & Str
Do
J = J + 1
If Mid(S, J, 1) <> "/" Then
K = K & Mid(S, J, 1)
ElseIf Mid(S, J, 1) = "/" Then
Mid(Str, Len(Str) - Len(K) + 1, Len(K)) = K
Q = Q + 1
Arr(Q, 1) = "'" & Str
K = ""
End If
If J = Len(S) Then
Mid(Str, Len(Str) - Len(K) + 1, Len(K)) = K
Q = Q + 1
Arr(Q, 1) = Str
K = ""
End If
Loop Until J = Len(Cells(rw, 1))
[D1000].End(3).Offset(1).Resize(Q) = Arr


End If

Next rw


End Sub
Nhấp chuột vào đây để mở rộng...

tôi chạy thì ok rồi! không biết đúng ý bạn chưa?
[TABLE="width: 222"]
[TR]
[TD="class: xl65, width: 222"]000320/2B6/467/237/990/123/ABCF12[/TD]
[/TR]
[/TABLE]

thành :
[TABLE="width: 64"]
[TR]
[TD="width: 64"]000320[/TD]
[/TR]
[TR]
[TD]0002B6[/TD]
[/TR]
[TR]
[TD]000467[/TD]
[/TR]
[TR]
[TD]000237[/TD]
[/TR]
[TR]
[TD]000990[/TD]
[/TR]
[TR]
[TD]000123[/TD]
[/TR]
[TR]
[TD]ABCF12[/TD]
[/TR]
[/TABLE]
 
Upvote 0
Hi bác ! Bác có thể sửa giúp em code để mỗi một cái được giải ra nó sẽ tự insert xuống thế này dc ko ak !

Thank bác !!!
 

File đính kèm

Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

P
  • Question Question
Lấy giá trị duy nhất nhiều cột khác nhau (2 người xem)
Trả lời
3
Đọc
88
phamgiang90
P
N
Công thức tính điền số lượng lũy kế giao hàng theo điều kiện (5 người xem)
Trả lời
0
Đọc
10
Ngocminh19
N
4
EXCEL TỰ ĐỘNG MỞ TRÊN WEB (1 người xem)
Trả lời
7
Đọc
146
4545
4
HeSanbi
Office Tool Plus - Ứng dụng tải, cài đặt, gỡ bỏ, nhập khóa, xóa khóa bản quyền Office nhanh chóng
    • Thích
Trả lời
1
Đọc
115
ptm0412
ptm0412
A
Xin các bác chỉ giúp cách thống kê danh sách học sinh (1 người xem)
Trả lời
6
Đọc
98
Anhnn9
A
Việt Nguyễn 86
Excel hay bị tắt đột ngột và hiện trang trắng khi làm việc
Trả lời
7
Đọc
272
Việt Nguyễn 86
Việt Nguyễn 86
cadafi
Hướng dẫn tạo Macro chuyển số thành chữ trong Open Office 3.1 (Tiếng Việt Unicode)
Trả lời
11
Đọc
25K
minnad123
M
Nguyễn Duy Tuân
Lập trình VBA với Google Drive, OneDrive, DropBox cho Upload-Download-Copy-Move...
    • Cảm ơn
Trả lời
2
Đọc
158
Nguyễn Duy Tuân
Nguyễn Duy Tuân
T
hỏi về đếm số ngày doanh thu tăng và giảm
Trả lời
5
Đọc
72
VetMini
V
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
12 13 14
Trả lời
263
Đọc
28K
ongke0711
ongke0711
T
xin công thức tính được số người còn lại theo từng cột
Trả lời
1
Đọc
57
bebo021999
B
D
Hỏi về cách sử dụng data table
Trả lời
2
Đọc
76
ptm0412
ptm0412
A
  • Question Question
Em nhờ anh/chị/em/chú/bác giúp em viết code tổng hợp dữ liệu. em tính công thức nó nặng quá. em cám ơn
Trả lời
8
Đọc
163
VetMini
V
hieuxd
  • Question Question
Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết
2
Trả lời
21
Đọc
24K
Bát Giới
Bát Giới
TrungChinhs
  • Question Question
Hỏi cách làm tròn số trong VBA
Trả lời
10
Đọc
7K
VetMini
V
SA_DQ
[Xin hỏi] Cách tính số tiền bình quân của tài khoản trong 1 tháng
Trả lời
15
Đọc
302
ptm0412
ptm0412
dangvandang
Addin mở rộng cho xây dựng
    • Thích
2
Trả lời
34
Đọc
3K
vlba
V
M
  • Question Question
Tự chèn dòng khi cập nhật dữ liệu từ trang tính khác.
Trả lời
4
Đọc
145
mtbackup
M
N
Xin giúp e cách lọc dữ liệu bị trùng
Trả lời
3
Đọc
189
hoangtuaotrang_hp_vn
H
A
ExTools : Hơn 60 tính năng bổ sung cho Excel
    • Thích
Trả lời
3
Đọc
9K
mangat060083
M
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom