¥Þ¥¯¥í¥µ¥ó¥×¥ë
- ¤³¤Î¥Õ¥©¡¼¥é¥à¤Ë¿·µ¬¥È¥Ô¥Ã¥¯¤òÅê¹Æ¤Ç¤¤Þ¤¹
- ¤³¤Î¥Õ¥©¡¼¥é¥à¤Ç¤Ï¥²¥¹¥ÈÅê¹Æ¤¬µö²Ä¤µ¤ì¤Æ¤¤¤Þ¤¹
¥Þ¥¯¥í¥µ¥ó¥×¥ë
msg# 1
Á°¤ÎÅê¹Æ
-
¼¡¤ÎÅê¹Æ
|
¿ÆÅê¹Æ
-
»ÒÅê¹Æ¤Ê¤·
|
Åê¹ÆÆü»þ 2011-2-6 19:03
¥²¥¹¥È
Åê¹Æ¿ô: 0
Option Explicit
Private Sub CheckBox1_Click()
End Sub
Private Sub CheckBox2_Click()
End Sub
Private Sub CommandButton1_Click()
'Àë¸À
Dim CTL As Control
Dim CheckBox_Sum As Integer
Dim CheckBox_True_Flag As Boolean
Dim CheckBox_Flag() As Variant
Dim Siji_SH_NAME As Variant
Dim Gazou_SH_NAME As Variant
Dim OUT_SHT1() As Variant
Dim OUT_SHT2() As Variant
Dim i As Integer
Dim üò As Integer
Dim üó As Integer
'ÀßÄê
Siji_SH_NAME = Array(, "A", "B", "C", "D", "E", "F", "G")
Gazou_SH_NAME = Array(, "A1", "B1", "C1", "D1", "E1", "F1", "G1")
CheckBox_True_Flag = False
'¥Á¥§¥Ã¥¯¥Ü¥Ã¥¯¥¹Áí¿ôµÚ¤Ó¡¢¥Á¥§¥Ã¥¯Í̵³Îǧ
For Each CTL In Me.Controls
If TypeName(CTL) = "CheckBox" Then
CheckBox_Sum = CheckBox_Sum + 1
If CTL.Value = True Then
CheckBox_True_Flag = True
End If
End If
Next
'0·ïȽÄê
If CheckBox_True_Flag = False Then
MsgBox "¥Á¥§¥Ã¥¯¤¬1¤Ä¤â¤µ¤ì¤Æ¤ª¤ê¤Þ¤»¤ó¡£"
Exit Sub
End If
'ºÆÀë¸À
ReDim CheckBox_Flag(1 To CheckBox_Sum)
ReDim OUT_SHT1(1 To CheckBox_Sum)
ReDim OUT_SHT2(1 To CheckBox_Sum)
'¥¤¥ó¥Ç¥Ã¥¯¥¹¾ðÊó¤òÇÛÎó¤Ëµ²±
For Each CTL In Me.Controls
If CTL.Value = True Then
i = i + 1
CheckBox_Flag(i) = 1
End If
Next
'¥¤¥ó¥Ç¥Ã¥¯¥¹È½ÄêµÚ¤Ó¡¢¥·¡¼¥ÈÃê½Ð
For üò = 1 To CheckBox_Sum
If CheckBox_Flag(üò) = 1 Then
OUT_SHT1(üò) = Siji_SH_NAME(üò)
OUT_SHT2(üò) = Gazou_SH_NAME(üò)
End If
Next
'¥Ç¥Ð¥Ã¥¥ó¥°
For üó = 1 To CheckBox_Sum
If OUT_SHT1(üó) = "" Then
Else
Debug.Print OUT_SHT1(üó), OUT_SHT2(üó)
End If
Next
End Sub
Private Sub CommandButton2_Click()
Dim RETURN_MESSAGE As Long
RETURN_MESSAGE = MsgBox("½ªÎ»¤·¤Þ¤¹¤«¡©", vbYesNo + vbQuestion, "³Îǧ±þÅú")
If RETURN_MESSAGE = vbYes Then
MsgBox "½ªÎ»¤·¤Þ¤¹¡£"
Workbooks("°õºþ.xlsm").Close
ElseIf RETURN_MESSAGE = vbNo Then
MsgBox "½ªÎ»¤·¤Þ¤»¤ó¡£"
End If
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then
MsgBox "¡Ú¡ß¡ÛÈ´¤±¸·¶Ø¤À¡ª", vbOKOnly, "¡Ú¡ß¡ÛÈ´¤±¶Ø»ßÄÌÃÎ"
Cancel = True
End If
End Sub
Option Explicit
Private Sub Workbook_Open()
UserForm1.Show
End Sub
Private Sub CheckBox1_Click()
End Sub
Private Sub CheckBox2_Click()
End Sub
Private Sub CommandButton1_Click()
'Àë¸À
Dim CTL As Control
Dim CheckBox_Sum As Integer
Dim CheckBox_True_Flag As Boolean
Dim CheckBox_Flag() As Variant
Dim Siji_SH_NAME As Variant
Dim Gazou_SH_NAME As Variant
Dim OUT_SHT1() As Variant
Dim OUT_SHT2() As Variant
Dim i As Integer
Dim üò As Integer
Dim üó As Integer
'ÀßÄê
Siji_SH_NAME = Array(, "A", "B", "C", "D", "E", "F", "G")
Gazou_SH_NAME = Array(, "A1", "B1", "C1", "D1", "E1", "F1", "G1")
CheckBox_True_Flag = False
'¥Á¥§¥Ã¥¯¥Ü¥Ã¥¯¥¹Áí¿ôµÚ¤Ó¡¢¥Á¥§¥Ã¥¯Í̵³Îǧ
For Each CTL In Me.Controls
If TypeName(CTL) = "CheckBox" Then
CheckBox_Sum = CheckBox_Sum + 1
If CTL.Value = True Then
CheckBox_True_Flag = True
End If
End If
Next
'0·ïȽÄê
If CheckBox_True_Flag = False Then
MsgBox "¥Á¥§¥Ã¥¯¤¬1¤Ä¤â¤µ¤ì¤Æ¤ª¤ê¤Þ¤»¤ó¡£"
Exit Sub
End If
'ºÆÀë¸À
ReDim CheckBox_Flag(1 To CheckBox_Sum)
ReDim OUT_SHT1(1 To CheckBox_Sum)
ReDim OUT_SHT2(1 To CheckBox_Sum)
'¥¤¥ó¥Ç¥Ã¥¯¥¹¾ðÊó¤òÇÛÎó¤Ëµ²±
For Each CTL In Me.Controls
If CTL.Value = True Then
i = i + 1
CheckBox_Flag(i) = 1
End If
Next
'¥¤¥ó¥Ç¥Ã¥¯¥¹È½ÄêµÚ¤Ó¡¢¥·¡¼¥ÈÃê½Ð
For üò = 1 To CheckBox_Sum
If CheckBox_Flag(üò) = 1 Then
OUT_SHT1(üò) = Siji_SH_NAME(üò)
OUT_SHT2(üò) = Gazou_SH_NAME(üò)
End If
Next
'¥Ç¥Ð¥Ã¥¥ó¥°
For üó = 1 To CheckBox_Sum
If OUT_SHT1(üó) = "" Then
Else
Debug.Print OUT_SHT1(üó), OUT_SHT2(üó)
End If
Next
End Sub
Private Sub CommandButton2_Click()
Dim RETURN_MESSAGE As Long
RETURN_MESSAGE = MsgBox("½ªÎ»¤·¤Þ¤¹¤«¡©", vbYesNo + vbQuestion, "³Îǧ±þÅú")
If RETURN_MESSAGE = vbYes Then
MsgBox "½ªÎ»¤·¤Þ¤¹¡£"
Workbooks("°õºþ.xlsm").Close
ElseIf RETURN_MESSAGE = vbNo Then
MsgBox "½ªÎ»¤·¤Þ¤»¤ó¡£"
End If
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then
MsgBox "¡Ú¡ß¡ÛÈ´¤±¸·¶Ø¤À¡ª", vbOKOnly, "¡Ú¡ß¡ÛÈ´¤±¶Ø»ßÄÌÃÎ"
Cancel = True
End If
End Sub
Option Explicit
Private Sub Workbook_Open()
UserForm1.Show
End Sub
Åêɼ¿ô:119
Ê¿¶ÑÅÀ:7.23
ÊÖ¿®¤¹¤ë