none
為何excel的activeX按鈕在執行時須要連續按二下才會有動作? RRS feed

  • 問題

  • 我是excel 365版本(win10),所以目前是2019版本

    但我設定好activeX按鈕後,發現每次執行它時都須要連按二下

    但奇怪的是同樣檔案在別台電腦只須按一下

    (我所有excel檔案的activeX button都須要按二下才有反應)

    請問這是我筆電的excel設定動到了?

    還是什麼原因嗎?  365版本也有差嗎?

    (ps.游標在任何位置都一樣)

    Private Sub CommandButton1_Click()
    
        Dim money() As Variant          
        money = Range("B2:E4").Value    
        Dim total(1 To 3) As Long       
        Dim sum As Long
    
        For r = LBound(money, 1) To UBound(money, 1)
            sum = 0        
            For c = LBound(money, 2) To UBound(money, 2)
                sum = sum + money(r, c)
            Next
            total(r) = sum 
        Next
        Range("F2:F4").Value = WorksheetFunction.Transpose(total)
    
        
        Dim sum1 As Long
        Dim total1(1 To 4) As Long
        
        For c = LBound(money, 2) To UBound(money, 2)
               sum1 = 0
            For r = LBound(money, 1) To UBound(money, 1)
                sum1 = sum1 + money(r, c)
            Next
            total1(c) = sum1
        Next
        Range("B5:F5").FormulaArray = total1
    
    End Sub

    謝謝

    2019年11月9日 上午 11:23

所有回覆

  • 在 Answers 那邊有問你檢查 Focus ,你可能會錯意,先參考下面網址:

    https://docs.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/setfocus-method

    有些軟體會搶 Focus ,你只有在少數電腦會發生,有可能 Focus 被別的軟體搶,才需要按兩下。

    如果是這樣,滑鼠

    第一下應該是 OnFocus

    第二下才是 OnClick


    不精確的問法,就會得到隨便猜的答案;自己都不肯花時間好好描述問題,又何必期望網友會認真回答?

    2019年11月9日 下午 03:18
  • 感謝您再次協助回覆我

    其實我有儘力瞄述了,只是我真的不懂focus的意思

    坦白說我才剛學VBA,不過我會再google您指導的方式來了解一下是不是focus的問題

    感謝感謝

    2019年11月10日 上午 12:54
  • 你按按鈕之前,如果按鈕外側有虛線框,那表示視焦 (Focus) 在該按鈕上。

    視焦在同一視窗下,可以直接點按鈕,在不同視窗上,第一次 click 視焦會切換到這個視窗,第二次 click 才會觸發按鈕。

    可以測試先點選視窗標題,再點選按鈕,是不是按鈕就只需要點一次,是的話,就查視焦在哪。


    不精確的問法,就會得到隨便猜的答案;自己都不肯花時間好好描述問題,又何必期望網友會認真回答?

    2019年11月11日 下午 02:56