分享一个太初记录查询excel

why1214

或许你也和我一样，由于需要跨界总是各个角色翻来翻去地找需要的太初在哪儿，由于技术有限，只会excel，就自己弄了个excel，编了个vb宏，用来查，具体效果如下：
首先，sheet1是查询和录入界面，在A2可以输入想查的角色，或者想查的太初装备，输入后点击查询按钮，可以在A5和B5往下输出结果，然后是H2和I2是用于数据录入的，输入后点击录入可以将数据自动存放入sheet2中（当然也可以直接去sheet2中自己录入）。




实际使用如下：
（1）输入想查询的角色：


（2）输入想查询的太初：



最后，把vb宏的代码附上，excel我就不传了，免得说我盗号haha，感兴趣的朋友可以自己打开excel，创建一个有两个sheet的表格，然后将下面这段vb宏代码按照下述步骤输入：
（1）

（2）
（3）
（4）录入按钮绑定datainput，查询按钮绑定dataquery
（5）最后就可以在A2输入进行查询，H2和I2输入进行录入了
（6）代码如下：
Sub DataInput()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastRow As Long
Set ws1 = ThisWorkbook.Worksheets("Sheet1")
Set ws2 = ThisWorkbook.Worksheets("Sheet2")
lastRow = ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws2.Cells(lastRow, 1) = ws1.Cells(2, 8).Value
ws2.Cells(lastRow, 2) = ws1.Cells(2, 9).Value
ws1.Cells(2, 8).ClearContents
ws1.Cells(2, 9).ClearContents
MsgBox "数据录入成功!", vbInformation, "提示"
End Sub

Sub DataQuery()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastRow As Long, i As Long, j As Long
Dim queryContent As String
Set ws1 = ThisWorkbook.Worksheets("Sheet1")
Set ws2 = ThisWorkbook.Worksheets("Sheet2")
queryContent = "*" & ws1.Cells(2, 1).Value & "*"
ws1.Range("A5:B" & ws1.Rows.Count).ClearContents
lastRow = ws2.Cells(Rows.Count, 1).End(xlUp).Row
j = 5
For i = 2 To lastRow
If LCase(ws2.Cells(i, 1).Value) Like LCase(queryContent) Or LCase(ws2.Cells(i, 2).Value) Like LCase(queryContent) Then
  ws1.Cells(j, 1) = ws2.Cells(i, 1).Value
  ws1.Cells(j, 2) = ws2.Cells(i, 2).Value
  j = j + 1
End If
Next i
If j > 5 Then
ws1.Range("A5:B" & j - 1).Sort _
  Key1:=ws1.Range("A5"), Order1:=xlAscending, _
  Key2:=ws1.Range("B5"), Order2:=xlAscending, _
  Header:=xlNo, MatchCase:=False
End If
If j = 5 Then
MsgBox "未查询到相关数据!", vbExclamation, "查询提示"
End If
End Sub

希望能给屏幕前的兄弟带来点便利

uonlad

吃糖

苟全性命

回家试试

Serahina

吃糖 之前做完的表格 重装系统搞没了 后面也懒得统计了

dommm

吃糖

旭东祝C站UPUP

吃糖

神似之人

6，可以的

墨染尘埃

池塘

叶小白小白小白

太牛了大佬

所见桃花皆是劫

吃糖