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

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

userform篩選的問題

小學生 Rank: 1

帖子: 26
主題: 3
精華: 0
積分: 34
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 10
註冊時間: 2013-8-1
最後登錄: 2020-12-26

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-8-1 21:19 | 只看該作者

userform篩選的問題

詳如表單內容userform1..

表單.rar (7.04 KB)

樓主熱帖

收藏

小學生 Rank: 1

帖子: 26
主題: 3
精華: 0
積分: 34
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 10
註冊時間: 2013-8-1
最後登錄: 2020-12-26

2^#

發表於 2013-8-2 20:11 | 只看該作者

[版主管理留言]

Hsieh(2013-8-2 22:42): 請檢查你的附件，並無表單存在

回復 1# sppk22

沒有人回覆我..唉

小學生 Rank: 1

帖子: 26
主題: 3
精華: 0
積分: 34
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 10
註冊時間: 2013-8-1
最後登錄: 2020-12-26

3^#

發表於 2013-8-3 15:48 | 只看該作者

回復 2# sppk22

不知是否我問題有難度..能否大大提個恴見

高中生 Rank: 3 Rank: 3

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

4^#

發表於 2013-8-4 22:21 | 只看該作者

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

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

小學生 Rank: 1

帖子: 26
主題: 3
精華: 0
積分: 34
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 10
註冊時間: 2013-8-1
最後登錄: 2020-12-26

5^#

發表於 2013-8-6 23:27 | 只看該作者

回復 5# luhpro

那用成這種方式呢???請大大幫忙..感恩

物品1.JPG (58.96 KB)

高中生 Rank: 3 Rank: 3

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

6^#

發表於 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: 1

帖子: 26
主題: 3
精華: 0
積分: 34
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 10
註冊時間: 2013-8-1
最後登錄: 2020-12-26

7^#

發表於 2013-8-7 09:04 | 只看該作者

回復 7# luhpro

謝謝大大，小弟測試了一下，有點問題
此程式如果執行多次，*會出現很多次，
能否只能出現一次呢？
且清除“出”或“同”能否回覆當初的值(没*號及清除*1.1)

高中生 Rank: 3 Rank: 3

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

8^#

發表於 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

複製代碼

小學生 Rank: 1

帖子: 26
主題: 3
精華: 0
積分: 34
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 10
註冊時間: 2013-8-1
最後登錄: 2020-12-26

9^#

發表於 2013-8-8 20:18 | 只看該作者

回復 9# luhpro

感謝大大的協助...

靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。

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