Chuyên đề giải đáp những thắc mắc về code VBA

Liên hệ QC
maytinhvp01

maytinhvp01

Thành viên thường trực
Tham gia
27/7/13
Bài viết
390
Được thích
179
Mình muốn nhờ giải thich câu lệnh " If Ran.Cells(d, c) > max Then max = Ran.Cells(d, c) "
trong ví du:
Public Function LonNhat(Ran As Range)
Dim max As Double, v As Integer, d As Integer, c As Integer
max = Ran.Cells(1, 1)
For d = 1 To Ran.Rows.Count
For c = 1 To Ran.Columns.Count
If Ran.Cells(d, c) > max Then max = Ran.Cells(d, c)
Next c
Next d
v = Tim(max, Ran)
LonNhat = max
End Function
-------------------------------------------------------
[INFO1]Thông báo:
Vì topic này:
http://www.giaiphapexcel.com/forum/...ải-thích-các-code-đề-nghị-các-bạn-gửi-vào-đây
đã quá dài nên BQT đóng lại.
Nay tôi mở topic mới với cùng chủ đề: GIẢI THÍCH NHỮNG THẮC MẮC VỀ CODE
Các bạn nếu có nhu cầu giải thích code, vui lòng post tại đây nhé
NDU96081631
[/INFO1]
 
Chỉnh sửa lần cuối bởi điều hành viên:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
ptm0412 đã viết:
Anh đã đạt cảnh giới thượng thừa nào mà có thể cảnh báo (giới) về code vậy?
(hình như cảnh giới là danh từ)
Nhấp chuột vào đây để mở rộng...
Tôi lại nhầm rồi (*). Khi tôi nghĩ đến từ "giới" với nghĩa "răn" (诫, hoặc 戒) tôi ráp "cảnh" vào và quên mất khi hai từ này đi với nhau (境界) sẽ hiểu theo nghĩa khác.

(*) dạo này bị nhầm hơi nhiều. Cần tự "giới": xem lại nhiều lần trước khi pót :p :p :p
 
Upvote 0
Xin chào cả nhà, tôi có code sau, nó copy tất cả dữ liệu trong vùng "A1:C30" vào cột M.
Nhưng nó copy theo thứ tự A1-B1-C1-A2-B2-C2.... tôi muốn copy theo trình tự A1-A2-..-A30-B1-B2-...-B30-C1-...-C30 thì phải làm thế nào ạ

Sub copy()
Dim x As Range
For Each x In Range("A1:C30")
i = Range("m10000").End(xlUp).Row + 1
Range("M" & i) = x
Next x
End Sub
 
Upvote 0
Duong.bach đã viết:
copy theo trình tự A1-A2-..-A30-B1-B2-...-B30-C1-...-C30 thì phải làm
Nhấp chuột vào đây để mở rộng...
PHP: 
Option Explicit

Sub copy_xxx()
Const rng = "A1:C30"
Const scell_target = "M1"
Dim data as variant, i as long, j as long, ub1 as long
Dim res as variant, ii as long
data = Range(rng).value2
ub1 = ubound(data, 1)
redim res(1 to Range(rng).cells.count, 1 to 1)
For j=1 to ubound(data, 2)
For i=1 to ub1
ii=ii+1
res(ii,1)=data(i,j)
Next i
Next j
Range(scell_target).res(1048500,1).clearcontents
Range(scell_target).resize(ii,1).value = res
End Sub
 
Upvote 0
1 cách cù lần nè
:
PHP: 
Sub copyTheoCot()
Dim Cls As Range, Rng As Range
Dim J As Integer

For J = 1 To 3
    Set Rng = Cells(1, J).Resize(30)
    For Each Cls In Rng
        i = Range("m10000").End(xlUp).Row + 1
        Range("M" & i) = Cls.Value
        Range("M" & i).Interior.ColorIndex = 35 + J
    Next Cls
Next J
End Sub
 
Upvote 0
SA_DQ đã viết:
1 cách cù lần nè
:
PHP: 
Sub copyTheoCot()
Dim Cls As Range, Rng As Range
Dim J As Integer

