※ 引述《Catbert (宅男)》之銘言:
: ※ 引述《zesy (認識新朋友!!)》之銘言:
: : Sub gg()
: : Dim x As Integer
: : If Worksheets("sheet2").Range("A1").Value >= 1 Then
: : x = Worksheets("sheet2").Range("A1").Value
: : Worksheets("SHEET1").Range(Cells(x, 2), Cells(x, 7)).ClearContents
試試將worksheets前面加入明確的指定試試看
: 上面那列改成
: Worksheets("SHEET1").Range(Cells(x, 2).address, Cells(x, 7).address).ClearContents
: : End If
: : End Sub
: : 這是我寫的程式碼
: : 寫在同一個sheet沒問題,但不同sheet時就出現問題
: : 請問是問題出在哪?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 175.181.233.50