麻辣家族討論版版 - Powered by Discuz! Board

標題: userform篩選的問題 [打印本頁]

作者: sppk22 時間: 2013-8-1 21:19 標題: userform篩選的問題

詳如表單內容userform1..

作者: sppk22 時間: 2013-8-2 20:11

回復 1# sppk22

沒有人回覆我..唉

作者: sppk22 時間: 2013-8-3 15:48

回復 2# sppk22

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

作者: luhpro 時間: 2013-8-4 22:21

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

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

作者: sppk22 時間: 2013-8-6 23:27

回復 5# luhpro

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

作者: luhpro 時間: 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

複製代碼

作者: sppk22 時間: 2013-8-7 09:04

回復 7# luhpro

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

作者: luhpro 時間: 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

複製代碼

作者: sppk22 時間: 2013-8-8 20:18

回復 9# luhpro

感謝大大的協助...

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)