For J = 1 To 3
    Set Rng = Cells(1, J).Resize(30)
    For Each Cls In Rng
        i = Range("m10000").End(xlUp).Row + 1
        Range("M" & i) = Cls.Value
        Range("M" & i).Interior.ColorIndex = 35 + J
    Next Cls
Next J
End Sub
Nhấp chuột vào đây để mở rộng...
Em tự học lên chỉ hiểu được các cách cù lần, quan trọng là đạt được mục đích bác ah. Cám ơn bác nhé :)
 
Upvote 0
Em chào các thầy cô ạ. Quy luật như thế này em sẽ đưa vào For.....next như nào ạ. Ngồi nghĩ mà chưa thông được. Nhờ các thầy cô chỉ giúp ạ. Em xin cám ơn
Mã: 
With Sheets("KQ")
    sCot = 12
    .[E5].Value = ws.Cells(56, sCot + 1).Value
    .[E6].Value = ws.Cells(56, sCot + 2).Value
    .[E7].Value = ws.Cells(56, sCot).Value
    .[F5].Value = ws.Cells(22, sCot + 1).Value
    .[F6].Value = ws.Cells(22, sCot + 2).Value
    .[F7].Value = ws.Cells(22, sCot).Value
    .[G5].Value = ws.Cells(38, sCot + 1).Value
    .[G6].Value = ws.Cells(38, sCot + 2).Value
    .[G7].Value = ws.Cells(38, sCot).Value
    .[H5].Value = ws.Cells(58, sCot + 1).Value
    .[H6].Value = ws.Cells(58, sCot + 2).Value
    .[H7].Value = ws.Cells(58, sCot).Value
    .[I5].Value = ws.Cells(59, sCot + 1).Value
    .[I6].Value = ws.Cells(59, sCot + 2).Value
    .[I7].Value = ws.Cells(59, sCot).Value
    .[J5].Value = ws.Range("F56").Value
    .[J6].Value = ws.Range("G56").Value
    .[J7].Value = ws.Range("E56").Value
    .[K5].Value = ws.Range("F22").Value
    .[K6].Value = ws.Range("G22").Value
    .[K7].Value = ws.Range("E22").Value
    .[L5].Value = ws.Range("F38").Value
    .[L6].Value = ws.Range("G38").Value
    .[L7].Value = ws.Range("E38").Value
    .[M5].Value = ws.Range("F58").Value
    .[M6].Value = ws.Range("G58").Value
    .[M7].Value = ws.Range("E58").Value
    .[N5].Value = ws.Range("F59").Value
    .[N6].Value = ws.Range("G59").Value
    .[N7].Value = ws.Range("E59").Value
    End With
 
Upvote 0
Bạn thử với cái ni trong file của bạn xem sao:
PHP: 
Sub GPE()
 Dim wS As Worksheet
 Dim Col As Integer, Rws As Long
 
' Set wS = ThisWorkbook.Worksheets("CSDL")  '
 sCot = 12
With Sheets("KQ")
    For Col = 5 To 9
        Rws = Choose(Col - 4, 56, 22, 38, 58, 59)
        .Cells(5, Col).Value = wS.Cells(Rws, sCot + 1).Value
        .Cells(6, Col).Value = wS.Cells(Rws, sCot + 2).Value
        .Cells(7, Col).Value = wS.Cells(Rws, sCot + 0).Value
    Next Col
