ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBªº¹Bºâ²Å¸¹

[µo°Ý] VBªº¹Bºâ²Å¸¹

¹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

¦^´_ 2# bsy4life

ÁÙ¬O¥X²{¿ù»~°T®§

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD