- ©«¤l
 - 132 
 - ¥DÃD
 - 56 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 190 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - Win10 
 - ³nÅ骩¥»
 - Office 365 
 - ¾\ŪÅv
 - 20 
 - ©Ê§O
 - ¨k 
 - µù¥U®É¶¡
 - 2012-5-17 
 - ³Ì«áµn¿ý
 - 2025-4-8 
 
  | 
                
¹L¥h²ßºD¨Ï¥Îexcel¤¤ªºVBA,²{¦b¦]¬G»Ýn¼gVB«oµo²{®t¦n¦h 
1. ¹ï¼Æ¹Bºâ¤lLog¤£¯àª½±µ¥Î? 
2. +-/*¹Bºâ²Å¸¹¤]¤£¯àª½±µ¥Î? 
½Ð°Ý¸Ó«ç»ò§ï¤~¦æ? 
 
Public Class Form1 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged 
        Dim p As Single 
        p = Val(TextBox1.Text) 
        TextBox2 = 10 * Log((p ^ 2) / 100) 
    End Sub 
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged 
        TextBox1 = 10 ^ (TextBox2 / 20) * 0.00002 
    End Sub 
End Class |   
 
 
 
 |