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

[µo°Ý] Checkbox±a¤JÀx¦s®æ¬°Â²½X

[µo°Ý] Checkbox±a¤JÀx¦s®æ¬°Â²½X

¤j¤j¦n¡G

³Ìªñ¹J¨ì»Ý­n¤Ä¿ïªºªí³æ¡A»s°µ¤W¹J¨ì¤F§xÃø¡A

1.¦p¦ó±a¤J¤u§@ªí
2.±a¤J¤u§@ªí¬°Â²½X

²³æªº½d¥»½Ð°Ñ¦Òªþ¥ó¡AÁÂÁ¡C

¯à.rar (22.84 KB)

¦^´_ 1# lifedidi


    ³æ¿ïªº±¡ªp¥ÎOPTIONBUTTON·|¤ñ¸û¦n.

  1. Private Sub CommandButton1_Click()
  2.     Call subCall(TextBox1, TextBox2, TextBox3, 1, 7, "¤@")
  3.     Call subCall(TextBox4, TextBox5, TextBox6, 11, 17, "¤G")
  4.     Call subCall(TextBox7, TextBox8, TextBox9, 21, 27, "¤T")
  5. End Sub

  6. Sub subCall(TB1 As msforms.TextBox, TB2 As msforms.TextBox, TB3 As msforms.TextBox, CBFROM1 As Integer, CBFROM2 As Integer, Rec As String)

  7.     Dim strCode, i
  8.    
  9.     If TB1.Value = "" Then
  10.         MsgBox "µL¸ê®Æ"
  11.     Else

  12.         Set A = Sheet1.[a65536].End(xlUp).Offset(1, 0)
  13.         strCode = ""
  14.         For i = CBFROM1 To CBFROM2
  15.             With Me.Controls("Opt" & Trim(Str(i)))
  16.                 If .Value Then
  17.                     strCode = Application.WorksheetFunction.VLookup(.Caption, Sheet2.Range("A1:B8"), 2, False)
  18.                 End If
  19.             End With
  20.         Next
  21.         A.Resize(, 4).Value = Array(TB1, TB2, TB3, strCode)
  22.         MsgBox "²Ä" & Rec & "µ§¸ê®Æ«Ø¥ß¦¨¥\¡I", vbOKOnly, "¦¨¥\"
  23.     End If

  24. End Sub
½Æ»s¥N½X

twbts20130517formcontrols.zip (26.94 KB)

À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¤Ó´Î¤F¡IÁÂÁª©¥Dkimbal¤j¤j¡I
¤@¦¸´N¸Ñ¨M°ÝÃD¡IÁÂÁ¡I

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD