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
befaint đã viết:
num_rows = VBA.Fix(num_cells / ncol) + 1
Nhấp chuột vào đây để mở rộng...
Trích từ công thức chuyển mảng 1 chiều sang 2 chiều:
= VBA.Fix((num_cells - 1) / ncol) + 1

befaint đã viết:
r = r + 1
c = c + 1
If r > ub1 Then r = 1
If c > ub2 Then c = 1
Nhấp chuột vào đây để mở rộng...
r = IIF(r >= ub1, 1, r + 1)
c = IIF(c >= ub2, 1, c + 1)
Hoặc dùng công thức chuyển i*j (phần tử thứ n của mảng 1 chiều) thành r, c (mảng 2 chiều)
 
Upvote 0
ngocmaipretty đã viết:
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).
Nhấp chuột vào đây để mở rộng...
Dạ hiểu rồi, con cảm ơn!
[Vui]Mà cái chỗ "ruột tượng" này cấn cấn nè :lol:
 
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...
Code vừa ngắn, vừa dễ hiểu ,vừa mở rộng hơn, code con viết dài ngoằn mà chỉ lấy được mỗi [1] cột.
Code của bác cứ lấy hết cột(nguồn) thì xuống dòng(nguồn) lấy tiếp, bỏ vào cột(đích), tới khi nào cột(đích) = col(biến) thì cột(đích) Reset lại và xuống 1 dòng(đích).
 
Upvote 0
befaint đã viết:
Không sai anh.
Nhấp chuột vào đây để mở rộng...
Tôi vẫn có thắc mắc:
Số phần tử của dữ liệu nguồn là xác định, trong khi số phần tử của mảng kết quả có khi lớn hơn. Vậy tại sao lặp theo dòng-cột của kết quả rồi mất công If ... Goto?
Tư duy vét tận hết nguồn bỏ vô đích có vẻ thuận hơn là tư duy thồn đầy đích đến khi hết nguồn chứ nhỉ?
 
Upvote 0
ptm0412 đã viết:
Tôi vẫn có thắc mắc:
Số phần tử của dữ liệu nguồn là xác định, trong khi số phần tử của mảng kết quả có khi lớn hơn. Vậy tại sao lặp theo dòng-cột của kết quả rồi mất công If ... Goto?
Tư duy vét tận hết nguồn bỏ vô đích có vẻ thuận hơn là tư duy thồn đầy đích đến khi hết nguồn chứ nhỉ?
Nhấp chuột vào đây để mở rộng...
Nguồn và đích là khái niệm tương đối thôi anh. Và tùy theo cách gọi của mỗi người.
Theo cách gọi nguồn và đích như anh nêu thì:
Code ở bài #2802 tham chiếu theo nguồn. Kiểu gieo sạ, gieo vãi, có thể đứng trên bờ, ôm thúng (mủng) thóc (đã ngâm ủ nứt mầm) ném xuống ruộng, tới khi hết thúng thì về.
Code ở bài #2808 tham chiếu theo đích. Kiểu lội xuống ruộng cấy từng cây/ khóm mạ con, tới khi hết cây mạ con thì lên bờ.
 
Upvote 0
befaint đã viết:
Code ở bài #2802 tham chiếu theo nguồn. Kiểu gieo sạ, gieo vãi, có thể đứng trên bờ, ôm thúng (mủng) thóc (đã ngâm ủ nứt mầm) ném xuống ruộng, tới khi hết thúng thì về.
Code ở bài #2808 tham chiếu theo đích. Kiểu lội xuống ruộng cấy từng cây/ khóm mạ con, tới khi hết cây mạ con thì lên bờ.
Nhấp chuột vào đây để mở rộng...
Lập luận thì hay, nhưng ví dụ thì chèn ép.
Gieo sạ, gieo vãi đó là gieo hạt giống, kết quả là mạ. Lội xuống ruộng là hành động cấy mạ thẳng hàng. Cùng là việc gán kết quả từng phần tử mà biến thành 2 hành động khác nhau. So sánh kiểu này khiến người đọc chê lão chết tiệt là vãi thóc toè loe cho xong việc, không bằng bi phèn cấy mạ chăm chút từng cây. Puồn quá
 
