會員登入
新使用者？立即註冊
.
服務首頁|服務說明|Yahoo!奇摩. 知識+ 首頁
知識分類
電腦網路
科學常識
醫療保健
煩惱心事
生活資訊
手機通訊
休閒嗜好
視聽娛樂
運動體育
社會人文
商業金融
教育學習 .如何做
煩惱
主題知識
.我要發問 發表 我要發問 ..熱門： 蛇年運勢 人民幣定存 過年吃什麼 2013燈會 金蛇年 主題 金蛇報喜，大過好年 用手機上知識+ .知識搜尋 ....知識+ 首頁> 電腦網路> 軟體> 商務應用 加入追蹤 轉寄朋友 友善列印 .知識問題|
Excel 一個 msgbox 顯示多個cell add. 發問者： bb ( 初學者 5 級)
發問時間： 2007-11-21 13:58:24
解決時間： 2007-11-24 00:02:20
解答贈點： 5 ( 共有 0 人贊助 )
回答： 1 評論： 0 意見： 0
[ 檢舉 ]
網友正面評價
89%
.共有 9 人評價.在 Excel VBA中，如何設定於一個 msgbox 內顯示多個 cell 的 address 及複製到指定的工作表中。
例如我設定工作表中若符合某一條件，msgbox 會顯示cell 的 address.
Private Sub check_cell()
Dim mycell As Range
irow = Range("A65536").End(xlUp).Row
For Each mycell In Range("A1:A" & irow)
If mycell.Value > 10 Then
iadd = mycell.Address
MsgBox iadd & ("符合條件")
Else
End If
Next mycell
End Sub
問題一
要是符合條件的儲存格多於一個，如何設定能讓 msgbox 一次過顯示所有符合條件的位址?
問題二
可否將符合條件的儲存格，整列複製到指定的工作表中?
有勞各位大大，在此先行說聲謝謝。 2007-11-22 13:19:20 補充
爬了幾天文章，還有幾點不明白，
S1=S1 & "A" & J & VBNEWLINE
1. 前面沒有宣告 S1, 為什麼 S1 能將所有符合條件的 cell name 存放在這裡?
S1="":K=0:i=0
2. 完全不明白當中 [ : ] 的意思, 是要清除所有變數嗎?
3.
2007-11-22 13:23:06 補充
3. 可以將整列複製嗎?
不過，問題是已經解決了，謝謝 Pop 大大
最佳解答發問者自選
.. 回答者： pop ( 專家 5 級 )
擅長領域： 商務應用 | VisualBasic
回答時間： 2007-11-21 14:39:14
[ 檢舉 ] .版主好:
Private Sub check_cell()
Dim i As long
i = Range("A65536").End(xlUp).Row
For J=1 TO i
If Range("A" & J).Value > 10 Then
S1=S1 & "A" & J & VBNEWLINE
K=K+1
'下句_
'指定工作表名稱_改回實際的工作表名稱
'Range("A"&K)__如果要放在B欄_A改B__以此類推
Sheets("指定工作表名稱").Range("A"&K)=Range("A" & J).Value
End If
Next
MsgBox S1& "以上計_" & K & "筆符合條件."
S1="":K=0:i=0
End Sub
希望有幫上忙
2007-11-22 13:54:22 補充
1.sorry! 前面沒有宣告 S1___ 請補上__dim s1 as string
當沒有宣告_則視為 variant
2. S1="":K=0:i=0
[ : ] 的意思__是銜接S1=""/K=0/i=0
S1=""__清除
2007-11-22 21:35:02 補充
整欄複製語法__
將A欄_複製到__SHEET2__的 D欄
Columns("A").Copy Sheets("SHEET2").Columns("D")
整列複製語法__
將第一列_複製到__SHEET2__的 第五列
Rows(1).Copy Sheets("SHEET2").Rows(5)
請自行試試_
相關詞：
next to you,next plane home,鋼彈vs鋼彈next plus,next level,next princess,next time,america's next top model,next to you歌詞,next week,next step
Next,Excel VBA,msgbox,Excel,Dim,address,符合,amp,Private,VBNEWLINE[ 快速連結 ] 其它回答( 0 ) | 意見( 0 ) | 評論( 0 )
.發問者評價 謝謝你！又學多了東西 .發表你的評價
你的評價 發表評價： 正面 普通 負面
評價內容： 發表 取消
.
加入追蹤 轉寄朋友 友善列印 .馬上按讚 加入 Yahoo! 奇摩 知識+ 粉絲團
•免費索取商英光碟+小書
•多益700分線上測驗題庫
•立即免費測試你的多益等級
•英文email超實用金句！
•測你在旁人眼中的英文力？
•多益700分線上測驗題庫
相關問答
[ 英文 ]_____next to the Chairman
.
[ 英文 ]next December是什麼意思?
.
[ 英文 ]next time
.
[ 英文 ]請問next time與the next time的差別
.
[ 英文 ]Next time you buy canned
.
[ 西洋音樂 ]Next 2 You Lyrics是誰唱的?
.
更多
.其他回答(0)
意見(0)
相關評論(0)
.目前沒有資料
目前沒有資料 發表意見發表意見字數已達上限，要改成發表評論嗎？. 發表 取消 .
目前沒有資料 我要評論 註冊
會員登入 .公告： 知識團員轉粉絲全數完成 .
HOT! 拍賣 | MacBook 無線網卡 雙核筆電 .
.刊登贊助網站•免費學Excel 就業一把罩
www.lccnet.com.tw
搶先索取免費Excel線上課程，聯成再提供熱門廠商媒合，一次找到好工作！
www.lccnet.com.tw
•松誼企管 - EXCEL
www.gpm.com.tw
二十一世紀最棒的發展訓練課程！激盪您的腦力，不再侷限於傳統無趣的訓練課程！
www.gpm.com.tw
•寶盛商務軟體 管理一把罩
www.lancer.com.tw
老闆們的首選！極高效率的企業管理，低成本、操作方便，隨時支援跨部門處理。
www.lancer.com.tw
•全新 Windows 8
www.microsoft.com
超快開機速度、電池效能再提升，搭配雲端整合服務，重要資訊隨身帶！
www.microsoft.com
•正航資訊-企業指定ERP系統
www.chi.com.tw
提昇營運績效，快速導入企業專用ERP！提供優質進銷存、薪資、MPS、MRP！
www.chi.com.tw
•POS系統-數碼動量
www.hotzsoft.com
國內專業POS系統廠商，超過8000家店家使用，應用範圍廣，歡迎洽詢。
www.hotzsoft.com.最新商務應用
發問中
已解決
.mac word 2008 直書橫書在哪？？？
產生出來的條碼為何不同?
依檔案編號類別不同之window排列問題
更多
EXCEL VBA篩選問題 Access資料匯入固定日期的Excel欄位 excel vba資料加總的寫法 EXCEL 統計字串中某特定字的總數量 excel問題 更多
精選關鍵字
..Excel 庫存表 PowerPoint 符號 vba 進銷存軟體 傳真 Visio Outlook Pdf 文書處理 OpenOffice 金融 簡報 Office 會計軟體 專案管理 Project 資料庫 客戶管理 財務 Access 庫存管理 Word Spss 試算表 方程式 進銷存
.知識搜尋 ...雅虎資訊 版權所有 (c) 2013 Yahoo! Taiwan. All Rights Reserved. 「本服務設有管理員」
服務條款隱私權政策..知識+ 之問答內容是由參與Yahoo!奇摩知識+ 之網友提供，僅供參考，Yahoo!奇摩不保證其正確性。
...
.
phibrainno6 發表在 痞客邦 留言(0) 人氣()
留言列表
