[µo°Ý] ½Ð°Ý¬°¤°»òTextboxªº¦^¶Ç­È³Q­­©wÃþ«¬?

sy091649

§Ú¼g¤F»yªk¥h¦^¶ÇTextboxªº¤º®e¡A¦ý¬O¤£ª¾¹D¬°¤°»ò¥u¦³¿é¤J¯Â¼Æ¦r®É¤~·|¦^¶Ç¨ì«ü©wÄæ¦ì¡A¥u­n¦³§t¬A­^¤å©ÎªÌªÅ®æ³£µLªk¦^¶Ç¡F
¥H¤U¬O§Ú­Ì»yªk¡A¦A³Â·Ð¤j®a¤F¡C
Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
        
mybook = ActiveWorkbook.Name
mysheet = ActiveSheet.Name

Dim i As Integer
Dim a As Integer

For i = 1 To 3

If Controls("TextBox" & i).Value = True Then

Worksheets("HIDE - Message").Activate

    For a = 1 To 1000
   
    If Cells(1 + a, 3) = Worksheets("water program").Cells(36 + i, 2).Value Then
   
    Cells(1 + a, 7) = Controls("Textbox" & i).Text
   
   
    Exit For
    End If
    Next a

End If

Next i
   
Application.ScreenUpdating = True
Worksheets(mysheet).Activate

Unload Me

End Sub

Andy2483

¦^´_ 1# sy091649


    ÁÂÁ«e½úµoªí¦¹¥DÃD
½Ð±N If Controls("TextBox" & i).Value = True Then  ­×§ï¬°§PÂ_¦r¼Æ,´À´«¥H¤U¥N½X¸Õ¸Õ¬Ý
If Len(Controls("TextBox" & i).Value) >0 Then

sy091649

·PÁ¸ѵª¡A³o­Ó¤èªkªº½T¦³¥Î¡FÁÂÁÂ!!!!!!