[英]How to sort rows in a excel sheet and print to a file using VB script?
我有一個名為 student 的表。 我正在嘗試根據他的標記打印相應的學生姓名。 我想使用 Excel 宏打印到文件。
我的表格包含標題為學生姓名 1 、 2 、 3 等。以及相應的標記為 1 、 2 、 3 、 4 和 "-" 。
我想在 VB 中編寫函數來對每個主題(0,1,2,3,...7)的相應行進行排序,並將值打印到文件中。
輸出(文件.txt)
NULL,NULL,NULL,NULL,NULL
STUDENT 2 ,STUDENT 5 ,STUDENT 4 ,NULL,NULL
STUDENT 4,STUDENT 5,NULL,NULL,NULL
etc..
一行中的列應按升序排序,如果任何列中存在“-”,則應將其打印為 NULL 作為剩余值。
我已經寫了
Sub test()
'create and write into file txt
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim Fileout As Object
Set Fileout = fso.CreateTextFile("MyFile.txt", True, True)
'Write logic for sorting
Fileout.Close
End Sub
如何使用 VB 腳本在 excel 中排序並打印這些行?
這是一種實現方式,根據您的需求進行調整:
' Naive O(N^2) sort
Sub Sort(arr() As Long, students() As String)
If UBound(arr) <= 1 Then Exit Sub
Dim i As Long, j As Long
For i = 0 To UBound(arr) - 1
' Look for the minimum index in the sub-array going from i
Dim indexOfMin As Long
indexOfMin = i
For j = i To UBound(arr)
If arr(j) < arr(indexOfMin) Then
indexOfMin = j
End If
Next j
' Put the minimum mark at the beginning of the sub-array
Dim tmp As Variant
tmp = arr(i)
arr(i) = arr(indexOfMin)
arr(indexOfMin) = tmp
' Put the student with the minimum value at the beginning of the students sub-array
tmp = students(i)
students(i) = students(indexOfMin)
students(indexOfMin) = tmp
Next i
End Sub
Sub SortAndSave()
Dim dataRange As Range
Set dataRange = Range("A1:F9")
Dim data As Variant
data = dataRange.Value
Dim NSubject As Long, NStudents As Long
NSubject = UBound(data, 1) - 1
NStudents = UBound(data, 2) - 1
Dim text As String
Dim i As Long, j As Long
For i = 1 To NSubject
' Read marks and students names
Dim subjectMarks() As Long
ReDim subjectMarks(0 To NStudents - 1)
Dim students() As String
ReDim students(0 To NStudents - 1)
For j = 1 To NStudents
' Use a big enough number 999 so that students with no mark will be pushed to the end
subjectMarks(j - 1) = IIf(data(i + 1, j + 1) <> "-", data(i + 1, j + 1), 999)
students(j - 1) = data(1, j + 1)
Next j
' Sort marks and students
Sort subjectMarks, students
' Build display row for subject
Dim row As String
row = ""
For j = 1 To NStudents
' If there is a mark render the student name
If subjectMarks(j - 1) <> 999 Then
row = row & students(j - 1)
' Otherwise render NULL
Else
row = row & "NULL"
End If
' Add a comma if not the latest
If j <> NStudents Then
row = row & ","
End If
Next j
text = text & row
' Add a \r\n if not the latest
If i <> NSubject Then
text = text & vbCrLf
End If
Next i
End Sub
結果:
NULL,NULL,NULL,NULL,NULL
STUDENT 2,STUDENT 5,STUDENT 4,NULL,NULL
STUDENT 4,STUDENT 5,NULL,NULL,NULL
STUDENT 4,STUDENT 5,NULL,NULL,NULL
STUDENT 2,STUDENT 5,STUDENT 4,NULL,NULL
STUDENT 5,STUDENT 4,STUDENT 2,STUDENT 1,NULL
STUDENT 5,STUDENT 4,STUDENT 2,STUDENT 1,NULL
STUDENT 4,STUDENT 5,NULL,NULL,NULL
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.