¥»©«³Ì«á¥Ñ fei6999 ©ó 2011-3-11 16:02 ½s¿è
MultiPage.rar (10.9 KB)
½Ð±Ð°ª¤â
µ{¦¡¦p¤U¦]MultiPage»yªk¤£À´
¦p¦ó¨ÏPage1,2,3°õ¦æ®É¤£¤¬¬Û¤zÂZ¦³¿ù½Ð«ü¥¿
°õ¦æ¨ìIf MultiPage2.Value = True Then®É·|¤¤Â_¥X²{¿ù»~°T®§!
Private Sub CommandButton1_Click()
Dim gj As Variant
Dim kj As Long
ActiveSheet.Unprotect
If MultiPage1.Value = True Then
MsgBox 1
gj = TextBox1
If gj > 35 Or gj < 1 Then Unload Me: MsgBox "Äæ¦ì¶W¥X½d³ò": Exit Sub
If TextBox3 > 0 Then
'¥¼§¹¦¨
' Cells(gj + 7, 2) = Range("d3")
' Cells(gj + 7, 4) = "=$d$3"
End If
End If
'*********´î¸ê*******************
If MultiPage2.Value = True Then
MsgBox 2
'¥¼§¹¦¨
If TextBox2 >= 100 Then Unload Me: MsgBox "¤ñ¨Ò¤j©ó100": Exit Sub
kj = Cells(gj + 7, 8)
If kj = 0 Then Unload Me: MsgBox "²Ä" & gj & "µ§µL¸ê®Æ": Exit Sub
If TextBox2 > 0 Then
Cells(gj + 7, 8) = Int(kj * (1 - (TextBox2 / 100)))
Cells(gj + 7, 10) = Round((Cells(gj + 7, 15) - Cells(gj + 7, 22)) / Cells(gj + 7, 8), 2)
End If
End If
'**PAEG3***********
If MultiPage3.Value = True Then
MsgBox 3
If CheckBox1 = True Then
For gj = 1 To 35
If Cells(gj + 7, 15) = "" Then
MsgBox gj
If gi > 35 Then Exit Sub
Else
If OptionButton1 = True Then
Cells(gj + 7, 15) = Cells(gj + 7, 15) + Cells(gj + 7, 11) + Cells(gj + 7, 21)
Cells(gj + 7, 11) = ""
Cells(gj + 7, 9) = "²{"
End If
If OptionButton2 = True Then
h = Cells(gj + 7, 21)
Cells(gj + 7, 11) = Cells(gj + 7, 11) - TextBox5
c = Cells(gj + 7, 21)
Cells(gj + 7, 15) = Cells(gj + 7, 15) + TextBox5 + h - c
End If
End If
Next
If gi > 35 Then Exit Sub
End If 'CheckBox1
End If
'**********************************************
Unload Me
ActiveSheet.Protect
End Sub |