[發問] office365 excel 記錄數值

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

8^#

發表於 2019-2-22 11:45 | 只看該作者

回復 5# stillfish00

請問 stillfish00 大大

請問一下，大大有在使用 excel 365 嗎？
現在這個方法在同時開AB兩個活頁簿時，A活頁簿的vba會因為我在B活頁簿更改資料時而停止，不定時還會出現內容閃爍的狀況
所以變成B活頁簿只能看不能動，不然A活頁簿vba就會被影響
在研究的過程中，發現若再開C活頁簿時，又會出現偵錯的狀況，真的快被 excel 365版給搞瘋了
大大對excel 365熟嗎？現在不知道該如何改寫vba才好
希望大大能幫忙，謝謝。

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

7^#

發表於 2019-1-7 15:03 | 只看該作者

回復 5# stillfish00

非常謝謝stillfish00大大的幫忙，現在在Office365的excel檔，就沒有出現問題了，再次謝謝你。

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

6^#

發表於 2019-1-7 15:02 | 只看該作者

回復 4# mark15jill

謝謝你的回覆，我用了stillfish00大大的方法就OK了。

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

5^#

發表於 2019-1-4 16:48 | 只看該作者

回復 1# ahsiek
可以用 Thisworkbook 指定該巨集所在的活頁簿
With ThisWorkbook.Sheets(sSheetName)

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2019-1-4 15:04 | 只看該作者

謝謝大大的回覆：是指把With Sheets(sSheetName) 改成 With Sheets(b明細) 這樣對嗎？
ahsiek 發表於 2019-1-3 15:18

印象中，工作表開頭的就要用工作表 >>> 工作表()

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

3^#

發表於 2019-1-3 15:18 | 只看該作者

回復 ahsiek

sheets ... 工作表... 更改看看
mark15jill 發表於 2018-12-30 14:29

謝謝大大的回覆：

Function mainFunc2(sSheetName As String) As Long 'bb.明細工作表記錄部份
With Sheets(sSheetName)
i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(i, "A") = Format(Time, "Hh:Mm:Ss") 'ROW A，記錄時間
.Cells(i, "B").Resize(, 48).Value = .Cells(6, "B").Resize(, 48).Value 'B6-AW6複製到B7-AW7
End With
mainFunc2 = i '回傳當前列數
End Function

複製代碼

是指把With Sheets(sSheetName) 改成 With Sheets(b明細) 這樣對嗎？

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2018-12-30 14:29 | 只看該作者

回復 1# ahsiek

sheets ... 工作表... 更改看看

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然