線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2240
推到 Plurk!
推到 Facebook!

excel vba 是否有可以判斷,最下筆的資料在哪?

缺席
bcshahuo
一般會員


發表:28
回覆:28
積分:11
註冊:2005-01-25

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-09-25 23:59:33 IP:114.32.xxx.xxx 訂閱
各位大大:
我現在遇到的問題是,我要在excel 裡。把資料一行一行的寫進去~~ 例如
第一行 1 2 3
第二行 4 5 7
第三行 7 8 9

再一次寫 入 就從第四行開始寫。
但是問題來了~~。
我該如何判斷~~ 資料已經到了第三行了~~。 excel本身有這種功能嗎?

老大仔
尊榮會員


發表:78
回覆:837
積分:1088
註冊:2006-07-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-09-26 08:47:31 IP:59.120.xxx.xxx 未訂閱
以下這篇文章應該對你有所幫助

delphi.ktop.com.tw/board.php


===================引 用 bcshahuo 文 章===================
各位大大:
我現在遇到的問題是,我要在excel 裡。把資料一行一行的寫進去~~ 例如
第一行 1 2 3
第二行 4 5 7
第三行 7 8 9

再一次寫 入 就從第四行開始寫。
但是問題來了~~。
我該如何判斷~~ 資料已經到了第三行了~~。 excel本身有這種功能嗎?

wscken
初階會員


發表:28
回覆:75
積分:45
註冊:2003-08-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-09-28 10:07:31 IP:203.66.xxx.xxx 訂閱

如果是要依照某一個欄位尋找的話,可以使用。
[code delphi]
excelSheet.Cells[iX, iY].End[xlDown].Row;
excelSheet.Cells[iX, iY].End[xlToRight].Column;
[/code]

或是直接使用:
[code delphi]
vExcel.Workbooks[vWorkBook.Name].WorkSheets[vSheet.Index].select ;
vExcel.Workbooks[vWorkBook.Name].WorkSheets[vSheet.Index];
vSheet.Cells.SpecialCells(11, EmptyParam).Activate;

//這個數字
vExcel.ActiveCell.Row ;
vExcel.ActiveCell.Column ;

[/code]
bcshahuo
一般會員


發表:28
回覆:28
積分:11
註冊:2005-01-25

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-09-29 18:50:47 IP:114.32.xxx.xxx 訂閱
各位大大。歹勢,

不是要以"某個範圍"做選取,而是要以"整個工作表",來判斷 最下筆在哪個位置。不知道是否有這種功能。謝謝。
老大仔
尊榮會員


發表:78
回覆:837
積分:1088
註冊:2006-07-06

發送簡訊給我
#5 引用回覆 回覆 發表時間:2011-10-06 13:39:37 IP:59.120.xxx.xxx 未訂閱
我給的連結您看了嗎?

===================引 用 bcshahuo 文 章===================
各位大大。歹勢,

不是要以"某個範圍"做選取,而是要以"整個工作表",來判斷 最下筆在哪個位置。不知道是否有這種功能。謝謝。
wscken
初階會員


發表:28
回覆:75
積分:45
註冊:2003-08-05

發送簡訊給我
#6 引用回覆 回覆 發表時間:2011-10-06 23:15:57 IP:118.160.xxx.xxx 訂閱
這樣得到數字,不是就可以直接拿去跑迴圈,不需要每行判斷是不是空白,
這不就是整個工作表了嗎?

===================引 用 wscken 文 章===================


[code delphi]
vExcel.Workbooks[vWorkBook.Name].WorkSheets[vSheet.Index].select ;
vExcel.Workbooks[vWorkBook.Name].WorkSheets[vSheet.Index];
vSheet.Cells.SpecialCells(11, EmptyParam).Activate;

//這個數字
vExcel.ActiveCell.Row ;
vExcel.ActiveCell.Column ;

[/code]
pprayer
高階會員


發表:35
回覆:185
積分:174
註冊:2002-03-13

發送簡訊給我
#7 引用回覆 回覆 發表時間:2011-10-14 20:05:53 IP:114.32.xxx.xxx 訂閱
WorkSheet.UsedRange.Rows.Count

===================引 用 bcshahuo 文 章===================
各位大大:
我現在遇到的問題是,我要在excel 裡。把資料一行一行的寫進去~~ 例如
第一行 1 2 3
第二行 4 5 7
第三行 7 8 9

再一次寫 入 就從第四行開始寫。
但是問題來了~~。
我該如何判斷~~ 資料已經到了第三行了~~。 excel本身有這種功能嗎?

系統時間:2024-04-26 11:32:03
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!