- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 3
- ÂI¦W
- 0
- §@·~¨t²Î
- i7
- ³nÅ骩¥»
- 2021
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2024-1-30
- ³Ì«áµn¿ý
- 2024-1-31
|
[µo°Ý] ½Ð°Ý¬°¤°»òTextboxªº¦^¶ÇȳQ©wÃþ«¬?
§Ú¼g¤F»yªk¥h¦^¶ÇTextboxªº¤º®e¡A¦ý¬O¤£ª¾¹D¬°¤°»ò¥u¦³¿é¤J¯Â¼Æ¦r®É¤~·|¦^¶Ç¨ì«ü©wÄæ¦ì¡A¥un¦³§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 |
|