返回列表 上一主題 發帖

[發問] vba 操作ie匯入資料

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2013-5-23 20:03 | 顯示全部帖子
你的B20 , C20都是固定位置嗎?
若是
x = IIf(InStr(Join(Application.Transpose([A1:A50].Value), ""), "如果") > 0, [B20], [C20])
若不是固定位置而是相對於 "如果" 儲存格
問題又怪怪的，沒找到 "如果" 儲存格，哪來的C20

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-5-24 01:36 | 顯示全部帖子
回復 15# cji3cj6xu6
  1. Sub TEST()
  2.     Dim f
  3.     With ActiveSheet
  4.         Set f = .[A1:A50].Find(What:="如果", LookIn:=xlValues, LookAt:=xlPart)
  5.         .[C55] = IIf(f Is Nothing, "找不到", f.Offset(, 1).Value)
  6.     End With
  7. End Sub
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2013-5-24 02:09 | 顯示全部帖子
回復 15# cji3cj6xu6
更正一下(因為IIF正反都會先運算會有問題)
  1. Sub TEST()
  2.     Dim f
  3.     With ActiveSheet
  4.         Set f = .[A1:A50].Find(What:="如果", LookIn:=xlValues, LookAt:=xlPart)
  5.         If f Is Nothing Then
  6.             .[C55] = "找不到"
  7.         Else
  8.             .[C55] = f.Offset(, 1).Value
  9.         End If
  10.     End With
  11. End Sub
複製代碼

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題