Upvote 0
Thiệt ra nếu dùng For Each thì không cần biết dữ liệu gốc là cột hay dòng (chỉ một dòng hoặc một cột, bài #2801)
i = 0
j = numCot
For Each x In Rg.Value
j = j + 1
If j >= numCot
j = 1
i = i + 1
End If
a(i, j) = x
Next x
 
Upvote 0
VetMini đã viết:
Thiệt ra nếu dùng For Each thì không cần biết dữ liệu gốc là cột hay dòng (chỉ một dòng hoặc một cột, bài #2801)
Nhấp chuột vào đây để mở rộng...
Thiệt ra tôi cũng có nghĩ đến For each, nhưng for each với range hoặc mảng bị mặc định dòng trước cột sau, nếu cần cột trước dòng sau thì phải viết lại. Hai vòng for (i, j) thì chỉ cần hoán đổi vị trí 2 dòng for.
 
Upvote 0
ptm0412 đã viết:
nếu cần cột trước dòng sau thì chỉ cần hoán đổi vị trí 2 dòng for.
Nhấp chuột vào đây để mở rộng...
Bài toán này nếu mở rộng sẽ có 4 tuỳ chọn và cần thêm 2 tham số
dòng trước cột sau/ ngược lại cho nguồn
dòng trước cột sau/ ngược lại cho kết quả

1604666327032.png

PHP: 
Function TRANSPOSES(Rng As Range, Col As Long, Optional DataRowFirst As Boolean = True, Optional ResultRowFirst As Boolean = True)
Dim Rw As Long, DataArr(), ReArr()
Rw = VBA.Fix(Rng.Count / Col) + 1
ReDim ReArr(1 To Rw, 1 To Col)
DataArr = Rng.Value
m = IIf(ResultRowFirst, 1, 0)
n = IIf(ResultRowFirst, 0, 1)

For i = 1 To IIf(DataRowFirst, UBound(DataArr, 1), UBound(DataArr, 2))
    For j = 1 To IIf(DataRowFirst, UBound(DataArr, 2), UBound(DataArr, 1))
        If ResultRowFirst Then
            n = n + 1
            If DataRowFirst Then
                ReArr(m, n) = DataArr(i, j)
            Else
                ReArr(m, n) = DataArr(j, i)
            End If
            If n = Col Then n = 0: m = m + 1
        Else
            m = m + 1
            If DataRowFirst Then
                ReArr(m, n) = DataArr(i, j)
            Else
                ReArr(m, n) = DataArr(j, i)
            End If
            If m = Rw Then m = 0: n = n + 1
        End If
     Next j
Next i
TRANSPOSES = ReArr
End Function
 
Lần chỉnh sửa cuối:
Upvote 0
Em chào A/C,
Đoạn code dưới đây đang so sánh số SeriesNumber với 1 số đã set cho MycomputerSeries. Bây giờ Em muốn sửa đoạn code này, cho so sánh số SeriesNumber với 1 vùng Sheet1.Range("C1:C10") nếu trong vùng C1:C10 không có 1 số nào trùng với số SeriesNumber. thì hiện thông báo "Máy này không được quyền sử dụng". Còn nếu trong vùng C1:C10 chỉ cần có 1 số trùng với số SeriesNumber thì sẽ hiện thông báo "Bạn đã xem được file". Mong A/C giúp đỡ. Cảm ơn A/C nhiều!

......
If SeriesNumber <> MyComputerSeries Then
MsgBox "May nay khong duoc quyen su dung"
GoTo ExitSub
......
 
Lần chỉnh sửa cuối:
Upvote 0
Love GPE đã viết:
Em chào A/C,
Nhấp chuột vào đây để mở rộng...
A chéo cờ chào e mờ nha.

PHP: 
Private Function FindSeriesNumber(ByVal rng as Range, ByVal str_seri As String, _
                            Optional ByVal bol_MatchCase As Boolean = False) As Boolean
    'Tra ve True neu tim thay, nguoc lai tra ve False'
    'bol_MatchCase = False: Khong phan biet chu hoa, thuong. True = Co phan biet chu hoa, thuong'
   
    FindSeriesNumber = False
    Dim cll As Range
    Set cll = rng.Find(str_seri, MatchCase:=bol_MatchCase)
    If Not cll Is Nothing Then FindSeriesNumber = True
End Function
PHP: 
Sub vidu()
Dim rng as range, res as Boolean
Dim str_seri as string
set rng = sheet1.range("C1:C10")
res = FindSeriesNumber(rng, str_seri)
If res = False then
msgbox "Không tìm thấy!"
else
msgbox "Cảm ơn a chéo cờ nhiều!"
End if
End Sub
 
Upvote 0
befaint đã viết:
A chéo cờ chào e mờ nha.

PHP: 
Private Function FindSeriesNumber(ByVal rng as Range, ByVal str_seri As String, _
                            Optional ByVal bol_MatchCase As Boolean = False) As Boolean
    'Tra ve True neu tim thay, nguoc lai tra ve False'
    'bol_MatchCase = False: Khong phan biet chu hoa, thuong. True = Co phan biet chu hoa, thuong'
  
    FindSeriesNumber = False
    Dim cll As Range
    Set cll = rng.Find(str_seri, MatchCase:=bol_MatchCase)
    If Not cll Is Nothing Then FindSeriesNumber = True
End Function
PHP: 
Sub vidu()
Dim rng as range, res as Boolean
Dim str_seri as string
set rng = sheet1.range("C1:C10")
res = FindSeriesNumber(rng, str_seri)
If res = False then
msgbox "Không tìm thấy!"
else
msgbox "Cảm ơn a chéo cờ nhiều!"
End if
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn Anh befaint nhiều!
 
Upvote 0
Nhờ các cao nhân chỉnh hộ cái file này giúp với, mình để thế này chạy mà cod chạy hết 3-4h đồng hồ. Có cách nào rút gọn lại để chạy nhanh hơn ko, vì dữ liệu nhiều quá ạ
' VaioY Macro
' Vaio
'
' Keyboard Shortcut: Ctrl+Shift+Y
'
Sheets("HN2").Select
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R6C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19686").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R7C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19687").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R8C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19688").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R9C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19689").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R10C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19690").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R11C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19691").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R12C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19692").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R13C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19693").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R14C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19694").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R15C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19695").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R16C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19696").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R17C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19697").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R18C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19698").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R19C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19699").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R20C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19700").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R21C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19701").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R22C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19702").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R23C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19703").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R24C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19704").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R25C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19705").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R26C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19706").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R27C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19707").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R28C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19708").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R29C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19709").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R30C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19710").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R31C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19711").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R32C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19712").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R33C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19713").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R34C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19714").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R35C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19715").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R36C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19716").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R37C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19717").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R38C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19718").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R39C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19719").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R40C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19720").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R41C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19721").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R42C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19722").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R43C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19723").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R44C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19724").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R45C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19725").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R46C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19726").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R47C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19727").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R48C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19728").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R49C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19729").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R50C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19730").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R51C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19731").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R52C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19732").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R53C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19733").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R54C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19734").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R55C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19735").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R56C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19736").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R57C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19737").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R58C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19738").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R59C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19739").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R60C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19740").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R61C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19741").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R62C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19742").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R63C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19743").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R64C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19744").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R65C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19745").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R66C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19746").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R67C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19747").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R68C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19748").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R69C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19749").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R70C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19750").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R71C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19751").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R72C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19752").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R73C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19753").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R74C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19754").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R75C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19755").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R76C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19756").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R77C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19757").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R78C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19758").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R79C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19759").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R80C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19760").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R81C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19761").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R82C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19762").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R83C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19763").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R84C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19764").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R85C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19765").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R86C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19766").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R87C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19767").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R88C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19768").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R89C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19769").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R90C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19770").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R91C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19771").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R92C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19772").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R93C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19773").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R94C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19774").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R95C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19775").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R96C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19776").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R97C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19777").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R98C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19778").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R99C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19779").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R100C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19780").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R101C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19781").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R102C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19782").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R103C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19783").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R104C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19784").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R105C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19785").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2:GA19684").Select
Selection.ClearContents
MsgBox "Xin chao VBA cua ban da chay xong Y"
Sheets("LOK").Select
Range("A2").Select
End Sub
 
