新盈再表181120：中股bug

巴菲特班洪瑞泰 (Michael On) » 討論區1 » 新盈再表181120：中股bug

1 ‹ 上一頁… 77 78 79 80 81 82 83 84 85 86 …下一頁 › 136

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6324
用戶失蹤天數 10

118.169.166.114

#1171

發表於 2018-5-4 07:34 資料主頁文集私人訊息

沒錯，(2016常利-2016特別股息)/2015淨值(即2016期初淨值）

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6324
用戶失蹤天數 10

118.169.166.114

#1172

發表於 2018-5-4 07:45 資料主頁文集私人訊息

請問同學，如何鎖定Excel公式，但可更改內容？謝謝

吹得

同學

UID 69157
精華 0
積分 0
帖子 236
閱讀權限 99
註冊 2017-8-8
用戶註冊天數 2465
用戶失蹤天數 430

163.23.154.107

#1173

發表於 2018-5-4 08:38 資料私人訊息

https://kknews.cc/zh-tw/news/9pyal8.html

本文結束後，下方與右方還有相關內容

[ 本帖最後由吹得於 2018-5-4 08:39 編輯 ]

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6324
用戶失蹤天數 10

118.169.166.114

#1174

發表於 2018-5-4 08:41 資料主頁文集私人訊息

這些都不僅鎖定公式，連內容也不能更改

ted_17

同學

UID 67507
精華 0
積分 0
帖子 81
閱讀權限 99
註冊 2017-3-27
用戶註冊天數 2598
用戶失蹤天數 1579

96.42.68.4

#1175

發表於 2018-5-4 08:43 資料私人訊息

Mike晚安：請問'

QUOTE:

如何鎖定Excel公式，但可更改內容？

'指的內容什麼意思？
請問是數值還是處存格?
如果只是將公式隱藏，將其置於幕後，
可在VBA裡使用。舉例：將H3的平均公式隱藏

SubA()
Sheets("Sheet1").Select
Range("H3").Value = "=Average(C3:C7)"
End Sub
請問有解決Mike的需求嗎?
感謝。
祝好。
Ted

Edit: Font size.

[ 本帖最後由 ted_17 於 2018-5-4 08:52 編輯 ]

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6324
用戶失蹤天數 10

118.169.166.114

#1176

發表於 2018-5-4 08:46 資料主頁文集私人訊息

公式鎖定，可以看到公式，非隱藏，但格子的值可更動，
如此才能跑盈再表

吹得

同學

UID 69157
精華 0
積分 0
帖子 236
閱讀權限 99
註冊 2017-8-8
用戶註冊天數 2465
用戶失蹤天數 430

163.23.154.107

#1177

發表於 2018-5-4 08:50 資料私人訊息

文末說：以後如果自己要重新更改公式，就「撤銷工作表保護」就可以。

原文網址：https://read01.com/mOnxm.html

但不知能否順利跑盈再表?

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6324
用戶失蹤天數 10

118.169.166.114

#1178

發表於 2018-5-4 09:08 資料主頁文集私人訊息

試過可行再貼上來

ted_17

同學

UID 67507
精華 0
積分 0
帖子 81
閱讀權限 99
註冊 2017-3-27
用戶註冊天數 2598
用戶失蹤天數 1579

96.42.68.4

#1179

發表於 2018-5-4 10:28 資料私人訊息

Mike晚安：請試試這個，看看這個概念有沒有對?
使用前請在A1儲存格輸入任一數字。
我還不會使用儲存格的改變觸發VBA程式。
Sub A()
Dim term1 As Double
Dim term2 As Double
'設置term2 為可以儲存12有效位數/數字(? significant digit, 中文不太知道)的數字
Dim term3 As String
'設置term3為string (中文叫什麼我就不知道了)

Range("A1").NumberFormat = "General"
'設置A1儲存格格式為一般
term1 = Range("A1").Value 'set value of A1 to be term1 value
term2 = term1 * 3 + 1
'運算式
Range("A1").Value = term2
'將term2數值回歸A1
term3 = """A1 * 3 + 1"""
Range("A1").NumberFormatLocal = term3
'.numberformatlocal需要三個

QUOTE:

在文字的兩邊才會將它視為特殊標題

End Sub

感謝。
祝好。
Ted

Edit: font size.請問為什麼字體大小會自己變?

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6324
用戶失蹤天數 10

118.169.166.114

#1180

發表於 2018-5-4 10:35 資料主頁文集私人訊息

鎖定公式不是寫在程式裡，盈再表一張表有逾百格設有公式哩
這麼簡單的動作好像沒人會？google過也沒人會
鎖定公式，但可更動內容

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6324
用戶失蹤天數 10

118.169.165.104

#1181

發表於 2018-5-13 13:13 資料主頁文集私人訊息

保護公式
謝謝Alex吳桑教導
請下載新盈再表180513

Wu Alex  於 2018年5月12日下午11:27 寫道：

Hi Mike,

About locking cells which have formula, please refer to below method.

If you don’t need it any more, please ignore this email.

1.    Create Public Sub for Protect and Unprotect Sub in 公用module first.

Sub ProtectSheet(mysheet As Worksheet)

      On Error Resume Next
      Dim cell As Range

      For Each cell In mysheet.Range("a1:dz1000") a you can change ranges if the range is too small or wide.

         If cell.HasFormula Then cell.Locked = True

   Next cell

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6324
用戶失蹤天數 10

118.169.165.104

#1182

發表於 2018-5-13 15:17 資料主頁文集私人訊息

修改bug
謝謝Alex吳桑教導
請下載新盈再表180514

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6324
用戶失蹤天數 10

118.169.165.104

#1183

發表於 2018-5-13 21:35 資料主頁文集私人訊息

修改bug
請下載新盈再表180515

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6324
用戶失蹤天數 10

118.169.165.104

#1184

發表於 2018-5-13 21:36 資料主頁文集私人訊息

一個小問題一直困擾我，
跑美股至7/9時因抓表時間過久致螢幕出現反白，
請問有無改善方法，謝謝

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6324
用戶失蹤天數 10

118.169.165.104

#1185

發表於 2018-5-14 03:57 資料主頁文集私人訊息

Wu Alex 於 2018年5月13日下午11:31 寫道：

Hi Mike,

1.    https://www.bloomberg.com/quote/KO:US 整頁載入的時間會比較久, 可以用IE or Chrome開啟此頁,就可以看出來.

2.    原本的寫法係要載入整個網頁, 故需花一些時間, 再加上每台機器的系統資源不同, 如果CPU/Memory接近滿載時, 就容易發生反白情形.

3.    修改用MSXXML2.XMLHTTP方式來抓這一頁, 縮短load此頁的時間, 但仍有些許機會會反白, depends on 機器的效能

1 ‹ 上一頁… 77 78 79 80 81 82 83 84 85 86 …下一頁 › 136