Rem    .[E5].Value = wS.Cells(56, sCot + 1).Value '5'
Rem    .[E6].Value = wS.Cells(56, sCot + 2).Value
Rem    .[E7].Value = wS.Cells(56, sCot).Value
Rem    .[F5].Value = wS.Cells(22, sCot + 1).Value  '6'
Rem    .[F6].Value = wS.Cells(22, sCot + 2).Value
Rem    .[F7].Value = wS.Cells(22, sCot).Value
Rem    .[G5].Value = wS.Cells(38, sCot + 1).Value  '7'
Rem    .[G6].Value = wS.Cells(38, sCot + 2).Value
Rem    .[G7].Value = wS.Cells(38, sCot).Value
Rem    .[H5].Value = wS.Cells(58, sCot + 1).Value  '8'
Rem    .[H6].Value = wS.Cells(58, sCot + 2).Value
Rem    .[H7].Value = wS.Cells(58, sCot).Value
Rem    .[I5].Value = wS.Cells(59, sCot + 1).Value  '9'
Rem    .[I6].Value = wS.Cells(59, sCot + 2).Value
Rem    .[I7].Value = wS.Cells(59, sCot).Value
    For Col = 10 To 14
        Rws = Choose(Col - 9, 56, 22, 38, 58, 59)
        .Cells(5, Col).Value = wS.Cells(Rws, "F").Value
        .Cells(6, Col).Value = wS.Cells(Rws, "G").Value
        .Cells(7, Col).Value = wS.Cells(Rws, "E").Value
    Next Col
Rem    .[J5].Value = wS.Range("F56").Value '10 '
Rem    .[J6].Value = wS.Range("G56").Value
Rem    .[J7].Value = wS.Range("E56").Value
Rem    .[K5].Value = wS.Range("F22").Value '11'
Rem    .[K6].Value = wS.Range("G22").Value
Rem    .[K7].Value = wS.Range("E22").Value
Rem    .[L5].Value = wS.Range("F38").Value '12 '
Rem    .[L6].Value = wS.Range("G38").Value
Rem    .[L7].Value = wS.Range("E38").Value
Rem    .[M5].Value = wS.Range("F58").Value '13 '
Rem    .[M6].Value = wS.Range("G58").Value
Rem    .[M7].Value = wS.Range("E58").Value
Rem    .[N5].Value = wS.Range("F59").Value '14 '
Rem    .[N6].Value = wS.Range("G59").Value
Rem    .[N7].Value = wS.Range("E59").Value
End With
End Sub
$$$$@
 
Upvote 0
buiquangthuan đã viết:
For.....next
Nhấp chuột vào đây để mở rộng...
Một cách khác.Sửa tên sheets thành tên sheets trong file của bạn
Mã: 
Sub Quy_Luat()
Dim sCot&, i&, j&, K&, R&
sCot = 12
For i = 1 To 5
        For j = 1 To 3
                K = K + 1
                K = IIf(K = 3, 0, K)
            R = IIf(i = 1, 56, IIf(i = 2, 22, IIf(i = 3, 38, IIf(i = 4, 58, IIf(i = 5, 59, "")))))
            Sheet1.Cells(j + 4, i + 4).Value = Sheet1.Cells(R, sCot + K).Value
            Sheet1.Cells(j + 4, i + 9).Value = Sheet1.Cells(R, sCot + K).Value
        Next
        K = 0
Next
End Sub
 

File đính kèm

Upvote 0
buiquangthuan đã viết:
@SA_DQ, @Cu Tồ con cám ơn 2 người nhiều ạ. Để mai con test thử ạ
Nhấp chuột vào đây để mở rộng...
Bài trên tôi nhầm cột bạn xem lại file
Mã: 
Option Explicit
Sub Quy_Luat()
Dim i&, j&, R&, C&
For i = 5 To 9
        For j = 5 To 7
                C = j + 1
                C = IIf(C = 8, 5, C)
            R = IIf(i = 5, 56, IIf(i = 6, 22, IIf(i = 7, 38, IIf(i = 8, 58, IIf(i = 9, 59, "")))))
            Sheet1.Cells(j, i).Value = Sheet1.Cells(R, C + 7).Value
            Sheet1.Cells(j, i + 5).Value = Sheet1.Cells(R, C).Value
        Next
