12
返回列表 上一主題 發帖

找出row和col問題

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4# 跳轉到 »
發表於 2010-10-29 17:50 | 只看該作者
本帖最後由 Hsieh 於 2010-10-29 19:43 編輯
  1. Sub nn()
  2. If WorksheetFunction.CountIf( Range("A1:C5,E6:G10,A11:C15 "), 1) = 1 Then
  3. For Each a In Range("A1:C5,E6:G10,A11:C15 ")
  4.   If a = 1 Then i1 = a.Row: j1 = a.Column: Exit For
  5. Next
  6. End If

  8. MsgBox i1 & "    " & j1

  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
3#
發表於 2010-10-29 17:10 | 只看該作者
回復 2# Hsieh

謝謝大大.
但我是想要這個.
請問大大這個可以化簡嗎?
  1. Sub nn()
  2. b = 0
  3. For Each a In Range("A1:C5,E6:G10,A11:C15 ")
  4. b = b + WorksheetFunction.CountIf(a, 1)
  5. Next

  7. If b = 1 Then
  8. For Each a In Range("A1:C5,E6:G10,A11:C15 ")
  9.   If a = 1 Then i1 = a.Row: j1 = a.Column: Exit For
  10. Next
  11. End If

  13. MsgBox i1 & "    " & j1

  15. End Sub
複製代碼
50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-10-29 13:51 | 只看該作者
回復 1# basarasy
  1. Sub nn()
  2. For Each a In Range("A1:C5,E6:G10,A11:C15 ")
  3.   If a = 1 Then i1 = a.Row: j1 = a.Column: Exit For
  4. Next
  5. MsgBox i1 & "    " & j1
  6. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
12
返回列表 上一主題