Upvote 0
vaioz138gg đã viết:
chạy hết 3-4h đồng hồ
Nhấp chuột vào đây để mở rộng...
Hại não lắm bạn ơi :D . Gán cả mấy chục công thức như thế này rồi kéo cho hết 19 nghìn rưỡi dòng thì thánh nào mà dộ cho được.nhìn là thấy mệt rồi.với lại code toàn là lệnh gán công thức vào ô không à.Chưa xem file của bạn nhưng có lẽ nên lập topic mới nhờ giúp bằng vba thì chơi hẳn vba tối ưu cái bảng tính chứ dùng vba gán công thức rồi kéo thì chậm là đúng rồi
 
Lần chỉnh sửa cuối:
Upvote 0
Cu Tồ đã viết:
Hại não lắm bạn ơi :D . Gán cả mấy chục công thức như thế này thì thánh nào mà dộ cho được.nhìn là thấy mệt rồi
Nhấp chuột vào đây để mở rộng...
Đại khái nó còn như thế này; nhưng chỉ thay hàm ở ô B2, nhưng chạy lặp đi lặp lại hơn 100 từ B2-GA19684, thì có cách nào tinh giảm hoặc thay hàm để máy chạy nhanh hơn được không ạ các bác
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R6C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19686").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HN2").Range("B2").FormulaR1C1 = "=+IF(AND(COUNTIF('TK1'!R119C[2]:R218C[2],'HN1'!RC11)>0,COUNTIF('TK1'!R119C[1]:R218C[1],'HN1'!RC10)>0,COUNTIF('TK1'!R119C:R218C,'HN1'!RC9)>0,'TK1'!R7C[-1]>0),1,"""")"
Range("B2").AutoFill Destination:=Range("B2:GA19684"), Type:=xlFillDefault
Range("A1").Copy
Range("A19687").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
 
Upvote 0
Cu Tồ đã viết:
nó không phải chậm ở code mà do chậm khi tính toán trong bảng tính của bạn,khí bạn gán công thức vào xong kéo xuống 19686 nếu số liệu mà lớn thì chậm là đúng rồi
Nhấp chuột vào đây để mở rộng...
Vậy có cách nào thay thế hoặc bổ sung thêm ram và cpu cho nó để nó tính toán nhanh hơn ko các cụ? Cấu hình I7-7700HQ, ram 16gb mà dùng vẫn lâu vậy á. Ram sử dụng mới hết 2gb
 
Upvote 0
vaioz138gg đã viết:
Vậy có cách nào thay thế hoặc bổ sung thêm ram và cpu cho nó để nó tính toán nhanh hơn ko các cụ? Cấu hình I7-7700HQ, ram 16gb mà dùng vẫn lâu vậy á. Ram sử dụng mới hết 2gb
Nhấp chuột vào đây để mở rộng...
bạn lập cái topic mới bên box lập trình rồi đưa file lên mọi người tham khảo tối ưu bằng cách chạy bằng vba chứ không gán công thức như của bạn nữa.chứ đâu đến nỗi thay ram cpu bạn
 
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

M
  • Question Question
Code VBA tìm mã kiện gỗ còn tồn kho
Trả lời
7
Đọc
217
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
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
8
Đọc
161
Manhhung90
Manhhung90
T
cách viết hàm if
Trả lời
4
Đọc
137
VetMini
V
hahuykhuong
  • Question Question
link file pdf hóa đơn bằng vba
Trả lời
1
Đọc
55
zzzsxxx01
Z
X
Tự động giãn dòng và ẩn các dòng bị bỏ trống
Trả lời
4
Đọc
181
HeSanbi
HeSanbi
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
904
nguyentnct
N
N
  • Question Question
Cần giúp rút gọn code vba
Trả lời
8
Đọc
230
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
885
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
208
yeudoi
yeudoi
S
Tính trung bình của tháng đầu tiên.
Trả lời
5
Đọc
293
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
235
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
112
befaint
befaint
hoamattroicoi
TỔNG HỢP TỜ KHAI THUẾ THEO THÔNG TƯ 80/2021 TỪ *.XML SANG EXCEL
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
7
Đọc
3K
Nguyễn Văn Thái 92
N
dungdodac
Lỗi khi COPY , viền xung quanh ô được chọn đứng yên, không chạy
    • Cười
Trả lời
4
Đọc
208
VetMini
V
B
Xin hàm đếm số lượng khách hàng theo 1 điều kiện và bỏ dữ liệu trùng.
Trả lời
10
Đọc
397
Phan Thế Hiệp
Phan Thế Hiệp
H
Giao diện mới ở "chế độ tối" mờ quá
    • Yêu thích
    • Thích
Trả lời
4
Đọc
157
OverAC
OverAC
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