Next
End Sub
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
buiquangthuan đã viết:
Em chào các thầy cô ạ. Quy luật như thế này em sẽ đưa vào For.....next như nào ạ. Ngồi nghĩ mà chưa thông được. Nhờ các thầy cô chỉ giúp ạ. Em xin cám ơn
Mã: 
With Sheets("KQ")
    sCot = 12
    .[E5].Value = ws.Cells(56, sCot + 1).Value
    .[E6].Value = ws.Cells(56, sCot + 2).Value
    .[E7].Value = ws.Cells(56, sCot).Value
    .[F5].Value = ws.Cells(22, sCot + 1).Value
    .[F6].Value = ws.Cells(22, sCot + 2).Value
    .[F7].Value = ws.Cells(22, sCot).Value
    .[G5].Value = ws.Cells(38, sCot + 1).Value
    .[G6].Value = ws.Cells(38, sCot + 2).Value
    .[G7].Value = ws.Cells(38, sCot).Value
    .[H5].Value = ws.Cells(58, sCot + 1).Value
    .[H6].Value = ws.Cells(58, sCot + 2).Value
    .[H7].Value = ws.Cells(58, sCot).Value
    .[I5].Value = ws.Cells(59, sCot + 1).Value
    .[I6].Value = ws.Cells(59, sCot + 2).Value
    .[I7].Value = ws.Cells(59, sCot).Value
    .[J5].Value = ws.Range("F56").Value
    .[J6].Value = ws.Range("G56").Value
    .[J7].Value = ws.Range("E56").Value
    .[K5].Value = ws.Range("F22").Value
    .[K6].Value = ws.Range("G22").Value
    .[K7].Value = ws.Range("E22").Value
    .[L5].Value = ws.Range("F38").Value
    .[L6].Value = ws.Range("G38").Value
    .[L7].Value = ws.Range("E38").Value
    .[M5].Value = ws.Range("F58").Value
    .[M6].Value = ws.Range("G58").Value
    .[M7].Value = ws.Range("E58").Value
    .[N5].Value = ws.Range("F59").Value
    .[N6].Value = ws.Range("G59").Value
    .[N7].Value = ws.Range("E59").Value
    End With
Nhấp chuột vào đây để mở rộng...
Thử code
Mã: 
Sub ABC()
  Dim ws As Worksheet, C_R
 
  Set ws = Sheet1 'Tam tinh
  C_R = Array(56, 22, 38, 58, 59) ' chuyen tu cot sang dong
 
  With Sheets("KQ")
    For j = 5 To 14 'Cot ket qua tu cot "E den N"
      iR = C_R(j Mod 5) 'Dong lay du lieu
      For i = 5 To 7
        If j < 10 Then
          jC = 12 + ((i - 1) Mod 3) 'Cot lay du lieu
        Else
          jC = 6 + ((i + 1) Mod 3)
        End If
        .Cells(i, j).Value = ws.Cells(iR, jC).Value
      Next i
    Next j
  End With
End Sub
 
Upvote 0
Chào mọi người em có viết 1 hàm như bên dưới, nhưng khi dữ liệu gốc là dạng cột thì lại không giống như ý muốn (Ý muốn là cách xếp giống như đã làm được ở Hình 1)
làm sao để nhận biết được dữ liệu gốc đang ở hàng hay cột để viết cho ổn ạ? Em định viết thêm 1 hàm khác nhưng chắc là các anh/chị có thể để chung 1 hàm được nên xin chỉ giáo ạ.
1604626139406.png

1604626274046.png
Mã: 
Function TRANSPOSES(rng As Range, col As Integer)
Application.Volatile
dong = Application.WorksheetFunction.RoundUp(rng.Columns.Count / col, 0)
ReDim arr2(1 To dong, 1 To col)
arr = rng.Resize(1, dong * col)
For i = 1 To dong
     For j = 1 To col
     arr2(i, j) = arr(1, (i - 1) * col + j)
     Next j
Next i
TRANSPOSES = arr2
End Function
 
