彰化一整天的論壇

 找回密碼
 立即註冊
查看: 197|回復: 3

條件篩選VBA語法

[複製鏈接]
發表於 2020-3-21 16:43:47 | 顯示全部樓層 |閱讀模式
老師您好, 想請教一個VBA 語法上的小問題

我想使用TextBox1輸入的"值",當作篩選"寬"的條件。

目前compiler 看到輸入的值是可以讀的到為x=0.5, 不過進入到下一行程式,
Criteria1:=">=x" 的 x值卻讀不到。


邏輯上看起來應該沒問題,不確定是哪邊出問題。

條件篩選VBA 語法.xlsm

25.96 KB, 下載次數: 9

回復

使用道具 舉報

發表於 7 天前 | 顯示全部樓層
cool_fan 發表於 2020-3-28 13:12
瞭解,謝謝老師悉心指導

底下是影音解說版本
【Excel網友問題解答】Excel如何利用文字方塊當作變數來做...
http://discuz.bestdaylong.com/forum.php?mod=viewthread&tid=38805&fromuid=2
(出處: 彰化一整天的論壇)
回復 支持 1 反對 0

使用道具 舉報

發表於 2020-3-22 00:09:41 | 顯示全部樓層
您犯了二個錯誤.
1.變數不能放在""中間,要用 & 做連接
2.最後不能再加Selection.AutoFilter,加了查詢結果會成沒有篩選。
  1. Private Sub CommandButton1_Click()
  2.    
  3.     Dim x As Single
  4.    
  5.     Range("C1").Select
  6.    
  7.     'TextBox 輸入值
  8.     x = TextBox1.Text
  9.    
  10.     Selection.AutoFilter
  11.     ActiveSheet.Range("$A$1:$C$69").AutoFilter Field:=3, Criteria1:=">=" & x, _
  12.         Operator:=xlAnd

  13. End Sub
複製代碼


條件篩選VBA 語法.xlsm

26.27 KB, 下載次數: 1

售價: 1 金錢  [記錄]

回復 支持 1 反對 0

使用道具 舉報

 樓主| 發表於 2020-3-28 13:12:29 | 顯示全部樓層
瞭解,謝謝老師悉心指導
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2020-4-7 19:14 , Processed in 0.177036 second(s), 23 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表