ボタンでVBA関数を実行する

Question

ファイルサイズを返すVBA関数を定義しました。これで、別のマクロを呼び出すボタンで呼び出すようになりました。私の期待は、マクロを実行した後、私の機能を最後に呼び出すということです。私の問題は、セルに式を入れると、式を入力する瞬間に現在のファイルサイズが返されるということです。ファイルを編集して保存し直しても、編集前のファイルサイズは= wbksize（）に表示されます。

ボタンで実行されるこのマクロの目的は、ファイルサイズの値を更新することです。ここでそれをやろうとしています。

機能：

Function wbksize() 
    myWbk = Application.ThisWorkbook.FullName 
    wbksize = FileLen(myWbk) 
End Function 

リフレッシュ：

Worksheets("Sheet2").Range("K1").Calculate 

上記動作していないよう：/

Answer 1

機能は正常に機能しますが、機能を呼び出すときにはリフレッシュする必要があります。

Function wbksize() As String 
    myWbk = Application.ThisWorkbook.FullName 
    wbksize = Str(FileLen(myWbk)) 
End Function 
Sub Refresh() 
    Worksheets("Sheet2").Range("K1") = wbksize 
End Sub 

Answer 2

これは、またはあなたの状況であなたを助けていない場合があります.... LINK

これをExcelで使用する必要はありませんでしたが、あなたは何かが計算されるたびにそれらを実行するように強制する「VOLATILE」としてカスタム関数を設定することができます。これを使う必要は一度もありませんので、私は何かの欠点や何かにコメントすることはできません。

Answer 3

私はこれをテストしましたが、どちらも正常です。これは、トリガーをどのようにするかによって異なります。ワークシートの変更、またはワークシートの計算の実行。

いずれかをワークシートに挿入します。最初はCalculateでトリガされ、2番目はChangeでトリガされます。

Private Sub Worksheet_Calculate() 
Dim lFileLength As Long 
    Application.EnableEvents = False 'to prevent endless loop 
    lFileLength = FileLen("\\MyFile\Path\AndName.XLS.XLS") 
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value = CStr(lFileLength) 
    MsgBox "You changed THE CELL!" 
    Application.EnableEvents = True 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim lFileLength As Long 
    Application.EnableEvents = False 'to prevent endless loop 
    lFileLength = FileLen("\\MyFile\Path\AndName.XLS") 
    ThisWorkbook.Sheets("Sheet1").Range("B1").Value = CStr(lFileLength) 
    MsgBox "You changed THE CELL!" 
    Application.EnableEvents = True 
End Sub