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

[µo°Ý] Lablel°j°éÅã¥Ü

[µo°Ý] Lablel°j°éÅã¥Ü

¦pªþ¥ó
½Ð°Ý ¦³¨S¦³¿ìªk¥Î°j°éªº¤è¦¡¥h³B²z¨C¤@­ÓLabel.Caption
¦pªG¬OTextbox.value ¤]¬O¬Û¦Pªº³B²z¤è¦¡?
·PÁÂ!
¥Ø«e°j°éªº¨Ï¥Î~~~¾Ç²ß¤¤

20121005Test.rar (8.66 KB)
boyao

¦pªþ¥ó
½Ð°Ý ¦³¨S¦³¿ìªk¥Î°j°éªº¤è¦¡¥h³B²z¨C¤@­ÓLabel.Caption
¦pªG¬OTextbox.value ¤]¬O¬Û¦Pªº³B²z¤è¦¡ ...
boyao µoªí©ó 2012-10-5 13:23
  1.     Private Sub UserForm_Activate()
  2.     Dim ctrl As Control
  3.     Dim cellStart As Range
  4.     Dim cellOffset As Integer
  5.     cellOffset = 0
  6.    
  7.     Set cellStart = Sheet1.Range("C5")
  8.    
  9.     For Each ctrl In Me.Controls
  10.         If TypeName(ctrl) = "Label" Then
  11.             ctrl.Caption = cellStart.Offset(cellOffset, 0) & " " & cellStart.Offset(cellOffset, 1).Value
  12.             cellOffset = cellOffset + 1
  13.         End If
  14.     Next
  15. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

¦^´_ 1# boyao
    ª©¤W¦³¬Û¦PÃþ«¬¤å³¹

½Ð°Ñ¦Ò
¦p¦ó§Q¥Î°j°éª½±µ§ïLabel ªºname?(¤w¸Ñ¨M)

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 2# kimbal


¦A½Ð±Ð¤@¤UªO¥D.¦pªG¦³Labelªº¼Æ¶q­­¨î.¸Ó¦p¦ó©w¸qªü
¨Ò¦pLabel1~Label50¬°¤@ºØ­pºâ§e²{.Label51~Label100¬°¥t¤@ºØ­pºâ§e²{
·PÁÂ!!
boyao

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD