看板 Visual_Basic 關於我們 聯絡資訊
※ 引述《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