Upvote 0
hungtin1997 đã viết:
Chào mọi người em có viết 1 hàm như bên dưới, nhưng khi dữ liệu gốc là dạng cột thì lại không giống như ý muốn (Ý muốn là cách xếp giống như đã làm được ở Hình 1)
làm sao để nhận biết được dữ liệu gốc đang ở hàng hay cột để viết cho ổn ạ? Em định viết thêm 1 hàm khác nhưng chắc là các anh/chị có thể để chung 1 hàm được nên xin chỉ giáo ạ.
Nhấp chuột vào đây để mở rộng...
Vòng lặp phải chạy theo nguồn chứ sao lại chạy theo đích
PHP: 
Function TRANSPOSES(rng As Range, col As Integer)
Application.Volatile
dong = Application.WorksheetFunction.RoundUp(rng.Count / col, 0)
ReDim arr2(1 To dong, 1 To col)
arr = rng.Value
m = 1
For i = 1 To UBound(arr, 1)
     For j = 1 To UBound(arr, 2)
     n = n + 1
     arr2(m, n) = arr(i, j)
     If n = col Then n = 0: m = m + 1
     Next j
   
Next i
TRANSPOSES = arr2
End Function
 
Lần chỉnh sửa cuối:
Upvote 0
ptm0412 đã viết:
Vòn lặp phải chạy theo nguồn chứ sao lại chạy theo đích
PHP: 
Function TRANSPOSES(rng As Range, col As Integer)
Application.Volatile
dong = Application.WorksheetFunction.RoundUp(rng.Count / col, 0)
ReDim arr2(1 To dong, 1 To col)
arr = rng.Value
m = 1
For i = 1 To UBound(arr, 1)
     For j = 1 To UBound(arr, 2)
     n = n + 1
     arr2(m, n) = arr(i, j)
     If n = col Then n = 0: m = m + 1
     Next j
   
Next i
TRANSPOSES = arr2
End Function
Nhấp chuột vào đây để mở rộng...
Nguồn là gì mà đích là gì bác có thể nói rõ hơn không ạ?
 
Upvote 0
ngocmaipretty đã viết:
Đi làm lãnh lương về bị vợ móc túi lấy hết: Nguồn là túi mình, đích là túi vợ
Nhấp chuột vào đây để mở rộng...
[Vui] Vậy con không hiểu là đúng rồi, vì con chưa vợ luôn.

Thật ra con vào GPE chưa được tháng, ngày con vào là ngày con tự học VBA, còn nhiều cái bất cập, vì con không có căn bản, con chỉ mò mẫm phục vụ cho công việc thôi, nhưng những góp ý của mọi người con đều tiếp thu ạ.
 
Upvote 0
hungtin1997 đã viết:
[Vui] Vậy con không hiểu là đúng rồi, vì con chưa vợ luôn.
Nhấp chuột vào đây để mở rộng...
Túm lại là hiểu chưa? Nếu chưa hiểu thì nghe giải thích thêm nè:
Muốn lấy hết tiền từ túi chồng, thì vợ phải chạy 2 vòng lặp trên người anh chồng: 1 vòng chạy vét hết các túi trái phải, trong ngoài của cái áo (của chồng), 1 vòng chạy vét hết các túi trái phải trong ngoài, trước sau của quần anh chồng.
Chứ lặp trên các túi của vợ thì số túi áo cũng không giống nhau, số túi quần cũng không giống nhau (dù cho tổng số túi cũng có thể bằng nhau, và có cả trường hợp túi vợ nhiều hơn túi chồng và có thêm cả cái ruột tượng).
 
Upvote 0
Chiều nào cũng được hết.

PHP: 
Option Explicit

Function TRANSPOSES2(ByVal rng As Range, ByVal ncol As Long)
    Dim num_cells As Long
    num_cells = rng.Cells.Count
    If num_cells = 1 Then TRANSPOSES2 = rng.Value2: Exit Function
    Dim data As Variant, i As Long, j As Long, r As Long, c As Long, ub1 As Long, ub2 As Long
    Dim res As Variant, num_rows As Long, item As Long
    num_rows = VBA.Fix(num_cells / ncol) + 1
    data = rng.Value2
    ub1 = UBound(data, 1)
    ub2 = UBound(data, 2)
    ReDim res(1 To num_rows, 1 To ncol)
    r = 1
    c = 1
    For i = 1 To num_rows
        For j = 1 To ncol
            item = item + 1
            res(i, j) = data(r, c)
            r = r + 1
            c = c + 1
            If r > ub1 Then r = 1
            If c > ub2 Then c = 1
            If item >= num_cells Then GoTo end_code
        Next j
    Next i
