返回列表下一主題上一主題發帖

[發問] sheet切換儲存格資料修改

ayubbs

小學生 Rank: 1

帖子: 31
主題: 10
精華: 0
積分: 45
點名: 0
作業系統: WinXP
軟體版本: OFFICE2007
閱讀權限: 10
性別: 女
註冊時間: 2013-8-2
最後登錄: 2016-12-9

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-12-20 01:04 | 只看該作者

[發問] sheet切換儲存格資料修改

各位大大好，使用vba下如進行sheet切換動作進行儲存格的公式套入
不需切至該sheet下即可完成，但某些動作如參照填滿動作就一定要
切換至該shhet下才可正常動作不然就會出現參照位置異常，像以下的
內容該如何實現不需切至該sheet下即可完成

Sheets("aa").Range("B2").Value = "=IF(R[-1]C[-1]<>RC[-1],1,R[-1]C+1)"
Sheets("aa").Select
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B" & [C2].End(xlDown).Row)

另以下把有填滿公式格式變成文字格式確不知道範圍內有多少資料格子用以下方式卻無效果

Sheets("工作表3").Range("F1" & [F1].End(xlDown).Row).Value = Sheets("工作表3").Range("F1" & [F1].End(xlDown).Row)
用以下方式才可實現是否有語法上那裡異常

Sheets("aa").Range("A1:A500").Value = Sheets("aa").Range("A1:A100").Value

另如要用 a.xls 資料寫入網路位置 \\b\c.xls 中以不開啟檔案方式可直接寫入
aa.xls.Sheets("aa").Range("A1:F1").Value = xxx 這種方式嗎?
路徑該如何加上
謝謝大家

樓主熱帖

請多多指教

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

2^#

發表於 2014-12-22 00:11 | 只看該作者

本帖最後由 luhpro 於 2014-12-22 00:21 編輯

各位大大好，使用vba下如進行sheet切換動作進行儲存格的公式套入
不需切至該sheet下即可完成，但某些動作如 ...
ayubbs 發表於 2014-12-20 01:04

1. 設定公式應該要用 .Formula , 底下這幾種都可以實現:

With Sheets("aa")
.[B2].Formula = "=IF(R[-1]C[-1]<>RC[-1],1,R[-1]C+1)"
.[B2].AutoFill Destination:=.Range("B2:B" & .[C2].End(xlDown).Row)
End With

複製代碼

With Sheets("aa")
.[B2].Formula = "=IF(R[-1]C[-1]<>RC[-1],1,R[-1]C+1)"
.[B2].AutoFill Destination:=.Range(.[B2], .Cells(.[C2].End(xlDown).Row, 2))
End With

複製代碼

With Sheets("aa").[B2]
.Formula = "=IF(R[-1]C[-1]<>RC[-1],1,R[-1]C+1)"
.AutoFill Destination:=Range(.Offset(0), .Parent.Cells(.Offset(, 1).End(xlDown).Row, 2))
End With

複製代碼

2. 你的公式發生錯誤的原因 : Range("F1" & [F1].End(xlDown).Row) 內,
引號中的字串要用 "F1:F2" 的格式,
你沒有 : 且後面 [F1].End(xlDown).Row 結果只是一個數字而非儲存格位址文字.
不過若直接修改你的程式成: