¥¨¥¯¥»¥ë¡ÊExcel¡Ë&¥ï¡¼¥É¡ÊWord¡Ë¼ÁÌä·Ç¼¨ÈÄ

¤è¤ê¸«¤ä¤¹¤¯»È¤¤¤ä¤¹¤¤¥¨¥¯¥»¥ë·Ç¼¨ÈĤòÌܻؤ·¡¢¿·¤¿¤Ë¥¨¥¯¥»¥ë¤Î¼ÁÌä·Ç¼¨ÈĤò³«Àߤ¤¤¿¤·¤Þ¤·¤¿¡£ ¤³¤ì¤Ëȼ¤¤¡¢Åö¥µ¥¤¥È¤Ç¤Ïº£¸å¡¢¿·µ¬Åê¹Æ¤Ï¤Ç¤­¤Ê¤¯¤Ê¤ê¤Þ¤¹¡£¡Ê±ÜÍ÷¤ÏÅöÌ̲Äǽ¤Ç¤¹¡£¡Ë
º£¸å¤Ï¿··Ç¼¨ÈĤò¤´ÍøÍѤ¤¤¿¤À¤­¤Þ¤¹¤è¤¦µ¹¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£º£¸å¤È¤â¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£
¡û¿··Ç¼¨ÈÄ
¡¦¥¨¥¯¥»¥ë¡ÊExcel¡Ë²ò·è·Ç¼¨ÈÄ

¥¨¥¯¥»¥ë¡¦¥ï¡¼¥É¤Î´ðËÜÁàºî¤Ë´Ø¤¹¤ë¼ÁÌä¤ä´Ø¿ô¤ä¥Þ¥¯¥í¤Î»È¤¤Êý¤Ê¤É¥¨¥¯¥»¥ë¤È¥ï¡¼¥É¤Ë´Ø¤¹¤ë¼ÁÌä·Ç¼¨ÈÄ¡£
Welcome Guest 
¥á¥¤¥ó¥á¥Ë¥å¡¼
¥í¥°¥¤¥ó
¥æ¡¼¥¶¡¼Ì¾:

¥Ñ¥¹¥ï¡¼¥É:


¥Ñ¥¹¥ï¡¼¥Éʶ¼º

¥Þ¥¯¥í¥µ¥ó¥×¥ë

Á°¤ÎÅê¹Æ - ¼¡¤ÎÅê¹Æ | ¿ÆÅê¹Æ - »ÒÅê¹Æ¤Ê¤· | Åê¹ÆÆü»þ 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
Åêɼ¿ô:119 Ê¿¶ÑÅÀ:7.23
ÊÖ¿®¤¹¤ë

¤³¤Î¥È¥Ô¥Ã¥¯¤ËÅê¹Æ¤¹¤ë

Âê̾
¥²¥¹¥È̾   :
Åê¹ÆËÜʸ

  ¾ò·ï¸¡º÷¤Ø


¥¹¥Ý¥ó¥µ¡¼¥ê¥ó¥¯
¥¹¥Ý¥ó¥µ¡¼¥ê¥ó¥¯
¥¨¥¯¥»¥ë¡¦¥ï¡¼¥É¼ÁÌä/²óÅú½¸ - ¥¯¥¤¥º¡¦ÌäÂêQUUS¡ª - ̵ÎÁ±Ñ¸ì³Ø½¬ - Åê»ñ²È¡¦¥È¥ì¡¼¥À¡¼·Ç¼¨ÈÇ
°ÙÂØ(FX)¥Æ¥¯¥Ë¥«¥ëʬÀÏÆþÌç - ¥¨¥¯¥»¥ë(EXCEL)³Ø½¬¡¦ÆþÌç - Word(¥ï¡¼¥É)¤Î»È¤¤Êý/³èÍÑ¡¦ÆþÌç
Copy right(c) 2006-2010 ¥¨¥¯¥»¥ë¡õ¥ï¡¼¥É¼ÁÌä·Ç¼¨ÈÄ all right reserved