543
Lv 4
543 發問時間: 電腦與網際網路軟體 · 1 0 年前

excel巨集如何指定儲存格

我以下述方式找到了儲存格.....但如何能到往下第二列的儲存格呢

謝謝幫忙

K = InputBox("請輸入數字")

Range("F1").Select

Cells.Find(What:=K, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

, MatchByte:=False, SearchFormat:=True).Select

已更新項目:

謝謝JACKYLU

Cells.FindNext(After:=ActiveCell).Activate

可能有些誤會ActiveCell的值是我輸入的值 結果不會到預期的位置

輸入的值是要搜尋的值

找到以後要向下移2列

比方G1到L1為1到6

對話框輸入5則會指向K1

問題是要用何指令才能到K3

再麻煩了

2 個解答

評分
  • linda
    Lv 4
    1 0 年前
    最佳解答

    直接在後面加上

    n = Selection.Row() + 2

    m = Selection.Column()

    Cells(n, m).Select

    即可

  • 1 0 年前

    試試兩個方法:1.Cells.FindNext(After:=ActiveCell).Activate2.按F4就可以了~

    2006-09-20 10:21:00 補充:

    在您的程式下方加上此行即可:ActiveCell.Offset(rowOffset:=2, columnOffset:=0).Activate

    參考資料: 自己
還有問題?馬上發問,尋求解答。