end_code:
    TRANSPOSES2 = res
End Function
 
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

X
Tự động giãn dòng và ẩn các dòng bị bỏ trống
Trả lời
5
Đọc
199
HUONGHCKT
H
1
Phát triển một VBE trong Delphi để tạo một cửa sổ công cụ.
Trả lời
0
Đọc
19
125479980
1
T
Xin giúp em copy cột C ở tất cả các sheet vào file import_template. Em cảm ơn ạ.
Trả lời
1
Đọc
34
BuiQuangThuan
B
KTS NGUYEN DU
Các bác có biết chỉnh mục trống này về dạng word cơ bản không ạ.
Trả lời
5
Đọc
86
KTS NGUYEN DU
KTS NGUYEN DU
giaiphap
Chia sẻ cách tạo gợi ý cho hàm trong Excel bằng thư viện ExcelDna.
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
6
Đọc
2K
Phương Nguyễn 89
Phương Nguyễn 89
hahuykhuong
  • Question Question
link file pdf hóa đơn bằng vba
Trả lời
3
Đọc
133
hahuykhuong
hahuykhuong
Manhhung90
  • Question Question
Xin giúp chuyển dữ liệu từ cột dọc sang hàng ngang theo điều kiện
    • Buồn
Trả lời
10
Đọc
205
Manhhung90
Manhhung90
M
  • Question Question
Code VBA tìm mã kiện gỗ còn tồn kho
Trả lời
7
Đọc
263
BuiQuangThuan
B
HeSanbi
  • Đã giải quyết
ExplorerXL - Quản lý thư mục với Excel: tìm, đổi tên, sao chép, di chuyển và xóa
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
80
Đọc
16K
ngochienbmt
N
T
cách viết hàm if
Trả lời
4
Đọc
152
VetMini
V
GPE-Trợ Lý
KHÓA HỌC BỨT PHÁ KỸ NĂNG EXCEL
    • Thích
    • Yêu thích
Trả lời
2
Đọc
919
nguyentnct
N
N
  • Question Question
Cần giúp rút gọn code vba
Trả lời
8
Đọc
245
VetMini
V
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
13 14 15
Trả lời
299
Đọc
20K
trdethuong
T
D
Vẽ biểu đồ phân tích doanh thu và lợi nhuận theo mã đơn vị
Trả lời
5
Đọc
895
thuytrangbp28
T
HeSanbi
  • Đã giải quyết
VBA Nâng cao: Khi ô Excel ở chế độ đang nhập liệu thì VBA có thể chạy và lấy giá trị ô không?
    • Thích
    • Cảm ơn
Trả lời
9
Đọc
2K
A HOANG 620
A
P
Xin hỏi cách tăng tốc khi nhập liệu cho sheet NHAPXUAT
Trả lời
4
Đọc
218
yeudoi
yeudoi
S
Tính trung bình của tháng đầu tiên.
Trả lời
5
Đọc
300
SteveNguyen1991
S
A
  • Đã giải quyết
Xin giúp đỡ code VBA chép cột dữ liệu có điều kiện từ file này sang file khác
2 3
Trả lời
59
Đọc
3K
Hoàng Nhật Phương
Hoàng Nhật Phương
T
  • Question Question
Xin code VBA trả về tên tài khoản theo điều kiện
    • Chấp nhận
Trả lời
10
Đọc
245
DeTong
D
H
Nhờ các cao nhân chỉ giáo code file Form nhập liệu Google Sheet !!!
    • Thích
Trả lời
4
Đọc
119
befaint
befaint
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
Chúc mừng năm mới
Back
Top Bottom