返回列表 上一主題 發帖

[發問] 請教如何挑出欄位內溫度小於20 的數值，並記錄位置。

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
1# 跳轉到 »
發表於 2015-2-25 22:56 | 顯示全部帖子
非常感恩p212 大大提供的方法，請教一下函數是否能在VBA的環境裏達到這樣的功能？
ji12345678 發表於 2015-2-25 21:31
  1. Sub TEST() '找小於20的溫度
  2.   Dim lSRow&, lTrow&
  3.   
  4.   Range("G2:H200").Clear
  5.   lSRow = 2
  6.   lTrow = 2
  7.   
  8.   While Cells(lSRow, 1) <> ""
  9.     If Cells(lSRow, 2) < 20 Then
  10.       Cells(lTrow, 7) = Cells(lSRow, 2)
  11.       Cells(lTrow, 8) = Cells(lSRow, 2).Address(0, 0)
  12.       lTrow = lTrow + 1
  13.     End If
  14.     lSRow = lSRow + 1
  15.   Wend
  16. End Sub
複製代碼
2015.2.25問題-a.zip (7.44 KB)

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題