userform篩選的問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » userform篩選的問題

返回列表下一主題上一主題發帖

userform篩選的問題

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

1^# 跳轉到 »

發表於 2013-8-4 22:21 | 顯示全部帖子

回復 1# sppk22
先單純就你想要找 *a 或 a* 形式文字的需求提供方式:
你可以使用 l = Instr(1, 儲存格, "a")
再判斷若 l = 1 則為 a* 形式
若 l >1 則為 *a 形式

至於你首篇裡的敘述,
我看不太懂你的需求,
可否提供一些範例結果畫面,
例如你輸入些什麼內容,
而篩選出的結果會顯示在哪裡...

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2013-8-6 23:52 | 顯示全部帖子

回復 luhpro
那用成這種方式呢???請大大幫忙..感恩
sppk22 發表於 2013-8-6 23:27

Sub nn()
Dim lRows As Long, lRow As Long
Dim iI%
lRows = Cells(Rows.Count, 1).End(xlUp).Row
For lRow = 3 To lRows
With Cells(lRow, 1)
Select Case .Offset(, 5)
Case "同"
.Value = "*" & .Value
.Offset(, 3) = .Offset(, 4) * 1.1
Case "出"
.Value = .Value & "*"
End Select
End With
Next lRow
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

3^#

發表於 2013-8-7 22:20 | 顯示全部帖子

回復 8# sppk22

Sub SetStart()
Dim lRows As Long, lRow As Long
Dim iI%
lRows = Cells(Rows.Count, 1).End(xlUp).Row
For lRow = 3 To lRows
With Cells(lRow, 1)
Select Case .Offset(, 5)
Case "同"
If Left(.Value, 1) <> "*" Then
.Value = "*" & .Value
.Offset(, 3) = .Offset(, 4) * 1.1
End If
Case "出"
If Right(.Value, 1) <> "*" Then .Value = .Value & "*"
End Select
End With
Next lRow
End Sub

複製代碼

Sub ClrStart()
Dim lRows As Long, lRow As Long
Dim iI%
lRows = Cells(Rows.Count, 1).End(xlUp).Row
For lRow = 3 To lRows
With Cells(lRow, 1)
If Left(.Value, 1) = "*" Then
.Value = Mid(.Value, 2)
.Offset(, 3) = ""
.Offset(, 5) = "" ' 若不想清除 "出" 與 "同" 則刪除此行
ElseIf Right(.Value, 1) = "*" Then
.Value = Left(.Value, Len(.Value) - 1)
End If
End With
Next lRow
End Sub

複製代碼

靜思自在 : 原諒別人就是善待自己。

返回列表下一主題上一主題