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

[µo°Ý] ¾lÃB+textbox®æ¦¡

®@~¦³ÂI¤F¸Ñ¤F¡I
©Ò¥HÁÙ¬O­n·Ó¤j¤jªº¤è¦¡¥hRUN¤~¥¿½T¡A
¥i¬O¤j¤j¥i¥Hµy·L»¡©ú¤@¤U§ïÅÜ­þ¸Ì¤~·|Åܮɶ¡®æ¦¡¶Ü¡H·PÁÂ~

TOP

®@~¦³ÂI¤F¸Ñ¤F¡I
©Ò¥HÁÙ¬O­n·Ó¤j¤jªº¤è¦¡¥hRUN¤~¥¿½T¡A
¥i¬O¤j¤j¥i¥Hµy·L»¡©ú¤@¤U§ïÅÜ­þ¸Ì¤~·|Åܮɶ¡®æ¦¡ ...
lifedidi µoªí©ó 2013/4/26 16:30
  1. MsgBox Application.Text("1900/1/2", "[hh]")
½Æ»s¥N½X
¦p­nÅã¥Ü¥¿±`ªº®É¶¡®æ¦¡ ¥ÎFormat¨ç¼Æ´N¥i,
¦ý§A­nªº®É¶¡®æ¦¡:¤p®ÉªºÅã¥Ü   [hh]:mm ,Format¨ç¼Æ ¤£¥i¥Î
[hh]:mm ªº®æ¦¡,¦bÀx¦s®æ¤W¥ÎÀx¦s®æ®æ¦¡«ü¥O §Y¥i
TextBox¬OMSForms ªº±±¨î¶µ,¥i¥ÎÀx¦s®æªºValue(¼Æ­È) ©Î Text (®æ¦¡«áªº¦r¦ê)¶Ç»¼

ps:  ¦^¤å®É  ½Ð«ö [¦^ÂÐ] «ö¶s  µªÂЧAªº¤H¤~·|±o¨ì³qª¾
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ lifedidi ©ó 2013-4-29 10:21 ½s¿è

¦^´_ 12# GBKEE


¤j¤j¦n¡G

§Ú§â­×§ï¸òÀx¦sªº¥\¯à¥[¤W¡A

Initialize­ÈOK¡A¦ý¬O¦bÀx¦sªº®É­Ô³£¶×¿ù»~¡A

§Ú¦³¸ÕµÛ­×§ïµ{¦¡½X¡A¦ý¬O¤@ª½¥¢±Ñ¡A

³£·|¥d¦b¡i.ListBox1.Text = ³¡ªù¡j¡A·Ð½Ð¤j¤j«ü±Ð¡AÁÂÁ¡I

QQ.rar (51.52 KB)

TOP

¦^´_ 13# lifedidi


    ¤£¬O«ÜÀ´§AªºÅÞ¿è¡A¥H§ÚªºÅÞ¿èÆ[©À­×§ï§A°Ñ¦Ò¬Ý¬Ý
­ì©l.rar (27.02 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 13# lifedidi
¦bÀx¦sªº®É­Ô³£·|¿ù»~¡A¦p¦ó¿ù»~???
  1. Private Sub CommandButton4_Click()
  2.     With UserForm1
  3.         If myday <> "" And IsDate(myday) = False Then
  4.             MsgBox "±z¿é¤Jªº§¹¤u¤é´ÁµLªk¿ë§O", vbCritical + vbOKOnly, "½Ð­«·s¿é¤J"
  5.             Exit Sub
  6.         End If
  7.         .CommandButton2.Enabled = True
  8.         ³¡ªù = .ListBox1.Text
  9.         ½s¸¹ = .ListBox2.Text
  10.         R = d2(³¡ªù & "-" & ½s¸¹)
  11.         For i = 2 To 4
  12.             Sheets("SHEET1").Cells(R, i + 1).Value = .Controls("TextBox" & i).Value
  13.             .Controls("TextBox" & i).ForeColor = vbRed    '¦â±m±`¼Æ(¬õ)
  14.             .Controls("TextBox" & i).BackColor = vbWhite  '¦â±m±`¼Æ(¥Õ)
  15.             .Controls("TextBox" & i).Locked = True
  16.         Next i
  17.      '   Call UpdateBox             '***³oµ{§Ç¬O¦ó§@¥Î
  18.       '  .ListBox1.Text = ³¡ªù      '***¬°¦ó­«·sµ¹­È
  19.        ' .ListBox2.Text = ½s¸¹      '***¬°¦ó­«·sµ¹­È
  20.         .CommandButton4.Enabled = False
  21.     End With
  22.     MsgBox "¤w¸g§¹¦¨Àx¦s", vbOKOnly, "½Ðª`·N"
  23. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 15# GBKEE


    Dear GBKEE¤j¤j¡G

§Ú§ï¥ÎHsieh¤j¤j¼gªºµ{¦¡½X´ú¸ÕOK¡I¦Ó¥B¤ñ§Úªº¦³±ø²z¡C

¤p§Ìªºµ{¦¡½X³£¬O«÷«÷´ê´ê¨Óªº¡I©Ò¥H¶ÃÁVÁV¡A

¥Ø«eÁÙ¦b¾Ç²ß¶¥¬q¡A·PÁ§A­Ìªº¼ö¤ß«ü¾É^^

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD