標題: 新盈再表180819:中股不必翻牆bug
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

118.169.166.114
發表於 2018-5-4 07:34  資料 主頁 文集 私人訊息 
沒錯,(2016常利-2016特別股息)/2015淨值(即2016期初淨值)
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

118.169.166.114
發表於 2018-5-4 07:45  資料 主頁 文集 私人訊息 
請問同學,如何鎖定Excel公式,但可更改內容?謝謝
頂部
吹得
同學




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

163.23.154.107
發表於 2018-5-4 08:38  資料 私人訊息 
https://kknews.cc/zh-tw/news/9pyal8.html

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

[ 本帖最後由 吹得 於 2018-5-4 08:39 編輯 ]
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

118.169.166.114
發表於 2018-5-4 08:41  資料 主頁 文集 私人訊息 
這些都不僅鎖定公式,連內容也不能更改
頂部
ted_17
同學




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

96.42.68.4
發表於 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
管理員
Rank: 9Rank: 9Rank: 9


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

118.169.166.114
發表於 2018-5-4 08:46  資料 主頁 文集 私人訊息 
公式鎖定,可以看到公式,非隱藏,但格子的值可更動,
如此才能跑盈再表
頂部
吹得
同學




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

163.23.154.107
發表於 2018-5-4 08:50  資料 私人訊息 
文末說:以後如果自己要重新更改公式,就「撤銷工作表保護」就可以。

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





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

頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

118.169.166.114
發表於 2018-5-4 09:08  資料 主頁 文集 私人訊息 
試過可行再貼上來
頂部
ted_17
同學




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

96.42.68.4
發表於 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
管理員
Rank: 9Rank: 9Rank: 9


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

118.169.166.114
發表於 2018-5-4 10:35  資料 主頁 文集 私人訊息 
鎖定公式不是寫在程式裡,盈再表一張表有逾百格設有公式哩
這麼簡單的動作好像沒人會?google過也沒人會
鎖定公式,但可更動內容

頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

118.169.165.104
發表於 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
管理員
Rank: 9Rank: 9Rank: 9


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

118.169.165.104
發表於 2018-5-13 15:17  資料 主頁 文集 私人訊息 
修改bug
謝謝Alex吳桑教導
請下載新盈再表180514
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

118.169.165.104
發表於 2018-5-13 21:35  資料 主頁 文集 私人訊息 
修改bug
請下載新盈再表180515
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

118.169.165.104
發表於 2018-5-13 21:36  資料 主頁 文集 私人訊息 
一個小問題一直困擾我,
跑美股至7/9時因抓表時間過久致螢幕出現反白,
請問有無改善方法,謝謝
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

118.169.165.104
發表於 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 機器的效能
頂部